plot3D/0000755000176200001440000000000014052217320011413 5ustar liggesusersplot3D/NAMESPACE0000644000176200001440000000203714040311222012625 0ustar liggesusersS3method("image2D", "default") S3method("image2D", "matrix") S3method("image2D", "array") S3method("image2D", "list") S3method("plot", "plist") importFrom(misc3d, computeContour3d) import("grDevices", "graphics", "stats") importFrom("methods", "formalArgs") export(jet.col, jet2.col, gg.col, gg2.col, ramp.col, alpha.col) export(colkey, mesh, trans3D) export(scatter2D, points2D, lines2D, text2D) export(image2D, contour2D, ImageOcean) export(persp3D, hist3D, ribbon3D, perspbox) export(scatter3D, image3D, contour3D, points3D, lines3D) export(surf3D, spheresurf3D, slice3D, slicecont3D, triangle3D) export(arrows3D, polygon3D, segments3D, rect3D, box3D, border3D) export(text3D, voxel3D, isosurf3D, createvoxel, createisosurf) export(arrows2D, segments2D, rect2D, polygon2D) export(getplist, setplist, plotdev, selectplist) export(createKey, legend.plt, legend.oma, colorkey.plt, colorkey.oma, legendplot, legendmatplot, legendhist, legendpairs, colorkeyplot, colorkeymatplot, colorkeyhist, colorkeypairs) plot3D/data/0000755000176200001440000000000013162157040012327 5ustar liggesusersplot3D/data/Hypsometry.rda0000644000176200001440000071561312015156121015212 0ustar liggesusersն&@1a(s9Iιirn#ݽrUkVe9gY1g7gs9syp8Ys|_!3䘜:9uSК=NwtͿc,=o֌.tRḾ,uk2L&8prk5AGukMj/9+3H9g`/&E8߇XKN DDAER~S~vzWk9Lr8INp҇>a#}(CIJP҇>!!}0IL`>A"} IH@> ;EC6Gz?ޏ%/}ICzއ ۳Y;J"܋pO= ܃pw w#܍pW;Q .;LN;HnOF7nGaaᶛ|t˺y=:dkkW#B^y92d+dK f^k]ly9ldSf&ʱ#OA } IH@>A"}0IL`҇>!!}(CIJP҇>a#}8INpG> }$#IIHG>Q"}4IMhԍNk\c.ABDnG&O"KKKKGqGqGqGqOOOO@ @ @ @ HHHHDI9$?IGz?ޏ%/}ICzއ m~oHydd5xC2+W"B^y-5:6mwQ7$nGF7nO=;H#N;L3.J+nN;{I'^{M7>g }-5xY|C/}IKz_ޏ~#?IOz> } IH@>H99ujӿ v;& sl;mIr77wK\\=_or8v׼%|pݯo~ClKjQ‰_BW5(rseiV ֆ4)4~̤+=LYdMZBJij/ :yVw;?SP3ь~Ն~!ޙCr0&JYetHO i)0:2ay>+Q_`9F&}9*X/CvS{.6Vt})oҽ!ԿHǃ%c6\$o'gz,>@TIW\k޻F{R'zO *i#$s'j?7_K?o/=ߵꇯk]HϹ!ߣHz^|7~:D~/%TVnsSzHfQ߷#T}p>OwP#&ѿ\W)1g딿K/!pJ yPp[C= sv< M]Ywa=H=G'\:RZv<=O;k1yҽSXG OW=Uݍ5~W뾀C^F!G |owc9V=ǂj%3)6|{яx݇H)羕xGߕǨS5>%(\zdBOQW4@^vOU`2O LS8Y wV먷#=/>v"_,~6,rsdy}•G9\`#h'|q弳2^|U}yzk sf9Cc?O?y꩕]B}s\#;IZy=r'Ǩ_?f_5&y;[]|s\j$|0< ')WW%ޑ4>&/|)'o~)[+2$g? ?i_+q S0lV^#ԥP{ { nʇ|x3P8"X7'#=H)ܟ(p42D{*<9Tx"~a)SOP# FzL y,2m_+)ȅ;r~_ax|ýߓHZawd5z, |YBɷi??#92B| 3!x$N~$1𺷩Y:1~7BX>T{e[*i- (\8Dn o_l}˕|Y6q^׀73֕Kn}o(Y~|OG5?ݦr){ rwrE]UWŻw(\z)jHث;?WZ\ϸ 6gFW՛pTݏIzzoƂ{^Kb@V+ݙsie<}Z&8N̯C^Xݍ^V};oS| 7|qmżDrK0?x;ߤ~prv{̇̃''^6+EI1 B.D6!+<\L:YJkIǗ+x=o1 UP`U+C{Dxp+ʟ=%kYWοhF}TR=~ʞukj W}w\q nxy7<3#j7?$SO 7Irʅ3~+SW{;'vI/7L׽F%rȩZ7gZ#=NHکkWD8p-2/NEh.$)OX;>'zƩV%^H~ʃ㝰?Hx͚zonDSép~#f2^_~e Znzciyso 5߂iJl{~ 6!w ~o%X9˷C4Ϫ-zn?87C):m}}cЋt }[yzש?ޟR=~??.(/.Y~,%Y0R|*h'olS~KE\Nr>}?ѹm]J$,9(q?.cޔ.z<Mr⫼p>ŻO$S~Y䧤!׸~9 <5O r_>{.x'7;̺vY혡}[>|p~S*~'ߡQ_;oy=m˿)]+/Lcw.Yb+Ⱦ6{|ƱYpvA'?r1oџ]pb.r?8{.bWVV̷aHq@Gpy{|W? $W|-n^@<+#mph_}giWx {@ 9dw$V\ڸ.WpvFE9WZܭ5{}WhCG zW˫m;m _ux&\)\=G(G58ƿ]5\[/zіrh/pwۍZ >uPoo] S+"6NT+Gz|UsHZ9Տ>R)v3Eg鎄Cy$8:=Zi,Ncjک % ?3z47CFCVWW"?2igو:\+bupV\HG惥Bk]IG[ﮈ!6vj}|G/įC !IWKwjr}S3s{H΋HοBriI-|Qr1%VK.gޒ'y@}Zs ap_u_K|mK?oDf_܂~p#ʷ"cJ=ܴHk(P/pHC{1iǏ؃^7JƳrCrO7Ou3ѷ.缁gpRoo Kn[wo7oQxu=|ݼ䪇oϵy›$)zK> wsnn}|g YolA>B9λOM  ^gRrx.)U2+Wc}/nxROvrϴ${|ž^쇽V|_U>!{ j[g!6ٗ8; ~ycgxsݫh 䈇8i+zf/U]uÏ ܬ+͗uR{?`[6#6}/ƒ^ z>Uz#wJ!~Hb=i\WW${H/\g'>$Wؑm^Ar=1l}c/ɾAt+8U7|pI'c/I/Cl)2qO7O߯aׄסG^;;`s-n[6^bAmG߆bu/C ߓ9OGOz}*ۋ~x*>Վ=xx=wyXjy7euL>{ {]s۔m<ůDow飒sLLrӒ_ڟŒ7J3x51v~J."pbK $IZ̼_ Gi5ּ ʷ=:K7gوy$zMInm n O*YST|EK􀇣oޢx.[z#x9|߅epL{] ?m y"*)\a>/W ߢ|y*rpYɵw֠oG;rO+Sސ\ fAGy7b67YcS{N݌1&O |w 9'Zpg~_m~eR8w}Yr-̇N;<*YX|rطg/f뜓?.Yr&K=3߅Fys y9<.;;[}qN/!p?S3SM]:m}s`4~3f_DN+x*ke_& ;= =աW6 coY+[T^vH_"}#zU.8|#޷q/bW1mbѷvhK͎LzciG^h_c%o*smp;wqVr> //r(&_G(Q'6RkS i!-ɧ4ϓ㒣'ydXKHJMlN6uqaEKCOOlt}Ml ǯScps5|0!_Cc7W38`cG'R;: 쒂#ߍ .|+)ߗqol*~ cWzTY=zV;YKxW} yopoXJ@__U|j[>z=pj䜳7I.8 [# %Dϵ;ї.BJ^D ɼaz?c-b-q+ne[@R=xci-mEoKf?oevʕE5@GÏܽr ;,t~/s9vʁn.c$$ܓvER4p/z~o{d;1H}e_01>b\Zpxl`߷љc/igO#KvYk%YpX;8xzb]i|^þkV<~1)y;oϹ8~Caݛ;p =eC:.MŇǵ&>nҾxnNj<9߾uW~gR鍃b c ov蟻E+sh١o/@k{{÷k"D/1onJ"lDV"(_lF+_ܫ]'vHđO싞V=8rZ)P#B=ϒYSdn/Sq̓1Wʭ|K_EƊO]l/~GwꈃpݚEDžJ%'41<^yLO`Wd}Q9δna~.zsscI^ϹHHNm"xxzi$sO/7,e/*'c׻V׺!bq7vQs3-O) %wL);Spa7_|):E瀓s,Y_Jx'~aE?+[ ٯTϬj/|}%s7~?/ 9_Q/.m zxw|xZ\o{Djx΂3(PŸ^; a 3; ȧ%G?9t0!_[ $|~}doD|5O/?] !F4DsWNR:9Xx=;%b?^{>ǂ UȾ`vg.=Ǎ}A&?vw^$\Wj/u;ã of>Tc땃S_dbxo\_|pF6YRz"k_n.ԑWķ='?K84 ;o[q,>E叵%{X_G 1iMhNJ?(ʃo oc?x qv>.wE?}QsZYa_+>NSU_l7,'~< :߈<8=ODIICT_pRr֫rG؍Ԧ;GFx\} ?O~D&)?yw,^ Cby_=bg٧6ЃNډ~kjA>?*>|wp.xAkѿ | \]oUOK.߭װ_F-ONƟOĺ9ާ?ޱ_aWϕizm]sPzK csD>{VɎuQKɾyS&3-qpMy|}ǎyǡw%_zW{;[5OW\kf!k}3$36UߦRmaO3*p"ᷤh'zcdq^t/w+9 rEްy1?圃+- 'ǎqpMeANG߷زݜGg!|}0 O/Гc_y~J :c_;LKü_#}9_[ճ%o'd̿U/KұKz:ߣ[V>'>z)9"<5VGcVs>\7ՓR3~)ތxd[b w\kZ'|'2~L1σN^ ~hQOw'?yX ,|E㺹k F~2B kgWh+zlWx_ƾo/^~"_$r; tIS#{:/zw}ZvQp#cWN9vñس傳?'!޷3,{s.?4eth?[/2u(yHdsFzϑB!?<Qy򽏾qi< ߎ~(CୠwO!%} ó^>qgoy?L %ܘޞ{3y ,~ꋳ7rxnx;y,duQpwi7|ySF{+;v7· j4ָE,CUX qz9 w~GoL3K|ͽ!7gm6귗}S{uwJWU*{S%m;n.U =ߞvY Gw5T#u!%߻iB쏖!\;~p67~݌nnHzA77w#Mؓmi >oPx6̣.4wߧzJN߶AK.|74/AP&?q.kG8y#asӕGJRuː$ 9Y~J!_eWO;9߯\oIǑ xU'JrId,2~%y>I^DR4s9Frox|PWQ@3,ߵR9)=m:k«}M ~B;v`׃ |rdC -<ܯ{g]q ?~|O㫫}/\lm ˱UT> C\q"wgQ}f| 9~gO!Q>Eރ+zw~ )Qod8a"w ĸ?>D>襏`ϼ5oU7`I_s|Tnj:s=>"Dy'}Cc|8↧^Q N8Y-]IOou(ތNRxx]:9ގxZ3P5YyO+ZyIIk:X-XaUr~ .˓>k$շFzAk8SEM|AgnjT$oAxI?)7[sIpI=\#YỊƜo{֪gV_ ~MRpN 7^i8<`ɻ8}vAmcOvw.sc9Rbq;H<}x=ߵ\-~i!BxɅOa^vd;8~GVK!['b1<M)rcȇŜ a<US^ߑywN ~kH#KokӅ귵xR략\H~b$~ٚ+5<<<rҥ=A{>Z{fuwXo>k\M1ůrϱ7PLXܶt9Erŵu𗶡?)}{@T>_"4`0g9 |a2x>Op aZܚ{W}`.C/~Q[/2NhGdnƞ6ZE_#.pE3bcސWS(W**W{@%‘u_"~"sIAGG_; )}s1o^>gЫC+;R1z)*n_pwCpn5idUc;Bjϻ})Wϭ̿m b7⫣tS+9B| ҫ O X#}<8z׷Tmꃟg|]p C 78xG G+M4~#{e#>C-_ûa7o98pB|sIKoq? O'To ޏ J=? |K~kx/I{ꂫV=qukϴB;Kg]'|0;l-^8sY}O5.-uYPxp}\ EoŎ5+ ސhr_UMPud-ܣq2EaGx~c W/? U˻&o3od *vo/B{oV?rC؍]m+| QHwrJʷ<6Hxkg[}F1.-/|$Qzmo1]VRO?DϽp<-vl}osϹƲӐCr:1w^ O z=×/9yYkzٕOKD5=qn*WZ+~'s9s"΅۶wC!kBS76D"^YKϤK՜;5I˭+dY>]Z|Rqւ[Qr95IKh?/wucgRUbXK]_2AȽlA vUZpz嶟Ws ?Oos`dxQ'ǎ0ZQk|ы:a1U<1=",8ؑ^Zȧ%'D20N+2P.?%rzGuoKxxy6ϴQz{ǂ_k#{ ^ .G/s8NdJ)/^z+Լqǫ2=7UPF87*t_-7ONzhѣgcCOH7ג7s9>e{GWb?d(ص:KG8d=A=&gW}agp\5cHCUOmuCKŸ N]+|4}:v~+YO ȽN>ұOV=|ye*>CXzʄ)޼ .ឨ} XKߗtEi}Y9(#+Y/8]zӥb?[ /+WxXVȯHx+O~-WB'<%){s+Ş +Rzbl~ͪ'V'J9+d}d+' 7'JAQunݟhw^:/vՓ,󵖣\*5=`7Iţ4΃;ݗ״OHNcO8ToE߭ԑCbA{JgwuE=_3R\wU|V _C />Z{5O>Wg`W o6ރoid÷M}SYKk 3ǂH^Zӈ5WM}ln~A>Oe|=[/`3 lpg? gd^ν @CpIh'|ܜvk5n;-@?:_k'w~|=ޯq=UsZWjY¼*~~6.ң{~\o.|ˑKͅ?gsx2"z;R}KB_ <ͺ@OC|<9s,gy' G0<\<"x'0~v![>|ؓ3_f>$ta #'vW<>{Z{ `y2<Wf~~~P>_>F; {7D< يs_wUݯu ԏR㊶ۣMV:;˾Z,|VzuM/>֡q^1a4\8Z2u B#^SxVC?o'V~/8D$6M3+{-pg%?'\t?z~s XR#7ƾgΛo+| sQ˲cZ뚰 =K?i>aʻŃanQ?bD3 Kl>ECF!J|}n#{`=o[`soҗBw>۩j'8{1;vO@9φ}T2b>/{9tR׳J@bח6->{rk8b~mk6ƞЃlzʞQ^=xsz--' zo'';^ q9zm><'k윋-D+D17Sb/}w8}Ql!/%|bV{!xy:ó Ǹ_|Z|<,40~9BG>? Cv;ZЃsyߣqyz>?O`޾yFp2x}|F8 Wܽ TwXě(tM7p;S!" zxT|jR1U1HIŷ^$ue>#˘3Y2fP~p1Rj/QsR|ΒSn&AruFz>_H꫿)dӵ]NM勏WQ# ߃k}rr^ARl(w*zL`1|ﯵUv֖-Bim~=&OamJ6%>ok~ 'X+чνVkHwr.js{pߩ9'Xճm&~xkz~ժo90UКswkL ;*lQ5³GΑvkޯ?y ނJ T}>ad? ǶzCC蹷-.+_ߓ s͖eZ?s9OOaz嗰Z7\p,MG^۱ʟQk[8H?5=ްU i^ּVsmOey?yҐ4c'h>:xÊݤ}Vh.ަrq/Fws7E"}9?=+f/r~Ok=᧹;Zcգ0wwk׻:ǧGv[zm]+{[S zi{vU0XB z궚7*Hk~,WZ8sU/{Jwzfǻ{k-jCM .mKltp ?q8韃kX*=t=c.~G~G3S?BSc+}qh;VO᙭tO՘{Z<ܛ]$CW|[o7 GՁwe?=߻1_$F\ ?RH__t._޽7ۊw?qùkž#{ 5bB܇蝜H8W$~Wp%wsC^?}'ڋ7^N1nArk ߪg p=zGa%5~ћor9^TOWnľ tOp^B׺BǪ!BWw/~=8$Wh6| ءbaV|$~/=A_u/xK,ҧ_~k|σ+Uw<34Nޑ&aP;z@_$.UAsk+ױ{AT쐝Uz'Y9_ [ys;Mܵ]^̻hn~^mF_^!]Ϲ}л_k2µcjpq?׮sJr^WoW=(coݻ_(Txl77w/ ܠyln8z+Vwߛ/|I >ǝ|Ɏkɟ˒/ohu8Zx,u+7}#8iۅ9+\}jbo&k==YS ƭc$'Gw2YZUzX/Z_пXfsԟ눏 ?{g~#z+嶽O>?+mcźVdݵuws?^tx a[~)˷y{elռfjVp}ՁuyV|z&=^ֶ* )}>eۭm]̳_w VYFkOekTɵK9Oi_x,p*[g[HkI#Ql{+S_i{ N:^\7\<εkzGG?kO^= o:[CoZwvOS^ւgOz'O=z{6ߤϷ-Ǿ e+G,\8KڿŋU_+Rs/m7Ngʥtߣeߗqk t ~Խy7ߤSq~f>n7edkO[@>"u WVV~-IYm|h"Zd'oM*8OlXfVquɑotpH^kʽe_t}PO](Ե|V;8͎ܵZ2|~\xhꖏ] N{mq8: \yCrm=n+Zg}oMp9Cse޼O2=E3vp!q}ʗ]6]ӿ>w)U3T|PsךOS^K||Łk[3{ʿkg4^4ǂF|Mgw/kpbwU9z ='Y}߁;S7Z>S>n'r4gлoN,7?_}Q=toLTgQ]km<5H<|따9V_] (;փ*Z*_Ջz> 4NT>Ѿ?O"`_?Hx Ub޿[4ǙN>? `"8Bߐa^~gv_yΛ?>>!}5nϱM9>SBwi*\Y< g11M)j#j.j'y'AvRї}?jT>fy%R.=OIәM)X wi?>C_\}W<ϼpyRt}imXW -5iS6mϴ~-9^ 7;&isL={^YK=Yx뺬+㞁>q/Oz[iԁH 폣u:Zx81]09\咺J5'?7礰5~2}y*8bkvPF{}?o{ϾGo}v$5ҧ"ǫtg͛ʟFϐ/xnsMPI@/AyF~ozno/M\tu߱Oyʖn޿}oIy_k:k`{8[߾2՗{RZVz߷V_ O\/2iX^-@{hQ@~,6#Vڷm4?]Ńxef'r?|Ϫk.I79W| eXt/EV8įw2pF z_xsty{ /_>{D|pJuj|s߽ MK\W_o?o3%\vN]bC_x?olyo7f-/zyˬk]y/=G~uٱMҠzkǘqΐ{=\n nSZ?㩲y\wp}g_|[kO7|wjsy?^+U?{XZyx8˴/O}'xnP9&ܟn,|UL(cQzOq--jh]67t~Z=xy?/;/w48M`˾n޼lST5Ø#}q-k<ң= 6z\Ig ?qRG],/eوq:<SBV9rү@f|^QHv!Vb_$#CzJƇ/~O1x|=IUC|J xKj_1 ||vyfN4/>zÃ[Jnҧun=3?g_Zjoj͏{)/%&g&֊2+ډ 8ǿ&RH:1I^[l^Jq۞ϊQ #\U?/w-(9~6Ś2U H>c;~X⻜E=h}4[|^)<`~{Iϛ(np͞a>ON&$ wѓvO'q|d{| *s?lo*7l-8@?kHoךk~ec]Hbڿ&G|˞ '/9w GwoܳڸJTt7_7ƽ3AX_.p+m_筼¿7Tn-.^Qi]Ng\%B7pe6}֞˦ii?cGo';.K3Mſ ^smfƠZszН֊,iU݉j@zkz+v46]-c!9c]_9, Cߵd{Dž#?{*=§!v:PK;CVh=߂j)yRo?c&pBs|OA&s>GBRx=1X?Op{SfŮIďl/>z82'[?0/M{|]CVOD7`'꿉K557O~o?]O|~Yw:s3lS諻4%xd>ρ3{HH3џN>K/~6<6S<7Ȟ*?JzOVdt#vG|+q0r}~g# `LfTy։)˜MJf)MHnv+=WҫIݬvӛ(AՓyv-"Փ=[V0j7F3g.V3L} [äYUߍeT|qdq͟2?~ZWlj]+7mencOyqoVlw_~#C$ƪTVz MI<'=QgJ^7;܈!{wr[O'.C+K|8W~ǚJ/Ί-V?9Z"7k^zU.Ξ7:>>~:^lݼkX]*)(>]x:؞?+IW{FM­[<,1J_Od0v܃+d/5y1VmtyDZ+ߍ}thk~.c_1;oQ%izu|ٵ}HwՊ⼾sKr-VYBOJr8 Wޔ/ pоDvjPÝ 'O)V=[Gl>-Skk/77=?~ŕ0U4uSvuW;[*R9z΢.J7}MGSKTҕ/U0Yikυg' 9w}${%7wsNoUkxԲLS93dG {SαU*[U >=td`/y\xR}V?$&[%5Xv6FvO^#VF?رeQb* |ѽSVLV){egV1^ /q0~=2OE5_`~['+_Irm_2?tkO/#Hy<=_fά#}5ỐхQV&"T˜ >?ʭs4e|<#!G?qr+7oCy5VX|z6O!G#taE=+qpm^\z|ퟴ˥6rǽ9g|?O||߼sbؿ`;^sErl?6w ׏;8?߿⣛שÔ$y3 ާ:-&=Ɔ2WzN8qGS~~pDqֹ ~qGrǖ_.IdI/\ZEܗ[ -i/9O}ǀ/{czc{jB;:Yל1_z<_Ϗ#Bxq7 OAomOr_t_58o77ny/U~ .a14. KȻ3a2~sY_6Lx+?&Ϸ{T?k&w\Y!;vUqrSKj[*~YggMT~a=/Vejk}t~.h^ug4~ ~gx"Ʋ_8~= r;NZÕïA&?-V6w'P=w޻OXwlv.܀7xw/Z yGϊNިpr xy%QuO1 ?ܔGK+< yG7vG)7\<{k5Vc̹#_/`ǿI:~,Ⱥ9j7P H~_'?_Q\ȜMYprpk~}^I۫K';ط+gmP!n}]ϑ3Ag+_~s8׫~ߩG[U?=uNO¹;~cޚߙߤx~EI.pKN`}茿VOT#EءrX t!mvϕ率٧7-g6d_7g }8|_>4~biWtRLK-Y|;(X{>?!~&bz=[w)>slZ|737Y+|5_O::ߣs)CbiK4vWmkR?odiY{k_f.(oHߜ:^k.jk=\ux킄gg@=ynsY?H^W1 ~IK?/?|0Yže[p/g@l,>*OϹ9=#ϫj3O D{SkVpO@.KWON3'BxnM)9z$Eܥo O?^p/3/>c=~wsuBvfxkH.oz=ԽV S : n$٫տ5}_ڒ+C`]B➪c8?2~jlkps֎(.}O߽7jxtϧYq|oi&i#p%v{ӕ|Ծ}ov@+8yfav*ߩ};yK|ui@o}֗EB/}.~pMk0M/'>J ~2agG'?^Fo| o ? [_'q֟Hd#S+HQIGoaYܒH~ӻXٿg_jș573N3ׁ[ے~:_Ez7_|W3 \#SH{_Lx1?z^JۚeO~q.^2[kw>0w>=Ogy?yo =זy՞1yNM*?Q7%IƸ::\tov+SVsOz&m%'\=cY|~_7j?{[ƞ$2f1K$ӧ*[a&7}5Wtpt֫4|W7әOɿ*ӐvQ?2˓AO~gSxߢ=&foٮNw'iC:ͳ(_Bg*~f>" _<*SM}7Μ|ӖEw'%mrX2/Ŷ?I~N×M?L32O?@6/:]&*{ʮ;sί2 /&ëo/I-{L^9s ]3du(rtwm76'__~ҏ_`<^+އY`G{{V.ž ͋xC{Ej_?@MV8RϦv[I&7{pɹmx >6!{G6YK=ssH}6y :]\H|TE>-Wk?$ΦoWsv{s(ݹhuzEڃ;Q8KKн#gyk}qNx*mCex^5ᆴ[Cn8oPYvYP[$GUwb|f~":QmEe¼~뒁 q|Mz9L ?.'xOpo]_E*Ͼ#ؖq{k YN}O"w۰Ns}'=ZzW9x3{(ū GrUoDZI$>{Ra}kLO]+}[՗ޯ|n+Փ|ʙ ip)ؙ?d)WD>2+~"z)_'ؓfѮ㬦rz">z&i2s(7M{FߙӪ'=qK<486}}u%#u&=OIP̏ʟZϑm"/;mOQ*< UqʎFVٽ?ک:JZ]YƧW9.~D:`me¶K;=gځS]_'gSݠ'Hvә~|ىdR#g?gjf9Z|W3ʞ'm{e3J_y^,yc/5]Cf8 dN7s8:O8=yg1A_:/gDwp콓I/,myy)#G;֪x]RO\Mz${\1q&NxzugSK:t<8oHp;(_dx58@٬ K9%8&!޶X;>c:>8sg*+Qr3UjU/$n7a7#b'DZ8r[okޜ7(O7i5ܲ!|kw{XՌj7qSꝣJr罐IH/i ;@\Bd/Bw2bo25O-?0>D'E^{W>߷.T8þbY3/rK~'j:ySw7glډR՗|(Y$n=ӛU.mCW;y/s>ɓR8}>W3\z8՛=Lϗ>-e)"0|L#3{HFO%;Si\22A}眃$KH>_iZ3n)Ž]EGCz r OF{מިzLcVQ|E|fj? 'd|dhYwϳMVsN.h)wmߑe#:-T#}wUBt^(zc 'OUG&#agKM oT ?ks$n}ݧ1n)gKT8.SByc+x_*_H=˞M|{lO7lzd9Ȳ>DO޳ܶ G܁?|3;Q])s +~n=ʶ+̧mu.2ϬE|fZc쓳O!3wC~cL=>V6әO|+=l%}cQٓd/X >HO!.BCTOzw#ed[ /^;3[fCg3 Iow~9@/P 9|Ac+WXpgpo{}՟bO5e]܃DB\ 4vCܟq./V?9P\^C3Xͯr'FL7&9a3N}4nɉJO`>G< :|ķˎU(~±j/587x!EQ=QyQǎ5U%,R8߄y%_R4ʈw̎}$=N06 ACWGٺʟe>xxٳP} ܙR7^@7Tk?{gϦh2aMgЧe^2O1gIg}{Fنă+2e3ԏL ?|Kԇ4'n>pYKsN2 M9/@Q +ޜ$isUθ3Nkv$QϢ'G\(V5T؇]n) oNr×NW=j/~y^0W2Ew -Q8 ? p.~?@$[&^R})! 4Z+l6T91=^L3L<[2">gˑv</ O˂W aaYgy?Y;rꋏ'~~%{GwfC llP~!)?~߾G*\J~0=mFӺϱS~LՍţ!\}W3sxs] +v?"S~,l7d[~eϛS hje;{f GvpqvPϺ f/=Sw֡\n$镳-~;Rpz}p_'+ü\Ĺ)ul66.tNi,?.TɅ7.W|928/N[n _!*x~,̾0z9Lu>~&hM3s~%=/rD{+ľHx;j`Fm4%7S/n't$yޕO'S}\Z'iT.}, ߆l@?43ޅȮu@e>3>HYsNbTieV\C{W Yϕ/{= !)|<{E23io%ʣ'>39a;vad2{P j/R}$Cn0oUFPT9'^&V9JPV:)> NQJNW~8O6*;=~_|v%NnmW}¿~.Fkዥ9%;_vkO7%\W]Tg>-|>K86pEvt}X]e*Z]WzȾf#G۸?Kx&;=<g]`v29z"';y<KKR]u#^L7̈́ۂ]b2G0og?~/dzyϱ CCxlj~$}D8=O;@ḕfާt;d=5c޸'2n-UXVeR||&:ߓE+Y)MoSaKQٱ%/7G\{ߦMywQˡsUNw-}&a! kC99>/92/R ɍ~'G8Zϑs$xŪ'kss]x9Od=~\,EOG۴#&1/2ޗ4xW#w3 7 K;~+7A3qe+=s {f/nU 7@L; S/+>3O^3 ZⓨWߦ?"s3Nζ *>C/'ҳVhGspt9 g^G?;MfP;WVwުEMT.R7ߎ:< p-~߳'CY-spVO~< ύ_,vYYfs{_NҺJfǠAx3~ʫ = /z ㊺{RQ:Xr1WJ# 2e 3r-Ug?^vLx.ds2\e,6s'z経Bzfq sOn.A6V8/v7g]y]w,W}p5M~!/Ơ%q+՟C͏T/~p pj?7Xp= /*4W+_Hx#U>&׫L k~J㙽0v 97ۣy_x1{y?Ȍqo/rBM ΧM&3>=a(> z/]x cuM_6)+BkB"s\2vc;v pRR'3Kq^Eo1M4ε|DZ`s޳ U LSÛ̇(O㐆Fդ<ϟByο3233=afϰ?{ 2O 5U~@j/}AHR2})1{˱% ;)I M ɾoLpI}9,U|pFc=99^}`^xa$"_l1 Q-E%)[Or&1f?\0) gql==ʟaR9c3 3G&W&j;4JqJLKԗlv~(WWJ/ZzNw/~qɫUNxfeW'l%fd?3xJsQg'yҋWw.,Z}>yoK8 Woj9yWUn&~Gu>ܿHg{-^G?*/}ENap- 8?Yg'+ms~̳ { 3r3+p!<3aG?|LJ?+Fr Żѻ*ڣpJ,]Rߡٖݏ[Ooa?}fxw͗]G7?N{%c3z|o3Μ7k6(sF{.bo; ^¾7|2/G<"=sw wx)Jqﭙ>"s>%+*YAN3fʮU?^9뽥3 pC{"2p2'SF=A^ NOȢxЃ{g3/9Ǩj|W MZ=$#q3EJGGOߌqEYg?$O O|k7<nwwDoG|OR8κ_g%Isa OO3ރ 1^^wloܽS߭M&~̮#C!}O/Wz7՗d*>I_/=APz 7Dy\g#d>$Z|~6؟)<` Rܿb?DoC4yЧM|!uj7?8ӮMϯzS)JuGg80¦ 3 cŸHT*cCp`=EY{z9ߊ|C=;!%#~'3O9oi1}ʧyV;i%ͥM$Cg)>lS?'bܟAOG% )Lu{~ 6_x{(:@[T Os_I]@kpک~c~貹ϓx/Ξ,ޤ B?3L:/~phk/ ToQ|u{Ń f X˄{%z,xvxx 8]Ћbz$v{ W6<ڟF3< 8 4 n}E -Y<6ZhOn_?— Ca-?C*^x[PN^+=>hŜ C?[|9 WkV+8w9|37 i}zOBݍO$&ZO_<}ZGo=|JO.G=]H>8) .~ r'I<+}/-fn0}C1U~ǯj\1zyIßgm>͹~OpM+=A)n?-w6W߃|)GM?sxtx(:8{7}TsnP'˽vos~!Ha͞=~m|7̯<=wz.d<魙Oy~s2fKaQß=<< )d I r@` _%7O2N Ó srڢzX%y'Z1I6'JaC `qMMޏ7u|8S7r>:o`o#729w1 Lރ~܉5+sa~_eV{Ѯʟ9/qNl ϰ?bӴƿG#7 E#U_{=7::^7:sMsW&; OѴTQ.o&\yx^ޟ{'y?;J7LJ}wOIwWj1;zG˽&p7XO =27~6<G/?߹| 1㳸a8jzs(|G ~?S?`)HL_.vxmy#U仏x3ӯP 7=||;[2+5^fc7-Ǻ\!F;0z'6~(=q8J匛{1SKT>U>9ӹn[K|s6虱F^=UOc~G*2www?{mFz,dsds43?ܝT{E۩{rT˅P?EwK ^X9xjw;e{=L]ؗl|Il'ޏxZ8Mվ.闌ߨa~oaO{͔¯q}g~qz*SPo(<$[;m&_ oDw|Uҹ970?E4~MLYWp4z$=OswGzGH̓0~B9mr:/X;l}_'DnF\p!VG9 ;LX>퍲'Ng׃v8G)?ЛŏH5$I /3I~ߞEh@zxy= nF_[=<uJz!5H hfDvSoPmٍA{!'D[+,i_:v'[I [>_zM .rY2%'_4#)؏7ߡWx? ܿG1пSyoLTƛs+mSܪF?:OX:R߀7)>5)۹8NSN]_7_ ގ;`yB.s 0Ǹ% Fmꪞʟ_I;O8~ sC 0])o6WXP 89}_|;9=s J~w}&FKF}Y9 OOoiu~C;[kQٽ藹8kgƏH"pj'[5Z #ۆ}5lwG7`4)8:̱w03|g7/G;z1Ox PC !r6s>LsDc՛Vo{ 5߫m|W{#c$c<^&s { 70*T,*>:Dim3,2yt\KcBasN4t⾠|0m~4&\Z"?.v]J.3$y9?̱VWs>տ 82]r~c{ғp>Q_AůK{s,s+2<0ϛ87s͌^^Vs?MzFxNTO~ p^>R>dY >ѷ量/mMvqo^]@?m$ֶ-=lωszR闍)wteƶro0ЬtGpWY~S;P\[C;vFGeW;ЗVFoįF ߹ 46EHx^!~ݡ%.6n $?qϵQ()9}}؛Ͱӏ ?ܳ$x$W]|7sY 兩@HȦfa.=FmI[V rg?w'Žj =l xл~ ^~ '>%-V7~NSH|KeHw'_aW\z߃rnj?Mpў~ > y;^Σ&^&Gǔc y=GHtM`]fN8v =ۍc';x 3^ܛ~;um97$h0]O'8|}hr_?Qewy\N(I+778 “HdY;Jdsf^d^K:$[(5suh>Cf @F~ ?O/͛W>ży]i' 3/3W'ǀ[?<߀[/½y nn/c^x;_c*$5kX(sOx̹WrQ~߆Jr~3} Υ}|=ɽ&ܼɜORfpVv{)2ߌ| ҹб~D=O {N\GHO5{F:!^b[r F+5O?!SW@}e~~ W(vdŽ=@K|A7~sn톧SqwcO{ÿe  V֋~?7g˴a`0CMltŊ74gz4a!Ӝآz(xcS? ^UrU)ŽF {}q57or~9O |:e+v ::\'G Fs4XxzM?R{SǾ^-_[d|>OI>\sgxtK?3kCE+B/UAt*W,za*)њoWRY*oո3,wOŽ?HO>Z-}ʧs#!WÎмJ:Ccsߨ*Ozzӥz?p:|%|F0nϛxaj&w?[}:z_O)ֽǒ}K'M"^=16…Wi?=}umQ/P$X9?{຦=?Xu _l˸\8ߟO>}bν-eTMr]"0^|w 0wp~ }v(AÛ< =4z*c;x*SY7w?^nKGjv@Oo5ƹSIǾjc|K9,!¥֦|_ע^X~qM/gz™z v޺O,f-I=wBd~ze3w*_9 d ԟ !sdf _ǿKGT#1=Y炿`<>gvP)y^7yLUס_JN959^xyUO%VsOM`+{G7/ #_cѓ_w XG2s!m+Ι'>{Q8xsHvӛ'cuqx?k鏙2Q~CuWcrOAbZ~ʉ*Mq 5_za˱Ζxɛ d>v~ܒss%ɩOE% sQy[=cDO:A!V Gΐ a+܇?Oй[DZ{s H~xʼnm ' ~"bOHoW]?^5F}j0&DK6/vݵ=udQg z^?<4v ?x[,sOn{}Bߧoؼg#YFNB=_x >{_pXmx8IlohrpZx[ w}k͞~ %=k|Ꮟ!?xGxJOOi} }ܷ`w6U?sПsg{YgkW_ uJtTD{ o >nD9ףSx#rx^ss=oֹ;7 ^C/EuB Kcoe1>/^MjT>z>$F>~XC?_{FF}{ P8̽{vTOsA )_XsH2k\ ޯًsOɫo:$#~2$lyz3U_v1ۛKr}E+O\u8C_̛ٷPwpKpMyCKWç*՟~>c2LyJf-z@Wp37iwiOU>\Ԑ85=0ƭΩM!' h^aH^g:8?A%*=g =4ȱgٯk!>й5x~<E2ћĮTOn;5~˓ܯ*ea}|fipSz0zN3;4ҹ/c|[9=8I&Wba(9%Ikx%9HYDZ?3^3m d59 rT}{qJnߩE\ <8OIO3?!M/&})_y`^H9Vxƾ?Pz[3&Uc;g7׀WeOA2vq~_*r!p}ߓs߼X?B5sk]߈^?'Cʗj;@gtL9VmIV _i=mg_ʹ,N?Goza$Vi]g=+=si#vHqV[{lmCב9D|/ gֳ=3ܷ>M~_-rzzyy»yWb4Ol5;qx&4=HaOxmOHDo?{|'sa_^zp ׼#sKҷ_Cz'r21ɹw;ћ6q~N@+/k~'"HE;ͺDϺ߅[8<`̟éՌ{vMOi[r>nc νUEWPٛζ8e; 'Y{S2S3ӗxA7k| >w;Of>{sJaf2% ,Nո"Z?n&'43O{c%>0>ֆ M`]ĿbJ2/:@ޖSOCGR/Nx3~f 9 V#M[s7+\Q|_¯IN9y9w%sϬ..Tg_jg 3XHC܎yG%^v^&]?{zwݲqMwtr 'S﹅>Vvx|.䯵Ё׮Gy+.yyvZ2xw+G?;tqbj Z_paEZIgǸ1ߢ[Ζ`:3пo碷lm'$/zK &> o+SN;k2/a>?vzꗾG }4ARw?crO6ϴL'd;x ג3?Πg+ٝi?[q~7]x8ɱK=7z.a؈':+dcOX/?w>\`{'8;@GvWs8ãwpZpLxЯKNġv?=9ol>:ڞNsW}l%> AlSwk3GaCz{ :΃muк'tFgob>pޔqV3Ey>~?<,ÙO1WgZ v+|'cJ.'ګnQ2Hw1#~r^e*ҏ(>E#_Qms= Q>k{1#^x?u}-tít\?S6q!v'oMY⒲f>#~38z1ĻSQZifwwCAYQpX; ].s +};>Fx~ + L<]7 =}Gwߕٝw dI%p.:1~Q+ٟ^Y?<NR}<z |37|8LG ZXxq}?$YC8: ;73 .ז`ݶT|??mHeBk47WӍxįkrR1Fb' >,OR4:C<mufJwŭz"]{p̅zҋ9KGO~Hϓa|]Ow*c?‰h=JItӬeNGi}gAde[mo?ߜ=eMG9uK2>'G%WuX3Y\eYmx6Y"=E6\#lԗLv3s%.紖]} QLۙg ݇7]佢q?;L/ă?\~ 8x ƛUG75 x;Һ# ?dpp,]W[8sXvpw`#">N.<2:9%jl׶J;M9};rơh IO)x~Od,}c:$ՂmG2~vq9wxΎ}k݇ҏSi_z9[~ڷ<;җ'gmvKnY&RxԘTWvp\y퍥#3`ޛg .1>Vy||%_=Jzנ;X:K鸚ʭ!N\XͺQ5Ֆ~&N#G\G;E}𪏎Sџ^{Dy?YwᪿCC]/_n#k>:?/ߞ٣z@,Nf8<8q Nmڂl1Yͺ-qb]`U*o781ncցwlK 4{OL5fmw\ҹ_HG-+O[*'{t伕;o;n0Hys'|C"?ʷoP#lŮ]^ 'iYwyNvm3ej|O~h,x,Nu,|-V{;,voй;ƛCoFQo)ut>^^yC[ ڢc >W7xŌSZ?}Ey9c? jSp|/" ,Ǐnd[c>8g6{ úMbYJu#xH'>?~ ]/<>'1[K车.Mn:/80;8Ԟ,k{z{z.i$;"EWn˘w-ǟx"KKh{"W*C5NO`p W:VDxwq>ysF;1'}Qj^Q\q*|t}l\ױY׶;z#fC\f/ ߹yfƫMu~D_m'wF1\< cM%b,xa,ؘ)fh/ AwtGvB4qtݷnQ|m(0!Ok 5QoʫOQSG6':O*ٚ/{w~Dשf#?OW?xӛ{ğꟲNe=L;YZ0<2Cdvj;u 9^?{88$8:Yϒ"Юlm_ݟ 졽K{ asY?ԧsZ4o~EzqeP./>=>΍DxnVwۓȯvuؽ>ER8>z5Rco흈JMqc[{o31uè]Fֿȏ'x'r Y/sQxϷ W>:S"wpojr*/ӳP.GvV~zGINw>zʍz\ b0/?׉wKu3'3/"yXp^9 zUM7_z8xO"υ= v ?^ݙuhGǩMxjmu8xWsO*yKvk),)ÿT!t]w):]t{(0Opx'畓o zQ|Pq,%ev]ׄup=lߋKZό5h"ݗC^Bj''oORf={u<8?E?vqwNڸ;Qyww_$Ccg\q{l?y~~n8upwwp$Dg.#ʱW\m33|w3OK7//VTS=ⷱޥ o#]2!b>Yxcj%/ǯX&yޭKB]4{iKRd|4[6κÎ]%|k ˥cSܶ1U9Hf//dZ. .d1(:Vy;JC[0N?YjaW9{{zP|9TG[M\o5=(_6<xQsnFtﺮ?*7l](wzUڎnG(*+ߧdѷ6?m㷶 \uOYb-o^}qwv ~ &aL١ʻShZG>c[x*xk2{OWP񗽮2_'<-,btG}G?c*/[A8ֻ \emuKbg*+m_h.\@+QV58uj|/"zˈIJ\ۏ(3\zeO'~7q(x77Ud'" D fs4K: } ^E~5(*bEp78a9}zߜ_&~߹0ߧr&? v1ag'QF蘠\@?drn~ei팫Zv *g-ʻ8qd? ػTxkE]/ayŻ79 9j2~EOd ծأ=8|2ݏO@yfl)?VEz=_)8.YW֏N%߰2§^ˣNS|+:n[ۿF"y!4>sw3#pPC-֩L0|2J$S~m^Ux)Fקּ~~wP=bn"^ׄ<;'}c/S6~'zC>{EUϜ2K<A;t))vUo"t^,t^yڱt~߂v x i[QB}Mk_N"C<=YwMNy8c*/nTr~`pDb΋G(N`b8=Y U]/"#?9GO1.?!/|;3ϱ| yJpL>\?[D\Sٿ__A1rٱ[Vy]߹ElEJW}2YݟUzAul ']}_}CcVE"prtw/&/`g]'WT͑nįV q +U􏪇HC`S_P?wJF>oo{w?6`oD$,#bWtf3O?ǔa0Nrz^?i'W$osk8{MMp"dB?^zxjN^Gi;E42X2)g+4Y@(Z~]ǩw ;U_?|z \.E?}W]By/Mu5^5>8 >TOu~)@&v@0[i(%q26>}W}6cu۫|` 9,N[f8ؘ!:c }.e F2ZRE _zCsxxKeg^~ץ Iu׷?|lcu7=y-|_ Fɿ&쿇;p~[O^$4\Wc^C2w dzWNrc~/'˕k;ySLr#C!k7&=)_۬ju{qijO=VqFwrue5+{9]~yOݗ?pOhsKՌ ^=$_>e?C_كq]uQ9޷>~=z\~Goo@yQ^$\lwVu'n=\co=KD]gv9 Fz)t9GN ]")V KW=mlwp#ޡsɸP?휢u|'-5v~S~jgacvln*ܶ>|Bx~<5pXw7WI»ެa,Po%Z øQs%7 GN s)sKZAwpyl| Vi,Clʯh qWΫ:\U<_< pXpm~;yIX ζa~V -zyGaoj '{O=ݑ _d߄~Lac%VJdKSd#1H&>-12 Bgt 'F}3mg,\#$^?$yR.e}r͡|o_}+ xОW-#y|޻3[M^q/Z?͋7.` :M߹/>-]u=G|ޗnws]^w>͸g<~ikxwo Jt1qXvb<qYGpw>x(fnSy:TNkgRI)~[8Ʌ^&vd8|osǑvy '=Lui봽l) .[*(ozOğ&wsk7_iC@?彴_ZS/`fnr%pR'W>E|aڟ&q6l3?qw`)kj'{;Je}su\׌lmOq髵?ɺ}bl 4z9·3fNvC6Fg,XBvoF⌕+;NzrF}*Y $:ͭ_~ME.T7Z$~Ju~'z>yKj#<Sd6Wys~e:v~7idDoڎEOMPg_0[L,W"&>M2[-^sx aiι+φd750&!8^* Dž|fB#? u5Ä˽GЛy&qco`0ܛNHY^a򛜮qdʳ!B'"9QHs>Nܠo_918BpZ}tƞ@_mڑ.Sx'E?&:eS^}St⹘[>q`𚯩eW7:nܟ E^oB1~X7wǢ;W/[Mg$ڟ8=>\MUx`` /1[,tփh.weQ~h/>,:\߭!yҝ{pWs"NBVḣڟߦ|<qwf %O>kې[g{Sp:\FޑE[-+Ax؛A>NC3tAQI_;Ix(Hg; |ѻW%w U-ָWJ঎½z+0޷uk`gdP"[t׉+Ƿ&_&O;iBp3[wz+u|j#>(p?ZGy{7{ģ{{YǣjG/>Ot=s񹫰Un9J~X/O'Ĩ7yVG/.xUxko+h7\*Ys'8Aցa=dOC@?q}HIm':.5LXmmX䥰ɯ S:.zxY=*'}'3D.u9vOS%Do"ZG7aXG`y骟Edy}2Fxon$[H>7u t0md[햽HVvC}9~r`@d+Bz=~q{d>r r'xu=g<>Oێ+nu\yu3o߶ewjE<9V?F7>p'dmKErGSwf7# x2 O̽?oO 0&9o xEo5\tMEҹp o?|Xy.>_IqxK/6vsڽ\yӯ)[{UI>hƵ'gMXoZ(߉yO%-ݧ-Xjϫ5.U} m P7O7svۃS/R| zļ#ϖJߨ _uwi ПȃaOPߛZ{NL_L\wkڮ@? ftO  }d?.A~D//uޓo zO+xujM0䍮ͧ5Q}7HY98ȗ嵋y] I{S9ȷ=>{41U=yi=DxIK7aS_0,=ۯ^V=rzT>A'itF~;vv_'hR$;NSn9{[?;U;rqld{b)cЉ/>,tWc[G}-ɲƝ 5҇8M3cCIźFO>~ uS(` Q>[t.A%ky"?W6toq)O?ĿK7LtNZsL|kYf.e?KqgfGj9qY^]V/r(BۿxѼ* -4- zb@MWM-ޞyz'MO? yfbʹXh3fJ(JHNSmo6:;?yd2{d[mwe硷S=, 6wD}3'~|GO}tx\lE;5L.}N,:QN;oSnm7O?b~Wbgba%MSS8Q\ur{ۻ贸َ/sC:i>壘y~P^mCCsS_W';Ro>Wq㞎-pKұpKcқ|brk9恹rspfrp :(79QI1m =[&dmG/|ǝu8ҾSȿ?pK9Qݏ%Qv*Ԯ^U^UQulU+B0d 7՗gwx,-NJ4TH&#wƙt7ЇC&ޮoYw"[yDĭ{]t<NLSnAr]ait3ǣ<Y@f?uw`>B}s@k78:n5j(X| xcףYM=w 6/մ!/S.ğ4Qoe_8k~Fyvz:$q. =yeO\s phۂ_nӶ݈I*:Yש~M8&:!BRq/-6Wv8߻1ַ)YnMViH$~w2@xyO;4~ = ?{ B~_-\S%} [FсxCqN{{F[Q&!ɽ{)d;W| {Kz'M8_}Fk"Uv(x){$LSc\ gS_6J"8{%dƞN~mmo'yG13F7xy8x'E>ϼ]4bGՌg|΀v[П(p3[j[ˌyFWw:o;%<>G{3σyǺG:.qP@Y6Udr˞nY~g“#>FP.;(y{=oZK˝C`я]G~r9 ::VoW8N oTz38a3ݻ/ouhW]ve ==qͽmv_<&m}mtl|j}x>T<4yٲXq(Ŀ~4/n=\%_RSF<|=DqF|YUf۲ࣗ3wm#C&D} ~Zo!DǹQA05zs?:/rˏl3o`:1qe֗]J| ~apov8i 8v%qϳqQZ?R Gi{XmozK> އ?=yF3b+kOkt'r|rU}Kn=o5۵T >Ƃ><\xrƃg'Ws*M+un?7p;eKoOIy6uO'kBBw7ɒOԤ\ @klcEy\X/Ub?c<5FOFjk$DyHqX^pʼu}dרD:?삯v#YkkȧVdڥ6OgC~!0qFGusu_uȋbb3NZ&|:?M£&WJ5HSNi1E4g,qi+6:jOijޤ7uZ&* } }7._z~K)wӞ#fϐѣp]sF _9*;|4ߗEUjOk"~27/G~G*UVziB=ݠ~>~`Mg7W:τk5hދE|~&KÖs/)7Q==k H?;^xxK|35t}x箾P\/TWWו>d5`;3G7_ Y?n$Nhynȗ1}o?#ϗ"]6ct=EJns?Dܝ{-(38t^ɯ&\K~#t6mAn-Q*[)nWǭ$hyuS4S o>]jx8լ>Rȡ[zy9<$:޽j=]o.PʯbZn|XMDySO΃o&iz9~17;O:{!Y0LxYxQ1jx,^;A@':|GwhThjl~3։;dt }k 3Ɋ~p*q xέʶce+KihAEEU~#.cݪ6`]*ky<_cG| x7NW٬'XWED_d(C͐) "XAJ ?C~Z|Cܮ‚mQO]N>x=MA9C3|:_ Mg~`/>i"= /ׇ|g/0NƱW)ϟ& o>,{ m=WoZN'XҩNBo'gg8x# aW~OC\M^u ul\bxwC =WLgeG0Y1wqwϰV׉tވ#sU;*pt9#COD_zG{~qu| /[<}*э9*hї\v7~ i67pGyѲuJ:Jn6y=78hmncv6:`;q|O^gk RTy-C/j>35W˸R9#o:"$t\pb(T5?o[зt} t?)wXYCٌ-S1B){:!/bu7p3yf'sT~'iJ:>ˑ:w R#u?o.Λy)rqwp{Wy3B]~ z=-7'INOÒ*UmbmxՐqʵUFqx_Nϖf;lr@W,ADw]ItS7NޝD!qou|fH4x:|4ݏ?5:AYLfK> o,g]>y OvzbȾ t}E. 7?7a9Ɗ'"IZׯl[Dn4֗+<=|&uq` ټw'GƏ0?2,!:R{ ?Aa֩,>YJ-,Қ/HY-&"$~{\h^/e&J"mt/Ǔ&渨#t'xS義=#%!> /S^nIL8c0^=O2D}Ry=D:s9gdμS-5nߛ'1-,8vfϧ#[3 ͠doL qwf !vJG¾O8ڞ!nmw *?L>3/O7փONA}myP8Oe|e|/k@mN=yF7=CkƺftYto]>:+wrOc/}CNVEn7 >ɸ{[c佮u鸄˸ //w-3`+~i2v 0n8 p1rgqgB~]%Wͷ\p >Jt@*Ot+1Dw3>-;tRg.g] _`] FLmF'q~fG=˦kYV:߃@#뙭;m _.#m3ǿY:SFyԜf}'kFNgWx9MǥF< p)t<u|:x;~I NϐB3VYKge܈ͨإA)C~LY0Ȑ0XjSNG1ϋUNv1ӊz_E;,AEvځ{L ysCm{XmGWQOI^?*N kp5v}c1Oʌqsfӕˌ?Jnw{rDxG7o| ^ŧvfo7-JCHwy ~ ŧOeXI; ny|jPx_wM|߿5~o? ]?z'푂_|;mΘ07 ȿ2oj|@?vg#.93N xc O\+WGy-u`lգuk}=̥ a\G8zj7ۺhufޭ{NOzYFgڐouH+|TިU=_g"ɶ*/?Џp3QgpKDm ~d\(z @= ?:%mCwK36&k5_^+~T8ԯ+s]|ӾT:V?\רVG:=]<.9rw>p0 W'NTGGO'ϐ? ܌{qO~ S7o͋T̫ a \pKܫUN OKa`mgO׋R~[2ѺAgbϕG4^d="m,WOg`-|u#-3S ϖi^3'g?Hfu|^^~rIGsp.p2<7bwu/q:.ҟC/oQ%(//(/}Uc8t6.>~F]ϏHCnqPlO+dݐ2qYߵNQ'^N̼q[2q3Ѻ ypLi5ǩ>Χ{i~Π#ۧ2A|_G; `%qigȫhӶLսgyzhFg7iN]<{:y L>oxқI6#Z{dֈ|PG0>a,H}<~ >x5\wQUo(Q3cř^hߑ 3ϛT0i*g5ĕ;q3 \AN5v|^H '/}U<17G=(QǗ痘xx|#5ot_f3{C63\_*O2l~'h|,'?_G֙s} N^,ӆA pgppaS2&^q|OzO{ٶf{AG]u F7: QCl%>cNC5_7zxqFGz|Joz`>uWc  ?ۅ燃3.q~go!n\u5]!÷pn'g]d-yV#~ n嶪U?R^QrC%vnC]W=lח%2ׁUƏ>8ǟ >Fڻ{x^gޣIg^1_v)pެ;Dpw{k{m]Ǟd7/yq&>cg6ݢz~3J9~*6HSIb:[WDߓ=R;?:L'ٝcٞr2+/O^u1·͐>e K< o-cGb?ͼ~J¾J"ջӺ_ ~ sf,VTMc}khO-~Ί0oz6ќ{+ī21sR^%Agi;;AUk /Py s84z/󓼏{g?OO\~A z2)&yl}޷GmM}p]/\L<6O؇ JWέw=Oޝ6nܸ)^F'Ȼ':Ct%B] ]+Ͻsw(~7Ќ0Y.[>Z3Fu&Qy8Vv;?C~[j5OvG=BiXX3Y۫߁߫xD|ߤdxO}#*:Kߛ zQ's÷ʫtFp{K/C5wz|ͳ?ߩkC\iw#.ݷe_P}Tu] t'8]#>8_##\/.t< ~w|ow_?{uu?+*6g;z\qQ^ 9ƫ>vb~t1RfKW{Nb<#op߰| _< U-?.ߑ_%M))6:t^ x$r'ޒ9ځS˜F+=6KgnΒ-Kt2~fokn/IX_x(A6yxºWTq% l6˗}0:|ggo52HܪFbl|N[Ԭz:"Ϧ]WKoRRvSzK[Axqe|Kk8ncodU2nd$qv~;ddHӝC}Y;|^2οfȦqY׏rifQϻF1d"|^?Gc<+(=a}!̶Xt,tz-*ٲOv$qW{m#UyW2.ܼsxSgJ>s}鿅*-wa )|C=gGdk0*<;|Qd.^?hc!On_Bc;sx`6]?Cœ%U*~x(C~tDQ1\|JHɏD95 ț\xw'<"nF/pp tVQ'C8iH܃>]Ww/߭oqfZ.䋄WSiScwY~ g>% #{_% Mb2<|.=tݪJ?W*O`ӎ1i_y~w F:'ɹ=UG1|phnşLuXYIʘ 65:8zo#S#OQ ߝpoF?Z^ko嶎3c?j~m7}6?ۧ^zo2^1}'L碋6dtPuYwc!5>y|U7_]..T="p|[MU? >yvo ɠG?Z=yW t\ԙڟ񭵶#f 8@׎.-+J2^&_?rR/i|RN;/}zKz9;Irs<0-ycwNݛ\M\Z|(|lKЈgh-_$cԌa{O:Yݲma˶cBgc)s5O4sF&ó%:O<g2U:..">u\JՎoyn]yIpƋ"=o`%m7mXRH)yRu4xzɇy?w7rc0VXy{9{NnnOy˔%J:!ݝ8ȗ_OvhJkm/k/fꉟbG9[կQN.=*L>= /{:A+^ރ 7.;i;eg?fx>l~+[Ƥ_u?s u2&.=KK7y[nƺzj oh$ۖd{ .1~ :"ٱbEwd#%gW<>]d7z&I/*ݰ@yZS%PS-ND~W=մn4:[7*7tv>Ga(<+׀yڹcGϽNIYw߇Gꑗ#.{G7c?'⣳꼯+<8xT9/t\H`mV0_eׁ #Mv,ؑ,<3<? >,^+AJMUl?_/o+J1cQ>׀gFG4&Itxdw8pyHC+8nknK11tfux;yϏuAkP?#?lol ɰ 7ʔجИ˺h-=k;c$qii,T c=?6ebn%"/d>6ɴɩmgPa~{=x#7|M9:߻~,z^C]%OCez_-t-tM4mީ}N?ɼ&H]y>>[Isįxvpth^ v{1ҝp_ >wu[hR-;W:u 7~)݌#C} cE;/#pq~[c;;΅8XF<@Ea{d__8‚s۾} 4_x|mȟl ׏ $uuҊ7t~ѕ'[hCV啝 Qr/6wpϺStv?9wG^-o&zif/ㄧψ7%E 2q0)½Ro{XoW32u~6ϡ'~띨-?jy:̿۷1f=s::Vvpz+{;֖g4ܔ3Sz^7?upqspoK[)Dp3Ɍk5z)ĖX_ ISox[6 O_E_~AnV(m}xq[SCUnb\g,~jGQjZK\C >nS?7'oo~ֹNg3ҋ{u|kw{'{_QcSO6䫜u| #]ؾ/e qiI^l#%[fWRr<.#z+)I/;\W}? ?A%:Ut*ŧ&j7]?ޘߥ$X'7kKŸF/5׆n{Gzp+}MD>'/eZpb8)z5R/@XݴgQ0޷-xFMyFnpsa3ha=g8-GC{וJ\G;pt;11d 7|/[( cٲ QM^DtOEy[j K7x>bg; {8V\E;ޤ}Vz~gj=u5? \tKV;yMyQ^#xo.sIo9I7ɋ`i mq]ϑQu-=J_+W@q%̅bo[s_:{x8z}a{]^ ܢg]`,V?/:?  7=bj{1c/C<| Kw%sv?c07Zفʽ}/QtOZm C> qc?\)A!o^%lڹ|{Yѱvt]翫v7Ӄ99]_G|A{WyBx֙vJt꣛WzӏO&P|~݈xzǪ;v'y׏cdNpsڳ^:{|NZO%՛rßyrAׯ'4kNT}|lf7~6Fk_7=81?7U ?!,x3NL0 i><'s-><{iZ*۰H& ?xCqQBc|sk83{5qG;y9f`w;[l럪[WYv\{Y㡛ϼ@P߭53wyt?_z93߮vO4[}f]f"~(EMX27| m yg^'t+$[sPD%E>r.?>r2iN*ʯ$Uw Wq-uNZm״ԧ?e=0Fq^+h[i_( f}x^nOvxF|#?x 6F^6|/մ^F'#>=rc,zSP~yc)< si^;yG}m{'O%L7-qvl9w|к{/0O.=!A}~qVw/u"W:/Skj6Sn

N]ݷ70_qF ߕ{݈mm qc)O:a]o_>, ܣg4>7[[{X<#?=kެ_,[-wKZ -jNW.__f*~h%~XCvEw^t8(c~FL{`cc^g[.^!F=a9u/!پAZ צOy-p~07;·/ ܑ7Y,W!<}wzxg; xx㧚pRМMwM_~]7JLpBIĕFiO}W?8<˵]L8v֓Z/6 ¹ xyw ;2XX I$Y annbK5?}$7DlLg8|/ F2?I肥/J#ϼNpno> .5@Mp{-vob_m.Rrȓ }mqީ<&G{fXēXZ77kl޷1Tۃ+wG߮k?F'Hlqs)zKƘ:-v]?t :*v6_"^>Tv}~z]^?<}~{} kj/<DF Ϝg<t}U$3̟K?ܓ~7<,O~cv[VKgZ!Aٽn~Zo<+6wø@go򻞧2S*k⦓F(w QYR|k!}(<\&w3GkO.,7ZI 5zT:z3 Mhuɜ_WLkN\$|郄3»YLbS^MB~1t'/|Ho +!.!Օn7<Swt2\xNh/~)Q=tr:A)e=< )<`ת+_.^#ƹߥ|!oa|8:|߫ׄOO>EZ;:Oyϓɗ"'/8*G4_&=]MƏ[Uźz'\.~~];[] +c[sfLGXt?.myEzs8>~I̤'ƒƀ$:lt@+}wA$ Ɏ'8,SyW銞ceWI:=Ը]Ag 62֗cwH(ߺۼ=SJ^;nVv̿UDZ[Uf7ۼ_;zU/>*~_]}u5:?t^#7:yOu?n<tKR:=Mwl mcl}];?w;8=o{|O\E7F8i:gЁ'a7M3} |=*SЇct y7@wcWk 򉞟'c(Ƀ*'OUGlח'-'E۵?wƓ܅:?w WxNՇss)jҝ 6EYhïON"Es+Rş}r|MboU;CBfۯSu=sZÙS. \Y7Dy1n]?j|NwC9D'yɭIxetؾS1n_/fk~/56V\8(h'Mx{B|Z4O]+u G gg3xŹ-nt_fIk[WpM{, $?=9@3>H-?s2#?>' ^0o0'񓷅[wx+p4 y ׄ2|ωl?+{t+WHƈlWÓ C Kgs3h"U4{~^]fWNC?{ukwvWFgȸ"OC$u-Mm%]n|zXݽ:KSv_vsjV׭WX ᘬʘpe"ʱ']o_ !8 J]o|իWۺzM{p2Ú+"[}F O&p7{]mEW?=t@{w(?'Gy+7tXzNuz?7Je}S_dxH\z¯EԾ&kIpc*{L&*C=̓?g%gDk @/+MtKp4|Z|'AJB/|tC;ZgYYwr#iubt-,xd[w\quY7xI~L=t䦫eϨD74NBOTb(a,p]?ۙާ7.ܜT*Q> ca=]vDS._2Y>0.דz"ޓI|\ſY/@_qԮ1Q$44d.g}!_8ooٙ:{ |~*'w~8xS=ߣ<Oz}?,R_Dяy휥nn5Y׫^sM}rpw>z!G]צz S6P1q[{1Ǿ}QSphct=e Y1_0KPv F{/_QQz?9fGg1~a7Aygqz7ku.9P|L9/)G{ž^Lguߒw6y߮&t z/k3?Z_;WEO.ݧ}ߠ,o~w`>ǿ܊ep=V[P=|a}pʿ$=<'qV:$ 7OV{R=)|[OjXgt4<#?Fᔟ]pc# 7{c̟";o2~^Qȳ5%zYpqzvIq ź﨣 ΰ"qwԅ|m#vV{Vf߫~MM6Ee5NP9ɳTICNe'μNV3I'o>oߩ/WկXCP!H{pCǚi<>}Ox^n|Wa˪^ ڟnM|o'{'.77|e9q]߹>Y9fk- ~q݈5DI>o-i%<_Ww-ʗgfO"u98e 6o͢=_6;C83As-M=J9?A%BoRq_䓰2W8u2%|YO㷷>ң<0s^|GM`QZ֙O9Cv\n +E!c5? [z"FJ~Vp3&8xApsdB"]8cuˎ==MfouB+#-WV~4.y4'ռ3KN<u8r}y*'G~29^ z<2D& [#]$l 19u*k_gPIKߛy@P')ZYB?BAh`~+ܗ*DtΖ|];Rc`WKX]aSqk_ƚ˵]XKF3K+?߶p3fg6nnkp龝 zm7Ʋ$!s9$M:ޢ߳mddmxIǙ0ϷWgt\gT}M|g{/y+y>yܬC)ݧݘyMG9+֔7@î⹣k,e{eljKҿ~Ο.y9-~יּXxyFEmOdJXtO&$;@IkLqgOcq\XoE;/hkCcqw\Q^x/[[żB=i8ax;q nO~ƟPzM'XH3l1n}]S)~`0{E/s vt>͆:vJziE^?T(>OHvo#JϷNncׇ8x3=Bd\Qʫį(ܱ>ۮXt4VǗt3FIiQ8ԝ0^㐊SO>bǡFA:] chDZ5ظ,_yMwpW'R `AZ (:c_X|G}d }x(N|R ]xs.UwUrˉ+\y{pCk> gtx~fxTlxr_>z;}=q◾C-No8bpy"+_=s?py\ėe=7󭮓>?.L/p:/-)p=u7pJ)5O鼌K{H7'?eJAzl~,Img_]GZ/-ؗҮ.Y۴muXOQ>;<_1 aJcTI޻d [AS8(/#r{LFU\dSt# 0Q*]c$&Ǣ?۷ElȎ"/4p3 Jϰ- nd]wx-JXڋ}g=8̷Q>j{ܢh'kgר_S]#9GG:/ƧنJ?w{4ۙ˦;?eGii'k6|38_?V:gߢrIO#wN0_`a~ \x9k3*w /q[ /!]W*ɅXו7*?I_Bam)\T~' ˤ~5>^sQˏ]tGc:¶.:naF;x/^\UQ OV sj}o߰T_s,3f-fxOdS[KW>E?Z?{a&8w#7f/m(]zFxRتw#]|WC.KY?qΛ|_یu$푗˻U{x}q&?d}ГM>qb=}u}vޗ u5/W3H[8k jF齯?o 4Эmſ݁y3+5TnxL_ߵgw!;ix>2qxC}lN:LvjEq`[l8R5F7$\HDőӤ,(8Sz/|" SZA4M.)񿁟jKC3*jxSo^equFq\qGizy]~Y_=wKWq&7/ 3*~*įsx*EϽZŋ@.i}qpH'u_߹[wvJs Z|"^|/u): NҮl=QY&ffo<<\]W1ﮟmn?^nZHcuz..8?SI۱Xۖf9p󝺾"ׅMoÿfy!^? B^B!o#w֔,F ym[k8۟rr<ſU<NIkâ-\Q|a]/êV71V&Ut WV7l,MKn=:S«nP'ØB {Z+34w/^Ӗҏ(K|e]~Li }!ɯ6{t~."ɲ[sU!Fraƒ؅턋Ļ(ʏ]U+VT,]`<|ׂ2=RxOG oomwT{hwߋ*qo9ort_9trxO.ܫx=+gIogΞ&\ ]T='k/cճ5藔tQ}K^v/RA%q +zZ~Br99ݺ!|AY~Oǥo^L!O8t'/` D]'~`v<o>A9pKf;c94_(OG`'iW|=u_B_w<NSݜb]'~F{5y-R} i,KL K|^`Ѷy&cE^6>ww]?NAna<`q7 yg +ƩyQ3 ϷGy)>\8R#_?fJG8~."~Ut:t]/}\"|h8Ny|իů^Lx{neS/n7&{38I NB|t0 ?7G\wGoONiy~`𝹤љ?{aGgŏhX^w2gNM7?jǪYӯ.\NjoqsЉCGo8c^+o'{iFϯoyzUop.RWRˈ*Qm/.ZoM7읅I3}S9MݩuT}\b=t&W1?$N '1FITПLG^_-Ow׍n#`;TrH!wmN37O(Du[:2R _n^: ~R G|r3˔z7[⯾_Z,|g򡜉x2-GHzgÃ^z5wG_5zs'n!tFv 8]v?9N<~gڠtC츷 o` [Ӟh?8 '\;zh.iu?Ҳ]|:ߛ~cl@xg  Vh[StPvpj (Q7 J݈8:K5?p,E9e7n*nƟ> t7*cޡzU4$N~2l>;~F̯?SuS ? us˝fgVDxż o[iK/?5=TʫU%3Pnq6 ڟ9*o5|)=wXfD$.*#N/@Dp|?{Gw6EސIt{)R{A`G%$ްwz?>34y3ecΤx͙OBvtY|Ee#OߑGmS~LйWǕ϶^o*ޏa+_(n԰>]W kBZ2FGGlG_1q@9g7ƓdyYW8y\gQo1yoe1s0^/]`dyGq"?`fj<6feOG͹7k{4߹c ܅mw}4weI;|YvwoK$pͻ0MT 5Wܹ{q9w ~(+ܼ%J|9|ެ?i7ʿWĵBs5uUʾ/[Z µU4\e˸]}N/z^_5{)d |'yPqxj:'뽴Е_}CyOQOI>ݶ(=W<}'e{o_`|OCɋ}?sT^'wm+ܵG\H{/`m?]yp[ =/ ,84,vqBħd;A$v8}iϱz_*ǯ+yPl9E''G~t|+so$Ǫ>?˖rc(<v;/kky7Mj= Wï>otj;]IGPxyϧqڟ{J網!Dۻ)l%VYGsdSuuoGH$0 05Z֙§2{jÛlj ozo+ s4o|;:4W$?I)Q~*>uqm+ſ=\m}yz o+t  ~?]7`>+y#r1pyLCmR~o;{ ~|ۦg n?}'~dkźN7t[Sٻ/I'/@|=gʂhO94Vμ$~.xH߻R$:f[ ƅj.W7~ۼ(oI_E:~~OYYv)|TV寞   {t\8UPU| >;qeWU^=_7~8%{&]YoyDT]A=P|$^'x{=H=׋_UR߉ݝz_ˮV.|]t9TugF>BG=*߾/}K৆c7#|YE'>n3mk{p4.R%ѩGJj\ nF. B\!<9z=h}'ɾL䏦]WqhuX/8Xul8n:Wj}OG}a=ult'0S>wcGp87<'#Ët&=qN+yDt&i2y_8롷?Hylg򬈷fLH*" p i磈ks.tM0\l<޿;GV:[+]swFw9(5Lrx(*vEEEY@HoCTH$ 6 {.އ})k 'k=rl^,"s?5[ NbS|]L^Cy{QCoϱ|γZ$>u-n9zȞ x˰i4WB?]_ά_xs1.͛on׾J2\eӅ7eJwcc{ٕ7sX8zse./)CyÊX6btc=WTNmn~_ލ<|H[yb3~±UTN]+k/QxK2e'L(އResӤaSMԮ< ǻ70;xW"K8y׏'4ͣwRv; 8m.>|R|S-ows> ;u>2*ތAמ۝OAx r=?6c/Cw &m,cx ³ћyn_?Q# Dg)2=rtvX[p}l[{nbw4GhC?ѦIo>t<%:¾eSs喖a't}[+yk(?~o:o6< uǪP_x[ie^tu+U>x{ #lz7^uVPjΌλmx[G rOlUCݹOtݟ~?Pμ.>`#:ͯ깜JV{# /\gDw&hKˊF;wO'E.xx己ۓk{쯛!3^?m]}3"}HWbg=1߻}F/?L:ᐲJ?%d+]-7YOL\T>ұ/_V܏8&9祣*K# 8nr̅?c1x8cu>]eWPU9 czsTԵ*WʼgFEup_{}8; *BúG`_/cZ>C3x7+շ?Z2o/u(z1eaZ[?S+w Xo揭W{=Z KU+}ޛ-{Gl|ZmS޺R|2g۴SR`Y_7+T7wb㹺[#not'ynF[xK]`*^wVЋ.zϟ5 3^ǵ]/%Ct{ŰV</ _nvY½؝WNӼZ)>uy_.]g?zk3).zBW KYH_/r6w8[;a/-UVn켃z_ ~I}"G\ys:[w9gp=11Q!ؑ#zs MykԾ=#i߫<=wb^ރ~cO}CUN5:ST:]#]6am]cMO n7rNpo4qqJ@pd\…sܹBW]S_Om"[Ҹ\EiE|St -Wx;ГWƭ)f#'c'8T_bƏ)3ī#ΛpZc'@C R|J,~7o)sRlF?<}Rs|Q˼[ߑ] kC?>|ߨ(zѓv#;k\A{:8/}}&jWJ:i0vOCpB8^ac{s醝[|?';aք|-b8wY_|'^kNǏ)NhWIj?Ips:>A$$}]gT^=AncwL8yČ%ؑSB);y4d|kKKI$GN9}H??"_SC/.!-W:H2::xtE瑢7'N#CW;gqہfw]:.߾JUEo{wMy)ƻ= ϙx6A^qGj/y8Ӎ* _QWKzf+Qz{eC}~~.'.NA?EO˟z'^~G6E3zw2N_z )sf?XG꺆E oxZƕ'^7e>\Wcy8j G jnXSuKNn+:iSTx5_?eȮaxpx_ #p=T>Fe h/7qgUw)G|]Xw+ݬ,%{l;jԎ8k9qp'ˮ+8\ f nǼy9[*/x~}*̵6+sb9ՋglDo6Kgc}t%NuGI?ٙ7/\QBo^uInmt/J}s݆}^/d-5Ʀ^{۾.$psk_*})1Wm*L6W=Ix:i[{muQ^-nE.!['-px`JS6Yndnn}(QU̱GOï,:/;!t`w=]?+˕f>߲Bwki#?D O8Xރ&^c|n?(|C3z2KC'ĉW;Rݮa.8>"xA+(i9/ 0}?$m?0MEo3z?S8l_J+kv}+&A|勠df7sG_ڼzh[gqSߝo9<`s*/~0'iciz [GO?`>|=3L2GaI:ߧnzJ"yTMjׁSٗ&.N=:wu__GN{ Kx-킝ϔkn% Ўğ/A$IE.@7#w@<9s)x A"kUU'5Wv`xtw>:4怋sGg9Dt&Ʈ< fwNiMKLx93ɷITN%~n89 {xv b>a,Ŏb"!F!sKч?ƞ_ .#^HSk$Q髺>Eد7rð䩜 XęRuǬ[8_0a|~6ߍmpa">m-'z:s+NdE_ٝk3ZU7eKc<1='kQrN_<58MtziXSW^z`F[rW}"{Zt54ЇDq}R*A,ٽsؿ`\vT]tIӄOFÞ#HYveҟ0ˤ%|Jҍ۲3fנi98Zod>-X;rpqxwCM{;W 'R x;zppngc׀>E*Y)kO»k)Fᅤ<Ij37|ػQ~V=>/v%} Ke{5 _Pξj9«Ec]H5W)G'*ζ1=}⩺KF|*w#~º6PV}@jqUc]&t*VVC͉ '.q;v[^WfJ&| ɟtK(.={O,}(Jg>رK}ǫ>VZ[~gxWcu8U}Bb (S|IdX+<Ѹ2WN/w,[b0o3m]ު_~+)07 _į'SǑ [Xr?tuIzx=gGT {} 8taǂa/)y[qWg2?/?ͧg/"{q3tSÝύnH>EUsf;޻t]~)ž?Y>y#"^oQxLaZoWǝ)[I\왲+ӱCˍ8Nt8i\ht(w(qbW?no P//~p] 4y$3 XG29Gy?*-P'BB9<#g w}B^}KE黈%z .5W1\1W{v֭uT%U/?bW3~S<:o:Dݏ}1{"ϚC?d\Rh, #Y?0&'ٕg.<8 5Hn[xكeMJ7}#rHޚKKHb'茯Y)>j5 ܱ\Z~+T|#*rpx!ul7p?.\E9Ǯ|c8F1+3">$59'tD+7/!q~;K"Ng(^1+~]fVy=R}PZ3]|R;GףT*Tj|rG;{qɞ{|?lBQ]9 3Hɾ$zP)iGԟ;gߺkϩ {C=D{|7?Vfg6ԯyΖط<XwOEFat<<1E&6]g#vx;r|+=g^{piMⳘg\s)# Udlݘbt-tb-D=>w5n~`5>wvg:7۩^! ޯ,cw$ᅡ{4 k^T]s1kg}nJ({S~sDG?|]O8މL'Mu]p(lO.RVx^M{ӍN+RT-}5cgPv>CGٗ˯XujWwX7m앿`){Sxeg_}Vvs(}{;U#qzzeg>Cidb_i%Kh󣴦=z)Wg(%đNGϰbx;S8;K: Z/?m|˅mxYQ'Zt9؟= pC|WKk:[(gۧ+oEyUVhxؙ+4O~k8V"n. tFE7#xNa$ k`gw/׷^R17ɲnnyZS:og|Pn^W'Mߠ[/93z/vj[ϸ {gûJ3vLhw_uz>w}Z<o^5VVǪMj7/ |G6h SGXX:>c1^^%VD:~xTBCk߻ :_SU|<Ѝa&O.;<~|';<=N⹷—oU?t6EJGs}~:I0ҎuGWO*9:DM9^އ.//q C1gp&$I|3ssqh!OQ@ȯGR}Wn15 BW5#x!aGF(?B=QnOy㛍"͍ge4g̿E~v97Rvz­`s,A1ykup?Y^|kG{_t3gS=;({LQV8[W\"d"k^vCtDk<)Cvi_'D/f[JO~~ L{ٯޢ *ߎ=8wx{s?3On>@k}W-Va=y ~D6 52O;??z[RwR:P{UgLSW ߡx\~ؗqr>Ge7!t< ;uj7[S|'ZayY/빭ǰk~[Y`:Cy{|aI;+}\_ӟpow(=#M^ip*C~v.~Z`J8.}{(ɢs'˕C=D=/~C)Hp}~= %ߔJw>z۳џ#ǁhs24x%q$GwskkCJ7qG4?9*Jr/;_bq}w?ƑW59q]wA'#r|u ncuI<lֵYD9ٕk[ _ӣaPFpY ^Ͼ=םNŴ|쳄_ "}qȩ|:g܇TN9Ņck~_ |]^%4F|؝*h刿C>ll{~cӷ-{sޟ^wZyljJ&`V7tgi'HWumszt]:ur٧ks޽,ẟ5w9ϲGj>AEB&h~Qm\=!||Wv5Y#(wo/cwy# _x6~}[]"^1cO\n$tڡ<'>9|zRtYg][Lu޷~]Ŀ b |N;^WҙRAۆξmm#gQ=|;uq_F qD$ɮQ?* bt|`x4S:Kۙ6W|ף2I߯u1 4yN=~ƽ\'~xeg3.}ױoЭg{֋zeyvh?b{u3t'ػGwgثʳ.R{TO_t}q`!}Rx6~z۞w>ՁqG1Z^nNmOt<:s\'+| >sǥCmi+ ;q΅¹i5ff gשܡI }>m[w`aËKoc[qt/xzdW.˔.ަGߋWblgoް/s1Gg[pky͖^hN6{v|I4_ۯGe4N8c|?\upjoV)Y*e5o@. ?fg>Q=ĥx|+sEWǮJe|`WR6}\ߒNxp=G}od};n ݻ3$Ŕp;u~g@y߬:^3J=w,;;ko+veʷ w~D9۪| x @G4xL,tSؙ>u)q#ߣ>vK:WkN ^FS1x} ]|ÿq=o؉ ?Ni؟ыu1dE{~׏|{:߮/?g!gC[ݬ{.q{?`N6q~<.\\ʘʰoo1NN}ð?{iWJ1"TW4xx?"s=DkwC.g}Ω#Q)qj][cu]t3rozno]~o4¸RsFɔ7i/\w>g+Rwz:ߵ {>o]h>(F;6֫RGy5Aى -ڠ4/YqSonN=&{sZW,=X3e,e+Wp~Οx{œ}Sw|G-nQ~F;cB.sː=]?G[b$ Rŋq%߫<mfO5}_'H|Dx|@~xf'xpZä_aU25gH7/U}s,tl0uStE_x >ّn~c=(v p7[r>InF/֒_k>_UVH'ھLη%}6>}>J{Cn y$Y xYR_:>qt ͌3UȾRvm^T[bicuҹwj[xOu4~|D,Wu迦<&;(ƾUict6y[僅U վ3ؾSxw2OohW»;/PyR"5fǖr8aG<=APy}fv()bc6o@?%g=񲜿S z f *?bC9n otxaGFͩӼvX9u|8ۺ[M| AnM[i9-t,x`57#Mo`M܋(o*FWM?c'XL3͍uؕ7^J5rD/: K C܌0~o? ~&8~' G;~)[y?;H>v]ukw :s!GQWv |1~O4pnQXq }x4QdB܄<ܧ34+%koMkSX\wzuyE*Wuu Vg{e}|qUص%}qZ?)/,mz'| vSϱr~̺,=LLs2Iӟq8יzYH8H[7O]~wS{󰧷Q8[z'͸ëp-oAW߰o~7't:u̩GN+< ϨϚ/te_V 㵃ag59ғ3O剆Fi^RKq˶)[7>_زQ<-7U4Ξ_5L^7^[5nc2)浣i8S5ܹ={}yitW:)7HQ<~ <ݞ=٪\ֿaJ#VAꦉQ&Kɓ;[89Nw wk~GlBˈkrvwݱ5g?+4V;KT,t̟_w`}~܋nsKspܺgϦ7}|I'~w .x[J{Zch on}0țWM<^[4ʶN=ipy7JwM{uEqt>ʋ8~rGϔߜEl|&Ouyh ÅL'*ߙFǻ|/9C>fk-_ϭ!{p+U]~t4yʍOFOݼyl=}eqy :8C;9c[>n:^$lfJ-r#.p]tʞ_ͽ0ZXHd;^Vj$VK8Izq{ Pt7 {sQ]FzW|[*7g-߼8yq^ҧSxllyj7枽gmM^U9bL!Zߣ'r3w Ugl{nik]_OƮw<-|JRg>WdwSu|S9^/ެwWhV2?)^m<>pf؀x#~ {oKn >T^ wv_g:ޅ:ٯ#>C JC~}%{]f=8փ[[[P;d~ST7Wh?TiT۸l|O=>.7KQ˵3u=*yh6͒#KFk(DyoG}{c+OQ{לq*kIV0Wg :p%|K;R<UJnO ɸ\<=8Gg)YS T1;z]"Z:g#Y_ hV=5${roWw·V3n:k5?N.#2[e폱\q1 |ÌS.3gYD1vj1.P^IE6tM?μ^g6'{]7G(uؓT3Z{zxt\]+z{TPM}kxڽzq|(&?\L uchE1qƢJkxb3cq,`N:Η~a"qD`Ο"&˸!+:E+vI*[^^չ!CN On_DDj8NFq5L0:D籏N. UyOp bMׅo>#i7S~êߩ*~{mݢ|3ZלGpNkt'Ǧw7S=-*!~@{|{h4U{󅿪/nJ8jۣγqF@فs5x뽣+/t1Mߛnj%>G?cеW(_FgO42 nf`92T˥ü sl/J+(Tn0kyp]XA<}T~Se}~h3U.I`֕/8P:{Z6Kgɐ5"ağyk?9t <5Y^>qkqq j׃SIS("buÄk"O?[;_ /EdG#,xV{5V)&x'S ==VO+5/A8yz;j,^*\^pzQ_.ѿUgݯ$Qxu+O/>&كS?W<!Kj{9vYOtg쳆ì#sy?MW OO_\B G鬷^/d C]kwwO5=؟l /*s1vǭ&WȞl]@BD<34Zq'/pT>qg!Ku "%}0{4J=pvK~F9I:'>f} KGпsd“;i z/v{ @+CmOiv=g( ތu?Oh73=?|U:QϮ⩤D1'~Y?\5y?Cf[=wd#8u_0p%p+?thfzoIq}ư^A}\ѫ_֡SRDդ븊xL{6(_jjCo^kpTn=vULܼȚ%z8>.z[?)5/l(qaH&rOÝP^S<ΖRqDž/̯ ;CοOA-IqoxUwi^(V{U}]e^$pt~aTJ[8:?dVO±jVez{:xԗWxKi9'o 4OW{R/FrGyXV?O /D|:tac5?g{xwܮ#Oh|Gw.&z*WJ5Fk8}r4w*n]IgZ9!nI{q샼0qCv!7] zʍ~E'WEoTfcwGWڮz9\?/ݬݦn{ ]?`^oM~{Oř Z7uD ث;yBG-QT}InGd-sDֹgt oiݩ7;\̚}yֳj HQ 2ktT5gžd_J炯NA/#{t)*w븾t]w/8#+rVF4Vx/{U>XC ;Lݷfk%T9ykC|e*x|$3΄_1 <<s4%WF Ř:7#rR8>|7mU/?:v ݈5~g,n̟?<~i,ġOu{X)Ap{0#bqf>:aݹc(/*~t):0*H3ױ71>mo9At/ؿ#9Osx/c0[UR-ܾ\|Z-9G8W78txkft׌U[Rx _K5]j#k^/;e1a:zvθʹtl][{,u#o6[7>(e6Dd-@gӗGtMn}^~Ļz:e%|5.uo_%rB*2kC>>h;Gю <| ǎyy =2s#pGճ뗃Zۄ*(RxvZe"{UƯұn<GR); @oHRڸqZf'dw^8ƪ~?ɻCf~'[w^m-I)_N춻]rys S{)~Lp-\3[8u:.AymƄ-S4W q]9fpq.x0?u=8;qկ5oy˪W;8~x ީuVwoppGobGn q>q+<' L_Վ)o'xGZ 7(_l9y*/~ح[Eogþk7wdF/sOh_~=v\1v>2_vBB59H^>s[r)8 IB~`{;:{fVNW#?{^a ґtCnnFW )8<~x$~g=߫r.qsuO_SW/`K w`f%ë[rk3 _vn]򉮝`|ٻpJ8%Q txƳO'J?ʘ>d)Uw7 )1˳ыEs!^V:M'́Ts]|8&58iul߭/iZj0<:m}68&o`g&R)%Q)H&s3}:>`<>8rw8D*ϺY+ny;r&k;wM*>u^a¿n:/S+hO/ok >sD3/Kot(C˾V"Ʋ_ӳ7sʎ["r[ʗ?]+&\"͹XFx҅KjpIխ|nc~WYvKoQY#@2k65?ᓍ:dƪ\k&eX7H|2cfFxl (p~=|iou/xN2oxN8f77O{~_e7P%{Npi҅[ 򅦂Ë\r+G_/4U q {x<"^fpD `d^w}{la#ϴ*ݒi*׽72~^Uva> ^tP߷qJs*7T }/k 8'j7/Tp,S9s-@6t8sgR>cq|??| k1r#K<zP(v3nyy;Ec׍W}Xvgԟ[u]T7JcyrҠ[Kz`h^pe~Ja?`= moyc|oO;#888n7{=}y'K8~<>h}.x/"J}Ǔ<|;fcI=G.7p:o@>ak"8&:F3>!҈6o?0=v@-G+xV|)i [s|t?~ G)<ooʷgpJV\wqر~oe r'z;AtB xqR:_S⟕.W #_:F\π<l灓`Oc;LkwjJ}J?A'o߼FizJ*W8~#[g2T/Có:U击H\7Go:x,#S#ݨ绬ѩ8읷1Ngmf#& }I{89uh6V[v'UXG|rΫ~ӆu)\0c*=/.Qٍs«˛e,?[GC{]{wc}O緝}!#} Ę=KrBϞ\}j_x|vnm٫|:?P?o(uLoÎPb/}7̦r+%Hf o`^Ku!tѫ밧D uouk:\{ ۣHvWЗE?@|&~fM~v6iNد3\␙Os~70Žl:("[#O^ms@7A]u_?*G8 >nF/x2 >v 9Atנ'V>M|SGQZeC7WN^'8cWs?Wal(tY؝g)~iZykgBXhlX8zF* U:8@u. ?#,[zn(+^^vGwIvOF@rd _֯Zt=GBa;ϕ? OIyxJst>~-~=ޡzS=vozhtЍy H]yO {S2Fpчt o 7O@,x5G}9}P⻥r{'=[&  ;S,{ .Cy/nmӸd!//bm)} pp^*x?ЧG>#D\k{,v'^lKl 2t>8nރ5~6Kj'\pP\x6vXD\_&bl>|5u%XYw&~Ca  ~؀]yʱ#?uu@gvr ;M\G=Ku&?7:x*N\';IWcy=:h./hh-ߪf*8_3+5eyEDfs=C ;3H3^B. U|271Dp-[o#(@#~=~AKǷ >U=swXYztO|"0c*psY'2vt>c^%~'U: 8tXKRCit/p hebw .`r=ۭRM7 =ؕ U_֠ 7a]4|~~9H闏%||]{7ՎHL u] ?2FNg8OapI?בu_?`GZakq~:Ou~cHC0f^$b9ě:f:|9scoCFw{~kgVn\vxcƕθiλ>k,lU#6E7uQVuUcAk~u/%Ɔa[?~31ۈ /?_~gVQpŅ qx 83|2ۯcƪ6{R{7 mYh?#s]Kg>k#Jlu\K&Nuvat(zuAXMvMTм_.GrdO>SIW kgWXf u}3:Pe zLݻ<6̸{uҡ' ߛ.o;3gܓ8gy =ű/st{R;gm2NxzV*:bތ^5f.SQZ?w\챗us H ąP|z*pzJÅW(ۇdtPf88Bl_?zItpJZ<8; :k /=ؗyDY0x&:{|TOR7| >V1m4Ryzop viI gTwkWs^~NNO~>OenWv_Q{;SKvVDo8_?&Q/Σ\%;yysU}q=16:0ޯrx<;ެ3G^ge>} F?V}ȅ|'oѷ71^~C) u;cǾ܌rx? x7tvP_nyQխT 780 -,{1?"ť1ɏOQFWcJGblg#?ͅG4 = THԘvҩ3'Mi5JW]F띛>P{{:^ έ'}wj>-Qiu;76q!:S~ w74|`/u76?> 3no~'Fօw8gv**u# O3VVm:yτ+ J/Ƌ7Zk{^/.{*3Oba=ג]tQw+{Xx޾;t<^' ^q=%_9_O˳~KIg]2 wgob=EZ_wF||HuV=Ñ+Wҽyqp@~?Oe<np,qx9Q!Z xsܠ4 )jطzfU+ܸ)SK"^d:įN LAcJsODȢ^=%:?1qء;㧌o1m͔Ht/=MKt?6+AC?zO۪k2n=wa+FAZ-[+}4v(֟;;9zv2ֽ>6zёKu~-Ywo1 ≟ #Sq[Hkt^zb~Of} da!8:ԋ\4bs?.2<{ēH{o精wn<|9_L>M}Ys?q5 mw~~xq댥;gҭI"5*??7DC?Ϙozv5zg+Nj,{G:&9A8nNSUϷfxأFMx{=?+c[oeg}K^|[zUywPߋodNCvyovnSn9yg6Ԅث/$x6PJ|.]k?vg~ٟUźs}t'XSKAo\/{ ~y K#x⡾s4.{ xZR!Lme7Z' 7LE+Lxy^̛^7={>Rzqno{M߻}1z8]upώG{ywkWʗ~ۯ:g'mwNpL*}oҿlM׸ [ +g~R7D.k{36~7:x/80QڷM^(}d?\8u͕4M|U^NW lۈKB:Jg04G7V8ojx}P H [r< "p6W9 )7u>tw |Lއ_Zj^n?e:vxܵ'?s,0_] nOcWz9oݢ ŬoYxOWaGg*J蕉ݣϘ?:/׏y%>x|i+՞qMOc}jr]g΀dK~m>KT]Ro! :;}w?zʾꗵO/HGO32},- =H%d??p-Yn/þ{^Vx^p6k*] Awc4~~}]KQ b"|'s_a\dso*Rɀ';+y]i9>Jcݶ}GʽvQq׷VJ|?;:03xc0@!yM_>#wXףhwv;~hse=8~etP|_rRN8]g;Y2+U~n.}؝ZiOxCyL0y҃1 /Rf_N4Әton Ux9u .BvѹÔ/A[eo;X5Ѭ(E s.(qgG. cjxW%8')(/9kC>]?u]օʿ/ٟN^>g߷Ӆ[^ߠƲ_>]]'ps7ީq|l;Sz7IxyFf=ʨ.;v(k315x#[ǻN?6 µ#ϴUG:N?y)\=da.q+ydy?{s#ۄoVҮ5kώm-]ȧqȿѽщۥqzNq ͠'6U?߻jBé_>r'Ëֿ)]28Mz/A?ʮX'\h ~یp51/n[Xtn?dŪ!?\8g/â¿C^dG>}?zar<^[p[Ex{lt.VjQ>ZvٲQ8tpA Ɗoz}=MvVRno=_4D)'/\zPme~oByQ;}o Tnf/RltltԮ֥cǰC^0t|ϘǻX܉=s>xu߫5SOJӰ;N7Q/|xz}إm\#;\&q#%In*`TfMp/S:>Ǝ{{`]n/FП^);{o/%|wn#7}׹_OMY>ys1Aƭq+1yc"& Ы*/ǰGgFGG/$ N۪=6=r$g`/Q~w.H3&g%ekb{Gjٷ8%`uW'''{v#:(LpλnaD/$fVB}:#C )?WKO#g9pRI.>r^=jٷxL,krr#`,<=e#4ջt56'\7+ELJ0/ފӽzp~0:ҙ5{񷍤/+Oep&zl.̝wz/au=#㑸{yx:jUǎVdW[n}hzZ6x'mU4c{v[TsWpaT*zoM l鲬 x aW}'|ҏF/ڬqJޗ}Xht&⏄[wΚz߶]Ck%)G8y&ٍGMpzx(9 ?m:|)IW/}OZ5 }donW#m+f*qۇ5:ij8 >>N/H'! \FIék܏mǾ9}4T`>4]w^qpgr]oګAyhDv峘WУu|vflO(Sc+o.]z8GhW[qSm=~#%:ZW|4CpobgR>i3Qc›'}|o`|)*/̳}IؿwWf^FQsݡCtc,Wi+^6Y,٩{.wEXO98hc΋JkNG9=ٙn79ǻfd*}jBFѸG>;pQ.-htޖ!Wƈt*R妓o?f!U? *^s^Ȟ\+zq?#^-ڨ|/Ÿb#ӟ0 o]:̳w{x/xzF[Y+rȗ_3ݳ[ø{ n'e.)]}tcxp}F|g}Z/c7+P#:~Wߧ}LB•q)/QrT]pffxeS›n1n{w`;0̔}zxOtp5:ΜRx)%ǯQF3Y:"O;";pY2tq^ߠAJBWo*%//Z5̒^_óϾ8ݐa?e>u:4|&]{L=}t؉ٗ-xC'  w594Z!pezY9hE^^? ly#4>b/vO9L6s oK/6ה =w>)/Y#64|ڡF;[D$7z9GGuG)F,<<4?J_W?R~:F\O# EDU'*| 8ejs:U++NՉx`cU(큟άse7۵/sXת| {IkX"6O1ї6`^_7ğ*s_HP }zě/ 9nV&]߭Jy?'*MEK۬J7V\zpCWHw7KUK\;gV^]_~81g-~t` } n¾UO/f:qO;.aWG-%:oc_׉rcºoÿ:z]7|\߉Ӑw9yv5rx6~vʳ>Ry_z2*0Z+g`H8%^bCidKȁ>D*ݩtagNɢx7Mlc~xz ^{c=IrOhi侷Pl\/ݷwqjΗwod^%lُ+rs]rFEG }ۗ5RK_(ȵ:oW7SxiV'= ҽXQKO{FaEOw/HNdd'Ν]);tOlmD=c:V{JG#,޼v&`gL,uߺ#9O\_p[]=#:_>x yS|qOW/\}r»C L>u9N1;O\_ѧ›^ոi}DWq1~ /7| ?>wy_mG_> m4>;SsZǿT~|~یl~*_-|$,4t+U/cJgŸq|Mu2l}ÿ|SԞY? \9jA1{g?Ĵ^Iʷuw/*rc{+k jd]SsW,:Ϙ~X>, ~&!*Sqvwo`MwܰWp_7;s3eݿ^u1u>qC=:K?qz@[KZj~Gp~GO0T|qOҡΆ~z*:q.AO%~F2x:㺂rFԘ<Ƽٍ<Im;q\ie8:{w1]LI;S = cNȒ^wmQ~nT-Tvx+񕫿\]n?1k[\[g_QHWYpԎ~Al7#+on3qP"Iwl8E#yL{E精W^JG:#Ervt6gJoڿDgzzpAᳺQk ?ὺr^J[I.J\iҹB빖g(ټvLP8{J'u%>9< ^MwO&i-ݒ̫cH tchoe݈ĻNj~̥Sw׊3{ؠqmxB<}ͅݧ-p g|ޤAwܪg\^+~'o ǞeFoxƂc\==}\=>avy%8mTwjhʏdvyg,v޺.֑aO'NyC_xa7N9׽Tn3{Ϩ~u< |0OQx_owPߛ[{밞8zR"S& wioc<p7z gǟՔsDYԱ|!$R?{ʳ{H;7s)_4U}ZʭX]XcGͺ7&w͞2BSXG78AseXsCח{8uV|tn>|| kg nḞ6@Y{9E* [#5cR ke@4$`̓wo-1vO!~wd70炧$y:=0|/8d OZwףEeLsK<3x.tGq>+[7אycnWX_Oy e|5pz9./z(oA`h Fx"x).X~F2$%KX^J ϯMq+fzq^vU}כVv\))x=~5xW:s џ\x:E] s<)Ƥ7~|Q '|˺{v.tsMGWEg>ec)_Q>_=xeoCz.?z0K w^nuپ:ٳS/1=[pN/>s}g0{Sv&+=B㥝~.=TZ7/ӸRݩzp[wax_/Ͼ6mi'.|yڡ.^vGc[.@?.>YFPow?3Xg4_BxoOj~v>ZiD0c?~'aO`b޴7a }q|(*#u ~VOWň/;ѭQcz:vh/u38R>;}cws89?#=@߳Kiɟ8/ߨ2K %_ #E;\rBzoGGa?T`6Z0vT@iu/0DБa'+"Iq;o<(wJ3W8cy6OVR={܏/Dܻ\E t=zA]o6rg<>Xeҟ64eA8Z8?i|vSJPحf}NJ:t~dT0U:oQN!~"peR'Imثფ}/\͖F9ux)wb\8'K\.y<#wږv9%F&.Y uj[]i\$6^vڴŇH۱67|Jdn瞤㕿 ߮td(Ń^{ɫᥬG~S(<#sLyd|%RmiT~X꿼p՞^sOz={2MO~|x!y%uUu_6Hx6tSdGX'7'/_{]wR-o0-7J_^M72"<‹7ygo d zy8-T'~[Xqvo|ۋ `]ګy[3]9qLw+Z:lxНu>sz"<~|d CAQ;F/B\(W91넨O>kJ$EW/vBG ,Du7^R[T2OqnLwO| >n1i &73|Ґv6S=C'w?;c'x+}|KB=+^O <06~>&8>uuKtO^=ZOKt> |/Wn %uߕCuV'\r:kLx^6oRuuB)R?cޓ>փ:.{?*]\xyFc׳ub*|} pW}3øV꼝GuNJpu_= T8Ϝ%|8Xo0}jJj}0Ԅ@DIxLw=M]Ŀ__: `RiXD$r2r獅ҷs^JvϏ[$[Yvpq6TnҪML%sVphF;i0}ώh|jS/2epӚ+~·k7?*;+(nB|SL|@ciptSyMS3ʗa:^y7 'UxXqDG};7SfM3 ˓Wp{s3JHcݧDʮc{W's?S%Ϻ4u>Cx@}>«&cJ7!RqBt20/n>W /[{G/ދRv 9Tzz<ՏM{C?Gv/P:g=3^P:QM}_<*]衷e&FOVNwu3'YpϞK# 9ȫw23tp]nGz<=vKt Wen8to|p t]joo]Uu |V7RlhZ[gj>JB?-|=_y+>zx v>R?;Ǻ`wl7 qlKi~}\x|_³V>,hMїVu;g^=Aozu]}kOцe?70.o_#n81kb7R ǣq{ h-] ̳)lc&~7U0Nu-` 2<=畿C9mF'`7;z:+:яSS>jdʋl 8~Fxv:bg * Ǟ?!1|OOR=u__]xpm4ήv¿ۈR.cۿ:}٤>J{3 ՝]e.8fqvtռ&N>$k]Trû-re|Fwa-}ţv+e'wCijMiO-\}UQ{:z(JD3sMݍuz1wq݌y~6 U>(_KwjE~I#ankN{vSW \Rqyf+l^3qȌQ3K3'8 WL% q{3v)q}:Yߑyٝ{nYyo-^';[Zw3_nҞˌ5 \|}C+7I:uK_9{y[,9ҹ}y=؝+f4*r%7>,Wˎ769ԡ{Fz5eWz>1,{hGCo '{'9Ǥs.Ov+(_^޵ll𚱦Jx@#G77ݯQկXYxqˮg s].d 'Ȯ㷸 ӁCNos!wxP7+>Juxsu;lqރ+1/, =ܖ"Z/MޮswZ7-xU8tJDV%;x_CWy 7*7[WϹrĞd@+%sR=s~6{˳.Q}v挰ҹʾ<(* w}^SxƳ{oY!mUN]L\jq蟝#gmXA[x?q5NYsw V#𛷩{ڰhprώovyX\I™ב H6vwU+a]v5ƺj|~`Nx2k+7z ׀T'F;ɪ<mm_n=5}~|i=?D?8L?F7;Q2\giGמ#_ ^ 0oaC_:z2v3Y? c $~{)]>U{S{X̋&dёz_=q}&k>?A[xī~襱k#w {u}4Fz3z9V@:ys3 ]g'a_|& xjd78 >u&n/qr`G׷wT/! xk.qNMk{56kY:nk-KeEzN'uhw3~A3T1:f;u_{1Axk*'on֝;|cGT?MF㲉JL '7hciwt?^9T2q?Q`L{Y ?AJSX o~K]#)KgM#^NV·e_=_|e/ W9,hmk*/k1 \vPgSY){F_zY{o}9Yt>'[yg{=^I= Ʋ淝}!#/mqg\%\ .8(]_72 ǧW*_;O+_OzS&O)ܵG Ǝkd%F:ƊuQ+-{An.9FGL#U۔c %{jZj^'NT ,[peʻ>s0[j;6)>-h<<~M7\QOdGٮ߼s xw!YU+ǂ.jOH0m[{ƘnJク*~˭6TtvgƛKW~.=?#)M\먔|#&;yje}r^xFq/6WXn wZOI8{s1?=wMpQ<]kS\ gzY[㲑*'oG}X<'z80WZOnxV8{_73O޾+wk!ioCvUz-~owulU< |]X]K_7?v |{~f#$UvCGtn? |kg/VyӰWjb= ?3x4:e/@XWGh>7jFG]7Aѣ8BLSDGa~m\.`! ֚`S6/Fx'ػwM`n,=󱃷_t8AYecy'E =c1S#z 8;~=Hsc`?ْku|*b>1Sa!2C!r!x;L9ZSo;Bz3Nq6^t3ѝux{ͽŲ,\o n;$|X &pnou\sg|0q ξ7R˼80Jޤ牜کruDproxChPgriqv81^%143y߬?iMip6=-1U$*_yhj {8ױ~7~3U>E'u>(DAY:_M|܇8?i؃HHŮͺ0]ƒg)Mbra_pίYk{7_`F; =XCvHmYk/=M½ j̗`ރ7yv,(X~twDv*/gJ_ 'lM ?qK^KMe]gv==ɳM75 ^]Wޘ삫z(j"?dW~H F0=f>)'q!Hc=eM&<`':{>¾ϾM1F7'?AN\u]oV8-dM뢏>3;7.SnˤWn k`gggN[/>wj_:ΗӤ3M'/zEOj,ы]%<㍻ʥOXqƤnvN+_S-L}+~њwn+xQ3Og_/1wt{qv1M?qѫk[k>p'NS3%k=緃~X"w;zQ _gͣcioqOWzXvWy9 8$}쫽KLKG7٣KOypwlʏN,ɻޞg2> ϑݽdit6Vh6oQ4zG gpzGa/GxQG)Q{EOV?ᡬ2[Gx':u}CC? _K\B;Yg\(H/ּ3vu߂71hh> |zd׺.)3NY_쓅g-ܭ qٽW~hv[tꢗO.(7U|{:|p ]];x;ԑ.Y.?[ӡI xA}ӯecqa{K?b.s3o"TmO(2ԣjK~nG6Ti C#%.;Z-eĮj {P3ЏT苍?T?z%k.t\,яb? Ne&S爦)u;P.Qt_>Qwqnj ՙE<<8慉z%# *j+-P=c<2Ώb]u?6E' /ٯp~꽚QteCWztmdy#?Z,p3r;蹲 fN_ܝ=5FZ Ղ3X#e5ߕ&lXo[ =cMp%w3kn=yx evp޴SeF?ө? OOR޸Ppxoxq™U kgk+;nuΞ]9ns{~/.wn&h{)mm[8d~"} khejFXx8[eLk͌}ƿ_鲬ː}|͗y+47֎U\/i4KuZ_AWFu[%Ohr_Cyi;cOyƾ. )KW%3W+>zM^SFso?/\߱bt5 {O46q,ٻyÿ ˵~jT8x_/}7O6<2@]fswWca} z>tV5ax6N3Fz*zx@Mt߉ox)uj<}Ix6 5NW5_e=>k*q=pko G5T}nqdJQ[s|t[ ƺ6Ã8 >wǟ;"|Å׭ WXx<ߪ{ooЭ[ziςWkvF# @W6 \q޳ 7M2LV8ƒOz < >N?~9aa2^V+ zNS\N\ >2 '֎V=k;)ϼc>Wp,v(-?{"4suhgMCn2v) U*l{>)͂\^ 5W_i@=W>D׏PUvݿr Nwd :;/wt28#xz< b߫_>P%Lr1xg1tZ{x'Ν~{ ]o]3*'ؒu:)͉ނGm}!Գ8?6@&v;9JPj?b\z :986iY7qY~R Z ē1$ә`LLR:Y؍x'(M#ȒJs|w_祏g,tǐ-UcWbFQfݶJ|ܢ(Z0XW_أƪC!U+o(:Eq/_8~yu7*Ö.?.O<| .V]KiVYHx<?11"7l)J7\vij+,zsN\͗sNhs{vxcPݿo O>hܝP3ua=}u;J۽"~uO4̻L|;.j'ny>BCGwWV+fˉvS|I|SGj߯1TO7Mv绅b 6$>sUpc4roaF'}GnhU~_ugX&5,DNMQGm)4_` dWp_$=5] _o O7\5B?*?NwgynMj hㇸ\=vr4Vjh5vԶ؋W`C/T |oGx'Cu>49h#j?*_hoW =* g_=v#;Q_³>\Q}zop=/UFpyS/V<wP;8n_Ed[{7.A/D'3OR}#o:xwס;/(vz9ݚ:ګtxFt& 4kJWy-. bSZʭi7 }AG=$*Ut/u!:.Qw~^w%Wk3W:?Q~T.kw⿹eoij/gW؍X!=w|$8I=V9 w%ӪzᡥIiAJ:70t0twwww7rDEA D@ Qyk<}=ܧ>{Ur1ۉ;cq]ab\yTU<Ռ>bMu0XNuȧ2.eyn~qܿn'Wך><~'k(N+~{WsS1O{1?2]80pfl(=cϓqą>f>l8_P]D|0 =;oο7x΀1MODʇy*~[$@]r)l.7ED#ǝN7E2ȼ 1_h |3GWx6[!;|nHgtX߀N5` p[c;v/xh W p`V$D N>7M蒓~qO'`~?dd>% :j=l9^G23_>2`U]/0_>̂yV/y<%G:reu#p?;~howKx_^O&/D`L-6a0 XO~-JqӬ܉ůnn#5^}#N\eI-0>x#z95)6&Y&.i"t_n6I"!~q]HƕGqn>8 !?y֍Xyod/(]s %?%߳iԱR3!Zhm'Bmݸ3Q5SH1 2?xV.?U8'quu2c?^G;R.G>=fC/0vְ 'U1χ Im An6umQjK__~: =߭v\XçfWbLy7|Nui N;Sx^Cwc{~ c?BIĥ>d [u!Rs@zs='ye<.u}ߛ".Ҽ 紒S׮a^Vg<K=!KKi󳉋&v}φo{L`!~ؿiM\/\;+>a +i4pSj99d_.Pkp6IdSgh2h-ԏ,W+5μضd\w%% /3M/x gTvR7⡠tsC |hzx<[}.tWcGu78/a`<(qcWarq,7Dz5osq7x}yb{qclzk2Ik|X^bۨ'Y3Bo5E߉tkv?r#/D=R6gqϹ awy`<qKa$\"~3Y䥗_N|׷5k.!I|K 9Uv/пfT ηΡ;ɫ~5=_}p~"͌T^'״X|5ot.7q}^vOsB^w{'fske;Wq0.L~S>WՌ'hN#Lߒ-?h8CIghOSNw bECh@;Jo"E1|*E>ꛧc"/4zne9wTl؃Wluma|.{qj2q*c0$ e @\Lo_(+67/"^~YOGQj.O7LCӿ2qѐoH~F7ܷў  lGN{xuDӶ}j 8n#[F)ϥV "nFj}ӯP_I! hgi|88u\>:StqjSۈ4y,̄v&u9nwry]#RݚWWΌu^ڙ>tSHl!#9q"S(23ѕmERO)eL^%iE5Sؾ|pCk17|5+cBK_M\yG\v>h\~A65ȮuПgswȅϩMҹ/a>};|~<8/ z%/8:1]/{!,n?pO2xCoJG'VPozaB7=a~В|2JC/PRP')M[nJl_<yŌ˺oL^G_M,c'DS"!DD lX=ޣo)^/d|dk^!=SCMA\,Lbv*x噏1X{3cvif{Sb</}EFh_`H_x<"vAhcWx_w .F'izqbw/AMo=]Y ωD6:G-%;knj[𫆁}8n Cyw%q䲻٠ђWw <Tm~)>.3~U6Wnď?_tgi_vOkث;81uc7׿yWu|^:'N<*˚r-x۾տgR ICPj4~_r|(WzgӺոZ˵mQ|_q2J1 %df.yn>:w.\s0?~ĿSO|zuے'N|Mgh _k!<<,\nx7O1W4cN޾Hm"nxE7wW?񚑧DK}Mfxǒq?vb a(=ޅw+O./No9~;q>¹n=n)yÔE>0% oq!+J\'mtKijl3"y_G(@#// T%n`%|CWGc;JX=.s)n6/녧wp^< <^d69d^|rWgbKf\gT)pṡÏ/8΋83yz1y+e*/V?cs}>Acpp.G/6ZX-B^e"y[Z0}7| <y\4xփq-aJޞ: N'8J̿:ݙϏoްsp}O01iv:,Ba'_6hgv_8_1}3GmAڟ^< hߨ66Z и 8x%nokOQOOH5by_hUOSό~DijV 'NL}Q2[y]Džĕ4s?цo&:mw=> ˌŒ_R_C_=*Cm xO8^Rcgz;WüHzw } >$M?y5g5it- X_o/eXl@>γ2x[t{.e|()NDzvˑQ/yNVqY^n-ZLjJ~}e*\ByM%bu RP8g]5oߘ{֎a=lx]Z[!UB-Clg@^׸cK4N'aٵRϤ9R]qlupVL[,hr)o5Ӽ %?N_=*D{[7!|6Gۚq<0/~?p=M7 ᫬"LXL$$SJFȦ~NI^ٕٛߝ[5;)\1\t2o-#^C79uNXn:{'cIa21![{]ړ;HA OZ8/t[ ]{xNT|Ffp5wӀt=d2m#q*SfL]4mx v2umHLDb冝^#tx }8N/o=oC}X8y%/XQq XqHT0k,߱}q]cgy |8 w<[O;B_8R8z#^́ ݪƚpCt ,oSpmso`=ݸwggC}qNz!7sxydl~ _.qHy+gb^qeC]G})n.y*Dq\~aN=n229x}=yr!㒰O^7oފzBD8t]f3~Ur>F<&KSVπWu2[RM&pSks]CvG2TS< ൫Z`,ORT4aܖsğȊ֓|+62X1Ty, rRGm_k: (;4ZAGa"Co> k 8q_26G^Xjd^mc);xc}I?_OK%Nt~Qmyh?q\ N-t"j )SaY&:Q7uoR<Ͻg';O %4,C=e7sP#]Ce 6f@Wˊ?%18OxGS~ʚp&zyZp\'^MM0~ rW(<Ʒ?Q? m\$_y^¯Y\g<󸮪_dEgT>b.uip^.fGq??rNBO78C8&۫}dj%Vb/Y]q‡qbwE@g N#44\Zm?D~m^}8?\~;d~ی>2LCD?/P)BMͼsS-B{)@Po./> ?G[`D; ED^/*"ֻzC\$F8+%W~l_r:E3uͧ B<`qs!q Gɫ.v_DZ']x[qN[_EdK_#>^;6l_òҳҿYM7~ɗYd3 DV{+D 'Kԏ8Oqa>oyW;s=TװރahwgaQwvB|Oo1_xj>oُ×-:p#|1ϫX[NM}7s%nU _p ?7oR68|EI==~k}zOG=yvto`/a#7,}^SJ^~?f/zw2o7|3KtcW? 7wm=t!#֧PJ?lcW-S?blB`>PI[\+ߥZmMs]Bm}{_7׎tcB--"{2M1>҇jyEقQw|qoxNT^Madgx؝Yn$,sG~! X/ Yj 9XFݎ!=U۹~>4>޹i=%1 (R\桜 4:D>&D6f?3 ^<{vɕ4vyvD,KA9yM!/~sA0>PKk1_=eypL8*by Qԧ~59/2'R7 ujuS=Xw9ph89b -?Lz##xġ3'soΥ:W(ըG4rTm}ayWEyP#`+t a<ѵ㓅HγhYy|\)/=8K\QU98b_BlO̳Bw| Iwgm M26"",θ2nPDGE<<}xwTSݫȧ3>lc1#O)8^Q'8#ꔉ8o"ksq=:!ژ6+x?L$ wpXyxC=8܉_y1O Q',/ n^}Fl#oQ>:/ӻ޸>xe?~ɍ_-Gޕv>3w0NDh!b:zyOz?m%6ùiRaAa68 >FM4k1ʸ 8xL2y8psZcbktqǢ?"@j8!ۗb|#ayU܈X x^cN<;Ub\;~D}Emqq:q ׿`d?]ks0L*>@, ?|aXm-[2Pi<4/5/qFx)EO|%=Bk׽ h&xd;/; 㓤 j -%^^/zV9_.tw&t3}*uT,&4d۲+ 21 ~ B"P5Ax 8>AyEcMsxgyB%y s"nAs` x~DxzǛ =[x~~^̄U8oyl7zc<_r{ר~~'SyQ5ڥhW՟]<*v| /x|qǛ[5õV1чn;0} ܭ+% ZBu&a84"8z RzN(ԓr\9:a(Ovu~OmQ{ Jz2+9ڛgx#VW=b^%.GLOǙZGQDO r ʰXﳑ0NܼV{|wntS'4#SPA9:ּ" G3&C&bެ`&w0.Aw߱L!~\繜w438~gS髬oGE? T?ˌgq}'?$^>z[LS8kqnخi4}nWW`|Grvq:ꏆTp?JP&TUsk>+l?zXߵox1R<_53qX_@ҙYs8 E6TAE.l)Ky?#佋2.pyC;kߙu/!x..H}l>#AO,~G܊FGk3']ػG:T@׻{ x%mX v L<ˏRb}-}O߭/jyſ:e#MaC^Ycl`~6y|sD-@'Q rE!ثz [ZjU#&f?%V n+4,DR7P ߒ2^pEx88_eufFOa>(xx8㈜+.~:t JQWb ]/f@wxSsX<Knf̿"td^pB1:9+R*tMr\k1ѿRwS-CBkzyzxϺA˗QTͫ{b}yCG%}<@peri!"\GW\u9^b-ieK/:xc6Mc)ʚOXy+V yM?+Y sVnt<T*j+<(d% w(e02_)|쌗8 d܉qIख़'Pq : X$3Tp4u+\%>6${ h6T 7q p>=q3 cĹ;CuWO!c;t31.?D:2yWX<'] _j\'M:80 nCC4O#߾U?[8O8qY0oH/1?Vx̳wޟ,-9?t2:o@yWsCC<myk[#O/ރ~К|_BN`\ʙzbé;=,͖(dF Grd)FG38[υ0vH嬿鋱>鿡J1X˱qh_bn!;-|wr`m'nJMMlvv_Cao=6}c<=B>@ڭh'սVOOP?Eڅ8 Sg10h ^7|;*<@]q&Ͻ/|skG>Z27,$"ݖ>+2\*ϫWϬM~?y-f!ÁK^tvRdc%~w{ml%Ka}>/u7UjP}+ioY_1)+U7F}?e[Roȍ(8Zذ-o o0Ƶ<# DӬcgz}.b?掟&MJ{~2tey)Ply+ .ޞ\Ze}mz܊ O5ucDAJ?nxycHz8l$G;K}zhOKbQ%}Dn;f7 Æ=;npF,_ƻ׺o$.fc+t!2 q6xXG݆wl~<\Yoemԡ ͦ+oUB.3j bG5MK.OAQ |sA4p;ɡNoYa2|~*WE#}GySpq>˛鷳~;߈(foL'߼8 xy q(~3_)>mܼNC⍍oa_j.S]23|T'7~ ]1|ю8Oy3c|Ղss0 s|+]Wk_DÐ%i[kr8mWӁ ϴ!)Ue5%?m'}GNy$yO>DǸG]4Ttf?ȻVztB^a?ԟ̥؟:+/mW+r_/,gW0m2)=O7Q=.fkЏ4d2OOL5t5ywo}i#@FĐ>q͈TzcwQ@<~x@zi7W1`m(pGT~_b^*&ߣe;'^uIGքNȒGAdW>sҪSJQ&F.ޱkPa{ Cv09V3>moؿ|s3g.q. 2>p=q 8HQO;*3u38/D?i9hjΪh:aW7pM~a;DGz]=_H\^C][N$yԯT\g=^ZUdF]{}7F68=i$]:/PVc};i׾9$!JIJ)R yzh/1>~ř)-=ciG/472zȘ^\I=o70v~gӏBSؒu0yޗ8_.d32, fvo8+: {){Bԯ}&X`-R_)#*ٿ#D6]K}t|Y޵#N84}H$xʸǼAVBgz xr^.]]< h@t{k^nA~J|>ڏK mNvqNrI?bfm'<5d.ԽcG8=xTd;cgeLwCxs+-ںԕCvzQ1jk7|1=3 o~Oco%r?ç̫E"H@SW8E=p53Yo|IꟳކUE0o-#wM,^lUC}Qò3i^h4_aӝ$Ύ"~ip<K]z̼M< 3_9)*{+ RH>Ζ8y3jEW~5(U;qbMx=[}CJ%ovy>4lߔR8kٛosRE*js$ >"e_~-]$>P?ïg3?WaxM^9]G sz7G/C[|z*3fib5yj%PO*W ;CrKW_\q\QPr39ݢWIʼȐNe[Uj6?K6|yh?2N{ =.$j#pU45ף+ߗЅCaC!翅θ VClyC+tp^ sMo;I TUe;(G]QF-K?xtdc oԧ7c0><%̙ԜFQn`>9|˘([Y ܭQcEl<Ϣ2/|í77[>Euv,.# Sܞ"o5)j>Q l|/Oqao~ d|11=o'Nb p!s\/:t]`iȻR  cV㍷+/uтïCVcsŰS~"Kr=)XsZ8>>Jm=9R`T~4,oX~J}(o ],E2uacOM10<~ ߡ;:fD W6<} 1c&~З:[G|C t%yg^>e5G'3όv %nZG= wO׻Y!qP>K ܏9g9K?s+:{8OU>}zV% Nugc>RabLH| ڧ4׉8EG? .8[#ygꛝpq/n젞d }b;{5vwF_BCA4Ϋ!L0+kB}Rgq>:>E{8Ώʚ<֛?Y#aIvM3O_x T·oGM?yܫPK퀟k?"oMa<7y\|4\R1wxF*a(#'yPe~2=$%D}ebwrYy?,Rו hBe`N$ 8ݓ󸢨+ʜ?{EJ'KDf/->{>ɯ#/&.~9V{Ἁs??Gi-DA/޻Z(jm߬[sKLyEԏZK"){za0D#!:Wԋ#P>2s8x\P?n3;~ ,?Sgμ˖c0)gNt>-oOeISegtۈ-qySlHqx=<&{.;+xc Aܙq43EUu;xpj3-@1lvBF^~J 4%nm6:3/ ca\$?}G?c8 ؁пy݈#Bgo_ !^f&q0ϣu?_RҞόrM)yf5#䟵v,Ws^~-u3']qf=:>MǍ+׭YAVխB?x{:{W o1ߓuԅ!_rXPyiEOqꛋq<11 T ܕ~'B~e+?6;YcwSmv}7]c?_ >BDFOAqusL LY8bs?{VSGho m/_=`wmk>P^Xo"XO~_Poԕ,}Gn<9*kqUQ㫏GzT7ȿq>]pq ~^\Z:Ebr0r_qj`u|>o8-&>c1^M}M5~F_<'56{6xL3DK%9DX~*ޜABwJ Չ]9}g#`x8|2b vjMy>Mfś_QHK޷P:~JGy7~n"~y(ud?Pϓ qPG m/uJr(࿪ߩd3_xA,a%8R W4H %={|Y{?ޟ~ [qԂv|?'?E>¿7ࢌSHqa1>/~O]x0蕓\.!?Gj? T 7W׼ؗq觌oؓx;>|-fwW݆p}"Mu6tm7%; $Ѭx/W!!CRQ#_-ECl&җyG'[׆<ڻQsou.z+}o`bCx{C0WJJCS9W$NJ==3Pa87Cl ʩIg=ͅCGp]=q\OpV]&,߭@Nw0\to N%ڿ$Wy5Q_&9>{ ^;I|I}V'0-+3$ ~7"*~/x7#~/z  :bE9Y1ϾXDY]/|!7)k nf; I4F~@ڋð|`8ec{ozҗӟrDh{C[8?c{V3e i mGׅn|s}xKmKHvRleOfȇ:81ߏ'O `_q z5?F->lJ;'vW}|}JS5W7oKq8^M=4^Uk'Ӹm'\΅:p_Àkpܲ(>$_pr8O4}m u^?QN)/HV/6Q?`{?>kFGmAD_?gj!.PyQc|twUgdޜWCRFѿ~w9h 8ӊfUH>\@7v^+GF~]LWw78j?ޗzp\ÛĹqx83op4 a:詣0Af\~>X|ĸBoߥ=QzW#Njn,>;@j;¾w}P_bCeVP1Z+e6\U\nv%`=d_%g?yy93rzOn"4一Tbmp\|gYa|劗y7/qHn rx%WG=_=ʆuXOs'?E۟]oGj>jk{#k8ɹПvFrÖ 8̇A%yBB?a o!Cv?E+bO#z" gFPa¼9[N [悧_~"^DV̀~UDYC/ E3Rd7^"t:|~ɓh$tn/q}@$ /#HM% 4{#OIb.f*FW9/y=ޫ(t~" yzKz򡷖{ ]~ԩWJ9o.4C 9+B kū T2~=ji ͪU3{"aC2 f*2# :Eߑs?<sJӂ5n[a9[7jqYoȼ+8ӒY-̣J +o])v3{(xd{7>-u.Ԉ{qQP?}?;!zKo[ӿ`.]Яj|U65^;jem+}$ry(u-K_Γ푶!)ڄsF^o?Rh?>Y/|3ot St~Aנ.C}iēK;z߂_&n]@|:HJ]dl%&ϩO{ryF#zvq|(B >BﮧΉxw[Ml%.augB!޶e|VǼٺO[δ'| OÚxjW}Ǩ(FT'^.?%9pCw:Ŧ%J\" קBYLe=/wTԈsp{5uݬt+]*ތs'Ÿ?6v`ވ|߾µ7v>Hx|ax \f˜E8lzSm(=?yc9 ;ͩrek{( C^8yeҀCkZ?z5xv]qtE:5c6zOWA.Kz|@uY[}'~&>^|?ڣW^ U䟟,ݨ8]slw/A.ܛse5;qJu,qZkBzϱ8ߜ׽קMBۆnm/A9ﭹhdSp)ȳ#3MB0#GЇ&8?4}/S_?xVh+ʀr>bVS =̓'}LOiueJMi%}0R>n0:HnRW3kr^5 7? ~:'0H\JM9NQ?z ]6<^?ֿ~f)އ~Űg <׌8X?xP3OU8YsQQYOWGls̃mEf-ƶ ,En-=;83ak9=7} [}cB\G6:S\Q>//7~qaּ÷G=NyZE+@Mk$^>iv5漫U`iBI$<8@}tR'F|NSj>C)Ҷb~U(|p Ϩ`ޅ Kzry.ڭ\:,! *I}Z(kVp9 zc| ub\FڣWQ wq3qJl;7:rN#tyyPٜu!Nw矋2}“܆ 1LYq5my'U t8IW^W1t^O#zmf=+K^g>8\Y槮&^zC{J~:Yx׺sޤ ޤ;z{F/|䷋7lP(Xəү/i 8z $lW;ͯY>+ܴo}`;bg*BUQ+eݹbq`cKr3ӛבS͊)"?\VF+&Y1_ï9pPNG\W(UxBܜ 7}1oK2o~MKɯ]G?t o/`D}=E."w&PG|/[|.dA? *x<6Y=;ctEk+ /]ː?Fd[7ۡLOr,u#E\Af]Sg1zI1A4:f_O48̗Qԃx J?g뙟 g9JP܈(;Cl'CVzr\ob;oY_VXN܉L<(8~0n ';mbQxo. N.JS88ߓ3!+q#)Xh甠8V뵸.e.\B퀊A7Pw;-Ϗ?2">t%(w s;yC%)EK)m_"BWhAKAVK;oy# 7掗y8Jw8R Lńd2GCWl|b+(UvA۸_;Ĝ6pu'=01E"8pav's)gudᇑW(^EžRw-K[5s2(U /󽈝)gT}%Mi1n^]O["Ob{$־]g|z18FX|3yc>; (B{9>YC[q$. y x7>꾕>_:D!^>xg<M:O ps/$'#o1VybmS_:v!y6YLc{OwMJq%|^7` I)c|ԧ)s%|x O3}鸬.A}CWoI`55WyԋU_V'g?#M54M\|eye1ޚ $&Q(s_!.q}eX_{/.\ Q">t:CG\=;+)o<ш#{Aǩ_̛קĭ]8R*y(SNZ2x!3q%F.o" 跃~s N_\E7++R'Ï8w8):>q xHE>C?x_u>3|e5&9vs E=B:_eu}({dl%k:d/J|%h_ USZ}|!/LO- g o /lcױ_z:o=;:3OFVykyKWW.OZF=s^ W-׋i *~P.OgOl&ԗ˹qEٻ?J\G⽪/L|SCܜ%+G^8dr>yc#_y,u 26į{I] inl~$s@xp4c|12 =;;tSSΈ"nNop{N'~Ng PF}52\O \t+w;~#]}-ڏ?SK#کZ3ٺ§Eװx=ٟٯWw#7|OxPŸ?>:L:}K}L;b{+3L+qad{Oiy{".|kS\WJpEJu-̠"'x纁CouMoFx* ķө3y#]/nF*:VNK.bm<~PJ\= {dz >OeI^JS.c u{}FyݦQ΢ vy]N|e~Zaw3yA< :wQ}, qZ"K:?Ya%sN]<M[SBUNPy5/g(y8rF;|Cq=[)$*Y] @J?NVyy}wؕieIO;m)ס!.^j;;WsinSo`ms-(7dϣ ڋb_G*f`K,1JV#GKoE<`EF|$nQv @3'v ~Bܐ2v3M~|'u>획wՇ?ͮ(?ϖ 2u'N^9>5I&_;V7v]"PJ,%ODK}t\ށG}+y%؝4' JeR]|^JևҗOqF`˅,Dy$8"ـw]>#>"6?VVQ<.~u<6ndэ#ϡݵWZm M8dȨs;IO)}CLBTn^GdFQeeaՎ/?|ؠJꢫebQ^΃3]|KcQ 9N,܍v?KH4^ 9>b9f|P:sʡ 9c#kH8 ꑳ3~N']%EU굧/bpt ;٤79c?3p%b~ɼEFWa["4 6{- MJ7]dpaA[+<\C=|Kޕ픰Zd=$f#PG@B|ÑCEyp{J<-u{L/HU'5G#CLʼt{|!:BK|%Ce;/)co~ZW X ZU{k̛ƑЃP|t?=+Ɓ##=|!̇;K ;q44q{ca ^PI\0y oa?+B-q~ yxG>pyq}Ì~M|kyN<-wa3~@",i2y /QoTc缉~ y>+G1_yM_V]&ߴb7'{4gMy_eWet BYtycV]Gvʌy˾XN$/7HX}@QħX/YO}9KA>z Wy%66\?9N"yFo7^#wM:f~/οu8{2o?q3#0_0e5b NwdgJouGyjD+vӗGEWc uݨ?PѸj>Cf_]5ß[i\v؛l0o$\oMuR+DhGW#iOGjQokgl5DEXۓ4+pMȟ}Ks]FU<9}~WJ\-w)F]9tjߪŮ5~&,ow]+,zͺ8kWD |Ǐo.|gk^HM杛ja15_NZ6wch#?a% nڃ%/:ԡg1gE\Tecz F72兰My&GD[9)i]似G:/$@%g4G)%}8?4*S~_я/VmE+7D"x3lt~p e] a"k}OINZ&v^saizNnU)bQg; Q86h\)a[ J5aQG6{Dd3F/E]9&RW^>|u2oۍ/@^k J q1՛(9*OQpySrWCd.b ,-_]/޳'ۨx5MG9;΍asL^8x:-^EjGEvzS7YMv9ue| xnc0sd;aD__CD`3uޕ8^NҙC1TMU? AQ廁}c(:D|!ʊr^D /(e98Er 33nxMRP<]ri,PѯqȳwV=38DCMБxZ I m3שB^w_@ #q!72_iNIMTЕ 1ܠzucJޛaoqgGH\̼fPh\b`&=w^/3^t/q<+[} -G7Cyjgb; &c<VxꁜN!TͭãQ6Ǩ]PVYWq}>| AWQ2*dNNy}EP284R+`[F@"0+O#xو%|\|j 8ݏ~o/<(^p'?~%}ݘc!=wy'?җΟ1}u=pDOP30,!O>C67B9|zeya؀*T(E?t`v:pGY_͢9 xqZ&\YR6!Ėؑ3]c*g_ Ӡ]WWN]t&B\y\0;JE`歮ڈ+fcP|e'/Gy*k;{:,^Փặ P6a|4{B݋SaQ;:n+[ 8O r/sC{z!% bP?M:1lkN:D#W𣈿&FnPg48ύhquʊ C弭^ߊxLDr͜rtKs*A4:^0\NX6Hk!<뚁%w}/֭|{|n8F~hɻ*g&9Q2"?Afi 7 |r=e/nŁĈum椋~y.H]d r~J_uwvC*[Q~ Y+[/W]Co&g];OIX+aܛ%ֲOels&O9}Gvo=dSqk8_`!/ |Q? +odqFdfN}C ri >7pn|t̫^x]8^$wWN^ | sD'zܑ8Ci3?gA8Cܛ8ǤKé=HA}IIDjGW㗴+䥻s0ns|MWj/AkUpn= J'?A"d5/ c:/;"_=zv=s6KV}Ve\K2_I>x䆇c|W8pӕ{[crk^ ?~_ Ci!: Y׍yB'l=VoFnh݆1;'l$?m#8zrZ~ n݅;ϫ>s,>c2:F| Χk~ed܇Ο^z]0COߑ8MOlvUAHI=kg'o-5Nձk2_?g ,u< 5^6LAYي(Ua8oe:+Osa@r{E\xy7(A>:QԖgJ3.`>ഓHC>?)e$+"/|[+Bz=+yrnU@~y{sDzhlL>+5[PlE=lt8ڍ&#󢐗CػcA?܆aق{cu<(ג/BWQe~(W9;?W )v%q(7PFԠ/RF49Pњ{}}juNnЮ;w9 jow>q/;5#jO\gm58Nh&˩w8 {߹8_Q ޑWDQ=JVЖv8[/_5Wx%6Mif[ү_tsDR|!"|Da}͓L@QDCK퀫 3e-L9,EwAzW;?N58eLpJ;6i^GDl @}<96+/Y, c/pƇj2O6btS` "? Kp}9cԊ*׻ K 6cᙣ^}ue`͟.Fi竔B\6 ~dpvQ܇|,l87=yXx!}{zsx2L_s.GC\arY JPL.L* н^xϫ0?vJ<-Y}%O";y 롇.qE>[#?Ny]-~:33JPgsc$gId\dSפH2R~"-zv'~-l.zAC7h]gvVDp36QhI'|bB.?c t3Kvχ_N]y}J5 >Hc@ڄx={F|}4uROPdmA WHR]l\$} [Fɳ߁_8P;|f;mE^?4 p W`n[%Aj/*ܟa't!7_gRo1<}. 6Oa fEo&1qX[$}/vpy3:t[r:LAE>ga2[?>5kϫ__Ұ_VA?uθ\wF7T5}ـw*C73Y x) lOB_h/܊enBk!ȥΩ=nAaYG[Wc}3xo0#q1c׼ˡuѸ

%Oԓ9}?r|򿌳=y8{vqn ܎7Gp;0z{5('iԻ+(GTB9˜i2mwLq :MSr?H3T'T6~e(}ǧ( ί.zr/7qWgW`z0J菣jg!˦J?n)y=UT=H ? xWNH\e뫿 "&w:V.OXق,7u8tu,Iw;[~?p ll1^5¬%{[A?-Xyu_~$ w&r̟H>>^VM<8$ *]ϸBǯ'MҖOjCK7|:6+I\nF31Vbp i /Q%o \u=Џx=ʐаyPV@obXEy '7x2)C2 v/g2qBA%~J;mqu1q*y׉ckOA硽[O'v}hL{>[_ksvyk-q]!=>]5o}O9raU}禊"ߴ8󍞜F?xtr>oo>vǫ8e[3̼u"dڡ9XNJ)BNpbZyw>=Mg9$"/v/;ЧqD=ú2 ~qGv,#!G\L=?t›~^ZU{J?jsߣBiҷyJWxr=x_sԩ.f,G|t%}Pܖs^o?TfQ/a>Z(1>FqeJe2`y6ꉲ>IV(臼}OC77zIM',yŁw1wS t fy~ظ۶ @|%i3.. yFؚNjCp|#E8 _@<ͱ-;Nĸd] =<6->w*,;|4?Xxxb;?] ?9uB;CLvsEL]7.!}p$K I.s^ Og]"pKw+YD]Ft,->w=i-xg >kbc/.j:؛]-phoX~H_.zضlyt8ۧb%_5,GĘ-fޖ 1J.x8,jŜYq\;㶺C\g¸,ʻ/lE|/ %A?b6nR ;:ƟC1buVAyw6"Kc73}6ƙȷ<ݪ%?`Џ. zh6b0I[cĭegiW;"K!|?g[qn cPI_M݋H]r.zыGZ+'hWOs׾C?/-}>W^D=I`;h0o~,/Ƹ@~ D1zi856~ Juo\Dd ~Ÿ'h;V*=-EvwgMeKZDV`Q8j 3E[8~Rq8^\l ?D9HIߣʌ~}ɏ M3q:PӇ+x R/sӷ·<{)nXZr>; n9Xvh+?q盎}G]G?C<ߩqZ nr/QM6/_lˉ۬z/~*#up-yl^$ރN_3G0_5q;Eu8Sx5yħM=R}⬔B{\r凌^d#a+yj^gSfAi~if|z.UdR4Q=[-i38fއ%W*b&zxN>-.(aONjb۔k " x=6rݺ?z$~7Ѭo "@2$$†#Wϐ8D y5l/C`pTn rE>> {NB<;kn_׹N^s: (~<[7μ~umx}y?{܆.|wW#$zp) 98l[T5SLoh-G\&ߜz{F.ql]WyʡK.\8/Gz&?@\Ò+B|!gr}fc~#) )|yqrϜu˩{'{1n <nK!y8xN1xnq)=_p?CΨ7x}3gp9[~{:|^6KIc@GWM}/ٌ~Ŋ=p]ײ]zaGE?_V%yG(syWr(hۋPm-p8A??G ݄{q}?g:J}2udC'eoݯG$ַ؊)KkmO֬N`?}g|Oڛ|jC_4} l?Q..r~0[O$#%85+㨿~?3_Ұ8_āK&Cݰw)wi#.A⼭;yjA;byx8;xa~؁e=X>\lюq#Ѿ'/?*NMϥ n?Gq}PH gp<=?,c_VQnvyo}n2 8 類W"wή,k3E/C5XJ?,z5/c94Na1>F/qk޿q ܯi>3B!aPWҁl]h1q#=}ySz |)R8y7)XXQΧ?XWWk1C{uI:U-\Q-a/Fp:Ût2_i ̙3oIEs+Apz0#^s.t9(9dcB?8jlAd!lp,N|eEpF;e3DZ hSRq{wNbL]{bǕv˺̩m [{̦n$=ƒ 7Yyxtg뱆~ׁ4]o\:VC]8_Fd>92J^!||i]`Ow.JymKxSs~.i&r_DiȲ^tY'n 41O<Ϟ>$}>}f>ME8g!qK1=N2F'xx8_/_kYE/ ۍt%>DD?a/n+|'Q_8C¸DS\("KCj0h^kրoV0o8T [iBhϡ~V_] oC;txj#}GˀqN>{{'UvD=O#_ mV|y1S0',C}q-Ǹ`ڧ8"Oc}|Dm+p=}= z>_\%6^:ޞ5u.{+&p+Wt(c;3< a9Gx;[>=}F9~~ [-O_mli/[#7> NvNDB'<3f0~QJKz|"-qIu>wɣ?3n.X>p΂8y4ڛqخKM[eWNЯFGO髱8fT47PAfyskGDEF}Wb.>aP'D=6sؤz큏XPwnem^_2uѫzdW:tu |X(F,G[U?(֌lE Ž-=^ނk{<$eGlC 7LmW7ktSk8O~À7tub㯸mm>z=Yx2(ܷ<.(]=f3V(:hL]n_=W{G WoN:JY.D e`LN 1S[ :KN88 m.d ߏwЮ&G9O7Y1/ҍyx>:DB&ԭ`D?a!pqt2w ?"b9NV?:8c]f^ _ ݂.NQY+v,[W :qJJ& L338+iΦ67@;Z޿Qzqw=m̓/߇RRO"iuE!hۡ#v0g5ţ*1 )PCk'6/O:rܢD[o(>q#>YϨ\3f?^OuId=P"7Y(nrB_9OkCX_TPjZ@x,t' ߇UT1Uԯ򉋁Uدy5狇oo>DA_$޺5oӛ=|ܘK(!7,/s1{soP.C^j*P|aݨk6^yK\]]_+7s}W%d0.]wWA MqsfoF-wRu6/o*|k_ќӧM|A/q>߄aܪ8PJml͗~ `{g~'n[pܶ;~+t멉nWwV*metTq]>fߌ;+SbS]xV ,vEa;Θ?l2fX5׻5.alеdܜuwnw/("q^͔%)e! Ֆm^/x =c[vqmDz '6 Ͷ׭כ슼-@aya¼^|@n,W!ڷgbBlKɭrht)_skT ?vH*ʣ rlj8q[m<;;plexw۹6c#}߬v%xO;nߕ ^op~1&ay}0O9PW1'.\ӷ[}/#d6iNb>%G2>OaU3 c!/''OF4N>R^=$襔GE+Jo32bW/!Rhs6S8zƞ.n.['|7@׊iS_?vH1j>mIph8Ω"\H ;l`Ftp;VT|;?zK$0RTBO=䛗n> nZX߿D=IԑiB?]~߂R8 7ŽP qZ7]%/"?LO>Y7y=X5]7oXEP{'N=D#UO˫ɓb9;FഛṛJ<}nKef<v8uS|̛q?ڍwNFk ^-k̓؇>u1G0dj=O/kԡM3= ;(*1<2_ 8Nq}wSG}C ( ʹ%fh'K0>v2F>[f$ZSj\|B p=ķk|qQ oMgkq@Az`tsw**;O"VPo-/n'gbc" ΃`w6n10+3I޻C2oB7Bwo_P?CaŠb!쳠}m9*_W=` 97:su Gw`ಖc{WI{?¾[,Cp}/찇Oi}ۼq6=>wDxic'ҿ- hw/)R'g,#򜀯o >5a}=@\`ԇD?Xk"[W$ ו| ->b\[` yh W'+ss']b]s߲>+yQ}=FF8gv9|&mB^ <|N08FCg1nmVe|&SN!n1t u:&+^Q/w *UZ~&OX@:~n8.LiryO&Ni'j/#0^)u^nc:?r4dR gwU=?H)s.z5=AWFN"W+/7|W5~qVO>E]S: XU.SՁzȉQUҚ>8{Qi^>ca9n*ϸ<#HNg_4[bW'-#}8S_A; ob(8\c3s2fA]C @?[=gtH<u2H9ο*ʝ ~_Nq bMי|8rksbS߈2_=گ-l?؏RwLax!oE;oΣq:,KHd%Sq%Zהǁojk XoZ} w@45K̟uteQ$%m)ūqjzK\-&woӎ k7?utWB ;\! qw7%@@BJzKݝRo !}gfͬYN}_瞳>oUսfX6W}]{o:߱zp96L|%ǭj)˷9רV^VH..&xö>ix "p@@ʠprp8ڿ}7>|sr܀Z'6,~7Ą- iW»{ o.Uӥo]ݿZeĹm=. sزOOq< ^z| XqJgR|E?᳅q ~"OC+t{iS{h DYLdYڙ@K{ScAo|:k׏ج/kC7y 3GS|LNǯv?Z,pٺۺ#G~u+~u3q 8doۣv^x=Cv6W/;G{:4F͇' k=m? FE7k\Џ,I{_ڧn,$*#ߗ8/ԑA"79zq#6>Q+7s隋ŧM]#5uԫh<}7,3^P~Uq\krm~`0:1|'E[?_U Q=龼JC>Xv9/ڋ,efRofo~ >@q| VovXNPx4fGyw2/Ym)Dcœ}\x9"AUЌ#6/c ەGK0Z:WZW3liZ/{h5HetV7)"o_=qke;u)Ng.^p 8R<<5AWs㗆ўhMhJn亪_nh!~z |}͕9-oQ~'O= }l)ᆅ`ŸͪGZ7h錆DYgOK^lkoi:zomlN b+oػ/ͬ6rWY*w7î_8% >lc+.܅ߜS9|ci-/rO_V[w|,WS~ 8^ r;z7-OWסF2;;Gsg._:cR]=tB>Gu_Z~!RqI+#礃p}7O,|FO{߿֣/+\W_UU-_[/{+ou{u ˳u掍Yn~טurGwɣ蝨|sGR #8.$R 3ʸ>9wm>8( -^=y\!8L9'eֶ贷{ܪL?g;߽^Γ;|Z-v\㎃C84*݂_uI q0_zţK)\K^Ţt#{W"wweS|y?ב+]ή6]m?q />FsKq߻Jp?1B _56۸v(x%򖴽^s[ Nn~at9>΢ntE~2kih;'sz{Gߴϣ}|r˫N?ๆ-Cw5.88)o J_b6je v) gI&::ЇEK6}j³w~x}H{o7gs?f;1VN]>KsG8Ўzjo|/{g+Z$YT<]b_ަ 7/=qTqM=12K;~ב%jn[S?)n{8w%Jq|7@RC埕r\ʗ8N+hd-fKq 'j=9ډM\nӘC7G>xi͖Oi?qH\_@&]oo[~78y([F}s'nsq00[<՚tn[0/dAco,vÃχZδ^w?L}O3C;9l#AO>1Su:ĬpSf]y[8`VZ[:y}|#uf%ֲ=_rCiC>Nv+7t(8bta8e{Y+^ݻsz:8ԣOE Bpns"˦v ,^'Z7n_|8>\?} `=gRЏ$!+47Sq_14Or|랎+%g\ _̆4x 7hq/: pXϼa:n_,g8,߁3G{Krk;{.k{R9pZoQEn76~.:XFq*{>wK۾x~qU؏x={ ]8x~F￑~t'+[7 |u[>򚹏%=}ELy0q"@xvQXZ !&?Mߍ\R٬_6hoL-"޷J;~3ƿ؎^۹  =-t>;OouBۗc5yO_=->;[GRS̃ q_7S8C6';h^`]*pɊ%/]13x$o|3p58,MYVĽRMf5'ymUcoycR~gw|c4mGCZ~i-<=]D+Wx%qS~k|[NW6 <{`7jy׾O5~FSh3rotWd O+XN%Isp1.#@oVtxvڿD&xG+=3*n1RzF)EZis!U|l!Qjd_G)>Z91op%U_,drԲo.ULs>oqEgjA1'8OCRV+\Oh_3\%ħӺ䳡 :*9N4ozu'~] ?_ -.#O]bڣ+?}fU2kU,?ʅAʃT4zzsns:&n6san9+[~̨{ J[gw|џӏ[|'Oӌ{~SuyvwWWIW8f7PZ^~cSͯǾay'{.@)l{kìMmz1i=]r-|xcޅv;P+r!Or]l)GgIBi#? UXCёl >g_q%\ma>~v}zd{~ݘ.7I<=ξOXG_2Ҋ́7N#Wpyq,'?r#ii\ǖ{Бd>>|y+x]Ogײ]qyG{?Dos{| .\F&o.|w~{כw_tOWX4+ .lK=~|"j>Y҇g}ػπ\7>!x7iGH? }DJ{]FV>ےħN 'ڊ9EVA;_~} iΰGjl|)@8ku}mYg~t|C9h=_y=W^c'l_*u> ɽ:zz1>s=\䫴ay]c5zS}/tO[{)/2\ck] q斤x35&zụ~mPXxq䷐MGyϖ&D\KD)?_,(}ӭ_ʳ/;<(1cs c|']ՉW,o en/O/7+uW5j<s}zmu񝯔?q>p T^{v'Ugd54U:sSZ_xLwi7.?6VJkYN=Rϴn{p&G~ #'jO_|Ym*zMǥC>Mw*_+ sr=77.6:M_g۰ >qsSo?X nE};N})._Нĉ}h ]8Il_|^;+<50^g5̉_\9ga񘄞;~Dgބ}.$J?0Qwzu M|Nqǒ.=uW{E;"kavr+^Wnmo;o;g5 _gtp] ,|>} sIQN#M}/g/8K|v B, (׳?6i>j{rwNg>iɊ7l:{?xz V<*a 8/UV7rj!JGc'蚃\ _]7EnYP.k׍|r> o{]nqɺ8cLv\n!7%VQ ɴ[ΣrfwF;+}u*uz)\whv?`_ ws<O3/7g/@ K?w^.;c}&kRN?pv6VF?2Yy㸬UgWjOc(^c2|>'s1CX{l;_1]N;)\WN# KD^@:}q1ǝo>d?_SMvޞ1k?JOe?'s{[cww(}=1g+wgu-cr?wv[Nh"K 벮Wo_k|/ ^;]lKa=cXlr9咟켤ƺO$Lޙ7ݤwh{.\s#*-?XAR@g%r  ڗsO :w 2 ܉׿0ؔ^}KE:l#<3qwoLq;OڵOX{*~Dw~}(C>p%?up=?`~oOA{^ *o&^veem$^[8YeA:Ϭ̱]f[n2wqyăVj-wdzݴV?5;Ǭ awq e_KIf15'u,zHv/uMsd+7cw?̄ efm_=ve^Go _aO.ߓޭWE&dc_2+vҞ8%pӭt [A/_ʧ)W&^q)X! f{ w[K(gjįĉϢ.|^*'Z,wiZ>n}36ic̴&^nq)967Mykk*࿳w;Љ/w5 ʳqmS5S4Ҧ;㍽)̻\>>|MIRKY_v;ٺEg[?U_/jt,S;J~Kȯ4^)۟V~򽂋~< yDƣ>I{{q|7AGN*gk?\G\`<*It򝖟fzک x~,}/{ǟ-jqpc1B32ri?f9nbףXIS9};]uy~e}{x ?+N5/Zt}2R)3}pm,{ΓNZ^Ӕw?~Χ_ֻh76ǂk'g*ߤ}bS}lr {lkt[+*o6CBȿ'~#?7͗[8^)> SNzr>gě9{+~i1r"kW+_}c=rM8k/]s'x/O reܰ 7FwE"pY/\{4I](t;D*;I[v~1po;kk^rۃW} e@ΗM ⸌8lUxۭy?˚g\.Ac%~a)]W?-d>Vo+خl,ݢJgPo g! OœxU+/C sM}oԼgүW>_~vz|ޡH9w@?ի/:M~p}/T=S(ߔM.V[R#^>Gq?q|G+W bgwҫ|88dˡ_SC Fav{ⷂc;x*>{ |{>Cco[BG 뚵 ]I=`|OqG7B)ۤˀG3eYJ4)M?o:N,e[nޚ_\%}ol=oU|nsG;]O2c^Jۦt*tdYv{4Վ1M!6l7͟<<_mD^tذ\_MYhG|sym`+9 /+_l$+~lcON“F;8eevi7Ӟ;2KF3C7]_w/s_oxV Gς7?yZ`i8k+R[N6n:'Ӿ˷X^)av `Yxs!.;+@|[pam*[-WOO{g! K> x R7 +I,;sq.ӮA݈_ '"S<xן=Q~sh?mT|*ZӛysHRo !.Ot}tmy=vMJo2ր ?ci 2Kq3u xF3/$I?/l甖PO -mľWR)}|N7Q\{GwrBs|.ʇ,~sfG2Sw}E}$F~M{+E{8Ȩ_/VP*l`Wd|H}u 0r>ӥᙏпct*uzfuɑnۄ7Qp)C+eԂW,D=GՏgiVV 豊F\x8§2b2t#SZC,!όU2eS:[A\]'O(??;as po7M+?JEȋ8{H+5^'_ǩҫ$}KCެSM@Zz4i)s8~ 8U0|?LX?z{HJ,IzkWNB=K*Ӹ:~%?0kp 6N[uF/+ p nwXqݽɯE>^wqh T?z\};8š-ogǰn|/tZF<][_vK~|Vp~O/?bOzdynQ>h@;/_{o凔;ui&75ܟצA|8w»=Y~0?[5Szo~z)[qG1f,1Njc}3~vN"v/K=n\g2Þ]v ~^%5#0^5[t'(cEf%_R_4w{};ױhx5 "\]{/O[7d"l$ov7|~XĵWbOX˘{8g[6v7}7.!{pW=y+DryY{| t%ēOP 4,>/ߓ|o::Qv&]rI~0V4{fp/߷_yi/#X ?.B+zy*pJ"^Dy|{4?tӄ[ifr*N>>pr GL^+u‡»WLi?Ήg艇ꉛS x _~}+L=t]Ny]E8(}.|bٽow`8oPo~`Qxu/qӳwPs]s? g{>8Oa<p?>ve;% \P = |o/ijնXホ񞩛&}Wʉ+>QC)j8ܪr2cO㾃7cTDkkW=:]A\Aco;XkhBQ_#%pEs[~s ?|CyYT)qvZb/;O_wirb0{|rJ")Jq5_sk䯷 A|T%('{c{x8x]npڒ'#]# 7>«us /D>N>oi+ޢp.G< (t%^]~[9tv|!+p|}|&u z{;Ti8t/&ҋ9g O.o ih+/ix͟7)iQ~OrʰvtCAhxuoZ*\VO6,G1_|^ӣyotgy~b*?PNOyˤ3 N{P]y |`.ă<•_Ne6o}NvןpsN|ⳕ2VqWk~U<8>:yi|}L;1 fl))PO64H?2r xv(W<̇;#f]+?Pr5:D7׃n~ӳy׈y~Or׏7S<1[R2/мH#E<#ܻ|[L>h~:!}WQjx;Q^O}O:׻8n}ʏn+8Or up|4fKE{\j vKmSj=y/ڭx~Orx͚J e]ItúUk![|u̳P?=,1{]&_HJU\/ #mY-& jdZ,M_[/>c?ʵȧ`E,.>刣xw7wszpXhc9x9dCtW?&=ǴFeKPZt=JxÕ]embXx?Tyٟe\Y7vF:jߢ7IwD'l >dΩEkƯCʆ#ko`*:<8ϟm'>gciJWRW2.JvU`3_fƧ& ?k4'gK`j΢}ԗ>huSME|}_q972^* nMVe~1ڸ}G*v6+eڹh߶K}//zN旵gI>MX+Xކ/c߾"3c :Q8>W| w] yL6-˾hT^u6qbtS7-Z^澋|ϸ*9cz ;mayuDcg&q7޿tۃ\nm|}ojsa_cџ3zJe7\gmvwduZK=TsA=J|:- vgAֆk{sr=oonq{-~Ѓ-݃vGwF0JhNiK_ڻ1á=LqMʋe+'H [n|w`>W]>}_pЃ^.w -|; .#QqVb 32Utp71:-oG+xu{?C e=_?Z}4OR\$x]:/u.2W5xsdGx!NGe&|w0c+݌]D0{[r-qTKn[Ʋ%E·祻O/F|=KQ^;d}!=]ߗkcL~sI'"By'W~fӳj'?=x/Q܋ 7Nmz<-p$נS•?0+fEiЛc't牯/&MW㔷4~ƤhYn˿_8F^%Cu~DP뵪vY$xZoSs{]9fz-u]kWrt5`Mw|@-]߀o/"87bծl<peX9y}[}O7{5-@ @ۥkh~a˫9,ƇO?0#'/1ԿSAxDr) 2*}ܨz:9Tk#ğƸ)p,wi渎|K/:pҖ#~Gp!Ro"7w0!_r<>x[_z?88crZI_j</?wsnW˿iN`㵂ٽï+ݛ[*aAח+OWXqT|VyΉT h\-?h**PnYrƭt/+%͇ z޻Wc GN~G.8lq5[*_`H|}\ƃ{r0"[1|SRWl3 agcJܗ]g2!8'$5YĭAH_5nD7w*|.! g:_ nƤx ^>6|vOϙqjYC~)Uk1)Bռbݓ8ypuLU~у>u=F_"Utk)f< Zx@%&gm(}۱rU{3OyyVˤ[8{凑|[rx_饙^n38k=пwv35]g<79soX2 ,bogTy?{_;q|Z|t8yU5̳o-?0NeZ2t0[S#orAj.Zý. NdeZ뢩KBֹQs ]A^ ;]min7⽮e߷|VڄnxKᚕ^%Vo;g vkZb72>P[~;J̌5D|̧d8,=sH;e@;nzďk״s!4o[#wu.cE:o0z5+\qn<_OG!CkOmbp l#aPx##bz{]ug_nvXUzltR$;߳Ulg]~|~ 6{c|g>Yq'c(ͫ⋊x@>s?rx8(?<m߄gw~GeP4-4 H۹nB{$ WƼQ1H(97c K 2ќoǒWK?`O9xϰ~n!'-{=j^Is{QB4SG[+Ec29̙W(`EZs؏.Ƈʋ)۪'V([z؅3pKQ\<_s_[_P922>W /IqÕ;Vy^nz5$lh#fIe`Y<_,S}%!'ӊ-{Xr鳇 Kqv뢡W:<oRyU/fp+ۺza_5IMq|xfs;/!%6l'ܐ3kλs#K)}a𽶶=U>7Cg_][fx~0Ƒl=U~]o#^-HΥd?K=t x4I1鯂xK1]#}Du@_~Nn=& 8}?zgx1Oby_FOQ駼O*ѭ9.#^&e ?M(|GRKy CY6d(Kvp.'y><#?3!5=? wۅ n.l7?O?-qC?|w:ӿּؕQ>U+ڼSYI\ﵟm.x}qo_gibcbWf&? i:\ύ1\BwI>Ovr&L{(\{/yp_Ur9mNBPw:c峂5]?WF|UYn5YIBXײgo4=B揭bg]^1r|V _Pf`Mǚm直2yΗۮJ+mxem6oq)?e=g Hz ̄έZuӾֶx\+j';כS{틲mHSsJ;ƭ+}lxo/=wᧅK\ыY^|ODߟI·>7 օ= /\=O$rvϼsy';&|'~~dk;zϮ,kOSrpgxx\r2'MRXN;ޥG _q2[8o, ]{ܖ?pݙxgq͇'MD5(gyUפ?j{m]_tSnϖupKOϗYyK_ RZpBߣOxfG1=~K\x^|Q⏷3/_DowQWw_Zy_rs [ݕ1GO;[Kdq_-s-ӏrd~O'MrsWX~Q:x?Pxq8k>='9Uy*3] >hV|]?VL =LvyW. L8*߀MO~׊\Mk-KnԚk5^MORެd忎?ܒ, ']z._o1Y;c9˻&K]„].ƙM#,}wDfjڱOcΧ= ?s;:wGl ~/ռS&sm<3j.ԛ&38}3YAWW$wYڣU_;sY iGMM{ q+/|=<-GakG農 p߾A;}m8깜] pfA5h kÏRl/]"m8.UW_<;_ 2A8:-Gg-3596hmJkE[)w.y†o[;&r9+'gJnR,|iZ>[%^I#;x+e Jcht)H罥':] U1~mzBYkJɮOG7quLФ[ FԂ3E7xOmS(Q.{qQZ,w$^ƸmbH{ >x|W(wˋF~!{Q;OB+/I-s?~~Ne(?G3w5T/îE,_fB^s7m_M~fy~WS6+y#pֱlV 7#e/zyz9D^z)m'x~Rٌ }Kk>Wm㌻xNh‡F](/egܠjm9wud|{HGѧyD=  ѼA%<>xQ_UBcR@ );G^B{?.ua|b4gY)_zOYk١fQʊZxmԸ_VhGjg4%8jn:dVt [>pxG]wUx=}Cᕧ|)8@񑅯Q8֓h>G)<0^MƈO>.>< p=~~嗡8Fy5:-箶}ێG}sycZ/[ußGlk7X7%ۮ}zw;p+uȟu?k]TH?n||(ȻsP2/b_3v<9P>4WކDgp#Y'sGc@ la6D<7h17S?J;t{WlhM>v>[k&|5$Ck䷺z]ߚ36_1PxTC_p^p@W}#:+ Lԣg)Cs>F I޻bw%uqa8TTg}Ȓc>蝷_m`Z۾8G.+Ni%/N>JBu1:!]8݁֎aXVNz&Y琫~8}=&3vP9^mzsgyEyw>b\z^[QŒ'0teO3%v>A+4.4 Z/‡'3Fvc3}=oϳC lM(^ǨOoM.O \mCt [$2PҏI8 ^~Ӈrc)ou޹;dgr6:2ߠ?oM5i_ҏ'c2޻?p}g.^N|M.[ȗ9|V/‡; ,'v~k?mlWq&r qߟVHRo ~fs+\5dH& ~ 1ݟuV~~/2^N''Y! gǻ<ֺ4n5/3̛;|}/͏:NZ7[צ[>iJwwbL~͍+O]*kء7G~L~J]ם~7ܴ[7C>~;CrSٚ[^vt)|i竭h6 >D3M=}dm-g<~DW}Ky=\Ov8ƛַ߷9q9v޾a{0Ev@\).}v:Slr[)[ܔNpwE-Oδxhn2̋v`Ә 4d?Ij81փݤ^6gV6񝸦 ]W~=ہq77côyQ,+ml~kR'ݖo_~s}Y?+Z~wߑK=8b^ft,C(_<?F3/f*/%˶z ױk>q☒룹>/->cO4+_vU փ_6).<^o5,]+Gg,ett쿵g\>L \nd?];룼% >Td|}L'(|.kc.x >wbyfQ޳Hy8"7e _uE&d辧f!7I̔k{ |7}Eˇ<'ʍqwC;O֨lJOs?rO8yY*Ċ/|M| ѡZվL>H9>/.z~w'q6LvoWүƧܳ]ٌ߷˷m})6ܗ5gr {/p@#^sYOˏz#jTLy,:I?53Y-DΑZ~i,8Fs}# M.;,kΜ/)~}uLYԓkr^ Sk:te+WkmS{rYɊQ1ѓ=fߪ1,hσqmVC,g#u82pnٯ~ͧZB}SؾFMvo-;87;|WS [kg%7 BJs. qv> `MxO2FMɣTGb˞5E5NwKxݒ^l9/y [qaxT͵s 8'9~|ixƞ7M[-a̵ܡ8w\dgs~w^$vhbk(e9e_|}Ovg]tOSnEy)Q<{M=g5yrWoZUwq|/7z|Ʃߜ=C~f$pyڇSY^yW}YvaYʋXy*z|7V o?~WSإv #n+Y*ݵW $y.~ a|~sn!+p ~%=|]C".Q'Y %=wXuΏ]. >UPjk\ G2~r?#i$8!s19/HKN:~S⪏NY6^j&_f{y_4v ;5Ԭ3M]!0;ߊՌbYMpC~ccgL F6Deg70u>hϳ'y//>yKFqRY|?yqLyR_c{\gȝ|ǏztvLV'2vǬ݈vݔ 17>|Qos߹ŧxxl|^-owsXziV)ozpP ,#tR_U{]txnO}_<!ܮUWSn;ۍxU?ߏ{  KW^n0glw]:9SO~cy_Vy }K|Pķ,S?Xz9.A>Mt?H{?^K9]Sq]$ޫtNUs~7ԟ.M­jUI`._#xǒ>׿n?sO腦OZ3ISuzgGa<<CܗIyKkMZw|Gq7 4<ւWs4E9*\-%׃o~M>FغSsִ4ӐOT}[k!?YeYv3G?Ԍ޲)Yy7qD?o3[o]KG_MC>=+룞;ެDKGG xqeګ<#yע{&rM9.ԋ\V>Ʊ_Oro3yG*?{1 - >P>K_Ki/U퍃n^E;<6c.|LmॲG#5~T"~虫71+@c {<\kg:moߗ~t.\7|Z׵ 5^^mVǬoڂJh>iն?N#EuBMςǛ/p~3?S*oV\/ >U-Sy5ER+0Nc] >.=w1˨r ck?ݨw]磼.-Ov~uQM˲yv7|r ln_=7p1_ڻ|ulJ*ח/ XKܬIܛz@zprjis|LvS6yqׁwcWґ oO 'gncb4)tVO{A~Og>Z6RaY'CGC+t/(j鳗ɗv*+)?Rod(s_8O8tU4XEH~Փ,V ]hx|֛#r뛺z7R̴oVwA~o & ϖYTƈOLnr˾UBT._'=> m|=y5O8l9|6^Gyd6dϞ;o8>5,S?~HÁ5k^մz2^rGJasU^΂L~:Sɝyd:Nn?e7=N'pq[4|Lc޼'`Z-;k(U q92v~ ./֗eyN+{ƗoPEwPU˫/0͏:xxv=t #74^!wdR^n?^' xg??)N}L/CÃ_ 럫b4> VnEx0A^x+p-/sRC/~t7\)hfEqݱۗK=;X_ZIydz\ʁʥq7?|*o9ʕ㻸%ͪpo[5Obq{u_h0'hU_omS͋oq'˛Gܔ׸x18qY_5A?rނ'7;]s{gmX=G|`>OЛ,Mz񦽨Ddw4FҞ4 6g\NyG=5 7E4_n>U76v5tQo&i;yvw0eUWWQf?qA6kSIq3ί?;R?WHV? }2~b((;D hB><+&ґ=IVL{c(V&|&kz8Va5fwo >nv_'NNO;8~oOwdvL^w&o;nn=M:N8~/tJoy7s%xת+ouv b|y[w.o9-*S>}x>OMTi4owwU'ڙC-3[b}M1ڝlڥkA6<޶Z'NnYeG{?qM+=w [j>|d盚 S1`(㶴=g*n zx\Ś6+Mpl:0 c{mx.[՞ ,#ߣ5󄫝 )4/FRăi'yl<7?# 3[ ~t_#T ݎ/Uy:e jijY!IcJ 89Ec勫9ŏ(>&zEAEn+oe9񾖊_4q0ON%.LW9JL-͒_l3sµ‹ s3}ι E\(uCș2 +x<ŭK8iǗ~˥s^!y #a 9MovNG8=QEE'kRnW?L?gv *ߑSi_E7_ٹsZy)򲛐Iek7q}v|x]aeLHF:;N /iXy:31۵?Dށ~=S|:>L r&~ozilW9C௭G?L^+k)&?|j^ ?O/m/Ϭ]8|>-P+?",FE#7Gt%)_0󙡼={tƂǭpv+Fn -S>w;i?9_fCI'\~26ٻ9]u۹ʇo/qtx$5H /4>8FRrS^q,𼭲_/]|~1A̷ztu:?k8r%<ƫ/7.|͍7%W(ܯ}5o)ơ30^EOw ?P&}"^$Q{|K25>4QAMh3G^ K^:C*ps_BHo~@|oL䋊>y>)Hנ7h2S>ԻtE)ohqS+녛y7X_⧅wwJ 0H<xpm ܱw:V긓}t1Osݭj*gk]y8欗ٰ_Gl:ww,0uzty^~de&Z"PGH.U=Oce#Dq.KR>|GҮM;:UJ{q*n(Ǖrx)-ɏtm=7+_a$\cTr+]o寛vҧkyttҫoeA-Ono~ks#l')|W bީ5Md>%V;) [t%l;koSםԶg^MsаnWSJڽ#W84;?:+7J<=]+70sp_ ˃vxf^'RD{8N+Kg55J|Ape&vL>!IbGG3. |vPt!^YnS X.=^8SqhWSݨ0,$̗%,;<8fVO8nNDZH\[iVG],Twò ˙.=|X7e1߲ܓWa<)]4fZ_{/4C.NzxWΝ#}=׹}iq">*Q_]9.xVlyL+ӥi)~f_ ٷ?410J')Jw6ҿ)+n`ʵ|Uj*/b,/_̆'ޱF|ux=à /Pr)8FAe,<\+j,qv5g@=Wwo{?_-,}tMՊSSC}4YjRa"U~e7ރ|4ߡ]`W:sh_]W:%g??z>Q U؍!l%~9XI|m9l;*qA߸|JgRuKb^*G{Z(cg^?(NW2N{eyܯ8E魷m|'YPއ]mKX_x GnVS\Y<o?kGWS5/gk /'J|5÷uN_rtypNppz>2 j~(tH\ Gp\~{Q+~s(n_>:Sq:|?%5x: :ggzR+ߘ|F.I5껔/J2x_L>76#oh+9>F{ۉn0vfoLM~HoBV2~\x?YV/Fy2Izg"b=\]0H#?IY邏{R߈>#w2{H3%gfF;虿){aƯg[)? i;Uֹ]mkЋ,o|c]~,Q\|M u&ti#β[EܤYs wn-*~n B'/zXy)T}ӣ'xNzNJgOrg/3_>F]{qyOسcGƢE*کx/C, 9x>8vO+慠_=Cm8IglWqn^W4sgxxvc_)Gzk/~վTţs>F♟ yxAN~@T8K\_CRm_,li+~#Do9^_Y~}[㉹w/ I=ʜ/S8Wq “Oxo;)nsM=nQ;SLi~ [؋ߧ ]+ߓ[N躭4ɯP/gyFz;_+a񔩵o?Ms0a샿+l_m 45?=SqwGe쟯備EReKXx^?W|uVfsV 1䚽'5{k_-:nOmN>.z7.U[.Ǐ p{?6\W3ǭ=vŇIR)ە|?܊2I| ϩg=f.]vџj¤-Ry7[5?&}\`w"]i߆ UCړQ"S|3FCp=ݖd7j?j!u.CLz|^݅ }|B~qICӐ~YsB>\f XAq(;8ӿym}N+.3bBnd9TnSW]'&ܟ;dp676.:FyR~(Go? މk;+Cҿ)$/8<<&wΰ\-'G=J+.~H8]\Bt&% 5Qoho^kk}ov}M>tLz|)wkyo7Hܘsv_޽ xT6ķiq)V @]:L2g3cE |Q~N (8) m_.v0eGv*;;wV|?O&Sw[?|TNk}49aB7G\EWRuM x *Mԣ]1;:/Wćw(Nf4Ne{N#0uҕUuOT]%]P[+[qҦ[G}&.'+k Ϸ@#x>%`|R.<{Jxi*8P xp'oډdg19pxSٯZyd?;Y[]|!shy5vM_sƂC~u$5ID!ʦ_خA8=3MW.4nZβ_%=ZďtxuG[y?Q'q?cނH:)vŕU|P|n957{yW\jܨrkwTQyJ~7Q~:ve'|g8mw*Q.ߗos}KL$?oT4a'CBYUȢ+^2o:(ʬӗ_T^V?3-KqZ'_ U/GǥS,a9Gq ^:RCVQz+~t":.'\*E?7\Z6=2VqIY}pvpyͥ5ؚW{>uO]ǯD{/״_~T oW9sGg}XG]B9^ ǹ=!!~=/ e':"k]P*{{_*T`/ }SqdiY>HUCghk 6^C{д4 .5~G>~Ď<>q ;lI+Q|l,&7xڲ<[v~-D$+0EyǼ_+vy*] /<[!ln".[c&F~'Ѭ='?hnޜ-}Tvo/TEwK; /[%=4/CW ~rN$sa7[<|:Cwka.\I%BNv5ehH|vMHݸgyu)›{Omu ~.|;| Ts]VײhJGc~]e9-eK_TkTC~):-xu:;s`w=wZ΢M:_iQ=M]{t*3{txn)>*s;o.]-wN=Ww4\b ϧvS;HgYs8r|Q_Va^=]ٔ#eڇmΘ)H6H)7},|QF CRogLx+Sŕg~7'wq=%(5߭LptFx;/8q{c"l_;'I=M/Z/|eM"(}װ)3NʭRn7;J~/Cx//}Z!gO !]/^& Qm胔Q 92ѓUV/^Mu;A7Wơ"B.m77E8Q_vɮGWYEn9L^θ[m<۰p~35M<9]y3w%~U[@0l϶{n+"n>|:wu>?k{wմ% Osku>Bey:/'tEŸpsmtmx-Z7ko9o{gMxh?$9@}p dBV*:Q( N0Mq9n#zuiSz?#K㓚ެ|7;lWt/wxP>t["oʽv8ُy.^:MqusK%&.a;kҋҲXJr+k [9(kee(g Y.0lW,]UFL|Nʴ V@-uz*dp(sţ~ܹI-^>kDZݠŴvv).1cm/{G*(N>_F+YoeMvx_W ʜ5~(fk nr|Yy+A8V:Q+n]篜/G>U$a|#gwhv)s8h[˩*_mmMP>.]n}]|SgҦgxJ%2xy3.Q:5miC54?%!Z}kh^{L.>ܶXY:ޱ(Oq 6+#|ؐ!]:R8_fj5˗ G&z1ǩ^z\u?sͯ zjb8Σ›ψMz;rV5݋u.]AۯdM–ٿTM;zE׭9R5>hUovV[中U:Xoۮ}^!ZNxM}O;Ѿ]ϳMQ.]wSOxm1yOs?un/G; c}?.}kvs}{Is(Pf_r$2]3ٺ2]qR+exO*}~KkeH%~/ڊrVы=Idbtց볊yBy³=w}NGx/Q3oXwDb"NS{_O6hqHt4^}D7b+JEg%d u=@=,Syvڢ ,gh<&f= O ߓ'tt.:/3mK (Cµ 7Sqo{Gs70~^#߾@Aw|:_S6\~_nUYe9y[^G9e: v<]CM1on #XS]GW3_\s*oN~|tkB"Kekn+#|X'x-U|C9vMwT緮%L~Xk>+lޯi:u4 .jhP^vSᩎ\$ s9/Oƿ_HZt=1:{i~|#]+*fr^{RuvOxX׽mt%lWxT,,A: NOW .V "|!Fir(G4nHםnߖrb&e}Sy tQ^Ov~1 j"]);E,+m >3Ask~ ~ܤ,_Xt{wƿ><ƢX_k<2dJsTc1\|H/J?ǝ\H3(=>Un ;ٯԏ~!\?vw.fQVߏ״Ѹnu:`>Rۿ:aIyؾ 秬Z|V ^#[5OT{xExrnx~U_6u T?ǰG~ʼn5kyS?ZuUY%qٮGㄞU)|kC/E`Jw;Pؔ} 9ty&qW.?_o|Η8!|~3Sשv0A:nN_' bC' fr܂K^2cs%^?_١RrWLMc6>tX./w"]w&xwS[`\׽=}(wFDav~G|U\>ݫzVq[k^neNu?m$1]v-W|J]#iLǼsޢ#~xv˶m7}|5(ߟ۾1\ޱ>Ew|;GG>}Fkpu5ۑ |p:6Ι׹\#|))_n`^sFˊxVURpz)﹣TmЎ'{OIzBϩSCqG^q{.tm?K#t|V _>u-hu+ǵ}p'hA)wiCy ; Brׇ/ +_|Wڥ>cҢiP\v9ǯNx=/(k~_yըAij/>:vj !S/|ҨWqtMz~WkW~T_q:Jզ/L{%)SKE6W;r34ϱD%>&_y:.Pr_\\х.||WV{Η5>oP|l#imslTҘk.ޡ't#TRoU\O]N#5XRq/=}3T2~WߨyU[Y,?v$5N]8~⃻Nk_⑎sܮK9n?֎xr 9t^;y;qswmNs*-Lm ҅!vT 35TJ.ng4mBslodW4%s=Mj^ Nhsksn.nO#}xH™z˅++oRŎ0p7oܩ휯1 _Cv^99F_W^~ԫ:u$W ~qg^/LOkYϩ5^zw8^uŸ Ioߚ2F8$>xA9l:\<\:u¹9_潛?ྚodK[=YmcGo'V|FdN'ܿWrt/z|I3Nzjuߵ~u~%_j4O]v^{i(i:۩GO>Tn~clw>ksj8Y%z?/([g ʇM6ۗ뽕<ۥ(eƧT^u\GSO5|~Ezf'>\P_ wRɚ_]vkOsMmµ[kZߵm7k66[?>eDaMZ7Ukxg-3%}. j~+inB~j5z9xRkaٸƿyM⑛md}Ö){6ԞjW;?]*~vjY뺌ԟwIֵve]Go`wTS w^<sZ^图Fqt?] ൮8t]v~ZZvżzy{x@M2]gLW]a(S6ZBqNؕ«p#;nX33ڤh-n]uNA/݉My|ZnZH*sƟ'OJ!}0p'DbS`}>s\O]k[sqt@zDypK+ij=6}siqHͷ6{j&?µ5mS^Wh!׽ۉvڮUQit]GM:1:V]'.@yX[g'=zs!wB8}oJ,[咝lcyG?G]tU:bg{ SORPW گ)]:h7 xG YoU߰R*UTz-wk=o{YߑtW}vX]ٿSzN۝uOOgrg'UՏCg1}t_1C otiw?nۥk~^ݗN:5n^+^>qt[븍u?=tm_}zJֽn۬xfk՟z҃9NWȿQqw>b9~wʞ\G#*ѰEgk; uZָFunÓ:/|4Tu ߣ{%7m_/}L yV8'{z48N>yz/UI?PB8mKį~Mqds%*)_!^"xn±=yOVwptOϫ12Ut@S=GyP<}t%KH[E;(KMsEUQՊ/I{oT'I-\|"jF/R6iߤY8Y#-Ee-ꯒ%meV}Xq;4x;{ڽNŽvbU]Z8.滾SJ͟uvG˗zG]}ߏ]RM)αyli' 6f =6v=>:6nqLcNt'6G r/ۏWھG+PWoѣp-&t=}폍ʵYz#jd~.l{>每#ѝh}6?!0ёy?wu Wt%ߺ:ஊ+cka:C;ccGCqbh}tTZQ!$c/$K򻯽wwd_tD ` VLb󹙱dNvݳ˾Yh=_ԿKEUvۉu1^+_~uw[?E78B;wmwrijG'X1󗰯nK8rϤ'0yo{(gboiuG'G6~#tx闸 ,m{]r}}~7v3nǞ((6dhvQo)r>@{w3?3w|K/_}@`3W&R~z{S_ 5ϲa7YƾP=_¾1tb13xॄwku7s_A1 wnG#o7?|NwNrC)§]r8O'{E_o__z3]\A|[#g[s.b-br/bxg7 U7Ι* ?~ }]uGz~ϐ_F8V.9K8E>W֍T-Wл?'nGz:pKd7j;~gkHC}Rkynz3s>JJv‡?])OlFR|M|_ir[CiV ^ٔ6׌2yF67̯޵lo 읛67]^s;(fziha~:^pøV  8C]) Xs@ fkS(0lf^b3'&&ϟ"gLWpoy d?P/ُW`OC}^>b d%qg&79}ReY:^jShI}"Z3{%,~=};f+=O#Pwn\nG9]s= ȅ?YWW 4}6ѻH=Cm\/c>83ͯ?Veȟ t QهuwhNvYO鯟D;hsO*㮻$-8Qw~c_OYp9^OLsZB;z\6|@vG>R/+VJ݋vzø{Q=s9볂O^]|ź褽2r㬷Gџ0GX?XWͬÃ{>~ϾEצYo&uuk+`0čм_t-I5]:¼ߠ1r~Mc#qg0ޗfk|[N=m5(쨧ݍΣ]ˠ|,Ųo7ʼ_H< DOTWD9 }ʧCPeQHc'I?$"zG7*)*8cP׊8~ {Pΰ~\e"gBq#Q"d.ZD\dхؙ\?O>@4qcG.yuN]plot3D/data/Oxsat.rda0000644000176200001440000334717412017165604014143 0ustar liggesusers7zXZi"6!X])TW"nRʟX^#&'ƯNM^҅qmA~*klE978=(3i93,E0Oo_?!{M P>`$ٟ(QF2Lqt >M9Ȕ3R21DY:-|+%t_팃 ,)Ĩ :,V#(j _4/>#|Rvi9U+ oX|?~0*h;ʂ? խiruFUQEFk5hɥy55]I)(?)r{,hD-(ojIR½41[+V%qSAf?ËLQmğM,} /ӠM#oV=ܰqje8*xOz[S%{AE^dL/ J܇ E (H=uv{h <'n&3!l!ệk"j ވHBxU;6EZN~iȢ5֎UH2bwul1{, Bpn@n,ч Z/gG? Nr,7r5k$1|fèWR`v]-cƭ{&GJ ΞsU̎m u@kl.S`I2h إ>*?L=FBͲQr&(blTXiF@yz10Uh>5&O⠺"Z5߉zO;(Y:t1·<ǐI.Pcħ F:粈 U2@( _|XGY+V¥bDcFwe&ixzlsXWxvy0(鲕R,==p=]xDMt7.@lĭ I^>9,w3/'/amhzPd-b/kj>dvDV?h)FDle>Ԩd\ueՎڊ93ovO W7t)5gRoqPxe|)^*g0rK?koR&ht! /ݠw~ Mvi,'}zֆ"ɼY;JqN> ?9WXu2A] y#!?(u~>n+aEng ظW?ffb>L!ִYhs%A5J( cmqO#Xc{E$B]:͡FGE)פîp΍F>ҦOyq۪rMYp:^eq(CRY#A!NW <&tC2ilvdaV6/Rh*SQ%V~8 Œ/MM* ;@XJ{mA!=ȗƶG7iGm!%K"r@uN'Z,TOn48Uڬ},cnqxi~ûN*9@s#jwQ\ߊ/ #|gOwA3X57ekݝ\2 @LS 6k4(k*tN+G`cdp̉vЙ"ʅC]:8۲:)n-<@И BruO !ee<U 2ޛ F Jm^..ӧʽ(ϛ'ӚF*o {M{a^:M H+qR:+Q+*{m'FqՃ !n<2&)e{_Yu8&k˄#G/4tf a2jڸp SH#ȍ@CuP4S4;ΰFT;(X؞#r*7d;#uk>ʑ T ٍUE丙)a6qGJ`vE,lٕ4t t~xg1w_W"N+޻`?̉W%2UoD\J촑Gj 43MZi w[mױm˿Z6 kζ|ub՚cvlp艓' š[<ծpҾ# }ޗ'mE@ɿϱ_/8cXCLbͣݴMy CSL90|O0s,3:x N<(ctʼngN0F{vnץb*aaD]"C4[(E\эz# .`̦B̿<5LY驟mPC_7vxBmaZ[(WG]Ǔ 0lO5ii$!WP!KR+ﭚMA*!ሒ+Huz&yC:DhKQ|.]CO$3H: ԡ=DO[_YK8e wQԷQhFe)xV>M6u9hqX@Bt_8p/BΏ \;~n{)L7J(Oj#ktB+w"\t;b1"t҈ ˗[Ơ9"`<l}Jjm\)#dnO0*T@Cړqp垖 #Fa(憮lav?#WUh}È: Fj'clp(#>AMBY\(ɼeRבjDjO8"6;q{P%E%]ºe+ R]ΐ]"{vzߏGi\+ymv[(u *C}JJ'2PGC2À&74k@ "R j,o J.Wj,Y\f`םBH: [2% 2awK7&6ht†\sؾȄ#g)`x'P=(?4%LSm|ۋ6%)4O|DEh53)a^̞W2V4lO|"+}4bWh{ǥRHp ̞nt0 W̐NQUFk7m'zQ\/鄲m_nϩAҠ7pmBznEe2SOEC\𳳚0Bw@m.>14ٳ]:nw/ tL#'L̕nOH>`5vg 4VƤX},U7.t6ASo*$r9qAZ?)D =OLB,, R7]og*"D:( (nWf\냀KЃ AZGi`T^׆њ"pH6e7 % CW;@kqڨȦYtDx0N{8^6vj^U5Xn=rnE8$!{:V7xێ/Po3D[.1TyNx5]na 8o4mho7ő)F]^&fn 'M[a( @^ +ajʄBKy,|Rjt @m~#FP.|u@7 4e" LHRWDM֓_[aU@]͍w3<0AJ)זZRh(/*(i@sqI|83F},{_ x5(x#7d7b[xG>SƍSz*Xhu8|ȝ)z=(#=wSAՕ =0-WK9uH1E8q ;#p~\ti2q*i+"4G1ML!=z~ӈx?9#Uv,KZ`<\g[V$Y?c~ P1]U`YIu*JARO* }tL܀{MƤ*sg5Wj GP +t#-_jIŀ 0FX&uCa -Bs9o Jj GFm>ݍ|)aM/VJ+=@MOܲrqO-K[x1ƲP4/XEk h+1?E ֳJ/ E*+}51vs_N=VۘT0Ibo/r9&,3W{&Зk eN BGgFHw`Mlhf~coIO*!tJ`~/rB0ǾP7u)@# ۄ6JeD"[s ֻ`_@̻"Jam`%~INq|p_ΰ Tt:K$U'K$R;t#QEХ|T˫;&4 V}nA!.Dաj>"/j8)lg$U[YY2PhΧ:~*N$SD:SEIKAaVc=R&Y3!5) d@ `i4xWw=AgsWJj!/V.cbk8e,3zM'%M(*F16抗=N@֌%W.훺pD=<"^9ܧK{8O!7%ɺC=UqeLٝ7KaXTCfcEp Ǖ謣O,뫗~ Xgۺ7s։gI!ۀuR"PN._E[ƫ/̟+sK+>ibd?u>htWYW7O+tG\ ?gy{EUڙAαR?'Y|f/SNfKBKXڣ,BI:teq>QIz!̼hV颉01( ҙ 1R61?J6}DMQ7XK*yeHb E&]j}f454EG$ذc$cWWh: gj)F/`3|b lB8t2EsSh搷U?MB4@NkBs] pR/y:wMY;!,h%'J9ZaܽUhB$s Z-7!kx]0,;7Rck &((ik&OY1T itWm|n,,K@Ò;/F%Ν1YPhE>dI; ,Xx[" 7NUfzm:(VĊ|4yζ/?pf4~>۴Y$W oWO6$d_=xq+ -0ľl&&M(,*lk};^O@ra'D%R6u?(+TfaplM}*YO# 38TBh`NYw ho1 __m 6 ;T㧕3Bw`'qGGGi<s!d&ƎQ>?9y 'a)dB.{X} h-M@ƛ\"e&L(G5!7YDiIg܇?0-}f@hx1EgxH^oȕ8JѨ4U*m̍:ovJaցQ8QcZȠ:.7IHPV Z pj?nX $nxo&cCSu@>oᾤ|,}47e LSiw}1"{}mki^B9ȡxv T#FQiaXscS!Lsjvцqi˃M- ɥ#ѱF\a$"se4Z< EtdO_$ow%0){Z`GA&^TPwʡ頥r-$]"bޗ Um 3Fq|>dgI}VOjX)(Vߔk|gmP@z$ځ9D>LVYDc7ʺuWiBX"+NGW R~< Ew2ƛd!;$֢ʴ:dfFՈ%6u=Lx<9+.Dln{g]NTi (}8AK:5Q=;G|4{rvqN95(PU^t2C)[hxn")s_ "'3I Y8%BCQkhq-V} FsA ʸ4 gs"P\QZ2:ܴ[1dY=˥Zs7@5[;VP./DOFj99t4gsTD1ZP,]OA/trrP7TNMY .m$R0k=ΏZ728>SY/)7f@dps`8#h>o# *c-l< 0 ߅cD!;nĂk1i Z:-#H&j$s>11iyF~*;2[t8Zl~,3Ny ܆0Řb!8n(J49f\CT&+f YxK/Ay/tCgM@KW~#hHAJJbR9E͖ b% -m|*;z5%TS f~ '{He6gBRCn1Nr];bNG_%X!%V4#_>y<_JWq|,,굅@.bG-= muaW {% r|?,qȯK Q[./mس0D^.9&Dކg_[g1 nI4( Zer:|k+tGK'8dOAeߩ٩yd[o}13!E4YDzԎ݌Ƴf+bdz4K,1rOyQHvvi3ź%?xɻA 2\+F,ΚwϬL-$} ~æEe,{_hضF,Sq_ю?, ,ȵvJ&9IT}9Gn҇!Ur]$v+H)su+{$~ W?o܌(Qz#ZĜ?gmD-R|8$kp̃>*d/s;W.*| 1m2~8y$#Oscox8p#" uj._6 Z ];HqvV߲v r\/ ;B0>Z,7B"hh-81*Ρ,|"$@/-AoL؇46*kzG's׺o| z/n*^!./gPĬ7#[:hFL=%xyKz(iSE,;eC-‹ G7|p*?-h~*D W2*3 L^;F %sІTZO_`uUjv@;댹$677]99/OW焟U@MT!:5>N kS9pM38 :W |F\ؼ}zU=褹yγUzpJn~iWڔ9g,8*J;܍8MtRia<~ QZ)b:Gls {;qT|R>?[LϷ5H"-_P=w6nOS6[ $pa[nȪ^ͷ]ƛ0' ¡mvA-q: *I@G*.5C6[e.Z/yDJye'BHv2bt 7h! 4x!E* NVACBX= $ }Ux*RěrIPM?ښq .JwdX!Naq|V "= ꥹM~lG;-&5n2hbͤ#sCk^*a#Qu%5Nt`KGs'Oi/L~(:uxKUռ#충+ BBѤ 帯hjM}1-YD7'N#yٝiBH\k;G/MXNVن%b,bڟtAw ,i~'Rm^,R,klT!)&uD#Rp)!;Pcւ _~hxKW&$Vd-X>R44wW獄E(7` al+!@ⶅf7>;@[aSB}WͺwOtQ԰s:m9i5$@BCI1 =Ȋ[a\GAKb>Qp[Tߺdtla?F #$͊^/z[= ){)4-|ݏ>[8vJP;մA5?xε8Y暥?.^ 5Ezљ- )Y/(n[+¯BOs.lΫ>r] [E=%N)`I9_ _3>Q]Tݢ;LG!{ f<2rXY #Wbw gXrfèZ`y G/'<[p'X!nYx~FM2"Iq8Vg4+ydBnhy;aÝjsZ {>mT5K[ap/uؙedI 芇BwjCa>?~iY "Q"k1]SilF7xjF̈k)~a" }h4Ug`:MTem]`;?fAe>\Qfb,ELA`lGXx;vj'S#(ͦbIbo5Ep1r-R i ؃+4Ah~.~b#[! \?wy⊃r0sN&3Rm44m,8ys?jc;_YesqW]O+(Wz3nWko6cݬ6kBRe BFCz'?10(Z:7㶬h1Wh7(`@as'\]%\EZZuL*܎"ќ *7dB\KsuHWp 5;\s{xSz=Zse%5p=wi:ɦ=ǎiK"QowJp3X؃8Η>e] +.\) :r 1ko@Wٲ^>ǥk`YG*mS7 o̲[8䔘Ađ~] BeY0IST/HJ${0_E\:E.22~$,G2fv4ჀE~Hޒ: &,79uɳ <4jFGRS'׉Dzσ"Ǩ$TW颳 cƻj?Jy>)/B+@Kv w@`>U}q@";np3j3P&ZSpf#j{PÅrg/S7L0_6f6df-Ɩ/ K4ȍf%սXd}H0c5G$82i<`ck \}d!D ۽Tcw y u]>=:#f6 Ax N лtabAЄT0yD!/WՉhXhMu&с"VLߞ|p֤ŇaS5ia}6: @i]SMqQK#PC Bã3KlqNު/pT@?`wwذ?o:5g/oRFhha)6 *۹T l<Ãe:7/)K_)VWضN3KR|]8nִH2 0YR@Q7.^5͗  ^{a,/;[d\t9(o0nЁl0*Qm)S%nQ@2[Z}Q 6PHl uuO *BBw I5좼+g}3+٩!Jq$ ~H8 9 sM Y2$c,HCӔ`s9ce3 `R՜kwKb+6*pޝg0` K d0g 1"gqӸw\q6+W'b-D?hRǣ{"6{$ON>E\؍^ "6)KME͔{i˝lCX|K,jǕ]N=*l[ FeGAҼ$Htgf]t^ù ͏FKΝ:׸Hw2:c ,t1WfBS=$a=H3)Ѡ͙N*@ȋgQp[4,[T+szE,>~ȂnMxzY ͊f^Loui03"c㸄Dž7/~=xV||nepةQ?(.ִe4?ER2U%ƣ}uPc̞|tؓpǰPޛzÈw'[g Ow+%M[Ap-ÿ5kmAlETkby#j 26ΘCqu'RˁusޕiQI'ZDCir! qIz[AƫtZhk f8Fڋ@^6P̤/!pt6($µNIUo`[N~0ƕm>N\VM@f%iyB4 LXz[|ɹ4ېd>:-KwqU:$b(ЁBݶm%_ jo#6@:fӾp)~N7ح"sk#]tuRo2iZu nLѪO\&j~E?JC퇄N9 yi#tܢH vG;nr=K2|Yvu9~-WS]r3_& HPI}&I5I7a ܁̈́M_X~7(-T83^ l.0:X$G7"0gh0.S5=2\xb7q'W]~m," `ַcsy7/ Vc2 \(iꃱ׊. rVG%9q+c"xlD7PS<Gh$R68kیr`j]~WtD쉡띡I?!)&0Y0y{Fr:9!xץe&[:t@a-_1`3O[u_LEcT`<CŎTso@;7Kgi6VĊ,Y4 2V %8].]&FnH^mpkī5MB>B $}M^ѓ91" {&;  6y*S#/E7\>֟~CBGcOo-1XNً:OUjUC[ʼn>ߤ\O?'B8 '*L@m\Z_eIQY,g!Px"b+W 9ճ#20/Lz:ǖgԠxyŐaJT>o(ɑڍ%GQ8QSF?γPƍ|bm鿎I~?pfK!k[zL/'<x!5Q>lAbǍ sϒWU}>0~7B۸ 5:.ۣU6xVQo7MBfѦ\Ж 9)4!yTS<0uC~=0MEOWny7q]&w-SۢK;'=d<~4&ɷɑl["O$tG6Y bM-<Ț4L'= v.^bߒa lOX"EbLr jo_lI6p 8–+QϻL(_*|VNUޟtIC2M"gb1}=2%~V꘿TSƵކFr'¡/'QIsLaII%)][$XP{i!mžޫJsp ?tG~BۇuL!hu-w6~wqJ4y0ŭG]y1 #vfEzS$t 'D6L0t?^~y2p-G/ ʥuԘI_ =`2|$ǸJwaɃ[V?ZE1#A{^x au.ʾk]rNzαgϺD1pMO yN4ܝKPVin$;8kcVҢE/_* >*$8؜ߑ4$BN K$.Kv]ڄ!3<'O,|Η龯(Q7oC8/օǪr{B2]O=K׭0w=NТIhD nξ=4KS3M/9 xJ ,( ic7gƳ6m9<5K8LX yх氎 3Dq# B_}[V*&qsd*p2;5ގ4FqW n.6vI^$ L €D3-Uq.KE.!@//XF;,uov|`>_Iy~$ZS2pò z?7 P+&'d L?@u_q3"(/_q`8GNg7&$0",KP ]fBFB&'{ϫka|u)9(Y; ~_ظFVkd>:6ԨUdDCbvsY5^cgG#Q|И@sʁUhWqݑ|ʣJ .7eal?*,}SxT!l ,ʌuI!6{ қ~׶B͉(;a'RaH烜:_dw\)~WY'.7"xݧq&:ႬׅKBO6~2bL&dF!E|""`[yY;2|^쁻#W&LW>| FK~sF/Hߘ=PSyW֔"?ewFV~Xduk!O6+, œ5sсQ$ۗk#2W[lxF (D 퍝ܸEjg&" u'WӗP<)sP=i2 {Ȏo-?k%[l2iASgg]y9( WZNb[j`f'o,9>4sAdhC#u1|@Ƙm 7 3:@)m]EsHiv\N'|/B&;^SmdqmGݍcMΚz\Aha:o6ݾ"Mvjݸ?ѵЂ_@p4l}uZ W/'eNf2̕ Y[(QֈL\&O&B'L}n\L.ہ /tkX+(E~E%E!ȓ50J YosgG^(mR|; WD\b3 Q>!%t1)?TZKZ|ki4_q(\m[ ه1qx *SZnדLO Dfm;iWUG kd?0H*}a卶uGkBLe}RJc:+'NÔa#2 w1.ICVb &?}GUZeGfߪp^b!|ҽ%z[~0t"IKN"ZшɐTo;47\?'8/d)>!-qQyO}A93zGdKf>v0an\eFnZXxO6BWeX>EƘn^r-*tU͕q9=lt>{NJ Tmw𨠙1v2FGOs(/p=`J&}:)}6&i%k/-P5rrNܺ)E⃠m}Awlj&\=t`wPz#@M}G\[Ų2<{X."-.Qռ۝r80 @%QTߩg+>,-@r\a `Z_:Ȼ.$r0P i ̯ԉ6#Y]s e|yQj3X" n"H1iY!5('Aq;(Ҁkܼ6dca(7NN b3G"w`6L@*},8٬=j\__7džέ`0y |!K,p0OaO@ -)]i_lI{[J}>Nέq-㥷AnWOWrgXMs<F˫-?4f@Q [yxaݣ`XEgGxkxDS,&kS}51jKmFyc=5EXLnJ_IjJ-n(cJO [MiRݴ}0ttU 1G@o a=nzvh^W7ia HN;^ M}C9GM?MO$-MVr)jpƥv@ (M}"4(I ' 5O$ ǯ)`1gV^A&#H(mL؂ޢlChj0^L”#bsY-Ô#7~|7 ijEvh)+RJ_=kh.Uy )Aj @D>'riak߱ȇd-g&U ?!<=LSl(HOCX@К3B/JKu@Q1Hז>bG[UJ&@nW?8^q~Le^M*er~KdfU&f) 4CUqnpӓ9da ‹DEV n\JWJc&J5wcR+4A _,PtUۦ/}ni-Jb)0KB2冺`vΰ+ћ*k8,ϭ,b e)Lne/2؊eÆyx'`4 s)g+'ERȫK9.nRҟm>7-R.c[C~ȴ'dQq;#&R`XF!t-nv Ecۑ`] -E2aB! /-2"3mH_"9 f{KI}?sN$g 2OP1%/`q˔3i EkA}+f:Lx'cư `3ֿe~u6U8mݯL"Tط$'b=L9}"0F7b}$(E(5u}}w?X#de,Bza60{[1Td+61ݐtȒH@(m/yUExK0R<$>[˳qO!Yb !hSq*=;j6cdwᏈ GdJQuh~Fp6׀ $Οg`!_TH' zO,`wQU`rƬC<{=:]țb(9C1 _8d8\ULi>A*Cڈ!oWעȢ]6t+[%~yC.lw3Ms-5czm.#Tg|Dj5eYڽ|EWzl$؂Qyx%Kj[=L V(*{6gT 3ioa֠ YT$NRV<4l "X!`؉X :uIPt8Վܓ,ԯm-3 B@HA 8U SҚ:0Pf $3<5$Vc)) d/,#)%WI+2GЮ}MyVmq֭St0sCV T[޺^u7!?Bskլ|bo RA.IՐaS*Zy-- g'FSD rhB`1U|"&<ޣx痣 ePb`g ۊSYqY{1n32;y{PIPr>i[(.}asy jE¦ A8ؔJD΀ݿmЇNe#;o4?}0a˃]ܷ.eե"E,dU5' Vwj'BTwI$4" }~1{ |V#(=_,6( (C iѧ$l?5$j5v:\=PXspOil~΂2r_ӹE&X7Q:JpmKiB/t,T9C_gI[o¥kiǩD >m~G`6aem5 }q0[-X"_ߥn CpΣmog:5Зά/ޱGBjH񥍏jo^go* o6:/eҐqJ8\ʃf$㜹߁Y'ӛ εmf-?heFKCB4k3-l1@F}fi)-:<7;9oN?M7HhlQ⡫×43/A?V9vtrbV`bp QF vO}ZR2"4-[Ao8Ώ$"{:_,{Au ^,R쪡XT.vF{X4 Z8(ƯKjYo.^%p3dr:A2%$R=hS|b+f܈~jqBt3Ogŧ5ğ͇<-W9YxQ5 k3AфqkHiP#`K>oHcL"rDjGCHet]g;WEZw AgL+"8)a]~iu9|NVR2YlBxSx吝ufN$\>@"P42V;T"oB@0ܭ-85! T6EO5՝72Αtt$r}ѿM'<.*jXVeR}dJ?^ru$l49؍C9Hx:ΟCS%d_O_F6رSjQ[. ^Gw~ĘgN Y5}Zs%tI=TؚE <}PvLR^3ܦr`n!3mO<}wLɃA@ UlQ9q^8}@3r7ccv[78FGn g[g^dvzLO"GXNQ߂p6 PD+{߄70!H>{ k4Y>u2ujoN O* q?3QyK]f pe-80d&Lb<]h?y6,/`)I_Iھ`r5Sz¿J.#KODyλqʍ=Lۚ;_QZ *퓝@+gA߲hujˏ%zjSB%ފS>Ƣqt5u%4*&5MnXl",9WV4OX';b"t,,"=P1oST$0\rv^g@ә))ÞX.I墋 /00(khnvaBt\oiIlSo@WSszT6)u݄tN%w]2 |]xd_7'|Vfzh4ir-79UFjcB.-)7]Ee \P3ǥ)ѐ9 CR囫^qf:`GHDd8Uu|RTL+- =y2!BSʢ)O[>ALL9wpmhXȒ s8TQlFh1-E!Pj`q0!gH '$ 5ɠ0pJxkqOTƙ&[e7NՆqϕpQ^xCDzYݷ1 _سɁL6_%m@ pQU>f91fjS1@.<twԬ'BXিZzdGL\pgQgڠդ7QF},.-p9s U7"IfJG_ ;fTȾ1|嵾jvߙ:Ȇ,Ձj]K]q_!#J (ulG1_w%eRnN!G1ya?z%+Fq`ݝ*iр>8Zŗyt^kOLX݋Z-C|N,ⸯɸT'lTBt3c6&VV(ir6K0nm'6(ߐVi%jL&^W[OݾsŇ 02~ٷ?ѱعM"]8A6} G%1͝($w-J̪R%#sˈ@C x@1㟻VX3RTk- \BH]X-g^Xg Da-o$D/#_߾ /F~F?;{TE8UaC Vb+"➳z1NѮOܛhU6#c1nDNALhI=h"\s]+E#C3 \9F:eS 3mln:PVd.fa-`N2 AMܧZFO:'o*tn}y,u@;P\,_` ;`)๵@:_}Y`*ZA֟y GjղK(}GK1Htףe~ē~u^A )/5Eù8McFQY{k.ȀX[HpTWq6Al*t7D(@Iy<"ٔs[ɹV*CɹH;9-AR?mq+ B*$>JqKkTէFI4] sN T 8MgaRzZkNp?Trqն;1wɃ !cvrgY~쵒?5s:wqC2MLuF#Lqɹ 5^,i]<.A0T~gTfDSP 2Wl1D{I"%ɰߕ6X/!! P>9_E31(noSJ*՝ߜ-5܅2E}DS'XZW,,3gչ׉͈Kaj{I4Y7H@FJ @/ v}/凴JI±-E5t>q'rz-*ΩXak%<'Ur,C,x}Nr_ yP76DT`淍]"S+Jn+V Kw"RB~ SWJrʐs`Zּ;%+gfjgچUٻz=,/R%RP%zj%ߛ" *erNnƦ׽(N & CC+\BgWv{=hDqq0䔑5a~1X :? Gn7PpuPIN{lϛ7$5UyiLq~ L>ƅpLI:5I>wUbYႲ5ؤW)Hh׏ gDFl`γ T3C >J";L!Hs 4Yˈ{R"7M{(!ݟ/P]jwjIH^"K4r>9A䳍?ˌ\ʇd/sm6E՞u20$xENS J1ubrChgu ^AHt)X 4`2P5^k?R&ڎ)'_"ɯg!pTwhb/9JOy gF5;%YճߊI<]BRiǪkhNnaGY5<@Hskh լ9wqzT.n:U\0YČ3gbmx |DW{NWr͊lO6^G@97'nga;孾)ts< 5M$b(;LWuI(hT$m?N떟PFH~%PdbVxKD^cGm=e!ԂDc2LJt( 8ZM¢EG{em4-gu>雺3 31E UojA^jbbjgXD> pgJRĥmuޟ[H%+ϵYڞ2jJb~bվXEp.nGx< ?%"E9{%vO'筰__[͗ݓH!/Z@ Ez𳂈+~&f산]\ӑVOMI ZӈF~OԱ6zEG" E*1-Ф-ND;"@M _PkL|[b` 5WI=6%PI}}3](})K#7c؏a%HRGzM7TвA՗l5=%l{"S;Pd8"OnIHH1ƆaCgZn*cb„oB=h>KN_Ҡ0&2mZ34h&`% *-:|š[XQ־;\p+;r)bw Ealt$hi`\@GWsk(w9Ӣio2}S^Y?6IAMr/^$$j65ظ1 CַVq6r[( y#~jb@z"P G?o>\Iȳ4<<+M/iz[^A?ΔX4޶BE yuԄ,XX/d6siE̿~3\ (կiZQ $WWb͙F&MWdݚ $^Y?,= l:j|\Z"D.$r;?* ps+wS&EJOiBʔ;2dǞA}l1 \c9MP))kQqI4c+/V:Q*sMI'pOo3fD#?_VQja7|rH!} i3x&./w_\^ 't,M'"S -w0 \K~y*?*M [ `=F6nl Se!0ꅮ7V-{t>&|^[,"a=cjb332[ 䬊^♝տx\!1n"?iČ+LfWh_AIWd286rB:RhଃT*u_mEzsý2jqqC MuMd}@m[N|c UF 2\S|2uFtS}x%2]Q258P`vCת⪙%߾:khwi] [Ul";^!fs\ .Tv gvG/TM @Rwہ?Ӛ^2/Virȧa7^(1Kg2m,0H*Q-7PL\& }Xp<8+KIf6hU<:ϱ#֑ȅM u.[ F _5 iJpmrqT3I`^F᫪pq8E NIkL;h:'taj8cF4aWӱ}rb4OaFz@%- 8C-[߫0$YH| 5ѯ<!%FTzO+zqEJA#]y(6 ̚G{ <ǘq7_S>K5LS/G$$"}((?N`yNx+_!7(~aZ0~I!uGT']uy<~j~Bxr[78mߛ@ uۜe`4&fsWn:61H 7L(m)~p0G{C3*by8[_Q,yr\]vǒ n\!.ɓҖL&i@F ǔ^_:Och<s?AJ=:!?sx[pcz~t%'dM,{-# ӣ HP(9s$Mtǚ'M-K^%$=IOl}ii уm|QNFAK4 ]WLP3ץ٦N&\DfϿ *Blo=j$dq"qͬ"Wƶbb .hIZ)Î.qm`r}4p+QlOEPv#pFM5$!aik>ޯe\JR |I rt4]եv iRSJC?dGN@@np.QF 8> O_"BHǗ$b;o% ] AWTT$1n?t㪤 m0ԍ5R3֞X@wTo6fhPl\CU\+o .FL-t;w>~e( bAAƎFT\8RFAvm,8U?= Đ-xcU0WkV lаC]TD=HK@ >얉; 7mtSQTVY,Ru(]*Չݒ(NQV<1506!N[ކ+NsBs)gRܫwtRH|j a+A@H{95IH`V9)È S8ChBL"8i;!Px>$BeTVrg>-[#j(*"Vw/uS|)c/Թ|h !G!sܿi)mP<~I#1[ ,c؝Ս \[ڰ,ܼ˜ wemq~i. YkLc#IxLNNWR#~edV6*e#m 8pZf'Auߩ)[%bljc*|O2bg`0:9㛕CSva>yj[V>[TNJqo8v9;&Kl3la.>dX=)wڗ܄ 6NwU8T);clM(w8֘ 8$JE5yɓ3+fPECu\!p Պ[MSr%1g+q@ |=Ȕq{w,DȄJ'n[0f]{MXnFtmB8{(hSr"t>M<ЌrIb >7e#E'# hAĘjO(4脤o #7Zd̾%bK g4 p7^k?VE蚛5i][4!(|р]4>.e?, @P|d9 cIņ8Y.!5߀j")RT&6ɷKgAOӳ[. xV :F1>iC-H:d}g+S4tn7'y_..ͨ^UbyE[(:iA{ &63pZ+m9n$D%29p3wuřb `42T,|$[Y7WsJc:!iVhIܸE.O!hYx3,U[1PX3j HIwvrCׄ*rBB6="%`D/v)j ι V&x^>}z:靡ǟ9:;Hε\7j'=DHPS <:["eyZGi>U? g(|0UPKͽXY2xW%8 {&y}|WlA3=biy4٘i˻aUPM5UNُV)ϥH`_U+Kj?5j5Y룛֬籅6^b3MKNK#X;>,DL % UIF9.aw8_"@\vK#28JKȓ$zԥ.vw*%kGcd% s$O_@܈I<"rk,ݷ2m0Bds9 -Cr,7[qPknR%8`"n7`xaM~"ѣ]͔UBpwk:tU%{iQ+]TÍm>ެ/*nkiric(_+-yO\J)ۧ]6%(0ydET^}+~emj. nWuCh&Q"Θ|x>=C(R_y@Vxe:t܊#\i|9Ld%shhqM6q۶ObpLLV?l#QVrVoڴ7UFqp Thnc1LCut"^@2 =˰O;mFj,g:Ko -Aa@SGz`l/- 8Z0Q1@ZΌ1@QS?f J3AY$pI€̻n &WUFa< gz$1^j;uGCLwJG,CH(t&0@srK 7rAzC&EojOYbi6KJdJS[c w&gյϐ츢/M_sa|Wx.m LеNMx|6~_>*crL#7YΞxJ̍D!O2 ycɃC=,9{9YXEpfEzĈ5͹%q>S *͹ XuU `V_7`x]gۖ a%\K,"c2ǯj45z})5»HcEXA+U`%񉷵9 @7`o.7j`0RpmQxq~-̸St瑎$*۞;$z%i9?X>Muyz'PXvJ}C43 A~y-94X4aYA+n_?oS>00"#3N;) ~ CIGMTa!;a"]Iy_my]$XLNd*S;h){^9Y8#ʧ[Ix7'[ 8D˃w:' ?8ς7y=虚˩v?LKs; jCW.+*cYKCɮhp1[܅5EJHT4"ĩk9('z:MF8V"W^^ '87[0ϛ,XrLYI@_߿JeT)F[n]]>ɺ²&7/d 3kC>{G+bU 0)rv倴ړ (/ޝ/t̡</̧+(# Owĝ ]>LEjnT5bE֜㳌&Uq|Jw12 #@p1M|~v7hF۲CP=S;"7ȚlGs!#,NsM{s?+%ZpI+G/R`<䔯f >4yT^-DWZ m2] :6 p&^[xHI#ŊbBihYOzAJ_\t z1\L6xRŀHG31z՛C'sILfnڣu9E B塨/9ݷhBtj`1wʊ{2c9Qt=Y.uu9̝NlpYluppܸ?Dio"IdOAo6+_UyqP5^tt0ShR]gXii\VWS<2~,@Uk1;-ڻȇTŤ2r / 5NWHzJzLOgDL^f޻kOE4^$W;م#g0ZdHE\3SPdžZ}P8`=Y85W\{0p?,E.Id&d!cKEE!y[cTGI[㼪$ K.m(#ɼBD*nbf;:9? / p}@9wZ5Ї6v|c`hQctW,>%',Z(Hko)cKߌiMyv4 W}99oYn^1]01Zke$1?'5_Xx}v&L^T?^(!>T" ~=#IBt;u/It"KXO7FÆyBE) ;Kା&3|MǿdiQ-{FJoX[1kT"' 'ܛ.`u]dnp.'58VnM{mtuwC޲|WqR Ӗdr0 =&Nu7g䟡/:<x'nzՃEKtc $dX G2$@WAՖ%@>/.W(I#d55U[ޕ^4-8jͻ깫8B߂Y?V8A2Vl#tI7C!%$rRqx0O+Ry0;~J|M/c#]E.Q\!ӗ%B'1qD}HX ?ﺲR"2[eƨ] ͑hY˕w]kFK)Pp`_s4LջQ]vS~qipMojǚ~jprV6x /tɣr`\U# ө Rsi ;py7Q˫pT9 -UڍX-Ƚ5عԏk N~ _J7X&JOklc1V()=i Pa޺ v#ɕ۰ &y? Ilq/'rߥt3Jab|}{2Xi(jNKqA2؍P-P+c$ 6ʚďn5K%.h5ɖ_Ԯg_'#1k2.qK^oj}j)a Ҳ>OH)N0!H\$(DjFܱ~kDνEU=o+{Bόd;nܝۘ{PaO)oF L?>[ZrA 賲\U=ΎRs~W#O{<ى4d>]-I| f1kK.x劦n;^N8 ~o7d{?QBE" ɬ=zzvkq$oa'1oפ2Ԕ'̌+5[U$#.(J ^ 11RWatŜȻN*47uɒͥ@z3}"<.l)B(RA'CRc-zHUh۸r1`F{~34-Hw@m0G,uy6XWs~cheh/,W4gI)zpx>$v={M#۪W^n0S }٠ ].֋65 o52"=>w~J=[`K~{G\P0_@Bh&um dFHAZ)9 :^#;^=iiA"fP8ɸ2wsxyr"fy76~j f?|0BaގC#27Hȑae_,Ex|*I3o Adi~6㉬9'0 u`SIb/%D-Rr͌h|rft-BiHէ6c>,ܔеmBFT.i+íGĠySIƩܧgdx5s֓k8ŇWSS2&F0k_ap3;iit_T2p.1 a*ro E }kcbBs ۜ]/Gq~b07Tc7P9o.>$yp%,(Yp S&5Z~N;6@ Eu%Lx"dZ }c _uB˶1%{JAشju1Ϙ>ˌrOOphŲA3*8=vLc~srȲ/V2}@\~6];uM3|XyJk~"|6;8kaF1U$N$JԀײ7JQ̒4%'E-s1rnCh=1uL,IE ]u}^eOwJ`rTU)噼>)_e9`'_^2ӘMFtIg* jw5r)qŖ^/L@t&jruː!8ev4U^D7Vlo!4 Ϋ6^z^ D:cVza-1[x{~YgR m2>גlU,\ǵi5_[EaKe \`^& bI-Pͭ'+f\Nwy?g(Dm^*Z<ޡt>ʢ7fޚth!/}N.#ߞV]Ϥbʭ\gCܬ5EBS^C?͂8( e[TKq+P._E1>zh𦠻y!] 5eBzK0c#Ō%RsJ}$ /l@/螫*=+6 }b n.Jܷe@cKlp%AWXb 5T p5y %EĞ+z*KFe%z" ƀjd:AS"UkU>wiU|~XD0 AEld0PV<OYM nS>ӝy/0oa*2Qӟ%dxߏPOg(h2#=h~ݶZpC 磊ݣ:Cw4}ҷ*ûץVQ1[ ccFS➤ 7ޒ,YDe1녙+Z)dF{J#iu Z-v:EaS."ץΘ> άhuofY=~/醀dzi`uwT:aܮռP"& &R33Ϣ7.=Ɵj2xW5n }t .\fY,Y;D}ʟIӟt-Zo T$j>ѠA_)VW,d3ȫiYx4P j,<+u"YǗg{"FgA*LP?`?{փ .*zi>S W-͢&p';g%mH|*>6uj(dǚG\Gn]-ꬉ2Uv;Kzt~)U }Gp7_L51C;t˽8QhpϣcRaZ!y rFCk+Ģ\9qFKM9>n1;w amUDM4IޜAvFd);d%t5`JXoIL~o(AꯒXp^?hA&xהE!';R2mVH}UTuƾ?e9A*=+ַRG'>owvYFR[10>StSOP%oi IMI\vIm o#,7]?9bSLp} 7Q`F 3=ىJi\dO\8Qv= -^YIFYH`ęoE(@ waٖ^sH0&OŌ̜R`@ӟ d~pOi#mb!S7D_MԒ|B}2jKn2/PZ4' n~-[@AXh_z]^ )2<~CJmEH76*@ZUcy%'["'@T">nnh^:#*]-ԳeTՈ,ėHFJ+OCi: O5M%$%c13=y~ڙuj(\(1.X[PH~?X1us{j W0M*w'm_{,gJgţ6wj[ACAQ"II Sy"&o1#y}SPT5k."V&.gl(4Zh_z!݊"XqPH^Qu\ D|E G궯U~(\#ΌūEGNU7r͂p,(M0R5!#<:_F c@M ?.9bG[|Jf *E.Nd7^fyZ* o *"^3r|-7FwhkY JdhI,"D${*Ҧ[ήR~V;-n/>LeX9oZxFx"agmXIh7:lYPt'Zÿ.lUR[nl,f= 3 i bmAIyLPkaBl@& fOq;|AJ~ jiH[9V ؛g@elF"H)0`y~f_8n@~ 658w:M6O8jvT'(7)x" m/{<#},bgu }0jMY{ځӤ?.`GmE3zHbY@LlUzu7=ΥS7tl0hҀw2 6@ކ50nKwښS\O`u;nVQn Я].&H…[ $b*{cX9Af /3QPo5#h`p 1zp]Mjv/$x~;ݢԕ گq-xX!m&Ȧ@ՈZVO]`eNCKe^ ՙDV*K4÷aџ(:{Y:ֹyuIwƂ%'19WQF㦪w-*'l丯?m*ҷ7H\\I ' }<a!g>>Xw~44ۍtN'q5B;}yAE]4@,{m X؜B9crp>xéLyyu%S49O9^7`TK}fֽS-VT]9δM&Z)psk1@)i5 S?Rk t{p7 s5JZ?̅vъrmPBV,.+ KEw_X5KFZy~P@\CK/NWj&@fƑT ,{D *uwE ȍS?F\X1eqUzBsm|U' [" "Y7lh MCH\sds>Ww\kϛxiwzdO0^l^n OHU}Glmļ[WԌsG⍾i`$v,tJPTDT*~@)ta `EO/dix;mEY=3I0mm4;{> _ub=C7N"wF܌P,cBax\2 S ߦ|4x; [I-v?9 Mcz[ AT`k&Z9%O@ӿ~3 BPU3`Jd C#(`K)VQW!znu=ZS"iTT]!IuMWIM(u_hW Ɔ+DH 69D!H <1ޮwx&fwRBUe(#:szl 3%>]aLjޠdɍWѱ!Ġ^]M*Vf+ ;eB]D%զ6޹KByioEx0 pYMfXߞ71tCؐpE"<0iۂv:tqi%8{H?S$N;Ts\&Dkw@޲IsūӋsU D(S_a]*Yv9*^>K35 z͆0hWc|teko).xS:6Hg>r !d#/ s),1Z,3&G̬&8|ǁĖ81f3DjK:7"_3ٍmLa/zi'  @ś{oONgA74j)~-TueP< 7s,M:-btPPgȍfnpL Xy@H٢I:X6x+> A.~ϘC@AަqY603LXp_ު@kvO![;tll;6d b jqWCr$;K9Ɉ.+B2]=>B'^Xߵ.")KWԍ'ZT[CֆA-stl z\zOUI]RiaNkVlpsģGNkU//$/lZ70ʪXAKǴ|ɺ_+ ުGfwW"曅}aӏzYNQY"1z `u(L8)(>کŒ:F+%ƻAۙl`ӽ#`彯=Ehnjd8)TU|lC6Qկ ku N9H GKuM.$'! C֥7)Es(Ϣϙka D!nlWk~L~ &k`#)UBǑ\˚s}"F!1l$_6Pnp _J?I_e67:Kflfµ(U?<'$!q׸Aȓ;z}ȧI䎜3CLq:cc\E^8aQtv)4lCܿ3P5.mYMݹ>RϪP;9<:R } &zǑR **i''Z"DF3j+[ua A1i,Q/\S,m a* Uoyj|lw:Rqp xu5x '^>!gSvKQWeBwR! ǿ*Q/G֟0mKn|p.R@Rd[*SGK= ظ1oHD^rЉ٢ՒJ쀖fWZhwқb,Ӹz o T03ϿQ4(Nmu11V(ְ'~C0P u@=1B{B󼝖و1ü*8n9*GIoCa]lWJ֕x( [.&u$i7V.%ݜQ Ik":_KÀQ6D3^o=ԑ TeӴ e59$_^$MIN81B±HwSm?6z"U oIȓyKӌЦFgpH6ǻDLYߞb*sn@ ^}u^eC s߅#=.-kfRK-F- GlӔgG_3k\ i9v8h?QgTEo4|7oM5hM&l&jix4敍dBAy5C+27:u\WBbLB$;ήq13nTcNuS逑r&gh[/Gsf$BЯoSg@J-@V˶#ԽR_f_wrɜ/mN>6?oT 34A8Fv&ٹ´voT`D%}E#d=#(3?lᗪt;|%E7:@4 HW ]O{%y,(%ܑ&#ɩ~,J53h~T4ycuJMx $bcpV7jHv7ahrvȓ+F߲NLw# ū J-l3joZSY3u=8󿵒|E|w6ǛQ'N8ҜU3b{$:2.-.^zݗx|t{S ጚG e|r@Wu|aa LMs|VTR4r6Jթ1C962nS[w@[|^ ~8-d+|~ub΋.{4 {/D8]MP .=QwqQ`4 ͸xBD"a?i!PNQ `SMI^8$Tms}9N oq6Z-^Qoahqǁ|%({zK_*"/~-Lt$:\j$uh3{֢9 htq(^,Hdd=kĚPbD0A_NUNᶴ`{רhO~`D*" F* POEzY20!ߣu OL=w0ޒ]#U-JM~LpÈXnV2A\gNR@^Ri4M := æ* KMCb玎~ dz lՆ"]RAPm, 5ZG>}lߝܞĨNK6%stJ/UW:wժ/(ydv*74 |H?.13@2O:mdɫ ͠$9795Vic)?*%h] xP%bhۛ<ʄr&{ 3Wf4fvv㵒MS㎔FPMGP_UP@h ʛXu [( pOޘBj+숬+eXYC0gGYu˴Q5dv1tk1ŏ|uw )q #c Z)` 'NxvUzGp%Wc܀Y[t1 T_% /Շ06S$JY٨!>eR‡QxC\< 0&wCQ{A QyCvfP^շ7X]8IH3^^A_Ya9v5qmB-&龽HBK-<a`'ƻ|LS'-NDbI[.W)lm '$B#}bn%!  Lt?r|vȄȮz 9]4#nSJEvTCl66~0*ꤗH%= [8x B&Ye&MHEZ]-;nwhǔ@*06wY=x/mQ̻ S>mA D閝g##8̋dĢZF0^ȓS*dhOh&͵F'I1V-uLqoSXp-7iJ^iRB4OД1IuJ0c>L-p$ٔdN[EwfPۢIZ?hتa*~UԪ~y*!d EN Y 4{!Yk〺XL_s\p?@ੲ DrE8s~,3}bI{aX+!sNQKvw0R )%PY+/bMqbv LR<1?0lso(5]]f &ƞ";#׵jQ,|4A_ ۿ'}[wi#BZ4&[eJ:<*lŕ_j9Lʴm눥c'Q bq:j{G?I.YKbjSdד]o祥A'ȟ/.:?w II8eL,|\ +˦T۾FO ( Xi&SҬ 3t}quEYoѠPE[ˀoн{Tuо4yh0#`^Ll'oO<$ɏOD%d|TitZ b aw;+Eϧer9=uRs?>^ӭgR*1Q* p΀s{C'2F'k#N~>v5A"ȋ<dI'q Å"`pKUk:\p [r~M)`{!3J:շ}=UU),;k6D:ܠ6xurg.)DẺTzKۛ>vҋkNmQ%F*tCkqibL@J2G#]Y_Doz9G޽ʅ@ #lAFIޘ"E"vU7!n0q3>>\SWr全1PP 1KCj9Fp px4 R&&SsYi:䧕3Aa)𤓸sC^g CǗl]uA9vH]>Կ죑kZtƏI ߠeVbooֈZl}P%pb0uA•xٜY{`kS$o]歌nz $љ_`1zQ AX}p+]ommLs-#u~0#MZJ/QL#hƣ0Gb0lBI'܃WD00Ӆc;XػȎkn4Drg%ؓ2r(%ˇ pMB֐΂LL;>@qw ![#6iOʌvҞ+.dsћ PMEa)s]kįvg,^8ь<+Uԯ\5Y[=Nyo6&;ڪj}E'?pH) p 4_yB)@:tH7(D~p4Eg&a.uۈ?I{Lktf;~%SJ¿~Pǁ?W3AxfM0ͱҔ3<ssVeWQM.?\L{੪Tpnvj6f}^2Б{-*m0E,l(UW^wL` ʚ i'B{ j>/Ȟ 7|3᧒┭#m2}fXǕ B8702~a6-VӐVFTP.^}[U4܅K&qɕLքcw!'8M<ѽf7^ Q֘6.C!DLR{1b?=\:P|^.&P5 p=,Qw_%|;wmAdhhWx nZ0ι}blr-2!025,_OvEP}k`濞’*nCەN++aٶEUn+|@3< k15hxKD/>וwxuDߴ0uI0'jiN8GHSߵ(u3`I 7+Ajd^q%!o{FG1:é9^Mu~DDk= blb@R{72#,7 "wv׶|5y]]3M2YIo5[WVfRW;T@,X< (i'ۮ,N145'ldQwC= bՀ&ޤcAQ7a7$<7?B`C{9,e, |ݠLFO52Ԓ,? &Ú˛FP Pr 4AıТ7V;466{)cbcOi=._ϚQ:2m- ޅ8܀i(elmNJ./+bۭ2mƜ ӭOVb]L4{ Qg92R@\”~s,.XJ4Irpv(@)Y1lxر\&)`1mԂ8$ʝƁ3uNǡ.2hH_T=?s5TA] -o$ȼz&EBe4akV҅՚LsP6ba1֕s0BSQH?3~!XՅюFh20StE/^م0Gl&=v  ] )&`=R6N>?TO3,Ǖ}06m[`@ydk<1CQf}Ϲ\`a' qIo"2V Bq4\}JVٓy%"hdgE~ eyʡd5`lJ;GD5@;i_KˈIf[- dޝb*AW@Jnr%ɺl\L4uMC@%:ɍT(՘aciibðd xrʎ'e1e4`!i?3 2dC.PL;*{SF+~h:FԾ@`ύqeޖyM8뺽Q$& R%g4U1vbě\`F8ԴC 6_gꨤ+tYNd X_< '8c8q3̠<~Ҁ?H^ ҽYN5j_w__9r +h@tej;eQE/R S+v߇ԅwZz7ܿo< l7:Jtc"늽f%~uV{|g Wr1Gv!xIލ>:f4u3;ju}0qO8l=J[:'Sy&\GAI،4bËBM A!_n/ˇgXcyX;4]P=uyn*J֞%3 ub4aˆ5IAAwJLs˫zJ|Lj <(i'Yas io51N@n[R˿4kUٖ%j:׼U@%xnGqۂ\ϑg3t$vԏ }X-0Su#[8?ǀ!# 9M9^#|iRZ;wP#v_m2˓6C@/? Wsm$rFe*R2q;\o[,) UsVGN7ivva KIT}?v1v'BsZ9Z&6rH&BqӤ~32~7S#:7cM)&f7F?EU!ĔN4Ⲙ3 !;$9IaJI?be$lD v*fC,q3@Wr! .3;G v7۞36ف9m,$(1ՍN%ŘuDF@sSO [xsӉ%+8׮RQǢN@ɿ1ԣuhJ0gH8nYbƮ=C^l.;8Ӭ~=g'H-6+耡wvFϑ=L†fjvԢxʱ\d7-?>2o]>Sc鰇 UuvρkΣF vrIZ [0vH{ez糚'Ӷ Y1Zm U{oZXni귎*z=J}rs1e%L ڀ|INFz٫m^-x"> HKl}wX `%Zˈۋ~0CY4 b3%=v\-)C!ev̬f"1e*-L)d z hky-ğs~Ks"FMP> Qyӑ+SO~5L"7f^'/y*AY( 9@ʼn] $-HtkQ$ 4H8ӣA׬4[/yWO&"e˚>UY3ٲoqn}#hГqGv-{m֤b-b(PKaˇeMo-崙bv\7eJ>|upg8ev]njl) = BI;al:ub]ӁrP?o@a(~orq]KCD:&4 Rmh}|*h"|y{}3[ߩw}'hve W9(̡}2t5e_)wWP>kK^lƤX`rqlXilw_ |7* $'g./5ZBz  3x*\uzT*7]d/:nlq)T{[0뤟$,MvVr%N>].'_@X:kk0Yp(o~8SKeJV \Hjw:GRŐxy5Pq5 bvRd贲.|T)xVv{pƠ^m["$q-B; quO.+?*CuҠqϰ/($EtdFe~O9PU!@loprtŌi@AӰ Sh5h DvZ( KvB2?\|+: C9NqH\q!q: j֥Z.fʯo'r&_||8`~ pQa@'u+)'qߩwQ@Wc.Z 8~2tA|=)f_V d5q*עoЀx &fqhh̞;^eWrk!yVe Fu((;U`~sŽI7/{u%I$O Y, 0(>AboSzHOvc?N(7+ "d=Nb:KqLU- j=ꞕ'쪷PGPiK,>%kF9f[iM|^EܜŠWf 5a e7uIZAlΏrR&F]MõP,rFYMSjD&m~7ew+~¾7OU;Q:Ɣ( n8tLP?bz/G2ͽi8h]>,)w4 tN[Ղdd.Z@uk>ajX=ܻ׏D,YN^7_I_h]#=x%]5lI)vJͯ}F bK2~2e/o;:S bWVF:#4VF{ZzYxp##e1kYɫ\w+Ѧi {-~I0ĮWs;Lkn^Tz.-MシNmqK_)o'^`3$*[J( oo,xr[TΞ`0cpqϦ !KPUG?eVըi4Y#sLJ-;]DdQCRacV0m{&^MҶBe-S;,[aD^@9ڼf/- 2 8u7EY;%D A j(P$\`iݟTʎvllzL4;f֟2+FQ?">bV1̭(O* T2u[Xaj 3'' `hW\E?9hlGXz-b7ky@ 3L27 cliQ,&1j 8֫t8^u{0SԪo:,6¦t*콇+C"EyY'wJtRsJȈw& -26񖂡R98[iGQ<<ƫsZ+hRp"߭]kkTEf$$ B75Vm+LkxV8pZ >i'DA)ʛ.}=%3WfP ܇N[rXb/fաF<<=?=S0!W|8G@#zwbq'<otfJeN(V-! O`m7Odd2t #um𫞚ʀɶTk_H E;v.7T#dyfE߈52Rx-蛸r mr"%D:6p C}񄑜XtV :hb$ԅG#dA ,%bkV0b;4qe!L{Z{Z\޺A{FԔ] G%>G k_dS#yϲ)NoP9f侺\$P =kfヂ?7k9ϩc2*!v67SƫTCcgA˘8(7˯RKIaߜA1- * ^A7],m+0G.x8k_)HKp)`ݰP:)je>mP?+/m`+pSթj},24Qʲ LȱH<HC>$#TqVO zLw#s'PQ8K qAӋ:4q h'p2ȝƋ8SzއjtLx^S2Z,Wx 1dYVyqQ3CL8|e?OHWdN^.dzF:w 3jBJV)pG02^f7)hC\;|ҧϏhR9'1t<=Zto%AlAXw''#i  gk;"4$x tVA ۦ41F(P j{~a3HV.GFB{pjֹO/EAAjg 2F(O,k 쟡w`t3%Kb kClUNv8^!LhXSJHQpQ1eD?C6ʅ~&j#BimP1jU,S⛘矩i]x -ݨEXǍ^2oXDQE_˽3VYA߄?GAKk$o uY&"ر|q\+6A#Qx.6vg>*]lZeb!4ղHt,u%;5T/Zx YJT@SᾶkA^Pޯ|pTs9_f\>ɤ5ʐ~̔a0Nڠ;~,n; DhZsI酊3˷"L%;vI)vҖ*} wl食 I5@8~x{5ɱ*3K9S8UD׍R^!2T\H3,^ EreXcRIp) 7q3U WM~3.wHEO UDG5=Q9)5Y_CQ‡\B((=eEN:Q k" .0뱼 s9g/0$! Dc1u*7 ]Q4(Ger)5TQ}a*Z _3Ydcf+mUq39ņ3x1L962G$w2nlR3X=uǖT 'Vɍ"uY;3x7[^\*U83FII²8EC%p$V{r ty>Lk mYڮ/{`L"[ îm.\Vsb_>rctPQ8;VTMϘJAhťxN=ISGf!u<`(M+z|;imiX6\U&̎ GYfz%L&EEgQQ_k4A8)jWs~mvJZ5k@/n0?'`-i<-:in?Uˬ6!ed}`6;º8,-n0KUdd~m߸&汊|#Bb!v4^%SΤ#G;%]2/p[[LCp شPǿ,% Ϙ 7PH8F4JmO?;_z>){<]<{^ۨf#Sq2Cw/Lo-U=V+jjfK@yH@J@`}v߉sܵi (s[C"<$\ #{`H6 { gVgu=7@W#,Q+⠏;H9w6N3P Q4-]y`<33|OMKP}:~NCm$mtbV:uv{FߗQBY ۪l+wm)rPՆt ߩ`jyZm`~2g>݋u2}a"~d'ReQirJ݃h4J3OU62_~ڎ8fur?+ ,s$#0g F1qq>ExzdEAUEʚH#>d\BC1uk^Vp[i.l n4')ouӓw"al1 U*$0x15 OėVXOk TMwBBB2V~ iz7/I + y%mɨ@?zַcq#^$ĺh dB#A@R#ئC'уIJfcwW&OM\e&J/ 7ę4"VSMD1[668rnyUƖdv}^;HR=SJP9#_TU;!-7 cV` rZ M=UPo>vͿp'na K3e)H}ڠ-EjK78s}ay$Zm[}\jA_I Y׽]fŒSٞAJG_ek:6xkK:p+BGG{Qpokg5=+ۃ/.j;c@!+V^[U0;zSPb-8q|+|Q&*FQ[*y4_w.|xW٨=zjEҗ0͚"ܣ| ?i 0N?CK|$JC-/kyşme6W{<;/.øhŸ*59&t#>rF5FIbdhpˍEdc ( ִMŭ[d{ͻBRi~YByI8"/xqp*4+-qwoD_LiPWB\ש]1R?bڏ͆; yNHOD!Пr<-קB/B_zJ2"a6p9[Isr{󤨒smit5LȞqMO)M,OpJc+m8j{5H:E!2]hr[ #!0 [7#jO0v˒.Gi#%$-G<wh?WKSq6ص1+'g@19[̸:oز JJuj5:T^3RA#Hb!Hg9Jf{{X}xHPau}>;ȒC@bR+88W𘲚QE(r$aʃ"XטD>i!9 FN!ݽ.d?A#AMF}KtU *8||Ȳ|2!1$%BMm 55T d!R:ʡ IB+H̿ݪgw|:q=6wXE !eȡ@r6d¹qATwѠFajG;7'(sؒׄU4sXUFť~nEehY U7n~$i qvc̕%$a8g;K sbaPكlU"GqNE{3mY_^66n ʌFj@jKs1%o+>vÌ xpfwssީ>6qv$a[9 1W;9."K"Ҳv֙IF >3a ]eYd?OPg{GvY(QƷn8ⵗK9M='.Mڽ'G`(6h'GVȟM9pXrZ1耶p뾘e ɂɩ/ cyG>a1aq*ou\Ui d/wP~PVz'򛝰a?`zKYJ,j,nE8xebnNvڅ>\o~?QAw9ZﭩRb4qZQX su$(#PæMO)fs/=A8Vעg\S"Td]F|mg#%yHNyW1H^ᓎR{*SUt"ئ^y[4( NzAյBiZp/R9LI8FGLjꖉ=E9'ck~0Ze01L`TZӇ156;V,' dA'$IyYѧpQ+pUϖ7E#Os^y~zTiC5{$l?&4)(ܻcTj?)^MV]TcM/ &81*s1-&YA} Q"pw̺<(dyC`'2o"XHF9kw3dl g1N!EUXeqB"YB?^捉#6:)F/#݅a,{Hye7N:DLԪ;Lf٪KRkeW>AnHЫa*$֠[IR.;7O}*x&-@38=z\(`.?vY0BVk*zpP:)ĈlrFU,mm@4H|H-nR+֐'2=w]~ Y ōI!zi BWi#dN @16!_AJ?D 'eYޑ\WHyV7[v}~9z peY+M:(a_mk΄Ѡg4eeuX  jN/q*R˝ y/'AghS]n;4OD`޿vz.m߲ 6ڻX#] o䟽}X#uȓ{- 炊3=ɗ"{K?j'@b+wlP%T=QfU)HHO SoDMQw`5 D \&4m$LIAe:4f2Q:kNyNF /"k&;ߞxq._3W_A3sL敩}LvFBupH\gv̿y)ײ,Uj@>H{>b}!K$Xz,$3m6lĽ.h|qT;F'<\<1$k 02(}q摖EJ% h>ީ2 o I%Ode#&BsUM= 36GtQi&]+2`8@i"#8^3-4i7ºَg>da"Aqj5[MUzCu[T hfCj 3$141J4e*|&3$ #fz݄ vtn_[@? ɷ~n&⺱.I$fzJ5t:d`>Q+s cyzY\QZ&z]N:kij0BNa{{]mHxPZ3.ɜwDJpkWg8:huS-0+';E*IøęjV x'6asuRՙ)=gӟ=ۀI"qCA8H&̐5-LE% ;37,CNnj&kǂWjYӬMո%#B"u' ^ ph~.;b@P/3:8.GJLٴM/Hrf!%# ⟰])kq2`"]Q/ _Z`w=bck:x;_M!-OTlkgh4HU\PJ?R[ENO:|VGuK="3GY oGzwOX976N*o }K(Rt#\(cF%0V֥Up:嵌sxHcUr /cI>reиLc*O#¡6վIUMCf%efx % ۖX->9NYX;ލ+X'4>.?l@˨\NAWM=h) 0{)z`P6hꘔrYۈUI-vVpb5b #$a'kv/>% GxaGNگ"gZOopFx}65.pѱ|aj7f(Â}0=s aۦ,DȴO"k[1>7zUs/ַ۬gś9;pf\Eh Fr.]E㌇V(P/,H'"Av(0"7Kk8vO8RtMqprӆU=qad4G _kXPv:.tϣAVw4r1fu%8@wXj Nw1 lS0lp_U$5nIqx[g/y4{jc$k ƜHDOc-ݚRU zZߚ;޸aѶYr yO Sp=h!%.?x'nșrNqjp^\h~n/d 4:ո:S| ݤ8E*?,hUbh㍢V*h]V lUEy/VRjcYup{,K´u(#{N"5%aϬC.\; 2WjV?][b&04gc^+5I>8J2' sPJUhY?joT\ݠ9rPXﮤ5lB`2XN#wBpFyz.7ѧu}c%  aB8- 9;Z=I/3&4MLΞo%Sc{o;=t}$tKY%coV}GP"/@M?zm sF*u}0ĚG^-p<感!cJxMt}SUr tOq-k`58FJE gv5X(5b&-|_no)I)cfZXb8gۘ"49y4k'4}-R&I@iFШSM="F4ƻ d|| vKRؔJ/. iA_)i,~nU -1(]^,S:eeE8Yq=`\}^w:hE "ܺg z>pY7')T=qCtgfpJ8$&#_'p xCp%((c_2s9 6ABlيMWx\kCk6Щ:vxeY rg.9=@Mru=NJΚWx2`Wټ5 }an1doi_ GJ Guɏ2$v־c|Lh 3_L,n_ ivNrCgZDI$Y1ĕ3F(w9_+0bXH)չFyV(I0C]0K%!5@fw-,L&`C?%Fc:M+tLRQ35q6& | ,&V0zI0#+4:4Q 9D {,ήwܷPQgKPf[@*Q3ԧv?yv} f.oLtA@q'Tf=I_I9$ 䠢aqFwJt:ܩWNɠz-W_CyY?L"/ x4 ;!'L.`a6Zc1mkMcU:9mѬXbv!Aѧwyo^4i W{F@64JSUT.;Xf@Km1ѡhjfӗgb^7S)o0zS O! Le=/kl@TRU8پ/BTW3`/J\^8G"|sAl}uلfeAfQH1D?o+ƿ#:IN`Bv.u $5J2M[E*=y!U'i4Hb,MDzPP҇4y?4>%bVW 6TeGU˓oԸbN+Jog|d dp+h'$3l̟=iRv#폌!nOϧ=Z~bF.?1ob UbSl3s\F*;ӞƙJ?V;ؙDV'~DIjSd֓U)Fyѐ`֪&E ݅r sH5foڥ;NKl(Jڨd?2XWE7Q$DH4t{fkrUKw?Ìlay9 VI{"ټh=my\5X a=ܷRq0D9We3K`śg]?yuɧ$Scv4[]VpP}@MihȻƷ+::JŸHuϣ^YwzZZ YǷCkncmc^ҩ+!.[Tkh?%UqjD᩟X<^#R 3*TW.*.vY[ypb;SK)c,y\rq(bDJtϜ(gsm,Y;ÈiJ=R7 ڳIl7[wֻԙסmr1wܬ?.`dmi7HKePԯs;N CzDPUHu)BBm>P>λVeZH@6dL}@l "x%[juO xV|&ML79-%7>㧗yɛD3E6^^>gr5'))/eF ՈtדN'J-X#7G/; wj__0tw $ C`kDoxE: A(0DDFf u;ڡ#efW)!b Ío)<DAu(|gV٦]xbh&Jkz?5 T%R&1q`>-bWER!0 +mF7cǜ#a՘ ?_Zz24IF7ұh٧ft˅)z/g?ՠAdF3^өRTcym'NB\qdȓUȰtO?C;A+N6l0pX_{X٫~4.qXBrﺋf-1JXMNEՖ>'N_<~]яfY5Ms=,I)Q` r-9)%ƙO.YjC(@[/ #~9#z@:]r:s?ļҎ--{>O1Nٓ;EW_Kmd񡊋O))973 HjkJ3l_qtHzs'5ZWP&\L{B9zx_kxEv%'!* F^wSɂ2Lìk:k= Ըñz*wΩy/ts9S{g$V δ?Ti7d KOaLA!$Q\xA1EWq8表Ia41r%-k$n %:e%GJnVbд;a~{paNxbrX8_lvf`+Z`Kb|ݛy5h~p=?cIU/3\>>ClqV_Y PK:m^ޤ6/zeyn_M*USmsk︆K>#Jչ$Jr_y+нUeWdSQĿOA4f .`ޮC]N'֜^PdQ׉8gch-zDww&cBHp93p -X4[ǧ/Ovb1rʒ#GQ{U.=v>pql, 'ʉVt,XD!$_HBf^ZPӘ'rsBW_u,t}%[c!GQ qCw(փ tO6EzA>cަ~A9<_LԖ_rN H\L"'d;pe<3_^9yRGSgp"+:ܵ?i3JҾvg_ 2yg3,5&lgօrky=ӻ} }G>ï(d_zǙաm= שj|)V;~ٶ/B?1 _)Ȧŏ&I 3[u=/uaBr(NCޕɰC`Toeh#ʃ#E5N>" G8^JV°E-{bu $lŦK\C;-I N*4HaϕQڒQ4q8?BcZGz'xrmF֖N"40|NϙHaY jGT2zNƎ :%J]`pQ~FjprqNj1 1M^2k BF‰ fHք̕lH?͂46rʎк?IfsBG $[W#4~7jd`K?BJHcR2D^JҸ ?+w=~:6yP2nUgG'!g"<^?DPruJAY-ʖ~Zמɶg}߯Tm *+ug=z](S C bUS6*$nr?jkv@Wh?枩U _ o3!Pqc:v=)=tGq]ȜBS/a|,{'Մ 5$G -s2>f\ڝ ҤU]%BdUW@5fXw)y>W[d̗ve`5fs-GyV J4  *`:e(ig зρWH`0T62$&/.:;Bd-ȫ.R{zͰ]5p&U>Eɖ˥Ui](ap^KGKLǬ9yXk@n?ar6npm< . ~m,Qh5&\^b3:/&73T+T04T$KP]E 8st (?N}ͲqyfUf/ 93HJ[ ӛ& QjUſu +\ >bU몂9 {~%}X-JԫGm%}7ׯHNx< ˆx4=wtY'I\O;GLkG>noD`1B4iWiI[~y]!QXB.59JAmm)7"^dsdgtʑ>Vƫ2G@kfRaf-A^o'Ypru< {x4Bb@vy ^Acd_ѻHkW]ǔ%x"o,% ҈Fr'uʢjO!GJtdsRlbt5śEJF?;;sb,bABHBl(vbO'Ă+:نR+.7-N":ZAFS|jlB; p⚎{ZZ& 50o7Lug6y撃m\L 7vbrtrdqtKn!}V{{w-t~ oR"a;DG:lAcIv9eٙa,DLX^᛼:]to8 e`ݪVJpАi[_)bS12UKކl@4TV?+J1;͉\16 bu[zB\b( L B?kS:yrh궱'? UC˽y&eNE}Py5tMo+f1 fEv-Н9ϣ2!0IV GUgG+R֋'3QJPlSh?NP#+>HDbŹ-Rb ʰm٢)%L1/ؐ "o:t}SZp]8SȒA|y0vH'crcrJcBx3fi s B{/ީ aA ÎԳ&M$k)QE%k\3w*DŽJv*0[gWI)\s+{AT?cj4˴վT.R^gVNPL%(w[BCIāS|ԙE?@BPx *i\DsoY[=[סgqraILoM'i P3Z^*V 1|N$CS_MRdJ/qTVs>[_msoL+oSy{]koXtt:Sof sk~iD5?xtBB) {j֥oǼBhn[7x :g=U}4Q[,/)5(҈Ht!Ug7sNnD?,[z!1sI{k (i{ G3'-" \v{Mw^NAF>$TAEV+GWǦ k^ н}X.BaSƠ g]SP 2zt > RyQZ眗N8<c-MmID1j"fۯ)N+45d'䉿/+L z(د}骝6TX>[b$mJR_iTt1GHFMnv=$˳|л>H&,FV&nTҀ *L6Dg_#A{HW^d!O 31siA=J |K :ʕIeQ4ӞAآ^i@6/"-%mgD`RS:VVсL:/]U#@v")>ZsnU Г X ǦkB cD a >rt}Q o`G*n -5tsxVG{QI˓@ء T0Mue?`I`w;F8S r,݃X- KeN$`H~wDpE :]05PhSʵP Z O97? q?T{ݤ%#^\<!ѵ~ʸZCQJuFǨ%*k)AkijJD9U $"+ D~B㑩}3G^?rdžWǰW/ /I#`l!k=ﯵ喎5?'AFxf1>8z:FZ؂J V}(ٞ"_P dG[]$rIq=5 S/-`l𷞗zk|6",Ǝn35*ldL sq,^< W%NA o%͈8e9}NM8Jߐ,or^zKAcyt,љMER \YĩJ?G >agzdwD~*FH>ϦP'y4GAHҧr_c'1jrVFuW /k+ 9}{Մ{tf#!kh%9t_/&2r<^6wo}Y^u5I;3`|\hrޗF'Xbe1I {W?!0LNƊWg[#&:crd}/pRGۄ{qY-r/ SmnbzyO@{2ѝ8=eᓅ/ ^y,kbjlD < ^KPYѩ3PSQJEzUf"T6\ްu-6%3PO-HCD{#ø\}SD<_@|/P xb?Q N0^چ#^ ؇h COO nL߉sRGmU g]CbǦ!e1ND1 42v('f@*wV`2SaaR*{BtZJ˭TІDg n9[a "% _,LVTWv xۓ~' g0cw'-;W:a5eiC,[N^2m+~.B*$c̛Hz@G8EYqMYhB8WI!G ^TwE4tHξ/U5.υ-:,v,rfn O=%﻾'qG,O4N),Fz3|nB1 p`'5i|9QqD  BdE.3.ߒ{߽2(ry;*g!'m$p:5|5S+(g}j7P!aF^`}]uIw9^3 $An߾?R׷C -K0izɱ0^M2{:^ފy=1=\wZǛĤ$9:wMzpBdhqm FH̸i ["/e Kdtv1{XlMtdifƕRuJsdvW, w4E.}RdSW$Ɲ$\\hCsS:@ր2ֲt70g &Rt/2kYHiq2lg\ӹ[.Fjn}ө95$/R@N45#~i:I43^n^@6J= 9x/Y75%1mrAI E)Ιr w367ީ؎o!E<, H2@H僜29!>?3х7VWEq<2.ΏχBQ0%%||-‰x%ǗGw]I=DV<,0Jd %/~\2 ($`o/.tZ6h #+Wʸ=4YRǜ%ᵨK3[Gj.YU~pMZ6 Vl$T;ށ5ص۝HQtxP(8zXT&cJYXh30Rt³uBƙX>/]kj@11)| $avoM ȏ3X܈gI,ļ&\Y ݣ}%RJ?ļrΊJθLLƁeJٷD2…LkHn}1) &.uhFyUwCf 7Y0`CGz u])$foq0ݒ6&lԈP Ƴ:;%eY%HbuD,+n:7B7UWq&'bf(j\ƻ_"K2U #s8. dE4;vzWŹ$1۶䒉Љkn^6&[NXe>Yޱ2|3[xU|!_mŞL3.gIK<H$A!>W1Cw@8PVSayL73:>q3?eN[)u(T?.`nD =N XbUo+kP|{3"t.:v%[v) gcW(} C`U"aAUk,2Msb 5N5iS?يhՂp&+ WEWmG.xf@TUe hYgGLkitT#oqX.m+`-NzXTu`1o zj r#Rk)x}6_ga .!dE75St#sr:ړpE&d~, ":b푨=E4XJ1~ƻX`>Q%KQNGOّpW]CKOT':Eom֗)W߻F􃛤D1&Q5` ^W0P>,cY97p|`/dniQ ψwN B8 t:Xjz.̎zX:+We L)MxE`RaNfC7gr>PldGH5iB^QN !$#kQLiNbi.Ui$_0 o X[~d"~5@֡ L–zOWvډAVc ;tWWp.O@*]ubt(1O4kGljc,ߦ,4Ef#@BpOi!RL 8/eJ%r9:/zlvJg[CDЪe&ٺȸ vnӜ5-n@f}x '=rRsP|u Uy'Fd锽Ƿj{qS7pn 4BfV0)l6_s֥QًB?x}8'M0WyB&tip S!oZ2beS&lc{xaѣ X:r']>X&Ĕ6֡S4/1> ck N@`jnzs< g?P=-E8nO$ri TR6-*m8^CxrNͽx-6a"B:zzRg^ #,Ja|s Lb(%*pg͟KbrXڠSuq6?B`Wecԥ1Ek}(lɴ$xir<گg?ڭs\Nf:W6&˔@;u93 xgA2^I@@ϡ%rrl8 yiRlK!\hipuҶTNz+39~4~Ov=yqD]tUrtȃ2,=}Sgz\+t@]2+034ῩPR)Fn?4Jq}v-q)td %_$i!9~/\Ix.,Y͈~niǧA!) \;@=^#kOR0{eչ{{5/4䂮Srwيis+U#ɍIOЍIY.KV,E"C9h6BM eOii7B(k(ߡD-`|/{y')߂:#YBr5Nw!O%I$~9^D/~p{C"m'4KjU&.GS5ޝ+g1XmCaqL1Ǧv;J)F2ooBQz-.*Oy'k&]b%wn^:L+O(HSj1pF=7}l,'aAkwG@\c`L@4HO]wjxa9~*j5y~6 7m?]Eq&64sj( v s fU9e6u4*[* 0 E~E]hey"_hv'v7~luS7aNiwH4|vN6ze\RO.4| ~wT $[&ȧsG+p<la#uk&@QFG BVO0~ WLN~B -83>G sJ-6pl&xtfC( i'ћb r1J鏉ύs7"7pOHP5Ūuyci@TdSȁӶliBWgP[;(<_) As,9A3d@fw;oe>m#U & [ң&f]6lZM_R%2 yW >BAk 5K!RcN1JK}@9i"mU++@Da!yS`#36)[s5nٟ_fYKKNt U4wl65(^fufh)Bra\ f>k_%+4e2ޒ&zKw6iYz[[3:]u ABx4el0B'OB5 [C|dDGe#v7:cDPImn_) v;y4d 8]VO^Y^$?˷rf[q M -}/BfN:WȭyF~cʚ~`Ϳu8YX1KRW4u\_i=C3{̀5Ltv#eo *O1dJc խZb?ge6+9ǥk%_\'夷!ZUհA#f&f9'cdpLbkaU!CՐX3r+#q$(zju9/eDx¹..VZ[~}n$@*J ٨)DsEcuqRDGOY ]ck4!@(q~v d-۽7Ю$bx]\]SYNL64ct?$ t54?;5JhgtJzGl Fn\, i?`vZmdp׊%z숧= BZQ 碇ǣ>[}4ɱ+RBq _eDU 7ٗ4'^aG\ BAʫ[ CקB@@'#< t"rD;#H! pvזplq31/?`]nk95Rn UD'L4XWeMNK/?A}]R` _ggSQV@1Pv8F,IuTfW42~qv_OByr 0a(^:p5JH^zk+zS hJ%]VA}RÑk(!7w)('"u_8!Ffժ9+<ԾkxI\̈6R~&H6z[_p/\;6=! rxi_֮pPg!.{3 *erۆIyb@kµ =IۚR?hōb/+gfZynAuI[~06~˸́}h\xOF:/l /;]j\Tn󩐄2ф%~~=mvu @T}hUb<fѕ47KٻTLjMLI2였:[\d *W?Ʉ]}oZ.A:W,: u/߉6Loa9:i p&n}b;㐴~|H 8 o>cZuIX܉M jYCc.軛2ԎkrY vV`%&B-[h!1-E"ChݍiXdxA\/Dn'&"Ksbfo(g@Z­0T\A!/^Quul{mxHSZqY\kbuՋ #%2pBF)s;<(g5JD!>+,P{dm"mKҐR jїՊa I?qj')vT"P/{+;Ll@0ՙ/[l{0~p>#ppDlkDt~f0Uߍ @q1;BN2@%KS#M_u:D'̅blv|c_h fg(rd,ǜ>5..촲*ih_"P7[:U_7C`ݬTkz0Շ)l^D *HϿg௹-Lh:JxPl!y7683%(,ǧ[=DTr,O`vK|c{^b"_ڔCj(& bn|@LCNBD.+?~{#MZltL>^2]./~NK9i`JjfCz.z0f҇l7 bW>: St9טʗlPw "rT~CC?F ygDÏ#*Tu!Ji)0lgx&-ALQ I!Ph qtOqgg:07BJ5Uula ܯZ+Je%e0|U qQtRBJO\@`"wu3%P!3m:BѝBv9^ݤ{Wqz!0,5^Ѥ|[DcZxm| ZҤg3 OyV gn~( E,hښ֝7V+\7W+11Ƿu_sRզg0>x>G1Y{T_7O#''rOϐjɥ{WpNjW/3diJMNCxz ZX:U,q{ht琦y!扎I(N 6`QnbT;LFEZpvHugmHܡavBUxQJ &QIiy k8mϠ8>T΅8hzԍhB~f6L0n[ kk͔ !vg|GsM@x=@D2@pI5-=efݞi2?I'_S@sD+cI-e1g9TuyeX0mw\VwS(hmN;\i['fU=ifK\EdP3Qעo]Hz IԱTnBBZ`܉Xpw۴7WK!D3NI4v2\_D!M5T7En.V/cK6t9p,phyhTXM dD»r0<8$ ey; ]%iǞ^c̰ܿYIp陵`P 'aXӃ & kK2>dOK5Mhݚ)l-ȮbҧF4c1|Jlـ1Opy&5U߰AޮsC "AhfZ/KF^L*= 蟓s&sP~FNzTc3C); ۂ*>+ë~bVP /wpEE&((!:{qA" t1)!@{νtC{BV 3'&a ]~gQba mWYk_tcʧ[&nIWXpC6$֓ 8)ÐBH/PXb@]~LpA|ڇWBd!yqw伍kS室fmê0pp%HfaR36 \ T :2y{4?EL"~k* X\>3Ο8pC0ĺ$Ĕik0t~ a7N2YX`+IҜAALJ}vXMCth_~"OpN4"ঁ;C>sui_+ }ildՋKZWaF߷~v_!YzA=jKlB|q}omC9Wٕf)٥_` 9I,ix E?C@q{e}~ېoy婧a!0Ee=<ٺ4Q_0<%$F ^۩C'|CXfV8{<3}0K>G?-x^\Y1 p@SK~TPX~.(p- ?WͱnBlVm+ XOV4JOq `W/(P3+!?yH=%ςF=) _BO D0el ^-snr!8+CyOF4x3TEAywX:kI;nOEOwe8mWNgnfÑDSc/#K ,=AU^3QႦ8}>Dr,& $8~^"fhP;?%mԆm/M3 =6u]YSvZ#%(*s'6[]sHnUV6YYf71 b3eOΏ!,?Gt@!"uʺ1Sǯz*qz?IJ]5~ٍ̜tc,؂&QɢB~V 7譴fk7D[QbC23!D_r-%~rjn6?G Ȇȵ;=AeXoV5{8fB &DxKp~G٬Ќf/6mjϵ*=p_O%5'hEh)-$Z=׾GsLfxc1TջQ@g)8Ѹ}`7q#~Ub<4ī IG<%*?SSv["n%?H> 9GTHɁISu5dȉv!345cZ9#t;ن43٥3# , TXe+zS4B5h%Kw4co]1hA=럼M\Pp2^tw3(p(0rPKv"k~˪>lT(&H"""q˂AP?E5aDdFkQiϯ& ` 7j:i;ɜۚ81qz/+zW~*KZ1;M=n-V3tSmrI% o_WCVQj#Tvl6gRVRy_|m"#;; (L iٚ1jӈ<(Z <&QֱwK^]q.YWEP|rfyTO'pys0Fv'.Ws7Ў)zshC}_5:P{nQ B->48Y?BY۠d2YZP#PX(Fֽ`ċve\VmgBG3X "Q;;6wwXn~m-DG6P랋+=MyTTDk.hdSZKEhphzx \ltk3:rGTF^'d]&b@a3 \HrHJExNPv3o%x'GFr+N\|Fxߺf\hz[3?8EoW/@zS-]* Dz=ygD |/!KlhחH(cf}Y3*T>֢OK |T+96@O"jM rcc#VT2-gnlY**&^(0\3N- j"=9 `$m{d; 1J]ף3cx[@?ϿcXu9cdO\ՅtēRTJZJ";ѰāA :9E 0~6 B"X'BQKT%"R\ 3bfH ySinH =UL]`I>Iit;YL@b`~AlZ}=_}uDl o{:r\?>g+!*ۧv7,1[,jLeӭpGNMד<~7pҴ.d3wKW ;\艵/-`H6FJW ;ɜ6ȍAu hKy\ yn3c7F*I@M(C?G 1q07ch<$ТmqEmZh{gϾ:E5 J( 5:ɭ_M݄^ iFKGKx+m5NKQbF |h29Rd.^Uئ{]MzUMr'%mȂB#DŊJ'7ʇ݁_6 i&0!]&Z\Euc$q'\.E1D O-+ fXFO?U{u͹v_wrG 3SAͤ-vڍVs ?;֠l9jD;ivA5Z.T.9wYԝޫCA%7xÏwpMxZ&\5ڬPB}rur_ĉmrTrp4Wlkoƚ:SfAZ{G&B8ҧ.a"IFM9,{.vgB v Z˵H[b7j9YJ=#QVD8;eV8pwX_ Wօ)Ye%}1F7|RǠ=Fހj,E pz5*29 %":^EO:~BXlW^2M=?hRiV'̢waM :ؐtFS ޑ RV,KFRPß$i`d2 <]xslh߼%"l4wIl} ǽ _VSdFjj3_˒@Mq 1*(5*z!'VMԣ:,E)ڰ`( xz:fm=2C;Ws+}i͠dylf_MmMhJgN^ZyTO@;z}4,WO2ξDYV xg2]X|{lgcK̏0pE҉BN z64(ά9PS:oIzp^}bM9B ]$ҝk d$!+kZBy]N늗Κ g!gIn)u#S ܏YC0oț>MFP}R<ţ@g,nZu>} ʡ w50})\~>^^g1ޗ/I'v`,L- pR"CbW;Y ,L?Qo|ND3/ZKkF`kXG#(apDB^?ǘ-bgUysD3'C2}r[PrN (^zNL87W{ZvF_%cA΄.wR.1Iϝ$ RmBɧ4v"4;[lzsIpKL%nO{0Ip51L Ϲ)#jx>"V^+(z,IY)Cxu W%i]wZ<\sCzLmDQO7ŕC1Za%{j {gjwbsY2oֱ 4r)= lkEX;ouwCR͡6g(MWlƆo&dzNW 7Cˆ$r'>Uӌ; ($ ΦdȵL.4iM! fzOʁď ??a/>j}B\:„jfߟxy<w y%1D֪jU~* *<#JXEu3H >q4TX"ÑZN1)LJu#F1CQs u*;oUI SOZ:vDAo^ n/c>v'o\dzU'${MP DXb< 4v V鲹.Tx3xR2aRNܠjK=[\,6g+/zNGꕓKByA7H|Nn!-=:==\'R*YBE'x2zgrU>u7 ioqwdAfuu:&;#<@؇`P4,agZc^#-_رgz0ĚէoDu,TV,? DWAqdQ>Mv$Y[ɸq!A!*>Fɓ8$"R11HQ<=זsKnX< *&302$c~Jx~T 6t֨϶x 7]-ʽ{"c ٕPND"=f$&LOE^IErtu}͚,鬵 Կ9wm[W?r%m-~] <ߟl%Uf-?Ne⡌>з{cHyXY64EfxJU? ѾY!545tMJpItԺYnd-d@Ko2sn뚄odcq*ǬLKj)xi0 &DU# #ǕfG]6|bQ[ַv"(/nQb+>DZSnw/MSN fX;+a3lO(pX١~`/aNEISJ{GB.71|2AQkM{Jt1U];RvcuJ9%|TG{.zU!VL nf݆/R$9adQ* ,bg&Nkis[8Orݤxs 3$O+IW8$bE _BmvHި6hNWaY+LldpUVd JQqd5 =XP, 1o3D?hiL`3z@jw EY_ɮAD#10<.鐻P\( |EDqhOD9IV!z{cX̊B8^{2EFxmhsɟ2 kL/s 3q<<t% ܦ Q[_\/R ;'JHY@r]F{РJ7KIm9lT-c zSW0%fTYF`6ոw{t7_-C;wvk˳¾ؘmYK8e@WmdFGiS}GG>}%= NM]9>ur!#@&a__\tr8RTdgܜ*ݨܠ5C$=;EmyVbTlmg>RotdSX4@@aX$dH㲎3KE&\nm\līv٘5 )(5iuR̗'Bw H;]Hb~s1ole٨D#ߚ@"%@S|g8u} AWITChĻ#R,C@DLd{kc0.|=sSn>mWD=Ba[a'zanL:7oItjggb4B>M:^&r^*w/|eMnkr$Af<Gb/W6-lDg'4YU?b~.}!ϛqoͺmW:ֳTĐw'e>ldޝd9_R0xϤ_7ECL%_?v2mfh^؟}:c8{nj!y"nӬ56/kO3~ّ`dN,}8܈ӝks|V@ewu"N[wJ :hPw޿Km^СVKM~'{ f[@^n PAXME߻KJ(_o|:Y BJoakwq-+ qэo%8!̔ƌBtќȒRP}R~ܳs%&>*/>C3f2Qsf[ކ,c23+*f, Uh*:G/= -;~qvA0@xǁ7}}kLƅE~ =dNܳ"y`2@n'Wr(C,@\(4Hmtz-Oħ!gi(S(`܏6 Kg3c7EbLf=Rsoz8_uK߿(&+|6F51` ":}oFԊ*KnnjT+d0$ކ<+DG"O)YY`u;7KD8%N ! ^<)/M?GG-;κ{ h6~ \8ǁ=w S`JD)csE ;tt /͍R"#Ko1628һO'Kx<1j$EIDel6-dXbrj#kžyrSwcL~k'1K8{!#Mns _vO܀kI胂\=Gf؈O#q=l3,ls 2YP2E+7uXakE905| +֢}+c #d~l ]Q+l=\ HUv@mPĞTMD,MpGB9kĻ! KZ 7x"Z|ך7྆&C^QM%+Mkc^0?@k ļ_tTDv@*6="\`4Z+>k=Oi(oNe_"AJ~78FM>zNOC3rzQjŇ+Fߢw(b˙w0&XZ֞nP#~˼Pyʻ1kQIw)8}"?(ܥ5D8Q<cf}ƪ ׄHOd} N\ A^.>c㕑K[B}>W/6/8Ql^dtamMFuVQBnOi-(kp +´u$7vnM.?\~#w2FJTDp2Ii"o|>hr{^sb6%,s 1r`!gm^UGɧvL=UOZ u>#oY YY+9M)S\_LE!g \Y'ĜTCGqty|c35J%d}сa -(R{TJ ;)(D`Wөԗ6-Ϲ ;`.9z?`],[F%/C bȅ6H.Ѱ8S:2QTP_Lكe`泒i:CS¦S`Rc_b9Jt&!QYgțo4n4}eJ{ߖ\s-^JgWIIbbf^xtsNvN\ۊb ҋŕ{4*\>ս`p\̉,{qQXn"HKɤNu{QO`RLD-6*.~?BٽSUGMb"_b!}Hh\_=7^w`m*n`IbW5#h!F,{0X-a RhF-@H(݈g_Y@|cq;`I0w{1}ne ;z~5RkQG%O4diog^(m$JJtthj 2\i~#22LQ$m<2~"τ /*s7rY,%G$e._r&3_e).Mw,Mz2'_z_Idg=cϥBw/#DͲk~1i^LM6^CXqrSLX>֓ͯ WQ/*]T `]үg*jB/.$EdTa%˸')I,Qu\OU]e]u;[%dPW/VJ#1~=R+A.K׭ՠ! 1 ^vABsc˾QpSn\Bp£*gfM*? ;*()D>&k2K^*!,=AS|C]dVd&"'{#$"jpt};M?%op/0 ()9>Eט} @}!U/M&厳KE@:Zti(I¨'KSMWQǝ:#2&K&oJuxdi_f9)ٞPNHBQCwT pQ%3Z!UUDcY9scQ8ҏZ&Z&aHy2s.zĉ~/^k"#%:}7*_AX@LNdC!p=נ Q6EՠgqUAXlG.`Z4&qE`xlVR2ybO~K, :#͟ Ti=i@W>f &m@cHEG9йdfJ1tZΖme+D >>$ yiuA:Z|wcd!w %FI §yj2bb;z 8k "sR o ]qF1zM~Px e#a^pZ@ծ:Es,FrX7"A͕F^AD&8)sTs C^[^q-}* {t=7#ق/vVa~i͗بECoD,Ki: }5dHC@ ȱ-DRi|.-㾣kUՁm" @-T>འY/~eJ:V(XJU-yt)EZ.c[zSMlZPMC յ2,َ%t SiՓvJ"ifM-tpEK9u ̋,ׅM9} AC_E-)%X.N 7 mtXV89y8V8'߾NcyWS(υgh`ڪ(f1UXdR"ۂE[ BP]/t$h $$J O2&c@^ٽ;s-K6AA@'s> YJw.վ >^MKl"[~>%W/V F-Q6v5V-}~ۣ<8 /YyNL Z2U6OFVKho *Z8\T |(a]lRjo}*C@DLN"+c4){U!ۜreK>ć6w&X/u".\klL-y0c|?CQ9IZ_M2K)(00=WY㴩JS osS3y15HUIi[܅ni^IFuRj0|WV )\ pXp0xW+_I: p3Oe_Ylaz w+cV4$'3_n;:$H#ZӼ> t98[wK@7ʁ :f3+->1+-Δgʠdqwi1К/t fT s𓜩hceo0; FM@Vp]]_֪W«ݑe*m29]rt०J,,[v)t 68d;xKJ_(aj UH.M%a]\蔙R{AuV|3dأQ1&M=\㤿|aüadӖk !I;)h3iX%} 83 υ`+vAXUe(\!eՂ2X{w?Lk(*BW)1F$<8֒0x2ʩaTi}ϹR8~䋊i}ӎcGBsf}0U.^`idmT~8ZcY#ŘXA#q*4:199fR.ա !enU7fC碝VX`5ԏCxM'y8Ҁ*pV^W,2 pߖ̥Gpm[s0ud^k+<4uΆ7_)'>J-"8wS ⹅ېAf&e/L:Dtql1OV쑴r;n>]WϘ |CɠRxOY[v&Ƀ̖ )pSyl2%1<y+X+2 fFD.FT=;q=Tء}QK`,\o4y6rWm7v,C1ǯyC LmK-s-j|7_8dH$w&@Ovn`"R:p)őy$36}9*WPbÙ>~l6+C<sȬw 8u\8[S_OB`}x٪5ڬd_z\jHCHq%Rs~"GR!BNykpv[zjfjQI]dDXs#J0ST3%̺O?(smIPu?R<+d2/`<<a: )﯊Ogr0DEKb5VVq{e$Dqsp"ˬ3G}=]3jqb)6El4NԳC$%?JMjݬl|"qFg\*::kU#'hD 5Cw:Dȧ`"wʿ;fV0HtZkMF|tszKiܑ&NF!=0Qy^9l0ҋ{1g,~_Q"I%8L>V7={bD?˚>{&u)<"x#}Dh=jqtp qlYŒb X[|39Ҕ;B~lza`~X$a+w#?@=KdQ oƌ# tIn](ӍB?J؀=c@y~@)?VzGi?QWc)نKvsKmCW#Xwmܖ'O a?֑8.HKtdE-lΠ v@YM2;gT)aqD0bs~>qfRJ8_L>-OaCkL@ՖO_XXu:4yB0p [m~գ$ʷޙ.&TBdo3&mFv) kCaas7,LK(b2quȏk=Vr+h z ZsAɔT*ۣ@:W#nwCH`cE,gT,hiW"/6 6C`TeK$rU7m]=7G/N_L!T{2h(HVr^v01Տ5aP^sҿ\a2m4VҀW١d5P"; V#6oySޒWJ4zB 7^v#Oq0ׄDUA9&ZIg.!/bjE U4sH)N~1 ,-+MZ_GLhnK_-rRXB_(7>n/j/ڠqE]uOhw`"44 yZ}kXpºeP6f!ivx}+i*Kp"}ߡ=cA|mC\ƕd_Uz! [xx->3cE O8C[BH{ /WTAb|W^ Bh3Q#Ӹ&_6'\%,JO"r6ٷ:»O-N.:J)k[ -l&V0pȟcCzK`'(q RaKs>:O4%P-a/7,r% a.^cK zO=$U/?PYaȢ,Ԯ),HmfWfZ'@]" %$/MdUJ$<7I@ԡYv/|SV*)T7 OކGX(ZX1x<C0w }|5"v#;p4ةZ_9C}ϖ6U{ERKTsӑݞy|C#vV{]T,֓[_1_bk Ň똄[i9WeC* P̎GPW6Lmc84 KdXDa#}:1K`" f\qB~#7H .<-8 (gM@k\ OjI+H;)b˗&?xvyuioq+R8*` R> (aMم0%Ȏ;v a>tNP;ع="]:o,Zg:пU(*5;M kyp4̄JO2G-ު81v3bߘ8&`Լaρ?"*4Ww6!BTm~J]SaؤO%@2m5@!<%tY{:g wLUR(yOڞK=*Vnb 0{jQ:g^lP66izndLSDلbL: D:K`fx`ኅöqa(P$AL)n82φ{`RO>RcC@a.ZHy3gM75ѦҋFZh)6d"Rm DkV:|&o9C\#G%BQ(b<$.raN]j5%\X[r&V/֕U,Cl*6ɓ!2_0үPVҮ="Bb^=AS $^%#;OcJ-tv9tB-eBrV/63}()Qp+ɘ0I}u6704"36i=L_H~`bVvtdXӃk A_MfS߫yV!׶t K2 /Q3C!QOE0%n_OGȓ]p);>=mZR~|f*G75=/s̈́(iS`~\4*OR^wudP:3AE Q9M0fgnөR& 0;ȁg$BƐ^nl4Ipo H$2-Ye&!cDi~:MP/О>c'h}U,TԔ~LJ^p3ι0; #V(flN7,cg;mMݒJ!s84<OuFcbI*eFAil;w[F#p\]i`3W$Hadcy  OV\* 7#˻]chY㜺dh7Y 1pL@2z%,@AЀ73g'i|2_m۶`$7Ԣ 4q6Q1HBUh qo#Ş }`$%v~@Kd&H@>?$/kyDq U!9~"[&Xx)0q=dmL%`abE/Q-϶:_y̨U 6YSNu13[E1~;dgEU{9c) $D%)<ӡw[y3"{b"1L@*:^;P4yPVW/rlӟ5vfJ5Kh-ט^ͿI~֦ҷKQ1֢祠KP!NJq8 MbOUE|Zv+2o/^t gn߷KL V&=*o5wku70945 `=rl$lP!l$EF'=gp}0OS}ߓ!PMq7\ƊE-6J_l፠sVt \7$jJ, qz,{?4rE &d:'7xޱtށp{>q Pv[#o's<}~Y2XMQ`Io %r2D̯;۶8_8=7p|_9$H/XGn aVj7>"Cت$w|t?bh+( AOs>zr]doe^ *{G1bzns Sk]/2_'U~@?TV+j>7V %k ޘԊw diX`SȲ zb!;Р3T$\K]3o-q[8H G,u~}D5*_7.km8o?Dop4NyG!eVM" 17*.tHnfX#"M9:ni/K9y7^$ߗO|Sf\gXŸ^DtS7AѼ'`< g5I^(C2w6C'"c!=CXXy-N808X w9E-HGש-;{/3)cNs.zƓt\w1 (B4gy ({NEcl1x>@ϚQ=G#1ݣxku^m- ͹CNtzjb5?fl !J6@UVȢF gVucI.vUvSsUYt )y@Rf(QJϱΚS#BP}*OY(E*xJ,ؘl.w1۩x6zv§ұ5b:\)3q]_c8L"w]_yI71LEVA21lxy_B\FÐx&0O< ]: DՃUt]ѭ1j;ON<`zUr1NkZ-m$[Enz-LkaO3Re]ۖBX6cWt{蓛"֧ŧ͎ B3ⶣ őU#,(l][*~p6y=hފC--ez-qD(xҎMpOM_X* b4d:4A [GQ4VOx)#z̋x}ɞ)d.>1UƄPlnt'zJ.xx QbbnCкw(qEkaֳ&-}̟K*>;Lr4|+:Pzd"*[c*u۳ҝ`A=6)ym?į&ST8+ m{FVs@4K\si>V 񔰬Zp1oTJvOR2 ~Q"NȓV%@jCt$-JԸ`5R+rGZ [i? [VyrVe0T$ o kvBM:H9]"B!D* o̫^_J&d_>a-Oi #h,N/Aw Uӵ|Uv}$jgw)ni&~ p4HӌNmq8k>\H:8%w=&&ibXBڿ]q} ٦ .N|u3fY5$d z8/M"\YQ߉ߒʉyr6( Ly2GTF`1VC_Fm| k_M)AbC[#~?_*l+)+弹D=tgH$2.$/̑>``(uo Fq|沀Nmk8̹ܺ~ eA I0a\c{فzbHmAuPdcm#F욇|}g|:tG(ڒ.ѕ$e'`}T rPBnDV=^>B6azA y;( <`:,+7^ =V%n/Vk1%吆i*ܸ~ivNR{ͮoI6O%{/ڢp/埿l1GwuH~!Hua7&/2>{(޿zirg'5xqDXg5@(M~ Cͩ.n/Lw٫&U(T`vG^ƖɷUyTIX .IHЮP!孤й{ ѦxU_QtNa-5ƻYx<şfJqzڒ"|[ p9_{jN  Q{@G ‘)$#8Gtd'ҁa%x; jʟsguva%׃b'2hnö8fX'!M* UMz0ܾ1hO^uIåIą M&׊bԜf}ؒ(|zOMv>@ &{w Qab&6YӋw-L{|dV9t:-֤! "}zOp$yF,Gæ.`7cwiiww׬:33WCbr{nmN90,zr.r0Gfzʬ4:K1Б+ZI҇ÙU-B"z@#%nы6DR'わ9 JӘ'ݪVx T! 9{"È!M_ck"I=5@V&?J&x^ZRGDqN7遣\_=2yr[[JKq#3Š]ː"o L`E^\p N㴮~`8N YpwÅksxodg~3D*֋{jQn+^/!$]]w@^`Noܿ%.aR A SXp^iN"l;j>0%ӖYk7 CĻ!˪ M*wO6F]At5jul}zkt2`wDj{*{ѡzYbkPNʼns5A#+\u:jIĵd}V..0aMN7d-gUjq)y`+0#=xIimLWn/^]9B<܋!0WQX>pnki?  4/`hO.-_t;.:K-~U*$v#(Y Y~8s* "Df WafϖFO];dcOi -_ uk(}1\.{>Rtᗥb\*#I6&'צ;kC3z;\tGR͑SuV-Sr'fZ&[7c+OozyVv:[ Hr{~fy7@s'"dj7FFZZ,B@|d”*![M;w* W?YS,)hdtNP Vw᫥NĠG!9R 2aA`_O,{ < S6pIǡ'b7QJ쇇)63_,Mmc٩zm2{_Gܙ%H?5?1 1aHɿm[}I~AC?[8" %ԞI_\{䂢Sdbf\cr4]R"L(\\CtlյR߆~3C4|o} p) _n!,,W-WڃQgfć`N4mXVm>?t{((/vn6u:z৖w&Xfh=lo8.9?U]gLL&;xuvT>$HVBmkGG!~3rmaK(9˵.2T782 ԃaਙH̿ԅ'Rq.jd#F_V2bGߨ`R@T;CM?*"vP-`%K]TF!~̚SP"\Zm:t_96ܤd/`[tI犆PPhX:A&(|Y yʣv&GeRQ@&&lfm9 nO悺S]nTiN 3jM TvJ(ٚBFZk͆e _(Z/5`2mZ9L m6lΛ 2~2?7kȚ8Oם!P/́<)9nB pvAkEۚכzMM'|,>%ل?6-Viprk> 0nAP0p"s3Oy;/Zf#.`JЅ; fl|FFqIO]IZ7h#wV(݊;Z<Is*VLN 9o#J`eO;RRw3a"2ֿfפjj B 9G`6N0^8$yOp=tՊ@*8 A@Vitݨ[T{ w޻ #bL yÖsbT=]rQp` :_u26 #$Y^B9Men^-F,gZ.^ [>!ʦa/~캫V˔/Y$ 3?clfH1 A ̐gxUM-)($vKra=<}A-T@v)*{<1O@AthP x m95|pNCWM&O>9gyeYAOxBSO˫0p~_8K(ER)`tWR Exw;% 4&.lYpl K0WŨ}+FM`> dj,4*0y%^DZ@"(A\RԉG~kuY[Iz ='?·V@#L,.[문Φ*I2+qR} WETDr=t :u%AvCj"[f-%wBpLMA e3M*8Fի2E'9;=(}q2qCx\  N)iy5a%`$1'f ËЮ;bsVqW5b*ILڎ׏ENf0 Jf9aZypŹpVIN"6n^Ipv`sn<|auI梃;FwW_)&J7΍gzeH R#ΓB9iJ ><4T1KE2K)I]g4$Xk4睻 IWR}s>zJM%]i rSO.9@B0NѼr e*M5jtZ"`M>`/Q ȁ{ D A9"ppQȇI 6YRe2zcʪR4tna d, ABO-%R2; fƄq%17뎇ܶ|i{7b~T7;/)Qcy,]EO.6 A)imxy$ _ T~%7D eNoe/pig)Y_"w̻#{GI &lh8"Cy) ?͋2"iN*he-&?!4 'Wo8J|Glԥ{tsJQ/Q5T@ >2Y \T'82&)4PxVsu a8׈P6rL_Y܀᫂R@  #4"?k^3,xsen68ha8hvD( !5Q7Ro@߾Л54=G9hb6o?l0w4PLs`A*>#Ѻ]^f?F3O)x{cGHdL5+T˸`ې)͔G&5x#)mHf 3E8n#Fu5)r|^๥8"easfBŻOFqRɎC{НXtoOMl='=anS¡4q?T,|6>+B/먕R5&D"6Dң3P药+U-~$QUޣ=qAH-4?Spj>VuC5B@t0Z\+f~V' ZA /(,i 0害ԤՎBAu`,+œKK{G-{u_fIQ_|k\=h2Ԗ7! #){O Ʀ^_D)D:u /.ILn#atp>~].!ҌX.SO>^#fAYeRL_Bu֦IЩkb2c ]T;yxw˴:wGmrG $cj-rk%#e%(3ĀqJgo]Ŗt@8x&FHm7?ft dDBcdi@a\Mhsp2×`~lTCYch;Mo+BT # ;f`)\Y_?5P*2"hwtz JDZjH{H5Wa?Z Nik%bVIσ`Z6rTBSICNO1̑-!R_]VGFC +h'kT6)31;"5Mq'\hoѮR*|ۨwvB˾`q ? [ʧMbNovَ/>(yjO۰al-D\&i?:C.+M <%ŞVO%uTr YOZ@/ ,V" R223XKLxv # ˲8sRz#غ0V7hݞaL_͌S|Kۘni.-dORBnZ*^,+e+ rg4cjq  2;~ bDC˪f:]=[c/ԑIGG;to|?j&X[Eb Q5íy݀0G!J8*?-0X2<[k/oxFbc$ #HI(0`} H`CgwsK5UڀH1N8_Ac-z:#D89 ;+LU{;Ab=@B>tS8`Ls/jBdOדr=M|,K{LA)10J<2Ub62k#[61SX=VRF{&zEϊPyvƁCw6E4T c4tmUz'5:7Bh# *yg9F} 5y,c'kuR>mB\q[<䏆]Ne%(!JW'}w8۠^|m 1w]͏!L&T2`D9ܓ`8No9(Slf6/o0sChdIk\EOӉF]V(\u{oxmvU0g6\Mc 13}Ows\"/c^Y[ql7^k]ꖚi!x$ Fc:6իө[hYeɵ sia:BRNGtU/dW)&FMx$fGtr,ܔfbIS(X93<}2 :G8b!GH!( ՗X,lE>Iӡ>:0s_!,MZ) zj휇Z_UEh|DFG5i]۟K1bR sJa0s&Iv`}" ^Ȯc9SQctfUileP~(eUru̬tq@ǁkPTþJ*G޽I{7;8&|Qb+N[^K- \v /5?ݟBYyfVb Y'pb/B aC>ItG;^agyp |5zSِτ$5~!T yץ oX5Tމ[3i(EsތoXl>Ȭk`׋tYW],z;)#Iŭ璁xT6RO9vU=Wv(#Xf <Tʱz`TF x% 5E/w+˖ K{,%CDd䯕g;8~4obɍs hu18jԳ[fb[Չ0ʻO|J|GhZ;D3;'L YEfU1ٔΆ>Qm\;PI,kk > {BF>VU0 p^荰}a|CGS}̗VuK$UΑ '  P"rAL4/3/K 1vbh +Wj.)*]@ӈ (#hq=ѧݗ|C=g|kE_85UlhOW<2p՞>c$ֆv|eÿ^p*ᣩMNģk+l`-U|m:#ϊ60= *.Xc;ǧGD-GYNh͑ݔi !L8br` !{O/Gqӥӄ\ˮnk)4#OOx lSSv/Gp5.6w *NNjR`OE_|d'Z)2t݌ŪXp>Ks T .C΃*s @3L׳3PqeƯtD†SoV}UB; ,_[G./Hq"Rnnݨ “}_#* YxmU:~%,WK fU$1WY _+U njc'zk> PS4X*/%#8ߪF7LAdoSZ‚޶q2;ɜ p;Q6Tl*+~߻-d#H4˙fV͇>#G@X#KG11?3N=T}*l*Gs%#T 4҃:Nx @TU86 KѪβ zާ Qdy BF,_goyU3*Tj1![+9@^ eR 8(p%b#6IHA: H|^x9.f Wu1TvRD sѢ E$(r?o~W%}̾)>J"!lձu(u4Ig--{}Iuoʕ"3. Wy?aACzCJ},0b }HhRNJ. љ:?AY*FxS׆FSu#wJ/grg9o$j܎b0yA>ӎ*" [dXjJR%lο/ecݿnǪJL5<(HȂGճ?O,$EVEWդ5H朷YF) V3ΌGm09-1}wkVwUQ^ o:g[',TjJt(_@hHO8a%j9!;lЉDk:8 1^d˱W3nyݻqWAFU/Gʒ>Res?gE[, ΠrKɇD0P ,7Ϥq[ a֡?#jucNS߰ xYD j+y\Dupcuj80:ERJ󉷽jÐDs ] HԬ,kXGYB7RGmw;qmAnv? D S1gj)jX=,郖ס2*8 4?' F4S* l ;ѧ= lOmlo=^]2;e3;{KYoŜops,qw3SFDƔ@ӝ "'^uK /h7+F(P9$<Ȟu.3>Qq`/4LTs;p/-"q7QY4sN3M哒A xPYM!l,ٖ |u@. 3V.vֳ`i) X[)(yXfՅ\XZWZ8%E{_w{D|K|H`q=\QN$bl4xj:_&J6cWKӸ򔞬єx θ?V4 eNbD틐}f6>i dE^x9?Q,Y!Mp};:hG¸e@^?"KitȓEQo(c#Q1`&۷n;Eis+2ˆ%컾FoIzٺM(̔GipZg :EܹoYHVHΑ m9 (P8T2ck;T|d!iu2IA )y;^plٷqAœ hnr^Er@\cLхU%:JtӘzI3Y]0,w'pcngL*.5'} ;;)7O8 s󧐍^ȷD$2KIYnUO Ic"IB7A|գJBR}#aqjWxMK|>CA3HsLMW£ 6$Sz[[OwG0>mI*֮{DoK,s01("`7~8柬mn̓?l7H  z V"݊E̖ 6gT* }^S+BCeW&S߲zçCjLZ0 D6 ˔gD&"D[NT4屼\僞=\GQoiCuMBB3ҕ)FP AEю Rv$9'nmdD)eP`&铚Iw6擩 jnc!-Wïbjnl{ONFa re#%Fd.Sc4ޙayW@XߴH#ǎ7yqk+ X MO4{`>z|g7C-sum ɛG]w?f!|76qfL+,1Ake|\a򗨜Q1T',6kGg<=ԫ&b:`}~% ^BwPu@ocED~(֩jETuK@s& roXZ96$nS(^Q{5>\H?/*chP ]R1ڛrko'WO>[E 杫wsQ8Qho^Y﷨N~ jPg9~ckj}/ Ƀ-+fH5MZQUmh ,VhV 5Pi jșjwdh9?ퟙJlB+UZƢM<} LZ̡@,o5e4Qoj9]ng 8nG7_L-; "XCBo7bդP;1rv9gt HX4/f~ 3E$8Vyoզ?aVɓ'g kZgyJ῜6Eqo]{'SPA7+kpRY#I_]֭ )N r t*s'c3!ffDFZG RE?*t TF!QӝkK9r0y Mu0ymjx׶DMBH.7 o|l'#|DK$s q X= ݺ@#IG,9>1*. @yBc7be잿 tOUiI0VȜA ji2~swS:Um.LrWb2SS.j/Ln4S{'03lcTۀ%ЊvVs`K,Y:4 vFZCZ?i#F`(1IS'j ʁk ~ՆV❮Q92*+7U&~tZA-UHz¤.ǃdAqV)$+a[V<+?VɽrJnmEyTxab+ELXS} [kU\'LjCy$8oj$99܆LlnGq&pHܭȖpZ*Fs zc`˟`!cG rq K5c5(̀Ux&6V6?mEoVpkT+a[d|GjXN/?OzR|ƞ:iOowsT,sYtc& z3&]DܒDn6Ы1s>tctR(e} BٞM|bkVHW: vPK3OɊ}꾲 B ҂}i$AcWC$ aš6WtHiͤ{F2Eo_[ejdW!-P=6Gª> 01Ϋ5DF&QpU|6JP6(0aZ%X9$$9~y,`A fkqaIs pT8 †:HZw`2?(?w_#1-kIIc7JnZ;$NTM>NJ7چ%zx%#oI3{_P6ڥRv #jrR+5k%4d{XovZ"zp:𖷳:.j!\k>O m'~>O9 lcW_9,0m&? ^mݹ2CW% x,/ĜU 2:c߲FUkn刱duLY}wZ9UNQV# ~fA Z6tV^b]$\)^!T.&֚τHj5rcyu8 ȌݴH7 mG?\ij6)iGgoYKK f0fM@qQ΅558qB?E|?N=K? i!lavUVBv_p/J׸'hnŬMY؂jtCɓvkSB4h0kiMZ~Mꢟc p| Jf81>ViP;' L)MA!"z=i-wFt]J@xB`63> gNZ H~\]oKɺPI -Pg|Du/jQT)kHlC08]s"W߽5p2t}ELf.vin#L9E0Ky&iv~v{bCf ̉ A1:eE] `+0B^5G]5 1%ҡm]jq$~O쿒2b ;0uK2&|z03ʒp' Ab^~6eĵ882/h6\oAN *Xg֍ Xg_6QrubE i2!ᩎ kCg^ߔV#qNxKSMϪ'x0)sKMȦj7CPDr]c&kmF9^&xMryZhEP-JX- Iͱ1z=IRqvD؀&/Wpއoӭc&JNֳ3 6o5Ӻ[Kn`MP]6x#;{ NlexLʭ)2+e~)?;)^Dnj8-C҂Vz;/~1P b3 oH3؞\0 |sf`C .Lp4s3!Q?{>%C==5$o|Lw\Hcp 'sd>Kn7BcO=v_<tP8ZQ/Xv59rɮA<4kALSTbC $xjSu20?CuHmUG6B)M - 8ijxL۸дp N5w9 B [Saq>Q)v1=~c")f Ӣ?|o flq}J5W }rBd%#oYC_`jDmV$F*{kpRe+|WYHh}y&y[;yHK mv`a.W#)҅,niC*yEhFT7]t_8X>ZU66?Wt[*RS. "M{nAmt9A YwH@хkp ~Hm&pȢfNw0 ]l$?xZ wD ̐_vUSOk6^bℕ~cU4r6X C~j|D'R^\Sf-_{^}\N^TF25 4%ݐ}xCM 0w6;@kպMP)Ä{Z\:A}Ol>)C4p;+= #uc!#g$-هs꧵I 8Ev"2GNV簃x=@((3U@ANw'I4f /'ӂ$=,{)cν*ާUukO›e;a>2DA/=h[kI|BӾmP&5lDyUri> \\OcĄ-RBT] Ia("'csؿr[a+Ζ'Hwe&wId a)A&^W뾸} '/Wp<I^0۷oeGa8*C"a*yG/%3eǢג{qŎ橍Ý&8E򐡂9+(LZ|= vC"?2m-`<тexC'd#yX x8L9>piYpM)ѫiǑ/,m/n=8[?42;W)kVN3BY^:rb 3 q(8毽xP3nrlz2J<Z,I~(0³Pc ̛o[t8޹i rñ>V(vrTCy"Sǡ_E\ΩH3vNʍ<ytJw!bTļDfq+5=[ሏsC5P B.HZbUߕg[Jr}BI>/HDkkAޭϦ {la3rCM^F0)YO /6u䬢M a:ߚ,Ve$Y]>wEˤ')ys(PZNo tJ6]6ykj˜zdAʴGWi qГeXa*\fa]8Pqft~eWI>h1.) lVi(dʹ\ 8rssh$̾U+7!gsyF\\uJԓ~0t^3i]tđ5Ӑ x/X!`u񠐑sW! rB՞+\(ե~< /A}ls:A[kOQ%A%*ڬĪ lirDO/}g؆=7e~x?JGyRţ5vEb! #Qi( :$|(֪g䟔J4>Ь~&Z;2P{2W{g#>eVl:Bc,)q>;.'?`y--b݅H糲 ACWwg3K.N$ahaO% m:?W$*Us -opBJ-Bu\ܜ;RJWbpFAx ('5JM:ƶJ9qJ"U__1@L"CBE#zNMTRO/GP팮Y'?g#-(T݋|~ZyE܂?$)]PSfŎwsN.S# $!Il;яI 5(7PGѺ>#* g!+zu,@"2tu zwv]’3G4l`44"5iɉ $t;>$4G ɄB`PwѺ5GEQS?eQ%UI3-n&43c iFNR]k<P=/^7O qkJ Yqώ7Utl-,)W*D(yyiuva-qӁd۬Цn3ZO߂:B6WuB+LT(d\L'IV98x٣&Nj7 A>!A$⃘lx ꘹wʟ2JG.S> j{/|̞hA!:>Tn.QB$뤡s5]Zΐ XZi!ix +߮P(Lkdx͖m%FˮK(ʅqm/$d~*+&J,?଩wROtM֑^*H29Q@rݦ[7"4:@h;@JTLT/g XD6+5ֵ{8wAj o{M ϭvS@n54fyI+yP-')IE"oՓ߫sv{C)(3_O9%G һV8 |9`z3 4ELEWD)Z{Ͷ'~ݮ˰;U\Mƞݰ13x`J BGg}"H})]pI+<[8}ѯ|{[SW$sj3^^5#xw8, :REP\PhDT8*Cl)bjn?'F2uwHY&z"P%M=:d4bQ3bP\&$T лvKnd9ކ-IwjPk~UÖV74:ŽN[(&fs}uYg!~{'Pg5TXu@y6Հrt[q1]A)5? n.$1gPxm)+ЮVzL~ȚZv5 =>j2(O1s@擉* Ø=452<Wƅ-+rU>e}o6~K4_>齙 ;%^>߸Wser͋\\Z@4dNaULiHO韾knk="3A٣2nKϟ&% .ue_IUlƫ]r1E%!B0R?΃JX3wf/# Mԫ01f6E:岌4 `fn98t84 {-R=~VVJ;?sIez*eк%}d a$tFN|u|왕-7'U*F}Ujm=wZ2y@[# ŸTbY:3oQ3"(6ְ@j4ahjJ_9ܜ6El=3 ⡂4⬾8Xj)f0ȳ o<'2nX+p4 6|mHkr?wc)KFW(8-2mz h^.v e(O5FOY’q/dl|=[A L"CɼFZFN.l0Y-'v2H`S[5]]lK@'ԻIUmQ!6 P3.A)iW$C)3t;(Vh 6oXT(8\AR>˸=Bn zo#d?P4TVVQPm9)̦;٪5OCF%Y Pʡȼ!cIvO>?lT^Xܴۓ]ÿ4-,~cbxխ},=:- ZooOlVZ9@iAbM[{Ϥ6hܡN$A%}Y0"*ئ)7'm(3`[AaqbY|P|-hi]2K3t:#l 1v=5FR720puXyRק$cc;-K층vtp[!d6Y8$*ou. 9p42#=,=|T6ƨ֯|"A| `.&KR8&IY~rS*0FjA$ %%ooE4X Ș!-VdCMUh"tu!םGt"2|j0I|(%z7ժ`%&KϚH_=PC+}qpx<i c̢ ]3\cgi>Wll]߂&\sHvZkʤ z'*1drceQ-{cb5ebBva(0 t\\*Wy*6\!>>SZkjDBD=AӜGC8? QYsYh)Ԝ렃T6(zrh!!}lTwxԊEYo[0q=(H4/Q/O+BO^~)X=14"JvmW@ k@.z/Ci=Ӏ|-@0ᦑ,,*N"M3jRX^a&b뜕DՔ%xHkE%rXroV%MK6M̑<`~ĺZVjIiY޳Y)ĬXF% dYyva|G zxGlUYTk\DF;7+ixOhR~AV܋.k .$~fjcjP}:_1dŜ*1f{] c S-R#נԁ g- cS6״i(hCzlmąR!":QV!Tlot#(󴪜!.a.X>xnrPI@Qz@ڑ2j *oTv6MLk&IQ tp9P 41[+0uabnY2LRt˔*?cIOh. FX Hu&q~t`ъf ,D m /by?r ρMi/m`鎪HۙqLس]FS\#!I\w2ĥpi{6;\+Bml`jh 1kJ\1SDWIr@c֮k֣(_i;kkW#5g#gSPG;gHp耽n.,aEaX D]xo$AǺOϛLY揑i'jX|^@"e|ڑ%@o9emҖ QqFֲӾn>p!HI1 7b1 $Df!wє̆nTÑ;F!4FE G{/ɗ&f"+YpsUW2zM@S j}׉P:o;R Ŗ+k as' u^ca*Rc0%bțs>` Ѕ4Et#z̩N׳XѢ0;ȈeJ+ JF*X8+ vFiϝ 甆vP*CmT@:}Y?u7/ȡC fnl!\qYƟ4OqEj9䚟cvZRQعlK/":wGu{u`-Uv&Orłz-FKD:fCަe J"q75o %Dћ|a;ď`#&֘`IreتoH'R2HVҋʿמJ'~K 3K.lKTt6c^u/((n_2ҽ ǒWM39*ƩDi{ WDmmKC # ͤ6:3@*Fn#\.CޭCPi7v}mxwB8xV1fت5q[qdD.653 6сv,y;ə,%AD0ZkI~5<;ыYr\N[)WBp:~ĝD6M]ΌSJ3J"&P-k}n؞4xO5& ݶsv3+ -W.ѿQ"tOeQ[)ja XZ;{X:~bN=E/;8q2 x€|bv\6SeLQvL{J1Z,c6+cZ4E3Nq,f}Q+ aћ$O)y`s7 l N|Z:}&߀#)+O]10OzfCee:e1s3`&߶ ~2.$XM G*^!,_ \\ԋ>|elKR*zNzQ\bގ>,o?i,'N"ȀZjP]ؾD ieεN # ul 4'H2D }Xޯx8rev8M,%OK#2Co֋v}Ì4}| O,XVe}=efԾPM68MJ $?zV~E5HE2[g,Cޔ0(__?3k>wRQ #)]}\g:큋asd$>.b_)YS+W"q#'@Eʱ2~9U1FKs`Ȍ`'jM-: >FJI![d;`[Y떞*{=m݇Tb¾fjYJclV4aUnk)h7& ^JM)Akvb,&+FIكp,X\Z]^1Y}"U7Nڋʠ|,,ȭTRmMܻI.H9YoDA={V® [Ҝ^fGAңp̳Eu<*G6vœ1xߑH{̩cnݶni]$RHTe$/ Mgv)';Ք8 Bi;Qe)r ?b>:͔FgdoZlJP;·4<ܘ:P_厂A %"W9ZkMg\vE8AǛz#cJМ;O5;v$ćkňhY'DLDžghz |w79Э8D}a$^E^z.3i\nP^</Ƴ- rSPE:aRiAc@3zPnLG8s_z,k`ȱCA#:Ob a /QAonڐUoD=i&޻f$yuvWy/Fa"1Ba)f٬+V/.yo6k8q"-08fWlT4$YBdT>TWJݕ`MzB4J["ᕣFv:9V2fi?ɭK|S'LMc@ S!hMI/AJ<'x7>."%yE{pR|yr ^>,L"n]NÄD"(6."V8{Nrs0`z +e,LP f;I_ZRw~W+\clM!~BC鍠~Ē!yUkvb2rwhDؼ~nLJ꫻f 4{$;i!B=vk f1isP]!Y=\l l4f޼2՞(}"[e>>BD_#Nj}Ne4DW# {fB37iFֳsvg`nzu3ABAfOմuhR%. W(j"@1 IZ߁^<6Ë19-jZ5y;([Kba`_P̷Jrds`Ju4@H*<7fY{7]=ȦTq(m<9S$4N=+Eм -瀿Oe5JJ<T͎K*46Ժm#B s4d\BFDɆћ01HGh ~-]0d29D3<$yOŋ}_:1*?Qzz~g.h/?Xp0F' Z+h hv)+a;dWLh2=ǸorzD}zX1N 6ءdPR",}T>q-w%ү)ujYk.dNKzjvSWؼ.XsOVD=>a`Ä5Íϯ=Ҍa}-Խ;eON"e罠ڷG뗋] [qL"oʉB &񂫋%6J|C]ȩlؒSzaS*KFExPuU+H-)1+uOݰ*>ZsȶY,y#S"^Uߑ9W]FV~p9,}ѼGpBQX9@J ǥ@e>t~5KCW&o D؋-`L븘cf‰W7ҏb윓 B'ަ+5xFB_fNILűƺ4T;E\P`W4e6Bx[0K|kS 튏;ZZDTk W諆 F%~zyrcI_8EDcPBy 3Wү2ڀWU}+ j@s[R۟ T_YY!6b{?5ħVO UB6a^[$i9ӱ{M>SQČ̼ dMK6{Mbe([ILodeyA/w[aS̛ݠCԁ1v[TД*kTO]viZmW 8MA2vaXesn{=|пJ1n|=eKXosdo~$#= ԠkUE% ;ie *`L(wrߞ9&8zi3D Kb;=~@oݗn~qV!ŸXKJ2d=j\^y_E2DR{ wN:\մ5^l'o${5l XE.^N 5X.:t 3:䟐fS0<뿒u7&hDnBDs3A+L̖VD ̌v*MpXo!$' 4G#0mDPEKBogcgKcY oc7aI8pf(g;v5BHGb\Q;^:^p 5I@}$8, X?;XZE7iѼ3l|!кs+_ԿU0%oVȘnׄ?6&jPZ5qs8†򴇅[AE%J.\=|Z{%[-O^*c؊9^ػi/]}Rgt΋'*Y:[/q3hbGM_KBG'9 )!=H8Tw+/Us,$^%K#'C4OؤϏ2zÍ,yaٸ^O0P`S7KOL-_56-Iv]@[Sg\UT͕8Du0+3rݦ+e# c)\]t]Ghx?=jC $ބ 1@ҏ2YT(gWD Jr1ωtVJKqT5]c|cdX-tH+JiFWl;5J 7t@ѕݱ޹N70uHA"c1hU"I2-vel)9(ZQ0%h_xϬ]܈a(2`Y|s(\o&Wa3O5t0s!&ݓaxJEdB8T* 2 Qx)nf}2>u P{R[cيy+nƀM)n<{;rH7 sPLl Fc 4b8i;0zΊnfy5pBkίPY辅q"wWCydv F`_ 4f!,83X}`}Cai[\F *L~Z'.NN~=oW9O{35Hѝc:':fA;/b:K¦atpt ||FzḂH|]cO}.&)juJ+@*GX{Ǽړr?d3:.7 |CWtMt?"l儔9:Z5QvcfX{0O29mir)>Sd8 Bpg /Kp>EC, sChޝvqDr޻7b꥕UdfՏLt7IkA^@on{F<;#"$\32Qû>sޜ,>&`YJd`(m[boɎdQkR !V8,cfQ R#>NcOvҫSNi4 Ů|o%zXc]F$c*"}v^f4⎣&3bk(}HKo=pk|(%:lO` 7/1&;F9,T>Ȋ4{8>|8e яCGjbspR c +} P}NOZI݆n_حgUKDe5\jdlOi=S90ȄV2 6w5tDM:#1VLNkJ!,lφ.1覃-Է_þKAەj}ғcXX 59ڍl3oځ+[|Ykṿ׿~xDJ/UWI:p&f#+idb% Y0 3-p|̀]f F{rߩql L`Q:.0.AzH[E6ţ_|\9~%-Js `gud8DٟIp nwM.`?NtYI:b#o5 mF";/vcR]3TcpZg^:O>C̨2 <1#;1Բ po5\n6W8CyӀJ >ihe#cj|͕):L`` .Ye/{wgan!0M$Ērɕc ]߬jYcN\?Ta#rCaKtv$~yf\IG85;R=1UiGfN/txHW!̝* $ nƉW_[*4Wwu;UB/GJXcۅ\a5QLmƽbS_qIU6 k% QsYUlط6c55L_um &Jtȉ80͍oL`:jx0"c'1=0唉!n~7r#>T>!)?F[@`'92u ]W`7Xǽ@/>!9y$u'Y PaxÇ J'QnbN}kY$2cCUҿ˔ 칍'vkW4 _=9i~5|wgh6chR0QK=E?p _7L+'[\ fпch(¬Ǡ" WD(oX 9T2 AGwE!yȠP>qu-f\,5H5䷍FV·d[iN} n)ysQmꁖzCPD B8RdՒpn~RKrNC`R1j!pI~~}o+Lg$`wyU_/t;e"oq:v[Nh~U / %3Ji ܏v"PX 8_[ndLt뜩t9F &1bJ\C̗~%ߺ]Y>ZCm8?;q.YEYj}h^eBZNΈBI^kBO$Ek  aMkkv;U:[6sm"aCK^5wNAcOudoX6ٛvhOZԾ?@/}E&3.v#Ho~µ =Uㆹ1i&v܎9mQ$ /=T}<~gz-u0 ߚ3.LBhMssa76 7-e ZS~{ݗLdV#b :/C4pGHA&݂jl$L_ Tix[\?eJpZVy.~Z @.8(9/^v#2V#w*#xV{zV$k]Z l` a?T"Bpe1f0dG L.hhI L~P䟝@@pƦoF?K8ģW0p֫gNxqAv{\=Yh:#ŤG=oSr߮,Izm=u.,k-? {in|ap~bJT&&ǂQ-P 5`P Pf]޼9ҫf]e-cJ^}Np#<* x vǶAǂSN<y3(}WMAv>52|Zh@="`HR%E+"'g -dS? &\K\^y +Y Jr14$14.ֶjKa;y &']FFÚo܎Wm.Ge Œ'Msg-)?w+tDQls +ZVzZ?RLe?Ϋ,Gz}k5 UT!dnk?:jjgYmÀm}M(jMų-8CQvEX0hǃHJITK)q+r  +'T_1.$Mc%9LTm NlS:0i">qH$qkVHtg+0舗_V}1-toS 8OH.gB°|/PF>u8dS+{WSg|Aկ;?'o.mړBƻu2?㐹_pŒR$,Tݳ>i= ) m_rЭnoO((Y@M@yu.%{?v ƳC;Ql@/A`ˏd^*"Xq64ڟ`M9OԤt ]cW*2w-?jz иcdR̘~jq{PR~}`I@'uJU:!*`_lI,Is!:/Vg(#_G"ܺJEQtH 7iaq͋=Οܿ0HNB+wcZYgmFK+?9`\pAj`DӓKyS7|,wT `c讨F,Er+Z\y򠄩`d w.ZXރ?hRy\)J/>aANȳ+ϜIEESqz0`p@1oVе h'eCj(谵X-#]N%)39lɑY'5uޓ0ro˧ @f|k.F-N?-޼'/} ګ$71P6@Fj äXA2TOdTnq4G1HaJ<d4hjq&a"JmDmԃP% !zO͝z=XW2S Lp}X'l0q9۷`;N|D8H1*dӯ*u]{ز%W=P(õq N$i89QL-bk|{Ts7zWBцcjC}z'?m"(z `#5\n[ ^5zP{xSeI)PKT&PaZf5(_⯆d!sرŦ.7o:bs/%R~ }㚸rRUU Kn-]9lZ30Ɩ/v6~'%aX@/ ǻVX2a{3Bk.IǢcZxM8(hE碈 /i|3Rw^ ׻[=P)VZq%]Eġkܕ\ӭ]>/}Nt)Ԕ20Tl9<ѣ PLϺ/SHǼ樫d.-8Kt6QOh39n'ܫ`^`wkMWFޒoNx|n%}[Mggu}:#?Dd̷ܢ*c&~"1pME=qB()FA]aUH})"WNAg9~zC0Es<<{ MuCȍ^/ לرisc2zؓp]f:>IeӁ6# {YIu=e h/Wl7Z9pάU-nCEXAb2m&:dU k)3SzG΄N!4fF6 KE(LX^{r B7QڷUP;4 JЖլ3)dN>!d;oݩ㽟5-Z P<ћ[&H'&ܽ>wz Wzl|Mj  w,h@YP[.R4uy刅/6ST @B[)"cWL:YŌ`RKHz3lY3(nhj$ q.׃ =V/{.OF Uۯ1QR$ ءr:+ps-ea~g;c/bOLim.{CĦ]:[ވ L+4]cʋ.xGLBHV5>E ?m {ZB]X`ƣ($TLm ӗY}EhlK[𸪄(?wdԕVF^>V\if1zy$KY@9lFu ^AS'G G2VfizKey,K׎J$+ N©KHۧaK}7@昞 2D m , W/*ƭ -wRF3u6:- JkL̾"t ?05Sfqg>jR$45-fu+v$2b ",l&d]ZڀXVs&*Gj`u71w<2\dN/^% @$O [?s_ v6*q?Ծu?'~^7*??ε]Pn&'}zEѼ<⃉tu>)oнq3>N B,/}vDnY\!Nuo'lU҈Ͱ{+/.A!V%yxd5ÚBxє{!zzDZSU$UFWH#NМA*wSΰ(;*DvPF!֓f= zVm`2Xf}"4ǑN!,I)@ ڣU ஠,&8m ىZ+O)fUDNms^s86EHdžo2>Q*t:gp\:)XZ "b ({,@Ȃaɥ˾jnteeOsrrjEuZ!܀ǺgPfy64Jp GQs6:=nVȅ:>R:]9׼8xQ*d&J!V=[ ܶC렫̻~Ps}{an}:e8"i~Nz\_0 "j< Ң=(Pb0 ";7漕/Vڀ 1=+,)ΘƁXPN;W<,|+ap/K m5Q ƅqkZW7<Զ .cbWdew෎z"3@1鸼oHF7̙w2<|I;$Mm-m˩|.:!Bsu1"j/+3#[K<E"vTV1J((TbUk ?Њ h9'Su8XХur]rvB,('|{'62:q s7fD1 pZ+r:9G۾ ?:4oV^$!-*j:(kNVVziAsG=[9 `m=܄l UOzJᡌz#zՎA.Y=frܱx]5]}ʆBatjoxRjK $8[mB{[1$t,YdmOUXzu5e_f $iSf u~EzZ('&3lH񾡲m^2/B. _4b InǩBe$$# &J\ƒNX4tq8~9_VH!L?BwxxC˙iAPxpKnl^ފM5ם~_(o]f/ 4OE- x|~D`L$9PO i,ShѥGaK Hn \Zv$Y@3l nk:BHW3)AV=e|D[t6`41%'%t JRNe4h8yYFˆ.U%yopq'RnD( :لlQ=RAoGc&KiUiwMIm^L6!"%V)i町CT/|H|,(q+C-D.uz;{UCN>mK?DBm8 $U5,suv ,CCNr#=;lyr&C62Kdj_!OPzg3Κ(ft 6m1Oϲ~iBS;QO}{KNbX;&6'N)Z""xXvŢb~GhO1x2aTO mu PuŃuar q ]; =)ǿfL,[oͥp9ȯBKU Z;%$)b3*Pn?+g2k~@xqinŔ(xE1R0z$/9.R0h$!½kL"j haN6fym&]vCR|fp著nW*U10+ͰM{`u6o;}ҳ]=aKfau<_nJ uŝ z=;w37\ۂ!/*,^ײz.?hyL5M( sCwkoYlZdɮY(Yvhui6]ܙBL2W#T*1 /'9hkS;0% yo10.H!]v„L*+tLW0mpOP8IWcV #[W!zse*N@orp1:7D)&|>P=,*]53>pJ"UfXc:׋SW[R d4_N6=U&HJt*1Uhx3X>*Mz8`7WxgEr|??LvUjJ@/" uM iU?ޤDhӱuQsptn)- q-Y]Wx|B:z1Jh%0oiw %0emNed6&R䪿*Y%鋌%'a:gVudwLj/%HUji?MmO\[+g騢7;0&\aNJ@DZE3 22RDi .+uIF?>h'~p8bU ̔$c()N ʒ8L2#'j.So#=ydbtu/£x pCjHdzxzZS?^nml/Af u*WԿz!>ӎ,Aj֍(}FEh!O-{Hvk)Һi$'TcZ~h2dA[r`0e)fZPЩq/I>Gp"'Рh ˖Ŀ9Wߗk3^Ks`?rN#ݜ#mVZs.\8K H11qe[~O*jL`A$p <Knjp#B &Ü~??M%!:b "2 *`N l@xi6ljz]Q"67z%a΁SGLί7XVʇco=V VzНtBƨ@R Ib2~6:A w֠!9ˑyT԰Hˮ=K;W96O ?oŎ.JVA}pdD0ly]@xO[Qa SDpaN'R5љT{@mJ=HDDZ̜ ~<7,İTj?(D`R_7ѸѠVp{3|އަW1҅~~rfZ7Yl76G/2i -2@> d;۾#}so[٘qm^=΍m_hٷғ8\ oWZKk=y#,;'5ـAqi1CJ?/IvQS])num fţDjk3ܻ=F0t.~OjMD0+4_ vn]턿k~XuTUHA;0U{L| !eZQϠT)ugr[Kh$,\fue .WRrݫNg*ϴd$}\ BEh/8\Ze|eQW -K:! pM\$IjĄT\(;ϔtLA`<#FUө?^Z"#u2FG!H0|H(\484 ,U!֜Iְ'tr#05>8IdE2j@8y;mwlC7~&'3z|Q"+@].;ЛAֲ-.Wei='- penQz)ˑ?C# "֦z<n|ѝkQv}cHyJu6{mߔ 8Yn,mƘ3$G aR7~J د@6 H@mF;fᱫg5\EΫmXd ٿOkaVӪr!Y?EiwSP׽WXAz]s.a3۲C+wzNP\H2 a4u I1`ٖ@N/u*6P٠Gur#PCHh#O:g`Ƕ!.F\ ˏYFhh1g6wZG_rܲ2 5Dfj\6kчdQfݦc*Z#7_d>$l98DٝMn6ZV߷O'PFx;q>$k\$t?%[Vky ]2?PG<38`'p>n\vJyD epU$;;%U/7L/g V(h1,C@ԑزjo}Sp-gh,82[[7vtΧ11GPY~ਥڗ};?q{K]VDPAJq|uұ!v,08fzFkS KΪpȌ5?;0Ɓ}JoBcM[|@&Fq[) TajA z`?Yyn#rx\GmaVa|C)"7]lLeR:Z1 VD4%U5rxk͟]Z;=$l\n=;S(rp^~UE9Ea5Md"}>85mLIUGZy>[(yyGۼ*9ؑOƭxF,RF PpfpwHBI%X\W:O9c51ל7w&L(؆I@Dl8bS5FۭL3Usrq(6Zz .2\y,2ʨ.>郚I !=y$!K.ʑ6V[ˬPTYȄ*c,\HBF+^Y\NUoq/;ݞr08tלa|ԕ_zB(Xf(3bXvp%B'%a FpD?N1jbߏs (QD#OGY!v[>\-%LZ6^Й$rCK,W+& {ĕ ?ķ=JOz[afzL=KI;[Ίv^):Ssْ9| "֮8ƿ1!i ]QH7(#ڰk*&ts#YfOG(c$㳎e+MY4 ) N_|g=̊g>Fu=0A|p")j(:9r 3*0PswhHBл9|V4odc ϸhDDw0LA(C3QA*Ͻ ./˲(JpW;)$E d%i |;X@[=EXj{4,r|!_JHoQ'T2e\N/#2( "_Q#kH .ʕB&"ޕ/|ҀVƣLMxTtMyoPl@IhܷfMݼ5H+D{t T;0jcA9! $եRy?bgT>Ew) X^+YԐk Nm\ۗ&~2g~:p[Ѡ*hڬol JخDLj~p [:W 7&~ e1)bs*AF&8(@CC0`Eyr _Z1h)#'0qz}Q վ&VEK"N M܈ u Vz!.m}?-N>iwRNsJֹ(h룁B% x.,!dep 7Tʒ)n&_ L4g?ɯV(z'əpB'6*v(V2i^ߗG^ Z}0mE9ʕ%`fN>9[y@dZ~r4fڬ RfΨc0!zg $d 2YzLDv.f?X\T|QLK'g}I({R2k|~-? gS;zW0Uj)9RBUM 0)ΆprdjMzUcYcO ! $%ё0a(E6xXAs?z 0:vIzA׭l0thKӛ@~G#6>6m佧}B vX_ZaM?#75s3Z8] TpB!|ϊ:5)od"bЯ@;,ъߐY/ O+fsTo<$' DNwasv r4ײ+>Ӽjgo5$;oAQ9Zk *^65#[L@~^Be9Y~iAEՓ֋&3d@rM#5q&f}yI"hd,"*u𣀬l~ ; OK;koC22K(+uGE19A4,òD*D d![%^M|pou0ұ$Ѫ0':uNVif84aj U&VLnH)2_%M mnb˜۴'ΘRLe,iCFwos8W>{ohb*HaPMaAI, cCSJdorSXVnJmy,E y@6":Il{ÜLM`!>T\395|LV~ȁKiK&ҿ?A"DJ#.KRv@/U0?;PwopHtPdLJR"ԧ0\XP#_ZVx}.xQ+Qp{+5aGʶy?N`-(͡ XrtD Ds殱{GKW.GpϓGfl?:\Z1/+L&|/^rLg+&f |dF ) ac[ 6*C.qٗR=724BFNUN-k\ځqߖElMr@RG6̖_= 0C>\2hYAKz %qwΫޟm1Ni`6mM-^FXH[ۿf)㩞{)@m5vt`'Vj!1~u4P ʎzMjД3 QV]w7M v%4.بɥRnZ3rM2"^sguSK# :M4J.#CJc?E4*Wk)GN(D*|9 ZUBBtFeʭz^hua]ÿ.< >۪0 z,M xc,GӘ^8Uɘ Q)nf?(>_}v)7LK@s;[^_fΪH$u~?R?ҥ - 1RbJW6na=Wb^g;J.QaKJ~49@I󺢀}k+ˡMr7³zG,Eˡ27E#`j 2H `,7Abڄ&DpyvpQNI QʮN=eoq#ȅ 3(|͟ǵ"pmCHZPO=cUKd;G1,cG }IIqD> ? b}QnEʲ_͙ k)#$tFR^ìYRid݂{H<5ҮT=j),NQe*ϜPדBZf\V1;:,1Hq[o.ٌi*;)d%#%Ԗ薵R WYVx!n mk+1}k ,AuU$4hxoJWa~Kʰw&غ(`ZȈз髠iP*jqhw`m {}7/#Ԍ?7ͷ|}iN>S^Hf-XGZ$~&^JJ(5KiQu)XCCEye(]- Ѽ2 u2,[_?-F9 71ArGA/ 28رڻ> 6FkuĘbI#[4<رhФ*6+:m&c(m'.[]+aeB, SeǙ-߈?<6zE!y[/vR/#N0*L59I).-]qT 6JI[(`?iiE.EφMdI~rVAO.Zp'l'|ۉfB>.rdNiVUf3 CtX̊q0=EU$T_-CM {@!^.K(X<;^FR_h-몟MRjB/&Päb9m6eI.Ǜ9XUdW#T@>KhCG㤱/yF..51[W$ߡM |2٥#wtcEMF[#, &'JOuJ燄-] Ѵ #̩<ߴֱV3i4RPRN'5piE1n8? 6B0LCSOSp|s͗Õ.B֖4>CyyJXgsG@ Ff6֓RW'xHΕl1~}F}b&tϛYѶ4,x">QX΋W^"`Xnl 헶o` }Tۃ?l%aJB:<֔ðv[(trxbxL !͆$G[4 > #=J әx#b'g ~̞@ް``-bl8_Q /,q;`S AA`lW> :s+It%$Z.=)ƏI _\Sֺ(Ojq 0Rׯa,b-j u'LvǮS0-j)ra-xHdV]/+R ?6N݈)Fw32~0!-l-QFSq3u2tAI6U>[?_@ADCZx FRhU#\BVwVXr¶}{#~c'pPWv!~9r0z x5D " &!Cpד$'ti36-Bng6j#ԨxSbC_FMp_~TXv;yDU塱Z!6C̈f4g{ E4vixe<0W/1- #gܐw&Q9UèOCYױ.b;7ebZ\Nӑj<5~u=&cJ @s$Ȧ?_#3{k+h205>Š΂5mhfI>dQTLPx2} ie "%\ȣVMC;C㪕P>:*|#p6m,k7d-O<'8}[s\άk𵱥O@9%$c"K=cȢg_/Tg2bY(lPBDv&xZo-f^ɏnМQ]pP_]Dl`(=2 1A! ta([b'ȯ Xqq 9JI wK켦#0 gl3#vHvLADrOi'vJ8% i,2 ў7gy 2$%V` y _[ׯ(:v!Q "%4Oy8}x <ւeȕ7`}nn /c GwmLv^=٪%+{m~}*0B<ly1 sXkW q+?tvj>1^IxTuVNU19]0(z]J1'Ŭ2t@j]̃ ܟKJQ Ѥ{侾>}w$/*Ef6KoXur Xu c>1|_UҁOhǧ6*eL_7t!o{J;=V Ⱥ@ϫHVf){왵Z[Ԍf+1k$>l2)nT z@꣠_/3 9;x֮\| /X):2:~ FErVDtw@VcoT%˛IJ'[I0' J7t.l[֓G+\ j?=,FR plkǧ#x1 =}{jJJе#m/wP;$ SjղmMzTC&kǞx*~U]D눗ߕ!N; 8iKSJtaSmǗ=|797y̾_ئ;C_V!/TX:Z3ѧ!ejfI׺hƾm3,KJ4V!c-Wj,^EDF[YiapܔiX-%vf}tDj]ߛ\-!ohq A.&]йٕ'-T`vr6o@x .߾y$ g9(_b{Wވ h1Oƀe nnDY*E:J}*bX^4ڡ&mhqiqtIE勭2qX8G=:~~8EےZ_A~fg-f,?2pD[9%Kl b;5OD+]A]qV3̡e4-녯Z]k*PUBgEqvQ .[@SRU:soɗPPI6HF<<&>QQPK3F3Z3wnM du!n B X7JOz#4gr0so 0y1h逯?#*"H)8&}~a,( a&D*"Ic9B_d}L)$ޅhfaEew(ن eZ{6ag\FwPXEX5y"ݞYz"C?5hYuUtlhbVGZ)-*TMj&A[ .` oş 4bA\Y E_W9)bHRjq/*>38.R(aှհRRrRloy1}(͟>YzP/\vS<q ¶!5畞&mBF f\sd=q9*}exWaWb,$57A@nDAz>kNцs? ݵ&#Wuy$/\:~լ)j7LBo.Vs50IV&!5j)6V!nZI\: UV+]co=`:1j*d1Wigauú#xGja[Ԫݕ&obiEWXwx c]/_?ʆg <1v G]xkŷB'iҠm}@DŽ .SG 1/j'O7ڎ~?EPR0}4QꃾanCcg޿_5TlO]2u,==IZB&HfFfguX NEh iq/g;aDIfR[O9=쵤Uܘvs>RjPz 9lc :v5$芰f1A@;BJQ3fkf &(ZhM@`q$y'F|$-;'Nm14م~ZP7j?fq%Qzd]&M|I[|(),ffW8.2-C[4 kox ہMhjx^ [zc'-`G],j:ju |aae !^lbhzd24JI'rV!TVd-hq<~(;! AFe0:4c7KXJ3? kB}o=}GK/&uujto%%G@8ů~risB!4.`FBp=g&WN ; :jY@ݮl"*񌄵 7J/,HXn)H«3RDFLtXI]aʌ {Ot*ᓃѫFs KcF:[hlǎEf:ܕB6_s( !&I([tÀ\;0N.8d䆾 U0)uo%1\Ůwh}yOAg^WP:/|ՆrEҨ==W$BK)~^9S~6d:D&^0 Fl9SEceP^U 9Qeϧ$=+_إ=iqDjIau<9֬v #ڶuuF&BB|+|'Psi`2yFx|B],!k(RȢc O+ wDA[z\w'~@ ,gYLױCKM"WYeo>Id<5/e_6B|7cPUɭSp 3j8Sl`p0[]V<J,}X|3˾X^7/%?LQMYt;G".5zNxfnJgY$n ;{J8/&M˗nF(ڊ.J9O"vaТE)|QV' мW.9gX}0T'hBlm;| / v{KRp4FZiZ.ZuЄ!) }6@Yw/xHC9M=:r8QJ?<%+a9{A^+^oǬ< jy77p6BFCC-_Sb9)פx+1[53VеtI$SKoq M=;&Lr.)s:W4VS` LZ. cFzn ゗_~^ "0J ɦtt삑b#'`=UAMq`F˴*\aVG㪝$af<8,qS2䴞 XIcoNU!R9lh| ,;&>=CIe{ wA+ąLC#P.MH1jYnNj#B4P5Z"CC:glS{VXҒ'JXbI{~(3c5c;#OZ" A߾yL]BK f${y- q(_Cp]숩8렎M<Ɗ]jmn4-@@ A1:&.֏i 'bL<֨TˡI~-Qat8,I T_ ]\MP>[ɕtRsX ,>m} i;: tq!J-$$~dx{ l=hTqaVk ĜXiGyQb6iXe Uf5-z*7Lm@9㳮R{bu\G|CٯNPJ fAm\g N V&C*)鱈hDCZL7+ܽhF v!^-,R} AK9n_'f{D&ݻ1hގ(ϽV{"Y--e0:6HdYP. #h*laډX(QJaX@=E[N]M87妌 ʤώ4>MdȒ; Qj%|1^skP:c~G[A;97k\UJܹB_7 u |Ԓm\fk/GZ^'9SxG_>N%]m?Kii[Y站s8Cu%XźOwiQRv&#uS'Ι$_VCvsQGǨzs<;9cfPnBfVw' bUxK<ɆQ@Nˇ;Ur鈹+ O*Q@XQ2'*vtJWYa*di}-{KA&\lR[YL<7@|}UGuШ};o pQĜYQO%M- >PՠObM(%}ڹ^gNǢʱ\?'o! 4 Me!6z\YiV@5k1<,i^ի\|>5 J|"s R7HaA+;@0~XZx$|%ϻ5~baP=pvK+LuI#DlZ`O\BƼ t@Qk9{-<߫>eR ¢W[|so-ĺ!Yj{/H{Mg.A\޺ “D^IM0L/zw{a[,/'y1W F$婁N5\j| &{=ܥ$M15;`,_CK_jV&-XgMl_qsJ=_{b^\Cpap?[߃Ec2fC-׏QH)iN5J_qߒ322k]wch;f^HJG9ޮ\T^R6ȱOlzȃ%5d[:vmLoV0\Nюge" Hͅ/xWkNkRJnM'ZoR(-$Vstp }9о\"3ev}uTJAa֭N0y&NX>xM{Ol/,v ]LDu뻫V)%Ad4>_O)N>y6$$}H{ $q_ 9DKyRuvsBK,,]['LNf;1}dyP,%L&sJ¦ Rp1#^*Q;Pv:=n08 *vs |IL2;VUr{E(ӸẢC2F~J̃p9$)t[+]f;QT/s康3Lñ G|W11 =RCmvCD鬔<+L7QIaA&~ÛQgpVL|< @zdW䷞ɕG52 f8 ͡\v( :x[*g*SE& K|/, >P#y4s3qK70$ܠwn^_>QKZH@(0A;-3`d?ykF}DR4jyLExz TpdU+#M`j͞e88ĩl[pc oH -+{si;DK]!eB Q/g (&d>F##K.e,b%5SkQ$|VY7Z"!Bds4QP4}0YƋ9۶s5f>tƥ(0%2uJ|ቘ|;6~+ȕЂZ]ՉWAT橺 y1oOrV^9XP!|_Ql`}͝wYj`VȯGh'j8Dթrc(@:uIDs}#,9]~[孀O Cr ͎isN}>K_0$uV0nNN~hwk'J8rk+Fu];؟ ٜB,0$K\|7/y-zj*QGW\]2PVd3I'ֽ!8\qz) .'3 à8LI0jrE\z$ӶG}(g( h+n]Y6zbϗVp_phD]2~ f54]8GCM?gz\}d#o;ǥ8s5Qq^^#UӢ=?[AOpQL=Phw%/PKV mm佔x8as|IQ*"pQa t?/M\ev~n3!ˢ071uy|Yy pd09'*ʻS0oɵK8qbBˈz!+Em@0mp=]c*O%>GfM3v^ތf%R:Ӧًuw~Ug_Ey>ȳ~ Hp!{,:9TWj;إFP2,Moπ 6@cTE}tCIScPv1m(OϮI "L;м/HC-t$w-jvI>`/zjf hDlL\cB-SC2?Bu d":j?q5( 5pҌu[ }[~}C?xĮ^"lÎ.y$w.WQƭfB)@`+[Ac*\5l'XDMA Ӣ68 @TIטSyA=gLFM@Lcd b*Zp6.DЙ&ŀe7ns^vhSeSJTas&njU̳#1+LmF @r66W G"ߔ.n*:%P)ߑbh򴾆0C8( L.~dW#$$b"W #LYH9m9 PiVd>30!}7c1[ؑ6!S&b;+2Ys.^,aa77R#: ldMuSgUf:Mh҃qӜؑOyO̚'6g([st)cBsX&:I.NDގo|hqhXsZx*A26Hf_Z,F9"VP'Jqh>ڄ%BpfjbDڀ:qs60NOf|p~SװֺQtWkrŭ~,pE}9#kH]IVZnc)n)moO!f/-H>檑ݽv@-#\\ݖV\gf0[hq2tvD rVW'L&XAb*X&v.uEXUAZ>N:<7HH`/ҷ {lҫG͹'h$qNrF"1(UrM˹WR3MbCw@1w瘏\xcRM1 rNgIT?_DDN6e)һ=bx ׅ2nAI}.`+wrߜa1Շ$Sm9w\4$>'9x/c%wr88FmTt.թOޑҟ= b'ćɩsuA<^}R Fn\x+Ɛliov*LԨC-8xx~jlyD1TMU=F^ox"y3`|AzhFup"Pv=(/l8dM yb'8E/m=ݐw_EQ40lKO2rىx>'pV_'\F'@X ^tj;e|:\̒2=sb{-Nsl]dtԵ JpXꂭ0A_C]T{߾k%xͰN \=l LˣѪ9B]S[ԡ{ʜ.::~_4AZ5(RwL DuSPG! }( |6 ӵyA=1zBI Pˇ`a1׸e=_MFzthKl3Jt/|1y\VHZY C@} ͎2v}>FLO^VG?w슰7ޑÒ6ǬBbQ 2a$xZWCmi SA}A$zQ[aukqqB]0lYs ζC4t(~z$9c=z4d)STp 7YBڈF%= [!(!*mT^E>Q^ygx7qDW?m.&,n/ Q5$>b9;DC 8ѻD ]wuUg:*[͉Ƙ6=!Es)\VPS߈Hb’k/&'k46o&,;-M%DtEZdiSTڝQO]ca9n0r5[ TDi}% (R}urb6@G|^rʂgvyPBnzIq[sX @04Hj@x2A5gaK_ߡT?KG9*QC z%ZY+ p7O:;N_V쒉 H]w20BϦ V=ǩ<?Cwp 㯓iR^Xܾ͑PZ=(KsrHfp,bJj x5-*r7gc8DՍ<@k,XؿrD@e`g^rN'1_p#ӑSgBZhS=>-% f\ҕklTM۠ 6Zc cp:]c=B;cOMV EDr/SId+ &;y+*?Hv&yRN%76܃ ɺV(MkH"qM)Sz,'Ep\"h u_{# T0þ=U?&YA}[h zqu$$E^nW!E]6ΓPP:iE% a|%-$ξ9 S\jgn_cQEٌA#6TqX]iv[[+ 3jˋO04zLjsK"-iXoAUm4q5F.K㻢0dܘSS*s5]~FX/YghE@VBίR)z[ .K/#1cվ@8/!BwLY :ۢsRZFUST3{3 qg?E4C)E1k Zr窙W#9"m+umo:øF3.=>k;bn3Ә[ğilqˍf`b.zP(H=zs8udVtG-+9|LzA]<J R1 A8:HͦvǼ-W )%.MCek"jM0 Ǟ#YYC^'(834Jȭ\9 4۽R-0?T{JʞCivs9NI l~Nct?xW _bv'fPZgF~ bHd5a}/[=PHjYjWZda@j(f;օo*5RaNndQ]R҆=,# (i*K&d6<|x7+8E90u ]ޢ]k?sYy7Cf:=hQ:pd"3e5clmS?g4)eԴ ظ'83ΫGy:i{od zGW -}9.9J[ rT95Q_j6!L($h\ GT*](wA=!)%jDq CV/.ޑ ,QJ{S74)n]00T;C!1* Vc=6gg{)QЯ(GZ>-,#Hf"h(YzvVp/uz{$<(VhDl*! cz֓:V< !eͅO9"WeUVӜnVzdy'\ʦg"O-a<{DRs7χ\(_p$ 37K2{!vEVWcLbI&Hu@Q'}[?䛡YNPm  7SLg3! z}ǭT*b|"1t#As&h3)D4=)NeIυ'h@4$4zOz8_qwk9DD!|=L z:4O2^[(,%`C`ci[Z& lW2`lM*?_[y(&m=~?` 9VHRml-.|I0E\S}S^ߚ C}l.VN?y0H*.g1ԥr A.vW<~ic>|[!Ƃ!3; D9'z`ٷu;[y406V-pt63>xM8. VՠlgڻA<tEgdMz$|\Q d䴔綶O2WF0݇{U-F|ǐDaϤ8&Gb h:IrO&a_$nߝ7밊L=`LE L& kD DͩSY93vͦ7|-GueJiѶPB焑*sĺX9>de„w8{9;޹K쌓)'Os. b-qe ,Y`AUd9p胑SqLC8cJw p.[Q74d)fa/K$iӷOc1XrׁgR~U͊FZ|E=sC e|z/͡TH !M҂Ǒ)v%AlWE&oYEּ:NM~3xly㷠l h"Q1SPI$"}sZiiNḑ\fʑ_!aý\i}900Vaݼ$ĩ]RJXev3.xyms了@8Z"cYq,IrwRk%H[~5X(=-s*v09GG<VWvG.3 JbGQz{6,/d ?9zm^d Ȉ~8)JR-ԅ)  8O `ŏ3rd]s툏:,&yI1xD:/"v{+,޺զjW͌؉FkP?f*?E׾d &A `>m ܐ#I ZQ'qˇy-PrJ~}ONZҶQii3~yáM7m bdl-Ĉl[W脯V}M] QJ#N OyPi 'q&:i@^}sNbQ+*jb ԠZٝѾ1]&H _`}Yy~0'Ҏ хP=zOVH>wyk_Ӽ=KFyKyz;rhU/U+ E)ĹԔvO%+q)Hңp^g$ .e-ln8g2!XxH2ǬTH Bm>ә "FB@h&XY%V1tok0znJ@ h)gr-wFS&jGSXsfttƶS6hdo>26 ѪOu~B*  @6@a ;~Ź^םbCJ#U+Ȼ^H'|P 8OMI,vqlyF xzoI=\9cvVZ1Uwf}B7L,ȉwzK*C jŜ\KQ*~A0vKz K^+B_PßVc/罬&7[&M.u4ԽQH,];NpĠy+Γ S}5^?Q[}t(k<8q>#rN* o42M F,$$xU!E"0O׸p7@=d]wD3 jz%Q^ 8{UZ ܠjXWʢR#4^>I*M3w)m [iC:]䇇f1/>Io9WԉƖ)X4X^RoLJ0 [4S.{%"G(e:#݇:c4Z$kO(Ŕ{e2žC0:j'KG9bˤGcBg!>(?tNX@cG!ZO{S!1cL6˪p /Ya<mo V| i =qrdHq+ո('8Vyh?rO1yƒCCJ7r( l(,k*}óQ0( _~[˺xnK)+>e.ن3rBl=paxiU">G Y\ab#Q4F]8G@wæcx1| o'u9Vӻ>-da$َCk>#ѽy|xƃ}|2[R''|nfJd GܱR?Lg~~D]2[T;Mqh3*fjplxn`*ĜvUuOsKP73T~@hV&a YzT%`&:D8'f !]EjolCiC"璽>0Bܶ "$!q,+PXH3bn0%'g 7mC;] u/!a5f9'vףϵ<@И! +x&y=xt$teVsE_kI<Dzg_M#.CISD-(I @dljŽIqՓ鋝-3xZPĺ_dZEbWW"8Xnm^LU e_&_0Cf̓-ΌƤM͇0Դ9aHҩFFݛA4j/RPG?܅ҧҫJ 8~:$tS3~vAhn/士dڮypM֨![ .,w{KCR%-, ~Sz4]dgj׶є%M~6D_MwKR(g]GG Sq/NݶtWz]z84Ou+g A! by+ t5?BrƥXw^MNС1)^QS3=?=n,-Em[|>ڦԓ5+b}?}yڋtxN]P/X#,232`TOV*IiӼ^證R5nDPGƉR\PK8qw^L1g:iQ\&N~Ts;wXS&j9JO/46Usaa:nֱsn0:Hڎb`nG*>lR?}'LǷz"M6!&#x]`$d Ig1& 7E BXH <3= :Q+;/odWJ";np/EmQ1aa:o#H",V,9^"e%챘f(:pJ{IńL;j|,xMI9'֗>R t-KXdQyr?WK[p)kC(1YTz iw}BEJu 맂؇Iܶ-lqr>-C=K]Uō"YL>Ne- : E J/(e\]51MEkK!~VBO \x7~K 1휰dxF"/l:Q0u4'3^Ds$ OȌ;2 d`VQ$D8N#H(..곙C*GKE u!X19Xr7/OB@rX O\=8Qߊ!aj#5gM>VPr#ХIC5V2fByrSBٕ v X<ݚJ.4C[9\LWn_ A} q4ޣ4 '|[977Z#@7B8^2] 5]3k??o@9G6 {f7K+}O_Qwxj_FlĹe  (}d +D'7O4-$/L GwM,0bMf=EӑjޙL¸Gڙsgh u Iii%4hg;jφV31:ܗn $ۏp1qD&`Ay\ 70CV6XV zg \JoqA>9XEZ 4^s7v re3gE3 &$kp$-`յl @Kci1WY}ԑt.UE7lY b "%OݷtŮLMխjxG!읛r%)'GÑ((h4B e^DvTjF0H Ù".!PIz]-X<9Hayp(oh77|YKweX3[6D$B" ;Ә*%1nޔ*Pe2״ulxu<|/aj9*3\oP {N¹>XbJif%FsO30e#B|ӻM[״~ rw 䭣쀎 s܎Xײr2-voْv,C]L3U׳# d1)櫧 'sQBz aJ< 搸kECyDVa;yqP̗:*hXC@ 4Ĩ34N)Φbz_#4nFtZ{6%W(pNP\/^%hv{=sjsZ*Q 2J߫-xw ]޽lEFٶx%Q'5}&a]4rdo 0Ύ:,olpxc4&ƝG.U. LDAZ!< ˧3u3'epK)е$.RHNS" νӤb!rq1 !E:# ͧx{Eve:d)Auň@ ? ^X x /&97X4noG)F}"*Y돼XG,_}PQqBHcqȐ@60y""Gs hjzy=Z6$DJjNOAL#?-/yU^S.a`f3^y|#I0K[Brl6#c˺rҘ+a hh[W\ >; RwF (h?!*5Iq{Ye%WQ-T$ ,Tw@o%&V1H^5s $ibJ3=ƏcWQ+xo1[1ΛKaIȵB& u>M,߯u; ULQ}ޮsfY tO$B-娽0tA\ZC8 '+״͍hu `Q7Ưv=;:)؉7 H> jFdF LGHЊ(Y]trh$2 kfыkDVv11ICa^6\a~lMNX{@/c< K@Wc9lɕ_4a/ o~kD$R[T/Ԥxkadq[$E$]Qڳe%m} %baBKkV4Hmww|*1҉U_Ý}Ƭ i/>>cI)dQR3["^D; ˀYSgDv+_A Q5zF FR wT˜sA oo}It`pCx]*yX'oUz=_x;NqrW"f0[ͥ#K!LG6a#QhSU$T"!Kk]'Nk%{xY)[D(U6CP/޻2jqrza|/9ݬp*>a&xƆ(+vBDiaLF-E~8I"O5qP^4LR3K;TI8𮥾CW&szF2\Ѓ&5f(8{FaGn69NVaX5)5YUbHYn (=,zއE VHGw^)rRWjc4vpz8l%⽸jS=_[n DB5hD:Cpq8} .ajM_ܑ ؎JO,bZt)'450ҢV+eS_{2,E頲$1H&Z9ñ~ [挭S- p,b[u{i3d2PS$7h[:A<̘ M}iy<9CZ⃀D,Lg7i+q'\zo[P *TM! Pμ"0bRCf$EI0*(pvRZؕKXsMq&4\%shLR8`q δ~('T"FzŰpɇ˵>E:Ά4 IE  Gnhȋ3|wno6'7U3} }[r:5̮S4+;#::j5bEx"iJJ%'5 V@@I .fl8󵅦 ڮoyAc~ƀkp'^My0bej>Yxh_esN1!g0TeCiQ0}-2r&+ -æ88D(JpL'xUr\qT J1J 7M {a38̩X^fQ}$GިEbd>TFmf֓}qE%8 +Kn*X;KW#µDD>!." dIRgAOIQ0? \"64Q:n_?+ɳ?Sy\ٯ!mxY͎^-d) 觶MJeH̹O" 50!eȄ:--!ʸXu+dȿ  La7{&1sv~[ru?h~k%>|UAf݂c7o^5LfHOEA6vbuM.&'UPhDgeUL=Y2g`L4wei5ur7ֵ`>*qEG)ZSp>AۊJ?{;h![WM<-O8|i?a}\;}:y eдO/g"InGɫd}9̥ܝ Y²MFe󏰚M0J<-58'c-JҊLuw$,3[$=Xf»Φc׏008YtÄ ϩfk^\uU1Ճzpœfp65gĭL\j.z'e(;ً! BwjG sՖӐhe?!K0ʇx.vqӊ0=Y -lw 5 t3l 1!'Dtfz#fVnjƯr-v&wGY M$46ΔxHR1e|&=uNRd/bz2}{ 2ʜF|h;H*7 / TNN1Q]z'~*4Z*>,B_슇=ƨ=M}oJ5Pgam0K1@ ;4[9YU#?<7M蔱'9@ۙO`gg4"jo(%.8홃Zdo>!r0"'hÛ4۩{({Bm&k0W[H#T PZpDXt4?xGuЭ<.ƔyU0DRc/U2҃x⯱ 巗iʘ89~g؃k /l:l!rU݉A3 ie=^UFnojx7+`ٳ:|&Ή EՇ`P{g圁Q}+䥌v6j*zFaT \/>-X,T-M)&LObO1ft1P&% ́Uap5է,q["#L*oa5dC~hPI V}w46XtOʆfZ^{k չTo(;z6 s s8:-͚.pŤ L{^oJ; T",ˏ]w8܋V3ܖL#j{r̟$M[V**=| ZсN>EYA+ͅpN=E`k9 ImBoEp{$7-DbC.f'ɫHj﹭.ʍ˘ۥǏ<2֥wtD3J6 dQᆾѢNEN$俞5oJ23)~oplrhxwIFcJ("\%V1q&B=kp Tye\>@{![P'y^ÛZ uLZ.mTs%8iňr(1fVoTmTFp2ҧcv| 9kۺ1IhEIVM`wAq롽 Ѯ%HEg  y"*Jrj8:H 1`~m{7ၺPG r xZJ 9ߩ o2*GPb|,rߧ*4HXSqNWQ5yG}B}{(>\x /2k+~{B? ANK}~~߻uKL!b:e܀fJE%Bd# mrPp$Wړl#5 >%՗[[L)z+!ԙ%Fe08ga-B) 71 %}Y;O1 >?i? Jd t-u`jLAo?Na쥗5zY@uD4QI|bǎCLp$JB/4- 5gG&bl*v ̄؟}VvcMo}'a;"J%əc\1ts,l҄޿zf82rwN;Aʥ+Nhdyi>'Q*WtS(JOH><Ԗ[r]Jmp%: +{ᘂ5ڄW͂Hҙ4$*F -\'KL3H3 3C;)4Sl ?jY_\MWh.0nEa'׵+4WXcg%Kp;%cJCr-ƺx $w#xY명d{\xI2{l9f-8JypIžc[^<}=R+X VHhu=)i3bI8"JFXLx `,o>ZXՈt%<AΖ i2LWV~+ى7+`x>VzwӮo ףUW"]^ȏL 5["ݖ_g5z]+xv385n[ddZ&dw-ao4Wq2t*ZY9|1p~N?UV}PFkM~{Goei=~b๮Ax>O8󂂎AbZ{-_}63ŭ[QEn2f%*f9Qlz(4zBk&_NE,y#d$ɟPݐtn1{Yk 7n`.4'Ȫ[O{dI& j!9~_mLyh/ٝ 'e8pYR Z0Sm|>Rֺ$5 dj)H|Б.v_<>B%P[5"@T¯W]c&L[G$@|uɒ'tQݾ R \-<ğ)*BV˲i\9?=i]`svIN3^m8 RڞD}Wx4 b ;f$idMl{zdf^9E:7Bm ߺQT $Ԙn(p08 hߐ a4%"x3׾[?op Œ9!_+BG¾?$9EN˔Ě$BW $جEwɳ(5%fŊp\wM7Ŀʢ YP #OLG'5r@Ӿ5 ~rTb}bTb]UJjÀ=tm2پO%u?4 H㭊q}|e٧oDz8DHLvGъ&zሚ afrߖQ v!D!IjbmPcF}:Ky y4iMq(P)+ڪsm:h v1MQ\mߢQ*m'?^w_ƫ.vuQ!#'TsX x~3͘]_$RJvr$U7FAߊЫ菫<VabƄ[ƷST$3?l7@H@},/;c>ʊi \۴PbX[I45 jx_OEKDhkLyHŀ(Ҕv>ƺ߯_Y>>Ȫ< ݵnbR ZHIMnzrUvSQA ͼ}D d١slGBO|4M^7_B70Ȃ1)+ԼGeu9Ǔn"N'юZlIр@nd;B3jf7ieA2K#i٦|Ծ/]b(媺H<0{vEР'Ϭnkjw(O$f:U#Tqu.)ee|mma@ܣ۰ ~|_$V0;vTJخ!h4CiU!YP rƾz+*Qz!Otj&1NТX8]V3j ~dv@*F=AGB4\ir{W~nktp?Ubdm+d 'ŕrk>OFv.{- G4DNs+Bع$ %ښ]YV#` o60/3+,F*38}kGF}a<*ۉ|X?)nG\s͎[$ㅘ8)طYffp<͈x"iXUy [$=xKo=2%+; P&UT5q-@fɋFCN`'-luUZh⇠]_gTb90VhN:g<ތ1*=qtɼysߩ+j>mQ _o_0~?T[4"Eu ~ͽxa7Ny)q"-Vsrfv\==9Qn{:>Cc7-D(w'tc@!ݮNŴL&HO/Z ~7bZd R!V/Oz` Sy#X`NvxZzLs+!F- RY#m/)׈u.ꮱl Rb Ӽݿ89 GƚESd )3G릀ݯ| 7 Iwm&=۷0v'˸*_$؉.`SlSφgp))*5BI*7H(ՏjuRtmE~~z}1߫qzMpkEE f>@C9 (S>=ӎV! 'SoDfTyۈb[ҮIȸPA^PZgo_gnQqPyаFTjB J{D?Zװ~@4 \'5f}>@\//!xr W NL:[;BSs0抣"Ӭ;FvIdҜt4x-$6zXCmV{|CvˈB, e KW6^;²ʓ(96QQZ>ދZbUboqM/:G3;O/= i[U>$ t3k1Xy)O2 >,{ (qKkUy7;AIOl.ɶ)wbD-1^&mֿ06&!ywH"7Pꪺ@.%l7^3&0 QENEW)$G,т饸8~8{v%* (B~9'}6oi&\pn3 v1 c \rn~/qjH5P*diwkڡ{бѢIEZRZk4A P sSv^|Koy`wInݘ8J OPE\#ʈadBWo5~8!S#?"T!GnzF5"-V/XCDbNSh(B]s+q*/?t#d_b B8 %6+tJNnϻqx'f$huFsv@hi"6b^^MgzWAւKߠxo뵫m #07Zp9W>3L~Lkƍd>-,̺w 2RL ]){zO+ػ`)̧R {GMH5W_m{SC)T.xP1ȼCW\/4Ltez7_R^S3j)+6Afkq^hM΃XIy #gT^4إlhZ$dK>5wwG" 3J|GQYVUAƭ HSL~:"ܸ{X%4q~l q* ((ht?퉵ΏK^{ ]iLף@^TKPOO#\ydW27PP/@g2btUOAtQUG +v,"*H fWye)E1## r1#0c񵵚\zfPSK "穐Rx$;I.G/!C}#ZkCʝTv9p5^lv%ͯ #}E[A #Q/"ҴCʄIV9C5|<{;&7^{NV=1.PvQ#3~sP徢p::&%1~xYtf0 +p΍pCDqR6/}OF&Mk{f$哅s-sZZVp$trCɍ3HBWIN=:FX}K2DʰNI_f+IeAwc ca9k(m4e<_ k=f d%k^ @S^R!ąNgI}'{dLՋ m 0UL K *4Ěee \K$kC#&jzfKP]`Iذ7e*vp[WdrDk0m̨<4w 7WE_3 DD3o' /!H͕,FeF_갱G&:# J6o=UHj'EDm7۪3 0 R A@6X'eL4q geݺqTlq׺,क$d!tyeE\PC 9 E#x>eO w<>z&ň!Zժn Xaɂv,/gV'$If= w7!ƀBsuoƺCd@L6{hg5(Okm5VG&CglsSRX]b`R]Axp%)ז ư$`M@4r ?+&+ 1cxu90?(?7|wVk1@9A ը.ZC+vy NKet$/=,i4)6?XDRLtxBmr:Cv+5ANtYTsV~m$MζMؒbF) { i9) ajf#$4b *>h÷"j@a3]Q1 .p8ٽ3/B!I79N[W}N[Qa&fim8ZEGk.S?Z[R*i |1 v jdS6Q08O֧rpxN}[<֧K0))¯KN6jP끊]G4i2-^ΝwD8)0ur^ F'@*"lht~MT$4hA{jcxYq( Z>iZ. ̅;Z^ 2~FBи%_56 @m{J t$#ϒ)„&vj53C `;A|<6˛~ř708sP 7G.Bg6 Y#J)KL=W>7#t)qe00m$xSԳKZ7_᭷@*8d(d{]EOnVv.a`"^ rklx4 Q&P&vB!'5+sԩKfO.ݑׅTXb=!N *YUpִ(]<?@r 4DKC#|cP\.h*ɶ'2 Pq#y--4t 9u|2B@Ci1czlb2- J?lpen|~z(Ү ߑk 8+JgA@c9PTb 6 ٬Ii>EO5BvȧW2ioFlجn"$W]bNL┹vL?L2>ؽ'cu6,`oTȦGc9[jeiټJ.N@y =ֱ- is9',JEIDij4vÖě,أv!/[*W2Ǐ~ٚz8(/\J ySV^ ĸ®- t}xG1 gb lRH _v8j&1LaZL.\mqS>y Iq ,+L~oIXf tBj52lwgoȳBۦk*7O~]GIL݃]L O>FQ)0dЛ9%Ne0gyiCivs!Ďdl2+wkEgEՂ ƦVertF{PRnQx\aF)xrB#XL3Ka\UVj0k?c//C|L &¦bt+f%}ԬCgsq10k m¶pLqԳw${Œ0na U~PG(@]["0,=cb : x3|W^QQzʜ?C0~Y-'2K=lN5nc4[i1N©$'kYpz:-"DGyTWv!ƹ^0Dc&w@笻]Վ@7y:oeu=|ӑS].mZ+TC@~4 V'.#FP K|VWB:;.Mı5ft: 4RHVI~ A@}TB, j_WXAhPl7fa *~|u.ρtT k푒텎bb>Zq:ME"KX[^'%ǘ#~@ ~iodc( ;2X":J$ʕkH3LUKg Ԭsia,F<.Jb҄),W6,5<'?rR(pX92w4Wsrώ&PH<|49KR~S||-6@( NB_V;ŮbZڎʕbIgpF "*\ n )+zdx>&E֐Kq[ZGOX7&+DӼ pgd/x &jӰ<:g)Ng=3!+T_tSg\Mz;Ugvb3]8: :l47b S<s4$l]^Jof_*P.rATys]F"Ҷ}b#jT0'H,dqy*i'J))K@M6!ێ`^i/ xZ˓zb}0JR~D]ȴwg_UcMӧ#vS !4{\ J*X/!;ig1I%o{ PI΢KD u3X-*\a9 +CU Fd9:_L9_+xj _ި}FusF̴SP{ g G|~ ]*[ |H,P ,5rʳv! # IAU*JHWok6!Vz#'7#G{݊HW߰ BuOl:܄Aa vܹ0 U3 ,?/TpY4[IJ!cFnPP|H0^WY`(]ƋB{1tMJNqn#alB\Ű:PpahNM[ ]K9f^2JŇ3*;jz~Q}+۝zvS?86^@]〽"eDV DC .?0}Q?vM52BMcs^9Su@6diM5AD7hJ߫__2]6d@:"?f䂇pt&FíGBڛy%R/TbPV5 rv/ˍze7E뚅 k(9_gSۉQt1Pu{8xK)4Tc`6Z1t)#Y4~Ė9PN ~Tܹg:me \븃iEdg9kKN몊O7\NXfvqʿm) SId4 %yiĀ~_ѯ +OcEnJ@.bz.7Nq^Uv4- P ^ϐkXy12֢a;pJ^ku~/82s| kW])aoK[Vg<>ӆ{J)йU.%+JƇBWBuƞJX'ߨPluVL@$g3% P拍ݭf~鉴q]Ysr_:c6"mSPWHPSXĭ tMV+q* e'1UPjb /eʰtHZГ.N gȖXCЪ-7MͰ¦3 atڻZٱmDT뜢SNjs ő41|Y~9QEW:RN4O-n6?--x+Z`vrU:`<6v `zpbe G `^?!J"y/ZOp\aȶm2e$j;lHئ\mF ޚA-SA!~scӌӘ20Aø jk v1x\^4<<25ȏ>#aٲ^or"i(0ZV(oOƀ5?7l >;=~=o8 ]I(Yq{4vSi=B&G@( lzXZҤ*N_c`d~WJeQ?4•Kn/e[nf""p/{wno4;YKd0 i+$VF͛gˣ-ANU@qT)~dbُB$UcןPe^d3Ey>#"~@EɺY9yɜ]tqP7$l$h}/9lDsghp~Vn\G5'hCKFknjJ~e&w:8n@cqMi>N5jڈkP^N0.O +fbj. >jfbE͘\r]" q[;T/O;VZqRtMn,MBarf"Q=3$'(9CM EDRrpQ1 Z)=,a= /D"qս7֋} b@bOFuގ5d*ceS83쫉\,GU 52 uwfWA'IPI͙ Z&(yqK5JCz~N6=MU=B!=b[8#i '@8҂פq\[]R\v!rE֤kd1Sq bP (u]赟:梡i{BKdLZP޸6ÝYy7"ץ\$,!Y&ZK ώ FR7lΆE\shtM=+7Mj\$yL])Ew^qә%wgd_,(bH`.Mvc"EbJ~"5hK8dTzޥ3'&fօѫNi  kBdlkr͙o[f 책dVɴ g] ; ~ACw3.&07 Kh7[`qBz"[䐳]cmБ]c:#sӨWx_f6@<>%YLANmuKŔC}ZѦ9&Lqmb$_ c :ύhƎ_0v-|Dz bnv>TPTty+5byVL1DMK=6jFpL 'K)B'p_U_ivI4J{_Ts- o1Q1Dj &܌ xE^v!i=CRUѝ,['#e ;Z([4eWHA5[݆UΦknjw&l0#D3ˆ{!}TT) &C%O`Ҽ tms7ZEo)> O6$k!ZcRIwp7kv6c7 tX]0mẗܑ{=q4 X/gFȐݛϳ.a|]}SZ7&X>Q n"["-.i|EPkU&fr ڔEE[Q+cR v/)R(<u|(loAHyH&9p=g90&-Pnv e%/dOlw'yM|7 h7 |wb1OE~U=[o{*P>WrH4ą3n&}nn.<Ό =Em8Qސf d 9tsKLS7XųMʡa@;`NJq*" WʩUl3Y>nMvh>C͗o[V;Pj|k>!)ӴdgTZ"7ieX:VjM7BV @D[ ]:)}2a5{|fr[= Z›С!ύ)MHъ j\u/;*Y—g^+E$ rz3t%z;i|JF(cv4 > j0ͧC=( ,T#9M-9rK:bn^X*[ taQuRD8Āg-8+xgt/`TIVJ% [DY]]L* |=v+zۆ*mY#l5aFo5u]"%S8fr+3y>YUD2at>XybrU{P 7s$X\0™0t;>-^a:U$9TW!BʷLi.ROC̈4'QPVV=41g{.8q g'X<h ά̥5c}%"cZN+ {tA&XpfbH1j ʶh}Vub:|Eg*xJ5tB6DY _;pp䟓fv3q&h:_Arc&QZ9,ÂGz#ZCm¶,8FQe8:!ߌ~Nre]Ҙ.x)ov+V?Sl =oKR{nWk2 ʰ'߷ogڽ_ə&!P3h`!MIq:٪yJ!M,7`]ƑC:{OZp<^=&zb~2&# Y`%x7<>wKVc0?yxETbv _## TGHMDytpV|XeslZ|% p}T"Գ6LM i&m83wU{s/LgZ"9iIև뽗oa;Ao+~א_d۔Ge{+:I6\9+ץ  ߤAة I>xbS\[Dl2o%$c=C`k\iV=%B|XwbOl'@|qpA.6^(ʪqneֲ5VcօS?]=PS:@rEΜ3\//³SLd^_IOԞIWbZJd!T# IJT? Fӿ9+dI!,H%1ã5+2;_Y0{Dˁ=1WNI(1}r̤~ b`UEvuL^;OSP,&^a ,n?\(e\8KIRD̤Zg9^g'ʦk :YBw]4Dty!1 a|.-Yȋ?ԘJp!ˍu\ y;?hф޹@wyn+|'LE[/;rw`r&%&g]JhGdJV/_T)f֎(ϱ v[r0[ms$!K>w5S7c3E6hC2ztuoaЊP-#xia01]!\\,l@rdx+0& n33::bڋv ?99ouxC| c/| Ŧ1S] (?fnjUK|F2V~wAgXz'ruQ>9b32ǩ5Û.ٳJ*HT!Uh}Lf?fTnkP}j}kC)w2dɿ "d*hFN(MwOB=I)u$Ǐ͕E۱Q!Πpټ;ގغ >Y.ft (U\\ 솩L(@P φ$̏_](*k$wDXU6_"Z.}sf }8rhGQF5AA$ nDJy75ePF;. FWc :]]T8ݥy5,Bu u'אeQbl1^N'g Oi@ '_7t痫!*7L:l/F|MOwO[~q:,5%R,{Zpp@7飁L[W'!oDXsϓnVo[B8mAӮ%>QO;S gzl*O!=b<|e#Yקx;D5ŭaJ>iF75f/_9wK7+l#S|jf,O uFb_ϵk4yEA^Qi(FE@Nb4P!/Lnac^Ǜ'" UAd ̎AHOu'vu͌@8 2}fҰ~#:p1)̶3rfZ`AYAP?^<TV[jM3Q˂s:8}|;2 /c/Ӂo21*IXtY mM\ ךKRgިI֧N.T_҂<+H&9 8_6;w>(Q0 !䀲WHȨU?+jR eũ]RDM0'I64}?Չ A++nĦJ?ynLMƭ5b`:hڜ[5zY?k6xmxXb+&/ ݳCI4H쿮2=FFbEWcًhb5J?z:QxH=Wꪲ.B!tuwvǻ.@BBi y8s8=gC=uy87Ije*0&{v|`lAQ>shGcɺ=SIgR,4*d˪Ȍ_Tx~%Ung5VB!-]>,ºh~6?䀇`c@( i$ r2Z 煚ǼTEĀVorm/=‘ANw,go(%/'֧;g(F;ث.D&Q{f*Z5FG^iّapj][Hs?;`%!k`SerGCC!4ݺ2uD-l8xq:VC2]Zmne®}?l$F,]|U,f$߅'rLHR#/HKLI[$J1Mj ͮha;7֮YyTG$ ?{4b]$%8L)We+eBMJ~7#`+{&zPꝤ uDO :mmShkVimfjpP4 0p m5}yW!C:I6X3+I6cI/yޘ al'rq pQ2Ӑ(2_j,v= h<[|t9t=.I㶑V6e<Ǒ>v >4P//{myh;lICr{`#^bʾCq#F:eYCmlw~\{#T`b'-D-L4:Y}E/t8k.A-5 %cx>IdM5vፐ^Mbq^_;[њ%łx9ڜMP^EG*zB}3K$7!Cz'1BG C]3$& _A.3KGL9vHeZفԖ&3ƅ*;jF_4JQƥNYtLtdO]~sqN.Ji!d( Mآ{1{]{Ub3V =6ŪxCkTb t3S(>)nY`tzoDna,Ⱦ:Œb,r{q>lAS~z5f{8M\\&˻AӧI Fgt15H@8n UDQnqUFԄM96 ^TgOd//=;!}MÔIG:B+l-7q뤟-Iq(jXJG]Ʌx&2 "sQu}` 3TF40mX Zp@}:?sպ7hMSoűefb"bYwo!Juٖu)ޑ~NFPwϲ\s::Z{nLkI4rل3A *f]&5fNqLQH-;[_g`pil 04mȔuhR ؚ=U|Pu7;-yb*M  5V95Qzsa񘢪l;t~*h$o O*40<uoo\}-Hy>ELSD;:ش8E ]/Vh`](/\"18:4ګ5rȠAI=tyTm42U$JƿL'٨Y(=3v_{ӲG{sMc;>%bA}hpJ^H'V@+ΌV\tR4 .A9 TeOu)%MU jcoYd2B8T|kݚ'e 㲸fqgK(pӧ6x<ҏ6KEcCCj)49}q-}(3G͐"LT 5Va2c@"-]g}5,|;L9}\]Qڛ7;aܟ 7J>|^ѤC֙]*B̹hE8Psxpyd35},/~dh(>054)Mb_i+@t <^GDK9GjMcZB}0pk>Nm d_n`aC5Ha=/AE{bg/:_H|n33Q5#*}{v;{AWP_,&6㹺- s%3U4Qy{ !xlqQBx$5{ly`nqW& I}_O=̙NB1'kv < =gE'uM+2c5enuV0/hZx*&Zo-hK ǁrX mFobM@!oJv,앫Kc1E=m5G [Yb iR\ڲ[xkϴ,ƻ &))y(U=I07 Zv_pZhoźjZp<\QF{=9 -F^۝ A-9}s~C!ybg4dpmDg?@_TK܆o#oe`K˯Y2vfo$ig&K zCM_ytǓ9$e;ua{wL '){]Z(Iq@If=^kcAm a1bȹc0an!G0štK#zgif ]׺JE7Zٗs[~ZNLǵ4>Dx]L%iVh !}EݭEU(p"wTmZ,[v;C?ހ]\qS(%#h {9@zov&)rhH%R joE<R lq: +Az+2tXLw`(%Hb}Z~&re3\?%enߥXQumA/݂q#^Qo+6LN7z7?[}160v،./bUcۤ#/̈́$N?]f3K-o.5{@KS wZ'ANj0`5a[la vf;R!S uo co*QmdD J[7~i2h/,LevmU 3m>˶Ze:#a 0w0u2*9\t8)E!暀q޻z ۢƣ3%@%eJoa!炋GwDxZ,܍)F."}^ĿLTڦ}q`n-.~ab؊yx.ZCL64ԋoxH"\õ頡}m7Gv\E$6SK[M(Oi(op]opKw*luF (oo8%Ihysm5gS"rYP8q L`g ØغT8.jN|s5L /u4cߴ4m6#qUKV5|[AݳL 0ь}RJGF_]ȎoSZ,!T:-21 "aK!dqm@fZS޹`EWlw0qQm_K,Ӆ~EP(>O?Lx|e!*+PKl69ce–;rJo/u%^rlxa.p"GO#rJZe&-@<[eՁ ñ܋x uNń sh]°V=;U xHڵO)VsIQtVEEp33tnKN_X|^B*av٦}k挊c/ۓ% vqV3Vx*/bXt/8k&Nb>@b1r$+quJ-9eXB>6<OsZ\B$4byyEtkݍF&m臘(q ~衫 J%K4itV)Ľ$sڢJh^5yYIT  ķ񮤗m mdQM5\BvadàxLelBi\M OtE޵n -=OUc[Nz2.?K~9`=ءmycUhq2$czy9~>^Vy5͡%;b1f@B*hʢ<ߺb9J-)ŀ/5Krĥg sWu{#0oA+ekRqK, j׵#+D/^ڂ\>= *91'mVf@gW#$]z/9ڞ.Q:c;K[ 5CVVֻ4ߥȮII%ҴЕHmgFj62"tgUS].j[N˧tkbi<#LBԧQ⭣>%2iD&7Av%lŎCE+;c9MF!'[ ̲9XVe}YE.(vd!O]і oe<t 1p͞rBZ;@ʼR^Iⶅ4QIdK:¯ŋnD*?JCʠp~;AN`敩z 7M~8ݿjK"7gPm-C '-UǓ=3W/_ce&cbB W `%^{cW ~h5(gcʅ42Tda%?Ad ʝ1 gBaAJ'O:Ӝt-8LHuU6>|#߉lu!{Sl<~R7P  ;ψwIK 'R*ӳvkX֬O2|-JڐSr) >'HzI +s[ x #au^&֝ݕ,㎿qcoA//_w{Ork;. I!+*'뛴#..wY?#uCE2pk?!q(J,,j/GWαb)"@%:dG!ط Q UI5Zf~nzk<Ш/Hs6"~0y>s] ݮ {kQ;|Ca.uN/ [fr|>/3m1cexdw.hf䐉/Zgςb bMHDHN'a^rp@ګta+%6P2y0Z֘e׎mZˍSQ5Ƃ{^婍3Ke$Ѕ(oK 0_MA)X1!E/c02ꄍ:>glgsHBg X䜇s3k{'= oCc-f:ۂ`E] 99r3rPߌˊ䟾Id?MX?jADs^K2jM&s#yUw%c:w- [Z0Q&KzIȠg1)lABX% сˮ!NK˸x"t&BxAlDFLDQ{0(`T0$ kG9^4b#R7rhWi AHl|M)SNk~`K-㎄͞0xb)Y?+/ꜬrEjܞr~Q_Sfo R ĘlG]/[, D ` >&Tdu<}ec@ypQbñ+zZ8u-P8Ώ>~6>o|:M[@9B̢@(g`uHxYH{A'kK4sގ j8+n~PO2eAU^!9G%/dFʽU`643֮.o6tVHݿiv{@kƀkw |wY6Vde9 ΢E ` ̤ϱkVF.uج݂o+@Wby(RkIj/.~Q09$2mk0` y`YQe,QB=ob71hƛÛ#:lјF[sW|*skhVfX^ ۘSQ d ^DTϥd6~Ja4,QvŲhR3:vrULe?> @%߬ !\kr1@~!M1_`tJ $&~ܡ*|N%W蝀'ͬ@ԭ = sĮk' 'X+|~ С'Ȟ{z9Nyaѐ gfpb~,n\-G",-1FR^[,jZ[M5+;GiAU3ԭgQ v  BkϚ79}=dWE5H3*Ҹ<)T;\l!g"_u3ڰ d$:~>Fl-}ݹ"a.>[Zߌ}{>Fr{UGx[Ӏo8X.&?&IQuB6'?}aS8u1? 8v3UPr:pmUk!^PK?u66--H;7u3l@tJi3!#yȮPeԯ]$ko?MLDJdXw~G"I8{Ġܓ3}wwl5vGԂ)p^F}y!5FQsjyGI{ ,{!;C"i}.1jYY`ʹRLh,ؐ=Ӻ%ӥۮXg-rۋ>ΎhKӖ"K\B(8ʟK+0ZD8p'& !n<{ ^zYBx+zc޼B*SW@##-@}U' nI6bR ڄ1tp?EP.\Cl,Je/D)Y͆)^wC?|H(2ab᳠)q^;A[̆Qo/?VR{F?kN? Bm9ff #H,}~@I OPUĻ,v k\ct|`^5/e2Dٷ XU @:54ݐ~l]uyg[vPƏ-C) Z,-esgC*IU!j^z8m:$fPEKBGm&jwh7!gd)(cl](!?n9B(D3BIZ>ۼ\|bA?gm%"wvFpvsQH,>:6)* /S -%0(!+ַȌp-)k~9%烧~]*yf˂o# ǀ!kFpy3r Ԡoy9{IbAv);WrP륋>n㙃] weR^,Th6 I5Ljڍkɮbo]= z=koh5yʬ2Pm4[{i}k,^o^}pn{\p { 􃏑Pcs?Fz H6r(z)]<>, Pvof'e8M⦇\]MU {BׁK+cƘn6/rD麩E-%HTccT''F#RR9@XLjJlia4*+-=I'z?I avfk_)? i9-ϰmA+ @dŢP5UWD7mrjO ji; ҩ~SGDVt*}jGؖg?5r)3&NjŵdO=3f~nCˁ5Ȫm [Mx'qkVԒ2Q#GuFN"~-bdJZ} 7=GD\ym&qFuu y;64eh*.Oܛi"zWE1!+b\AJE*uy\&rLK] Oݚ=-{q e<+G޻TSMˉ%1gX؟X-58f#Noq.lzۆCg[0Ȱ}{yXWܚL ]}4L`1Nu4;!tToTVD=tC?tQ)|HEFdNEjڻ1cJzlM7 yQ3n֎p*N.Pxu:~/+`m=@r2H!i:[{8oB a/ y . Q!\.}!oGE& !@Zp0ck'>oHQ\`{伞/rf;jv;(9iLrQhX _=VcO}ͫu.|_ A,?0 &`J'ƸI5$kم}"7pIHTD 'BQBhkeP.弥yih#%R\mS왇Y5abG =wQ͵侒hK1I)7,'jYqKR re_ԥId=ksYㄜ,B{wfE]| ϶ly~Db<[7E;$ LUP:2)n pĨ Q>D.舝ħ#`R4Os޿4g N`FH.tb8la%퍞HYu@O[AN~fRf((L̍FJem82A⓻>%A1=-1޲Y3䕑hƒ020KWh%:79Y+9'yC,MU3{Q+bzR"nU""M@fVOڪͼ\ۉ3p&Z4W֘NQxHKGU Xr_U4:绠0ĕ /Ϗ3oӖ&~;}}u=:Uڑ;%[7i`\ 2,*z ^А۲2CgP'^G^Y;(r{^xvV=acPhtzֱ}d#x$&"$B_r/QPҼn{YrdKm6ߋQ"ܜ,74/rl_Vҥr(fJs59RǓaoW˟ ]QNHw?K/`vZ$k#9pT,2 6L z5^kpe2y<5;^ ND^%JzJvC:FlOjh46rMao HZ&CDJ Ll6F'nKsuҰNpy Yj}薑~Ygr%"h91obQ&0(Dɽ%qEK$i۬kk;V:4뢔6)'T"&s^֍ճJ-OsyO yaz WѬ$Fg40Hb.y@.R|I:Unړ~2W!#mW#`_SW)Wf jW _@~"$Nڝ!/sN,7 S T=¬M zV2p۴P溗!x_S+${f@K vQP $!Ǻ("!,Pט5aFj:ո=ֿ ]';d|rȃ/Fâ;N;E) mbm+P76, ^Їi(9 6|&w?IFf{V=u6$R'T9}H)g}z*Wf id؈0똊5SOK }h+ %O)&;tÏ2ݽQyИnen]u/Mļ9=LIdy}4q՘8x( V%BaۣBTv3!0bRbSY8^6E?zmGtK9cBI%~PhwQ!iL^m͛}0?mU"c2J\(sLP;k 2;XR8j<ֳ`mrWVmIJ\tS#ZM5}zeCc8L ^N,lr.ډwbO1&FCύڥ%̬?IZfRrZg|`=ɴ7q8˴>N"s(ba9h&P?)2STlojQlz5ٴٍei݊!)n}KA#tQ-?#5.$ms*bMhYy3cE=+9wofOMW`a4t_xC>Rw<E;=U ~?Qؙ7p_7Eʧ-(͛Dq39l:v`t)nN[,$MWb]B*kVHnenBHixcG>o`Cz`FDg!5y| ysRK;cPSv'scS  b:Ar#yGYܓMF.;' 3VCEa(k$]#Oº! 1NF-+Azim i}c=MGu;d9Swjt0FXe3pV=glgvy:kY#Ad~u!G`xW$|*N#ѩ>8l"% mUFaƌa23j|ƬW(yTx;Q-M9J(K ~p[\?@2 R2ŚhZ/.fDPGo%zCΗ EsyrUjI.dMuX!l'(}(uۢ1Zcmj2t^kR ʏ:&021UBO+7vlU,h~1+{V3*zSl@QQ )`w> C>%Jq?Jߨ}Bp侷+[UX)3eR{9!v_*% !rר#Ďd@ .С[;5i(〉f7hOqrASp>v *m9ߡ# α\c#x}](=5y2[2n͌ a%2{:yl'f_/=:ZޢJ:mǪ]o\IQ2-(Tw9&zA8q)E)'Ernbܐ5NsEq^'^͂J$CLF% sh ;Ĉđ8$W̫3+* tFС:q}_5>]:?şʷ۴>%hF49bUd׆maARBi4-˭ن"K2M煩sqAܳZTS:0 \5RxF .8 Ŷ۱F*8Nѯ)yfM4JhǹO5DޘHDq_B=$5ޟZpCEiLɠYQf2kl34WpFgWZᔶ{UVXW#\dzyc q4rC5)1:&E-ui^hdÈk ;jVlE"@.JX ܳ8RB&abK~/)_0ɮw҂NdžN<qrV#T_>%6x]sIb>i6*8˄|k 0&Lt]!"]gUR#pPY a!>>۸ReO*fQ2?_»ȾI[c }D ۾Hx W)|ᮥ,nQj]*r`ߑaP˔H7 |)S[d*(oMNWm8|b.1GJplxmyhB(,ήNr1lZzR6kL.,϶&S RR+8 _OGbfͩhinжo1tJUu@YV;“Gzَ!7%DjZx̷|nnGsmo}v7 ڙ\9͑! EOdEV8VfD:)!"nX˘^;}kXf<9;sHi'̄t_[|wTfFKCc|O7oR?D#U0w}%SǓHiYY]+׵$ ̗1ptHIBއ|h3zkb2AgݣnA)MZ91cT3ڽft𥳐)=XV]7݂m_M j1\r%>= G3p/8?V}F;>,_':>v*/S9pXqwuf)9%Ft;kri7-(}zIʃ->>әzq/xXxQM^2xh|DxJ L߆vZi@{e g1tKxr;缭eI2W #9*1Ӊ &>r.~ ޤSm,Jn$G,-$[+rJ'=ՂͷFbWqI3@BIKk%I8RY/ZhK RV%?mtfQi+$7\R<ݰ/-΀gI.N:,"E#۫+/Ubfc/}fr1Ď: 5 _':F4c2NC$ȓ8bN̪A xS_XaaZYs./p_W uRrMmONJa\xM\+sm*ʛJuZ'~GCrwel)UQ`8S;*c@e.92;'yMQ+\+/eR9yUNPCS=~O2f/!;]ǬhmG0T~1 Wu:On5Qfr-HN|c9͌IX*?8l[ 4I7^/GiK"U_Uq*/BBYnjؿi'Ma '_֘v-0*r$GH&z^~FnD3*EFܱBK]$8Q*ߕ$; IR6N[8I #!<+Q+KDɩI@udCM7+p֣obe'l@Ur`,R57qtcWf ;ܳ]^d\WM2%& ꩝b3l{eE@癏 -FA  _^P pNN8jia-ű D rX"&Bg ?f]@{`K 1Y30BڔV^IO (6+-u 4h+@ɮᤶ)clPνMm,կjy6xnjTx[O3;~ltݡ} đ@Ʉ??} "@A]"jƩf@r,u ' 꽝JE9@ZP ԢP`]ʋBx|i!D9^zt1yK`F5k;XV]ui -ELQ^Ґ?nƃ%C,~KuH۱k|^) lnc13$&m.p_PVZL*B4m]V.$G:׽>j][JMbt3dyǛK:v"_VrG'waXP5 dkMs "1G?1-v] JʂM##'1$935b$`h%A 7eR`؁wҦܾvL mߗD zQv!3\M$vYd| xwa&nkѪ {tkP}.^~gy~)Q/zף60f1֗`QuMF}.b%_Y4=*W1ғ|KPf: I#Ia_u^>"qʏ5M[IR WDZQ+yemk=3Jsv6+u46u9cce˥ϥY'1z)37@m^e޻]_Liq8ZPy. ,0 a{4 n<m *{-~ c \be=CV 9FZvv&4^q}|8Y]y"d^%TCoIˊė0n#Ȇ >;>Wm otz!Bɵ!XO]W,c q84J84t|0!  l o_L#3.^ʑi+‚*kmNՍ2Cɀ*ؒ^莡Ĝf%~`Ķ* O[%#G5%##,7kKϓ[WrL!/Ÿ@!Ug+*q $B|@ł-fS313>hfOG*fn1J5 : m'OI>^*+6PEo]2l>'|/4Y3z1 /H32ݮYKxI/x:ej]l(Uh[V:5ǜ 'h{u(4Oh sԚ"4 AZZd]R-tIˋBI݋q{|0zxNNO0.!މܥΤCp *!lDr \VH 3)D)ǢF͈CR o%MK7K"yh)%Ik^cy> /Ixm2b?,и!QU-Mq1%rY :LLgab9*>^ r3;ӹ)X+2Pqjm{N&qq ϲWG?d]E}&鉍E+tHun.fAitl5\:eNdn݌>/uٿXΰihRqi֖XwAIw<"8HQ-2zْfNH'3xʁ!E##ؚ.7$ շ[y q!ɴ/‡>ya}hMD| _"4=%=2ɅDC0maiɞ $8D| ͣx}|OQbbLsu~-ZRӂD_jʱ=^ad|wa|;"2y=]=%׮1eCFcZ[veGP gILTW ɾK~'~%h=.b_]CFd, )`vkWnNMbI;,ɘw kܐSHj>p/H1xjES`âsSoOnYwPsaԲmHCb?'t +byZ|e.YiO"# e5{jU AKKt.̣3}^qZ#I!s[݈|Jx|)ac`ƈ+bҡP/捍Zr U(K20$tczV1I~xOkT ab`B6-b)Md% L_hQ"`p1̸1QuΝð^t0e8) DM/C㎴ Q(5肪&Ii:]}9`긜}R6ʢ4A:gqk2Q-gl^]+RHI~8%̔6qRƎlDӞѥw>HB5Y#PX韋qc1dGsM;%}/Gp~Y1׫_LOjb&LR:)v۾3*:G JJݝ]D@+"dd ?Lپ-"L,pxQe.YbHF,(L؞Gd?PIL)Wc*2˼3HvoH5 thC (N"Vh́nf6D:S KʿC,hǰkT@<#X ';4/5PdI: szokYeaCP41\ W J @m@v^A6OI\Q u-wDߠ#Du.;ꄃcAE8$ %e+r;uSoM'#AA \S^nsEC-1inOz*ܑJS m٤W q u@H}(7@:Ph`/(C/5Nkb^VnKۭjx؊v pGAָԶS-B 1?TF| bB̲o*d?:h[ު԰;:ȚQ# W;mM0#2 ׾b9A0e2p` $]v#^+YO3Z/'t#PKM`"r ?62\5Z= {jʌ4s(H~.ZBIa<ah%C~R[[Iyʖ PIC +QJ qD`nqkm_? Ɯb_B(˔&魂qEi, )[ِ(,R8Erh[iܥzȲ({j֛<c ,H)J@j{z (ВZVh'm<>K|ZG(.$b և«8d?vHОU cgc(Xo ";`J͙fK` uZCq+LݚGi7@/H:$~+tL>)o 8u&ϥ։Q{K/}23ʀOx9AJ~';j1%Fi@𘓩zJ#RV($P8)vʓ=gnPW0 2\N2z9ck B +5kCR2g+p+1+ q8 ӣ>s jFw\x S0(B?6J*ZLG9E8%Magƒk.Cժw%^2rR;$q4c +zQ.-hM7c z6pQ`%[[}/WI }09_n6nRGrK(4=א,]-"?w[*rd1190af8%ev}֧tz\ &b=YS-m·%t>}4U7` D wڰa4`s$P]-9YWXZ&{jkf}j}Wvߠ j}G0мC c-D$p;^BrxijyUȢ'uvDTY:=/[K-@W&qGg8Y=l3k+ $gB-0w%_y2n7,j J34Ec4'㆗(oV =X,RI;㫨|Wr|oMM߷1Ncj]Kx@ӛbAo{/j[UʧTŚJ[gw'xaV{:?I4JFOiT- ɩI*d5 ڑ/rrqhL ҬoTaQŕ j d^;p Zk4EtQxݪ`&[aosn|E@K@KԲF9WbMYc@!4? C*Yx,; Zj*/Cu։ tOE٦ "%9isylFey%x"VgC\P-F8m(ܩ-!/OB$`U`/8;ubCƊG%]~`U>k,&:ZC2ygw65fg\.Ft'LFM4'@Tl]qlIi yj;D)n\4|#91Mr)9:pֈ)y`w\9X!@<&eOM/x* /REKC퉄')j^Gͦ-yh#I ˼nŲ/Af ,F³tӘ?/}{oAt*86W.?rF/h6*߄ͅ*IWt1jHRqa2#glq ]ZE [hI+bdꌤ|$c 0#SmRxw}#J V0="+m7\-1I?I}/am›o"Xoc>ԛ% `7}g<92HVB =p56o7*DPxƟ}s+ OQP%=aOLfϗ-xQxwU^Tte2bݓt0|cC ƘrY=yū|'J1eL'ZDtP{ْs $T%JHovƀHcaarWl&[EwiYsn3pqO]N4%PJ>}j3UiZк0%n2n+"@)o$b%cIIm;\i~ ^gx c6^e4E@DeO5|ZNA#e22/P# EMt1V.i/@ Bw3 =UHǭ7wLσ"WFh+e/v3n/)oT)yR$QP5WwA6CVZ,ww2,"m9@( mWaޒP zb5qs%tTY4U,fֲ[āKSqh'丫"YpCTj@#Rj,?k*gs͹(Q8MM+j BaV]WW1cMB}H*MuXs H ~Cn8Q M weNMK@2X |=ƶ4ovAWNFpmON]0* '7Au2wa '!5Uj_iKwʯm_c/JD9FKG6.fi)ZĦ/2Ҡ?ߩBetAh1$Ԣo>Tyl%w5^jQ(n~jܐҾLu 1yF-,tzz y{/?v@g"IF!?Ԝr3/`35d L3QEOs$y\x 5[!o a17 2 ţslWU*#Ȩ:; [}LG t $GgNNF^m2Ӌ J)yِFIV,%'4$*ib>[,Po4ΉSiK{na><5:ĴbT f)EаW̑*4&X&(&Үbi V3QF^r=f [|4GQ槕"ݞ/%!rw0uU]`QoSa6{{ Q%ƝhFVj{uzD߱SfgEH@O.h,H 1 r .wS2Iw4 53wԝt{U0΍VꬼNܖG1T9"#$ŏ&TCP߶"k".8z~f\w?, JlhMfNAK{?d;9:LsXz`oU eqDG4umtŽbFy}^/d;sطԨOMcS3rNe,;` E wVXZj8P" :XB 8i + 2@2c/|^H"ID/J z¼M$9 T0t}^Lt!TJ0a 2&0+0D-4CT<5\p1πt3g+$1f^?+Ŭufo͉e~pA5۩6Ȭ6"gF:=dg|Bu$T-A)3O-wP̓՗c=qIP~:L<ϣ}Dž ro~rD$JzJ3V*% HƸbƑ1OP6 hՀ!TTE/_`@Rd5N~q'R˗H. A+^=NM. vW ""E w'{bPw]NNEc8tqp}噗Mʰ/ 4F`]rc‹rmqq̍^u/gofHvCT|lpp?q@>-–nue:c`64|"^r,5_PU@i\7.KN)%FbEyW@PZo:g9g>7$?݂Ȭ/N:9{0JPx"!>P{ 4DyvZ_pҹώU{krɁY UJć9{`"|蜻{ ZUCgI/x~KZRr2^ ZA0FA9aGas~1=ma9A*#->lVBd2?6^qޕjhY+WO{([E>cx9SZIgP^YS>ujjuω]{H w"ܶŒP,)C+10aw]N)lڢAClwOC1S $FbR¨X;*N5T>7U/[ :iTj)ZM5&*JAG\t*ͤ`ODA.Ȏ"PTv (ǫ ζĪj&RN@RY7T] wQ\^V<]^o}&E Ξ`s"z:t@)ޫn+8jx`4rHuȫ{YFg]Kghv yV~rxYwh}e5[!UjA S ږ]h%]gãHH9~LEC?>0U}g9\.b밊U[@c|yK?2%~%NȢ^) @+}]K.^ti|rh(?s71t>wc*d@ugߩn ؈3 LjZK3҃ uIMUo$ɔD,l=P9|YrYHN(IGvI?3h IQ#CDuЅSZI6:-]ۡc4LWA];:'CzY?\( D_ceZ ۡ@V)N,ˤ4 IMbeLQRu\Z@Y4Y*A}HvBZF,Gjw'wX/.\/Uba:!P5U# Å$rT7|C jʈA-RC_{7G%hBQcJp GrںeB>辛 @b]I{Dz+Uf ].T3@p)06zL¡KG^=RG"ddȵCy@k u"5hjQ~jʢ}v Cbig g#L{xmaL8TS6gq[IֹR'2< Oݓz) y8PQԾd~puKM;-{rt17g^Q,cWƲ~ W eI:}\t:Bz++-E? 3adRoa d][L- )Q6RMR՝G`.lܰI OtO] p8Eό ,39_sBvP3&by7C)oeC|2ܷϰ2ڴeKS%;z 2{5  G+/M: \Eܭ?P$Y;TCmN53fz™̩_"7w}z"4RA0h1v,C|nG0qNA,Wft5[QUخ -@?h5eJcElj,p1L6[E[:l0,Ӄ?p^=ppJ&O槅Ryw+̱+6Z"e6~JfYUs%;:w'`\4؞~T [ƞi:d=9jSy}ÇYav`X&vUqRn1ٟMʐ.ՅTY##x4'~43jiP.bzk,>H A\L!;.3P<qj s65ƅ$w('eLd`d#=뒻P<&$pI2F>ll̓J z8q@k^ad{we>' (ԉcމiu# 3o|޺ŶX}yLS25S)>]p;Dv b|7Ļ£/.yz'FmBUZoWMwoXB)QEg"R6}zeoF̋ AS=`ɮ\K2 2ؕbتp-r*ONM7WDTa<_[VcaLXhc[z779>b~Nd:: B47+jsޅn'p%w2 :טRUENAypF"]e+:BU8tp1_,In#0q0_mȉiXuW#w™rP/\8)z8gS/G-mmaB9݆APSͻX@gѶxtwEj}Ȩy]/ݗK^V]*}2oWU c&Pךr]ZBytʬs/_n*pd ,NEIÒG#Е81˰Q%Ph,eu]"JCKpL"ZG@RJй%5Vr[K<᪟zQp|.si${ 3|yu,xN/eYMi7ιz f}=] 'vYNnEyAa݊=FQP# |4sNTsf_iR]~{1],dck P"0t %m6dͱe_,`P%H \@4 '42"/eͯ*w:8bt2:C9 wvtK3`4vq\2 E~8u]!@〮7Wrp)8(U' 3ӕl|xt/*<.i~~RHJ#84?R3īȧBVmGW>oL _"  s$'"NpSU-_>/<6Gt/&K! *kU,Xg㘲&,gSÔvA)3vlԄQ~Ra3Om61^d4"x/>']_́Ӈ&=XBv<9&m7#tD;8^yUFOↆ]Vbr@v5(U83& G|`#] ;33-a uiD dA%+f"srxAdH\MyŖIU*R^?H*Ch2/ֵ +c 7p@ht,}M"+pU q85SxF*e _Q8&¯lPX׸JcdXճY?ݪ.HӆP"z6{\rJrHO( K ܶESIz z?ʆAgOG4W/!zY]:ȠGE &&IdlUi;ÏczhkvzO&A5a Bڣ'*&1ib!olq 6HRfuf<0I?Ǚ'I]4Ҭ)ƚDKOY/*?lVO,_M۞ aN]J &U7goJ*d+$dD=4| Z I"H'vNKm{o3wuba]\2@ riuZR|ba 7T>.! ;nNeoR7\"Zxk B}sYTy618H w؋Ezcu4)~ZQt]$ۿT.Rvb!HZ]= ؊<VvHO]a}g\dQv6c~rW{Nx=yKM;!>>n.b/H])acht7K[oNB(S z}27UcЋY1'ˏ3r2U@P` ŝ+0•- bz DgHf5xNAz=MG^!{v^Oa;[[=Ȧu&#/tԬ֤T+Cx q/xpnm`Ӡ Iy$L%&`[] =EPi. \9r؀W,c = .qݘumTT ~N~)/r>V'۽̜hsF3?mlh ]Ams"ƾmٯU8Fh%<(\c" l ɯY]Zoo 1?Kqr(7X[JnECrQHxiM-I lCk[QKm\``2Ń@-58P6 ,?7_0 mHYUv+lI V/nĠ{'dJ^_) d2+Ӕ !y :1аE.mΌpq#B:6K߭ ;1;l+kx1)PK-7 Rp*>X=0p3 #$o.;֒Je wF Riw[4@KG!/N?JA8fu0vFE3erJz\>aA_DS)ں 23Hzg\bV!&j-=+M+G Zd@0țgwjR`j|5lE͉(D%y:e4D'n.y+Ҡ:ﮦُ%h 8Fur[|1%N#zb;4}*q"^9ƫe{8pt3҈nxg؅Z}z#|(W(ZY(SOe2Aa}8FR)ƺ)KJ!.BGdSJ\MH9J-4'r Ab+v5uIK7댏+g{ac7•ECpe+ 4Q`q#6+?7 6,R:{_\+kGdvFWhQlA?Hv_8mj+8P<Ƅ`3pyά0eFtnҡ*`i4d),ߠ{n˧*GMHta h[ QN; r=,=A*^Y$1Q.s$6bĴ{#a 'VJԙa^}"buЕB7˥)9v LQ>e28 $6ufiMEujƙ^OZQ `-(2KnZ&0Z[~fRյGEBBxgحbwuL'k$SS vtE:%Ȇ˓ $RsEdi8!A0o#w$ ~\Ɲכg<`9n6wAy5/#(?A'[\CJ*߄Rt0xٻ7R?)Q=JbfqpOǁv&^+"gkT>Ͷ`MjDh-BC]Uzv#`ɰ#0;t-ۃ:P))[6D<8FGUax9gz8&׀˔+ߪܤ%;qD-s#l=f[Hv~fSo^˶W?C>M@&[$zB+?G,f-"F.*Aܠⷂɹ01VE_H+-(95mj2-f;†*L$V!- j2{^%9%/@3Bq"+&.i^5ZQ:_LӦԁUk ~1MP%:@~\t9&5SŴ&>XΘ:.k<$ %EolC ,@eLh;Gr3/S9!Gc{6LSS̎u]?Mai:N`uǁ/Nj^\\x>/7A ҆ {0ڜ=:v^dR)ib6s4u,guEXu$emjy^ )_Jb/{aр_cȻo74]L?آ{;{.c ^\Ťbe8ǃ뫫*j"sKQ𧄂^_]^0;`ٺ DD(nSġ;#ShI-Jh%d!d5L03]f;0}n^MqTRȌ7>S 8}O{wͅe`aP27Ϙ'l r{X[J?JH6os7}Uz`!f˫{9rdCN,( 2[^\MOAŢ5`ϭa cu CQvSa}%OWJx57)F." -TV@xHALɷK"u07++n؊rPgouɴy@/;Cc:y Dm6i=1RNKPӣ{SN{XD'7-jbwc:ݷ)ilO>8<`)+/瘟8̬E%35_D#̀WKZlטzA 2!Rm[ }yfV$Ԃۢx#H륝ʏmHJ 5_^&7-Ł/:  q?黰Ȍ7e< e;j/M8 v}^a}.mO^kKG*p[2V*(]3- t Ca5`ş#YgXD Mol9e`wOh[5aCXgNJʃϠY'rfNQ"UӋ~BCcf[~bAv9C VR-zpȆ[kl0ԹkDoTQF3dmcx_5t'!d[ _.Q U' *;R }(p&KgoRGE=",3f8J/ 96ᩩ+*&aޒ#fJɵ!&o,&Pi`^b¥ G KY{b"pVIbJE }v'D6h`J5B7Ӌ|&+ȹqkz6S&B;pV{nNZ2zϓ鏟v(d["*wC-us#IHV3Ė׹3ʝh~'>qv nEəYq\I9+ Q݀OBt?61 um1x^(p X?.}o7B-|߰8]9كlWSzߢ;HǥCzg颴0 X0q,U ~{: j=’ܒaǨLuh?SiQBIBjQ(0^j"`LlB@͚|$pl,L; =g} ?kJ ]I <. hkǷ7{.m5R}ix'bJnEJ.qd:,Ya˷9.Il0wbЮ &'50),Ǝڨa3eąHc]_2pH^-G@;r͉7vLrx_nvؼ @^2[!R.ݏXSDyx.;MtFo'$$bX*/D=vyU;%YNׅ}یw&@ٱ-wZJ<0e-m5'7 zs+*șMH~`D4n OdY{B`Q?9D^,cGcF`MkIG, d]q7bg ,2e(WPRkB\UCKL2(8_>+t87>dx} X}D7TT] Ja–t`|*̧n<%ßXmFJ"(R>V}ր9vDq䥏/k-6% -'͹ɽ*E@H_ϯCqI1)%JlSոۇ$_qyOa/jd{sb)}I& sçlZq]@ %V~}c֔2ĆXaY$6JmV0]UG- F_vi ib4PlTf29lz_ئ:"<72ONos.s*od g/*X/$vgk nnMqLV9` ՙ6&&_%cE٘f~l̅_MN"#~żq7I>b>$*ar_2$f0X>piMsSQ@{YCߍkhTDd~nxDZ*%4K2V [ @Nx+c6X@&Ov+7G5ׄҰPЮbX-O>#1wb~GW(^h%IE?-ЉDЗ0krpR?jȌLéD"'dQ= s1-n j 0u".})G KgRpwYCpN梅?_"`>޵kS*Q>^NtN{^YЈ_O34}3O%-@T+Џے0J֡sh.0a麳5.X(?)V젷QRnD ('4z*^[ZPȠ uW[9GhM > h0aЫP|j ?K9h oʈhu.tx^^_WB6Y`8LЄxi5CZ u~_J˱=Zn a,ǭx'S-~W])k}g&O4J8?)5\Y$,>pճnnLpfkxG7oG%UpN\ZVI`$ʁ_tDA| >=څ8ؙ][Q̉WhS鱣yգhZ`(G/A Wk?P@iuv1Ũ%  [QHw軲#єf+ 8!AfT"d1wؗ).珉LD757g.yժ}LITYInbƞ8gh]Yl$d.XWN^<;*Kb4kxԧ.Ȇ@pR2@΍xL)$Rm5eUkK=, )0[ #*\o%v\1Z+@d sƼ&=>{6.pf?]t΁~ 4Us2X#Qt;+/5~ [r_J cg:Ae3_;ٰrKzUh4 ]t6x+8YUUΆ-ʨlCnSWIc~U噮 O+.E3i XkFr~,>Wo7d?եoJAe]ruT#1~HL`}@ gtef %h>%ER2}Zh9 8kd=,eזnrlB.-!?t5[⒙DKĶ2lädlO. _>{+$j1n~8dq[v)O>ztQj7~ 9eC7{%Z-&:jNAr1~SJ Nn}˫>%A"ll;; ]d98wEOntU eRm1nLY9 [XVR~'o1- ĸb@L ynnI9YEG?Ez|2Q0Ql|G9Lyq2a\OwkbO|;R M-zwg/t(7 (؛oHh#i _o< Jzcu9VTuP. K"n"AxE!҃e>6ATԉMJW׼mTep A,ca+`k vG2w% ne\;q܀_ǟ[{/]b%v܃ g&g!f M"%I׹?t1Ji,2RW*(NH3@{} meI`h&{b4y)8p!oYᅩaAW\cS+6=ob+huzaOU cf-p~y:qho l 0GAC84a[e"IN/?F}bi*bWU൧>B1 co'oo ;c%sוB 8g|\Yϻ>,qH񒈰l 4ECOsJ²" lcMv{sDr[ogcOID‹A<RnREL0jeȶ89/3Ʀ' l+T&rY{.V>w|_?.Z*%~؜M8'\lVB+<  &t4(r"흁1Y>~H d¡!K)65I=[6&ێeAUijCSX !4'r[&|hj L`>o;VUW $֙&& ̮AYpw,`i# )pu.H―yH\0Ś|-5Kk@ O&at$(?ۑ8=Ii|o,B CEk0.S5D"9UA # Oi#@1䷞A+=s_d:xnb N֪e^97tsSNwD: 4Q7D-'TZJmtʚyhfPə4TJ)([tPQ{'BWFn=xnb17U98AI)8j+"c{IIPm8T 8g[0j}L,+ag)s3\Xh`Oi8/?Ay K̞7!16˝f22"iUtO'm4Җ }Nm.׏2oA@U8eRcJ7hld2wb ixO}JG,]vM҆Rdp\.ri)mƨt\&D(/>a0)h2F^`G'> `[jFU+ ~NkxCu>X*O ZЭi/c!G)\M! A219kAtGyP(;1V]ڂv5|sWIS߰dcd{Y,of&I~|7eܭ>e"W{S^F.=e$ yyJ>?=<UD5O唞9#ym52ʚZw ൳12IO(0/4RU], Q[tQXlQt:\GGBJoe6TN~bGj)AIAKJCznR \C6ȫkr W;5g>Y"" mb%  x$!rˮAhX]<鱳t/$:ֳ|h#Jaz(u o?K.vUO9ۨ[)bLCճAơcZ66mƧ=W7.ݦ_ h<-&8JAu"7 WMвbt7 iZMTo @#*n0dT6V@e& l {!"AFr K݂޲z{'Ciye.Y;5$/~cy?5(ه/ӽIg0 Hb߶qA[__r;4fK @s Exa-t-j z!^#LAh0봸G&lyBg|)ǓlݎF0ߦEU]gW2$S u* e,H+DyDˀ]˥CPz8|FA&YГM"1UfK?BΆw^S&ԧT_cI)SjuBuZ ,f%0%P %*nx~q5+Y(&)þlo'#w > ; v ^z|wX4'E9 -+5Sb9JF ("\ YjXBk)p#W M &7*. 7` &)"$ҽ%d'1DkZVgV=V/Xxa?l'%.UW:鉙:c'O!aY~~}a ^6k0%sӯg@ PX/:t%ӀP6c҆W}V_4R|`UTÇq!6Qr>5a £Cn >aK @eFX T}T^9.Hy#O^DY^.P޿*̭9¹ep;H˽D=y4k2W^ӛk|hL\{!i su4µ'Nu 7O&'aW\J ^ MD+#!d4Kh9ܐ%q=kxNY ؽӕ(~HKek_ɇi{,k\aOuUYX,0?At/e&.qi,p-,tV2FW|WS Wl1CGJ'nCRi['~iL% :HzSjx:EK+J5-id8$T!cd% 2Kn{L6CTT$|M|\ZKݟt͵1wDtÉ`X.$B+ej\qaO[~¯xQmXd+Lb c$xȉrAwxCy^|@;+x":oW-d*T?SW/'`J)jZfGo<?-/`zVq:РEZ9Nf +̺=Ƥ22{ft}|]P6N3X?9˾I$B bB3p/D?Rhx(@V*;CSٹL,lU3ɓipT%Cɹ0wu'*냓^ bY NH-slPS V-<$x蟟6))g?0(`Zwv04Z~$VwBHa,W֑ êRx\g?+{E}pǿ&u ѭ b\vy˕Fo$".7%bLe[oܪW%Lv *^b 'ϳ='9ɀYJ˞ ʖ~xz ى6QJ8چ;sq5Hl՞-_OHe+\id'DKWA81ˍ3W(j̔cBIgq\O8p݂(Hg MU⛃huưx:kSq^mN;y/kW-XI7@~Uʪm tOPsJmƜ旪4+) 7HtbsJql"!jQSˤatL闲_&zWڢ9yv,[/r$P 5nM"SyytؾaOw$c?i.&엍WNDf6 Qʋe&ikdZ5frb،;X2JhE 3u&"f xwԏkJsaJ)trRݶ0ؠ2sO~x ALEU<2 t1&s6z%T; *|}(b j6h̻POm˙F(4"))&.h{\"ۖTD`e^yҩ_-HPKϒR_z&FOlTb|a '<pOu?u˹noid+_7L|;u.xEȗֻۆb}4;? )N0z _ỦsL9mHêbN;M@bQR:/Oa_2]e &Ey4i\:c≯U1 M4Im_튦·dly Ћw8鏣OK&#45ErC5s"6A+}m*$]ΧY8WFD;a]_ƣ1b~ubp KŹp仝'2NԬ@⁄FY~eXpwXEPy*COGDh籣L2Ӝ& iS6\|&Y褘%aHq U n j8dqaZ*(d17tbQpBJ:GV Slͩ?4Ќgns?X e=lE z4u=ϾR@LyXt8e=`-S1zjN(h|kyzw7rn ^`ҡLuk1sR 㨈@>* ۖ 8„l)\7W=e!DzgӢE3_CFOMYiTT_B H(*ku~r}[]tk0S?-ت` >ѮHTg)"b ̩M^`}yK_8ؽ7\sfs4T#`pU'VH3>P^C0eI zvg u^&گ&5{)EHԞwןX>nn>uablj-[jYt`D_ KCl.]F=1ͮ&# K[o.IRi1xomOv=ύ[q oKe M4m.bMEV)K\[d62fŎ'J5.GDp6}lNf:yAe|?VB&Л`/.ų5HV?zoU8%gdt}3MS8NKUfn]i :C5~ mB1Yg@eg$-{Ug@f4OnD&e,ҥpㆺ%]5r٬vWG2L:J/Q}W)NZVIJM0-ۖ|uKzlQ 'uG51se)8[reW0D[_xgjqUJwǮL.kO}IVL)o6#3n:jψ<ԓ; I86UW5̣@eC]. Ls7"|._9tpY`+5ԏi/Z(OatSҽ59yߧW\:K}pޮB\&Lv`|2wb(8~C訙L܃qr`xVp%hL,w&E4{Q{5) ҁ]7i!rcsJ-KP6Z*GPdظWbjI@i[h+X:f8}’eKZM`q( N+nɌVXR7(rT[!H]& OnB?6po[z![&+8GrjnHiԑ"j7q2wmnWv2-g$ԥ\/R/7=_[&&n1/KZ.8mBd=2{6_iGMd]F/?.4Ԉ\|XӨjTOϤS `zɜ7|Bg!PL(. (cnkJ# _o0_ \ІU|)[_u t9U%O j?WlE vV%~!As{ɍN5h|]M/xJ:)ėCnDL >cfrQiļт(&GX^ R<YS`Ms7OEDΟxs3а~[]c ¥d)JvRa(ڪLlM9W(Brv3w[ 9=Rb+%*7t)V`~cl&u6L3lzx_\4(0Ƣws.<X7;cܻag(;)]-ԧN\_`4Gq~TEnXoYԨ۷=]aJ2q'?@|Jm+ T5gjqr2sԅ[rj:(BB?Bǵcn χ pNR$̋5PJQ)8G`ZZ\>[e7mҢ*ϔ%\fz:w{#ctl|"žY7_YX̍J3JTK?IJHGHzg ~ws?h @ mc-G)7nQmuqWNx|7Wc\dS8 ~#7C=,5(jKVL<+(:ʦB$> ݣj}^)@HK@ICt]2089GA_M%eRzxRC82%Rp1&'Qo༾e; X=|.:9&uw['[uB8 ˓<{,!Q5AqVF\s>fֵh. Vǽ#Ŏ @^ơ.iu OΡқzLkBg-)8lچ2֧iAkC ZIvכ&׸KEf`Ǧ-; [zk/=nrK/\:Z#x^p ^ FAfTGji=63E])E'˘OW,<(E#aM b2*hZH)l(nϷB%)?ɎI68zc%P&<ܿmpv%.FtY9Y赩-t_:ä}BO_ԣ>EQ(sr8x5"lȴMUq>%O")PvWҊcϧ_!PيGA#u1nOq21)]L}f˕!(H @sJiRwIv _)1R nsGɏŖb_4p\. Y4'{Gp[4O7?V@kQp[OA]sW94Ot^$yF9w >hm,藅GDG5̺ےf n?ON.Yv^`v WNSzǀsFL;؟﫽,r?|$-Kdb1v?8b5 iIt@d89z,{To{T[bfWd0Y,Ok`V͈`.P!hU٘uPP6`9x=Du]s ؖ*Di6HxT-#DzO_J@I 6 P䁇Lipe!C]ID>MN6ea`k"dp3trş;t VA8BfJ4.r-0M(`nͿ9}IM[PFT%]pD1G?fR~T{K8m,ks $ vK#)9r 47m]\EL a׉9F(5w;dIզ1jr>}uKeS{OHrfDSW4>r U̠mrY4_LF-.7p<[_ WN$_ 9qCk,mB:s#9N8dSȪw )u{6 a*е[+=AW&wK3Eu^6[X'*[Rx ݌j)^8d%e<;%3l%ٞ_0oI¸ϓ; g0RZz儺h0|[天q̽+͢臲Aza]-3azLi6Coa ZbGn|x|,#%3\W'[ܹ:Q`&m%1p*Jw# Xe[w*o !|8QrHqo sEfev٘6hS'(.G %uaham$/Xc:g*k+]{EpH3%oF0j;}KNٳ|P|&#F!q\p}+)r!Zk " F2pU ~.2 _Aid2#=Ya9㮌 l)կΥFl07\vyu3 { q(>2M^lR%&=,LK%cys}uc;KֲtUso`fH*LDNT/h@j-xhx54$c |ϠXKPj:fBI,2{4K\L䲫],2 \: fL¢OC*HrrS6zud#Ne(6Ph+zVޏf{3LZ68 Cx&@J`:CO|;WoҤP\3ٵ*%{,I }%wGZ҄E9:g0T4z6e54n>|7+a||w*}9} L!"oiOmsW{Gjh"`>S "ՐY!ʥI {+n\2a%|k\A1kuGrbNig~^0+4bBʳN,DΑ>Vukv7lw*7Wʩᢿ΋E55s.Rii$B*ɡYՉVlweI~^QOnYr>^.*9hIA&^#7TLx8hA{l$xiM~\R$ ^ZdF4tN&Q7CMXUrbZE18pW@K%fH=B`Ꝺ0G%d`SR|٩1ߝ6m2&~M8E΢ yϵ} 3o>@sBbsv]yUkt.CV{a}c~4N|:7 l2m]~`X{ Mn+WRUiخW>r\W]O 5X^q\*k쁭څG4+]TO, P"׆Ju)wCq&uΚpuYJKxIuJFAnWpZ/ @ p9Xҝdطmi򝨇 \Ž_> ?#}[oV$¥QǛZw1oM^^~ǎ _)AANVnJGD\+DARF1;#mAv gf'enՒ$h_6~9H+JQS{|\Z#8,mүb ՐE"۵u5o;v5*e7r$xo7{fX(򂉱Qe}Ը9 SԊV$H?7J`<Ҟ7 *dKkK&8^M[و4;["TL׃df0!"oyt$]yUbGPF3m$ܽ` z%A8.hᕬ'>a*K~8Q9T\n*hP D+R x~иy|ur-%%P"s Yu'΀AYVᵪz<%=L&$b&Zپbü2[F5; V9u lm6|>Y wq/kucŲmEB<'Х_K NƯqyqc$$^3 g,7=蟞]BsI6m}'^A*n"?P$Ԑ%T|˽4ҭf}4uM GTR4!TcEkj[2& 9Z2$[KWoWIrAJgI65\ô~1 "P-~clTkl26m4'cxr0lo9(r#Fh!_i1'b$˗@KKFKw6W'mǐbJ(KgQwA%b}tc{  FB!a# )Qf6YywŸJ3)u ƖS_S3CYYXl!hFDsxi".sT8'AkBNWh Kh>-y}xXeU=1!-P4t3%+Ev0 槸Sw!A;|TasIz |k6pkEm߉?kL %Quxoᮊ9ʤ'ݽ}pηC4yf@@*zNl/utw,ҡ+4h ^,.Xu"3˘DƷb6[&~W)/{pYFExi! MZr]B{X>S9zy/%1/ bKEYa(shT\tF\:r*,AP,Q>{YkA8iɌXe~,S7TMmaC+Jx= ~2Y,W EV;moC[]^,pxGι^Lm}|P YPc45h]v)T*/F@K*;iU}XSkCW zG؄V[ ۑao^6-= dEB;Tw+y;*.9hJYԬU"jz` CO1K0RBsх am͒ړ=0ګWqwOPNk6yMĚ*{~㶺"\-P[GHboqc|;D/Rxy+Jn˷ФJ9S ZuHBXRR6:y6Q~'O.qjSN݇' ㆘ls FjQ..8oG" ŗi]|. .Muk5)OK⁗`rœ<jX Gl.j\t`%ؘ`a;B%v#RA{ӎq(}7>9JzW Ts rRΖOhW <[(ç P&. /p/3Y h^WdPv_ MsB5P:=Jd)<^o0nLylv4hurY !=utB]S2UKs-_Nѝ Ǘ &#c{٨3d*>ǯz{*Q=[0Vwv mo*S#2i*Nps:Vzʣc@ `Bvڜ2ˊ &)*I.h qF?zRŅ:k'=9ZEMz1M1י}&QXHro#=՘xv+DN>^[aYj:J^viT`,cՖ?Lifsy@gr;.~av?u24-%T6%-j ^"KgfX~9*-i4UHwg@#8%TNMҙWa3֞d U^i <ȴ1[ևk ](pmBBa܁zIݽ';CxkY:*.TW!ijŗ 4r KO+.;1}]ۭRn<\0j7 "~*h#c |m$H7Zp$}{T*a_àl,k7z|:c(4oQN|^e" Ͳ v_x >_kC@U= 9mahHaރPfP1,lbB3 KgYԒdc]|⫚"1KZ];ZcoR,v }dc>ǷSqAe>Gysa{{!Gf\H4}Ma~eQeʓ2VHN;Po ο7U\\ot]4 ɗ2FrRQ<MmoR:+h.mR|0ߚ!l4+$[Pȼ ]Hٹƽ1"Lt"JHޫ&Y4x@Yk> E}d {u/MKv5 s2QT4Aة *DL=3IC$~S^u +K0Ja`+8’/_Q(|@f_2pU^z x :2x-+BCj@> Fե!`9SKߒST˫.h8xC~_& ݅@g'=aTӪ Ms..ȽaXUМ8,S3I}i2͉v$%zpz`Lecgk՝e*l# L y> HH(?ξI !rkFXx-LE}DJ \㱢࢓&,t&ȗ׎|Jʈ _t6C)Ӎo–˰{?;dN^-#.u3N>2&2wRt$);Ry|lWڸv/uBҮ2gs"܉Wrf_|8QxCb{3w3m]np60ǝY +%̯C* !.&-F0)%׋P)Gy̝$ڡzP;{ j%ѪZˎ8qI8h:z(GRNu5uk>$bvnPtoIkf45!O2MVbxj¤OSjCFdW״OUY4Pm0),-c0ZK:J]`+}6%rШXb-cW)OxT<?97$m ؝]RAnD{p <^y#}E շX͊J89I:K`6r`! ~?krr@EKDgVi#>s%ߏ[|"T,ձBtݜXeZj_Vh[T "hcTzOtZ YpSG̳hw,Ⱥx,0; ڱzko&/T3/੆٤9>U G­ Tty{*dxi`'߂ ӳMt y<.}FB@2yPj{ r!TLT-Ш׎r/Q>4~cϠS3oBEh}.A,|S-1wqKN;w<6hM:&s:}"=tGsNUOV t~+ȑa6>b3!Gn,%xlmB=9S$'ėkS ,p&``2X0 sQ} VW'Gl&lB#J^U?ˠvI[-q\8,4T}sԓLLd5EΧ} _ЖX6dZUѱ9}[03hJ©bBCmdI=/LT"LI(sVH"T60Ϗ:fJ%^Ur%Z#}Yo,ϴ씺;,G;Yڂ]pH5;?4dysJHg7.~O樶m6 kE-.vK"x/|IJ Zx|l~',۽N원}Pj{B31Õ/0M ,a~"2]%钁NS!.p0s/?68q0گIX!(0s @H6pWٞ-lu 8L5dO`%K&D@}Ij Q%tܲY.f)ZM/?{eA# 1 %$0">ɴ~ Y/ϵ}_=-A勠(qQxu׋j?m uFu|SU=S2`vg`]AykDί0tj9Ru{4*T^HjO+޽q,(jL"_%PBSR@[Xxz-Ȧ)/de@G m'b:gȅbϰ_ut@Ջ;72 {߲ϼ 75+RMy)ɏD, 68؞|¡fww6,G٭V3Rfg^2{ |+i{mIcE]&< -D5}wHCNfÎzo+4d`F_Г4AfVc檋,`gL|'S%j6`|bYsxAv+$" "z=lQ]^g! J/ e.bzd%2EBoxV*a -&ɃyOJEq ugZdu z$&L+cB88Ϛia*U!?ʍAeu mO?v5yڏ3Lng:)^lej ē0$q6Oh߁,Ih Ӂ0M'=gڵ {}ZW|wRg6fhL`^(bdWK[o+ ĵ9V#uѱH|dBnoOHD+-ZG1. y,F} 6kd{$^;ithx%f]]*aQQs" 4}ېc;-whC6s$e@MO0F3_~^wC E'tc"دܿ%|fJtU8ɓF`տ%%0mkXHғ4AmK`,Uƙ6;l\%ِ # 5dBna+8^rG #fYQ{Ja-)k ʢ7v}GBE{h? Kt/>4PJe!kzY;,X6?b=t%!rGR|cكE[*ǗliQ@V48Y1.u(PcQ`g"A̙ghS"\߇pǷ?/@ ^OtEV62^]oК¼2]h܉/75e=+4YǹCS j,v C C2̅]h:ӽRb.oRb:Qrtxig%%mgBgM"Dgw)r+E=9+q@y1LƋ(Jvݫ&PS 4`@xqE2<O||$@qEb'wt-Y?16 ORDPw-VE.O>PpZ|\jmLLRMiTVgB>Ziﹲp~ɏ6ԵSjddNP:/c#/RYG;.p۴gnBkSHbke 1$w9-:y^21MHQCOG-Vl]j/̷C[D?Vy@qLؖ* K3ee1P-4Px7\w&e apuG,2eK`#uX^'#1E鑃K^ ԫhq̙~כ\< j @"6v4fE5:DA]eM4396DNO_c s0+1tTRf-e*"C"?\fT'wOV_z~l(L ^-فnrbg DT39pGRz~m^MUV;&ml}m]YG$ ݏy䑴f/^ȩy,vw] jgw_`@HWG :3h98G/XԬ$.^VS,iNNiJ?wf}T0Rj 'ndE1zG qg ?]9^[mDXpS>. 4!?eеR#$߶O^Ft&T_j84v{%[8kam.6 s6:p˻3k8*#CNsph?_I0׾״1F|oƥwAH\p/˘ufwl&TGAq000vXi?Rfٸ<#+H}YEb'W6G`%ND+!#@B'x0pW# D8`ad[daؗG>fYod$muoAuF-)Ln;ُE!B- 0y.E"cS Ѹz>s{݉"~W]ԟt6sJ~l0ؾjS*2/c9kЛ Ș sa $ ˪VkK>Ώ埇bJoǒaߣE'Y^$ZLROB|v dC[@P<( >+[g w{jf 6&{Wj2&Ah6c5^Q[4P' GW Wi*n;_}%`V)jg@_x FKG b[QRGN!mGxwG$dBoRq,ViZUD*cܫ&V *t=jM7?Z;YC) k%t_No}SR5utR;p!W{"W#=PH R+]&bڛJa%!p$svZ=K}pG?,#Ԧ2ƈO#Rsxbp2:t!3%U. Ls<f#ϋ"K7t_yRϤI0#~:ܩSX%ڦ\ g>Ip+a\/,~U[̃94:s@5:!.6-/v`dm+Ldi\!e8ƃ]`O'Fyꪔvċ*x E|A_3bǤh:Hb 52[ ESp bCqTn1=Β$~/U5 {^oYyBo>vqm}e柿\ڱy/+D1Ɖm$NI5 /q{wBW93x1CUfpi1hC BH28ND>QFau#=ǐn'#`ꝝ:Xvegb6SV /" N@1s'lupX$;|8xh%nfrͦŤzmc9"uч~ 7:7xzvTMFi)I';|hLc4vKv\;L`!Uhޥ!FI) }u:eAc?_zzFzTذ|&Z]c307 [v0kinW6A R9 HLeQؔRqZT~ ]lG f7yI5I+ n˲* [qm*dkPܰ._IKtXgō,Px>zS>uQɡmVХ/J.{}aµ6I(GAL-C!Q-$UM|})u{f/5&e_(Sj߃̃jo ôBx5"I͇jˮ>u,^>\NuR٢ݣwf&,ED϶/ ދ@BoRzwM?u+)M=EIi>8]}Bٷ!; gɬI7nQFpYuAy7R`pu@{\V}ORM4D/Z[ޖ:188R|t0JHMVGmPh0Q{Gإ)ά# |Oc*ŕ.2tw !}n97ֹ)ɐNÙj$PU་xƆ#$UdLj0a!wC}nUJڍ^>eQGyBw`rIο%C3##qVPɳ&mgއPWj0jr+alʜqi)YGqW*zv r#K(K΅=˪:3:}X/KIT -PynxȬ 15X6|2(z(.!nlvk3 rV⎌Pf,`HH]k9Ȑc2鈲H&paش4 GfҚ9?є*shUR4r`?7pϘU"gK*|A<޴Kd/ͼRz<t=(\@h54+ع}AFsTK:a|AWJ#˯kB!1,^ 3+cVH&g-迲I#N1DW!EQĊ+'" -T^fF&nQ#[?J ЫsVN%j菶ӳ8'(J)$D4dEkvBk_󅬺}?ݤƐ4+{Z@58 7.6ݴ]>x@Tx;:ddQ^Y֚Hc@_^0+ ِW}5 OvfO?1lLӭcG*!|ʑo| Dץ,<w'OPd eb AMC\d+'ö-WP؂ -Z]N@Uϊ%&|G"&/twvНRs+fDI_6̲Qpg'\R \\w3urBb}n6\pWOeMS&V-"ԑ5Ilo!zpc {WsiDǂ5d>^@,mmBjENkn3S61 (ܔ?tp%e A ˴@-(-#{"ʢ(g"l1g_@r%( N Ҳ)-[**gN)9#DBXYS>fI :ef؆`tdN0=_[1wTPpSBѾ2 ,ݾtLs/Oh2.: 7k9 "hފ6U{7 q(/neya3RUЏ4:Еqy_kz\հ^gbER;p޹޴Դk &k?{KK|lV:>^[{sX؟^"NW:nij{/WW\xMʡ]K_;9r bJ]iL՜??t:LXoIeES %*[PKӚZqf5^8*'E:W@;Ara .^F|yzM( ۦ x _xFPr)- *uvw I@k]-BMѿ(z*籁mp*,r yIٰAm>2O.X- ➟ wLIfݝ,1 <xT:rMΕ@㗁rN C𿇊恺{QyOP#Be!0|iw΅r1n*s!A'n{約f9`6~H&?M2E+ٴ'UJMynuU5X59D5y̎i2.mbMus!xE7~1(xK5{@JS;@$ ]E}`@j0P 9kpO˘Z멈{≯9R;x6-1020te=evh\[>,U'-W;an`:N1=e8(o;eyTggԄ?6fNJw Ȩd\I™N _tB+h^l꾁#phA19VB?˂|O;>ve.pBy†G3ﺅ\d/  \ǵ'Wgb[%CrCҤ(듗huu8m"i[y>#8fOsOa6b9n1?p^$]rE~`*:)Yt&w͜hG~WDw*Lg\@f.Usi?uRb,;9+>ixjezeQEF-[O'^tZ~0b cE\кhè!l8Tsq/.:˘ufg/FGo3F_%q͵< )e<Ǻ`B(1͠q&Gv*Pet,m9"Z7{ v*B$I2tZ-̕rT/GPA7E l[VM}<;ٕs_!hp"փKzf|{g>m=5p>(~%$ v{v>|y׋YLYsD5xP7Lo7^#`k?\UJ+Gl:<6P- Ч{4d7\Qe,dfX?sлT}8S_{ԡN{M#J 8B̓$f>nX^ru|&>؝~Np:h[V=:{ (b=V͐'A;ls#1IMl2^(&==P1pcTa\UFpkZMU.Rup6,bkִ&.g}&2UF1a?0C{Nv--T D&n*5+EmȶJ?Yn3Ip*}\Y+<:N/=V8r~^ OT]\)nodLsvZ$Hb byr[j ::cP\\;O! +lZPznÍ7GMv@LN]_4ÐiM%qG>ɗAH}5?LQx=3#lTg \A_sq} F+M,[D/UWKJj.TLm.g3jcSvޓwnq9 Ue벝(Ylp5YT}nro8 giYrJ.cc ݋_8hEK]||D|A|tmե1<=UXD7WL]m_jq백 հK"[=vT!8\r\!4 I}C=+.+bud1򠣮@@Ì9RmzRkbzn M{Lr?<Ǻ{ȴ I>6]? Wb< l \y$Aǝj07G;=1&HTO7a?(Mԁ}|ffyH-Jč305w2l6}GR'E䁭);XXrvݸeIJұ<ޒaY3 ΤU-EҮwlFiQUC b'sAR'fs%>yJd! ]<ʺ*$G<Yp/[BwA͙?#t8%­nx#"` .){Z^#b+]㍻鶁ެԏ'4FSgQe g`2T!Fhh :3lCd~j8̶5&A BM}mQ[ھ`ϱ \/Xs|yCT#` 4f*i&BƲ/E9> [ę h3ㄅ EFѷ\U#$ikT')3fm_$HV AiNo<q%}ۖ%PzQVXRc$Rfn#+Ot+. "daHs#P"MQg뺓^9~]@Pp;b^;m'?8ym򬑴0`9UdD'YN=`!eoA:.:FVƋ#]ׂMכ՛̉،]=DI=TZo'r$*>*nوe0Ci$W=L3m *>9i:SY飚Bf5e|pF6s!b23wʖ=Og,\!mjN_\Ê+~1mZ;>=1ce;@@3$' uLKPKV Y#"9B7 V//ʥcx/˗~=%Ԑ#"&@Nf@F8i/~hx'j+Qi"9mI'c48QBgmJ )!n<:@5191|ttݶQ7N4&qi\@=94'J ^ `gwX5~r>Ԛ- ȭA B Txq8C$5 ºn,:mbaT3nYߣ7dQQ*gd&b@"1||;&V0 x-8wQ'B "e3 "[6) K{掱Js:Gt2EX?YDXnxۯqR.{ y'5^ńS7] BK -͟#u[3Xsgga퓯ҜΫ@jxn\=.4t[<,믮%tO-(Crb-Nɪ >BbYFq Yl͕kRf9 km:r<`>7M @ckR(0ʜ@D,b3?`ݝW6/"ʨOXi[x 2͸h.l --#&1\ rikjr2z;mۣJ.'z h&'#h]})ZWl3\S6PM(*ՅzCb/;hu!mD+j7PMo-0,N#7]ա3V V:>N`6im9lX_@g,뙙 cEH|側Rihbr X#9n,"n=ʬzXxk]%L3;Js\Nby ^|͠Nlu6vҲ*79qijr7@dK % P)VIc4lq}:$U;NpnoẈK~=PD&" B/y3կܨ+#{в*l sX:F[H&-2 CB"tkPϢbst7E[J ^i?7`8j{Ĥ )=<;ц;XcYZ< q6弅r瀱3ѨndO${{ĘɯUxΰY|i @V瞏bTK4^~wJA_N+Tmo7ղ)ӚBd4x 52Ȓ'ak%z $0zixT;'G=UTkǯ4' VիܐpNECKx=uiOjT)ǀ 6_f'u*XX%L5\FE;0}345[Pd~*Unk~Y7~UE>v T W#-~MHxU4KR3qq8}@+Rn`ѫI-6m+N(=`΄A\ 5S|i:jȏ]F$* U&p.1y|4S8C(\T|=5χx*MIqBcBld* ;Ե(#zc*ܨ1Z;0Qd}fasM&U{#!Zv#HZOǦ ϸ= QiN4ڙ,`|X$~1>u5)ij|Hu6xmoP%H q6$;mʗh&dKxb Zh VĆPSUlSb`dkU#VYCoERCk+du}Q 'ƃ lr77NںJ:^ڞC$>`8W`7ZBƵ0+l®VcNE:q]P2C[ڦJG!UlDczЍZɞ",..O %]橱a7iĦ"V,qG~k_= # J !Ֆ7N{!L&^%"Οt]2~IA)tICZU*^ i5V&!U2ދp h?zeײZ#4]eZ=9Y)hDPrMsclH<mp8$ULQxbJT;`-FEگhrK$774CM|lznhT.׭%e2-@8B'husZQDe7,IvD Ǣ]0CRXC] ʳ}muC:+G4dHٿ`ҥ0&3_cJ^̪HL7nӔ|1Ug6qRܴJՙXC6Sa1${r '2)x}̮( p1wLbE rlz\T<6T  hZu<ͅDDTl ؔ1CQDGKq$AfCƻ !tw̏I_ƻ bI((8E&H1J->aDUm kO"C7Cqn_4`y:ҍ!^V(T2߹PqA{FdT12-4lhmBV)I$fg a Cj] "87)rxm֨az♤X-Pz=Y.$unA4@ ״^n<)$ '~<0{:]t(eYH4¡94hv y=ӘZ_~@>ՃthjZڐp&aAh4\Ј%K sXpˬ}˭r60Qh!fJ7 \|K\ /Q&EڠCYB-,m5xGOWo+nޒFc%BЗk Mer&<4vH`$AMn կ%U- m_2ʮ\e &4gI݅=${Y'5I1)s`MhDӀI)Tv=Qg,69RC|ըcYKqrGH;m ABwFS9ϰbf<=*"+IUV\&|̈ĉeqH[[~bV%Hn;KTlAֵ G(wA6-htϱY[sIgS`2[cFqC+O c'WUz.0߶JW7{l9 8'OEexo&]g%(Gd4Ͼ ]R~1zS CZ\..!;0^5;mxRb#7 xy>[O^$ǾG @qkg8O{9 ԉ:51rʐ>x-n6yk,ClB}!(wZNșP8uE s<,5Q?6<)H<ӌk kkMhsE8/|v*L39`;I/X9Pi.Gv#p. C].b h .uBj9BRj]P895(;G.B6/A.-k&EչH^= RS޷,Wf;"Wt2)Y)vVnNjVGMf!Gđ%IVoDzaĕ) eQb&}9{M;8EV L7nb<_ȋnQ+ݧ@4ԐU*޳8xK5 7y+Ii#qq ݥ֕0b'q鸙pcLQꇮ^`61jP꘾]-BvȣzB /{&EKT5|.; KrrvUkOJ”DLCx[,P~wf1(\z˛ڨ@A)7T޲s>( ($Ecv[qq˒L(b2ش@ǻvWQe2D+( S?j5*4vI /6)%1˿@e4 bW; VoC#^mfӐNqdnהu=@Y )a~/5EQkĝ!3Lu^IOo@35[bHbҖs9Ît↬Glv=@ ߛU7!igoE,E;99 -ָi~q_D^T#Q#pmoe7[s=yTmg*/5-;Jhv%W-'< ۩Ͼ(CF~Mvnc1 "\#|.Ȑ)\xY41Xm% ,cd9?J5n R ]53}Ha0s`Eꃀ1QY3{M/N¿A꣺}v^vKn4lԫ3N.n \m@*ZVSf:RT$_=dzs> UsA?qLnɊbl|D;z>3_MS6-]]P fhkp>PTPz 24&8ٸ4>5>牋r F#FxMPHwo Q6O"O!Mֿyw@,2 h]aZ L2\R z7wDJ`OA6ЅN}X؅ 5>zŭH1bowC\\W%;Ǵ5D=z!=FP]i6?Y˞ea4+B.S}JsY6VCI^,!Uֱ'TfF?fT,Ɉ h֣LzJsvo,:U꒭|ՔJ+$<`QwlL;ĕ]% E-t2N#Vr0RF*2q$&JFAG B&LGXTU^nMA)Y=-R~?]١;׶W6t앇  y#y珙^_e | >a_ru_\g$])!}{UE__~Rwz+߶ wd` }L-$qe#3vאAnHOְkַ)*G7?]N[ZVLF4YVVe&k }g\Zv4^|vJ-$KNE3iDCJVbЏ'L*hЪtBTTd~|\Ŕc_(NT-!$kh//"MQ6lN0]F|tg57@? mGYZ[MQXz^TDg=>?U3CHO.SBK%f]QsxT.{^էDwWdH!w׹tӯI#uDFa֤In5<0X7`cwrq Ie g95ܪ&SʢyO[㶿3ݴ,)ۯS>X.9}ҳVKMH#kUDσg; {\C[ xag'W gZ1v}fma1::¨k:KZ'| m9;ԃ oߩ@fJZ]^#@Vw`u([`U!󿖚vcPFy>Իl@ۄk Hk@V7 ̩ /?żfQ(GsU;Vnډ I|OU,m|l]1 B&%kj~_Q9Lcj.W2ùtoz_f`{ A>7޻Pkjn\-QEVP<ՊhgA y5~ChU1I8#7 &*A/+VK6ЏvTtG~N0_c)Vn0is\fQ@mB,'. W lNJɼKPbe)Mr[ E-c^pd8E߂6 ?Y)a8M_VX_Pegze)yf6ghݚ[#QnqqMY NKEUr3⛿'D% /Zi3d"Z ۊ v*-cԩ`p!Ui+y: qښ!j^a[%H [qK5?wßiզԹlH`[VWG佽R BOvSܬY57AoJVXxZ=}(Gt@ɛ`6c:$ѧ!nЀt{񩧾|Y]mo.:xuXcRm @!}!4;R*nBYY&D()ӣ+#da.Qi ujsT`7qP~N)0m@ ODvGzw. ~:0x\QsW;G0j [(bj5Fo$X;0~ sE*ϪݔsϪn"g#K/#۬t& ђARcu}$a tov߰ۤU@yuocF2MH{$rޅN TRӷnŶv* k9‹61oKV`@ ' Q088+Mw+r}^*2s?KJԭw}Dj]ǞXK'6Ç {:#U8)#. Xcecۏ汔uC6kuٗA:_ UԒeY)-@蛕2quʫ6% Rs&cP _EG@|ZBH J{چᣬf/!( 7S"d|4⼺m&EFufh"(måM =Қ9 aZs:L/vf@-E le9(\U_O2EIi^C8 {I!HZH3?)t k*-O2ɲw\#<~Bu.#.!"K/b?1ý*g۞` ?Y ;Ipehn/(l{1X̝يÅ%1qDSvld2X {8wn`A쌤ҮF=vp4̒ɮ\~l )տa Ed ("Yu@^F֎:A\)o#ȣ@|[PrƩ+p+2!u zk'1UzȬc([k~ӵ ˟d3y2]S1E 9v1}[;zEl](H c[p&`o* ͰoL6gHGP S᭬w3t,lSnIc )h0 f*kv,uq!?bQBS4\#CqG#yD ok'E8@}9| eUV-ucUځirGe e(Y9VoB]*L1S3k\se6.w?*]kfP=/WWD\soc6pQ@^{C$TM> aA%NC\WD8%k3PXgo; }~-ekP=}sm ܙ/P遟d5׼JsY_8y+>FVUOƉJxBu<9@X⋬Zx C*1-V8KK2N kx՜ѠJ& t6qm'Sj@"G?1r 甌4)`;O}/̺蹷c Zl)0kpx'-NG!6lBj]I/kFD;ψH:ww7ԪxTZJFM$p>Fq4Sܔrר8;unWB,VyuG$AWUs s1?s#ұ`L9__}|$F.Pob|[ Mt$Q$ ޕ]rXӮ57_Pk~kv,f. g63Xw}zug >JķS5yPn7c>xie,M(+/0jLl([+Іy"ƨ` [݇IP uWP"$5gA\]D?yO~KjLEG&y G-ʤr~;!r\;Apia.ڿJAQIdf㥘Q0U (dJKV(Վ3XI5MH~}X\iWYܓ4 WoQd7r:H^X X2kߎ W/`Sgoڅ1KVJ0t@*[l8%kD$4?*ᡲ6:RGyuq7URP7&HS9(a`8v2SË qkp?)NjywM:рz7Yvc\t=y@vox !O2 v'iyl@x2 ]`.[RY-D*>eUetJ_btMT\/ln"!}%~yȷk l{pjnoq =.<(p&w9w[ͫ.i 5p—6+.Lv_V^ UjY)N_1F*cʑn{wAhn,(T.fsp4 <,K~yMPImË:j^]8/E1?Ahnd;*/UiS5ܗt?ЅSpn&ǭuT%{r$p #Zx ,SfobXW%cb0#Gw 2^"Ae'bOu\ԤYF=J2Ϛ"TbMhkfaμǼi1n3]$Xnߚ Ѡ~h{jT{ԞOgJ 7r#hC`,=BV"yIy^1'G:C ϊF 59y-/5?cGt\@]d]jHC[11F~b}}wxKHBxWRVi\<Vmh2zrPR>oI3DžMg%}6Hi[ Qo/gkO\1$ף7tJQ㺷0X\C>6i^;ҭUr!K n@²,N0 ǜTS#klqXd'|siq]ڋCۅׯ-xH}9"P,LklEeũ ՐNʠQ{=3B}$<|S֖lY qze_fPdHSa:Wܵm CH|&9@R.fsClo8;b?2Jzn#3`(=M؅5NH+յ;bRm9Mޜ`ɯ%U)qϩue"Π9=@ndxփ4b}@@Ip ܛ)}/`__8?>wk1nk)C Qò"Z3|/ͬ4O'@H`lݪ ^d"̀BNr rzƐX&ُ͖*EP8AE5o#GW5^1Ԁ/.kg*.lJMK ;Ɖ$KH`9?6Ɯ1ZZD> L}[۩foTgCtDBD<2KlJpiQ6ˈ4άDC& _-! O^ZN2"QSˇ<#6`j FMɏtS Kp3rzR@L~qePxF9詨օXvo&tqUޫ9m0 3PJ"4W3<#X*K"+ih_l 2ɾZ%p/_\15\/G gٞ.|<S$-b|5nV87k~2x_֌QD,zx#D*xSׂTXK^ 6u$2Nίp3x!M\#:vzA+_LEbheޝJa/wLS;s&B|䈲ZyTQ0= 6JF{/SB>:?'=EG35obiܲA,õ\*bc\W -No *}Qy[¦`=D,,o3=-P#ZGbDdc9.ѬɑcZKQ.jl4Sԁ;=7c=(+`s#r%#Kq#gc)B>})!=ʣjTwIx6j9%4`1DoԺ.Z\.vGJRN-CC| P_4:}}9x~eVp7A% yL7mU> )@ xJ!olE>xKQ0>M'/LBy`fd|״/Gѓ,,*z_j EO.[nML,Cɥ7) ~x :P\ViZQAwZ^6ՃƉeFxVN/$˔xZ^X s8GQ  78古s֓0WXoы2y|=0t- 򆢝m Xb7_:XR7"]oCݖ!w,Dq=B ]DQS|¯j 75k6."t/W2rb:SmbĉMb TsafK}Fӭ\5Ӡ]3u;Pǃfw}hѪE` &ه"˽IF9,U.$Gx#1F)O\Q]ww{[ɃqGZĶ? Q &Doc?+Ɋsƺ# Ƀ@rs FvҰ9VL fRNqiEeT #ɣ%O(suZy~g!Sdz=ChCɞ{j ;mGwb.^d+lsڮuaV"lil=ݍu&N^ 'Nsx}pܱf4KMntiw+^-iF*?Lj=,MOi?;zZ܉TdC G-eEC Ggz_D.Jp9ƽ=Pch`+H@O*\?!.-䬂WRp_k_2^u8da{csH8̛`^FH=y 6++9 KԖP7nK1Ku Jٜ eyj|.U [85.̨֑QP9 Q  FL]m^kKY+n>:9ȗ1aHhǠ'djs"jhS'0!!G/W,`('XL(Q ju؉pۧk-Xbj%N|"3~s9<&C$0"DflE/  @1fzaC2;N@Jkq;Rv8##1TeJa6YimV d^=U/HTdz:HB!v Dt6M_Ͻ57yɧg'7LZJ?$n+ gRy,/ȝiKLAG/X ZW//U 쉳%(>Q&4 |3x7 /J6},)SzF5bs1;5 )NG7dA" h"@Se M X.$|?'xl dd-Ϯ+x/=D#ZO64^ jfGVpRXomհ/z@nZ1ƞ~3ۦj > _o!99ԫ:|)lGx#"jxO2>oNMǰRGmWMܙY0&~Mu!6rG;yR1dGkĎutx!$VTSyڕ0~"0ʷj`32HG/]<>wN?Dh|u bw0c_SAJ3O jp E^R:- ϫ /:- z^mEU'uKH,=>xuy?L坚{9u31Bّ@m.Wl2Ы!ҀQo{oí f=/Q nۓYmpuh_Hw'251|m,XlB{)fIPFnE=*,&3 K.7m * q, \6,9IM2]-yVgU+\]ey7P,ڰ: {֮A<xsgI9Ѫ҉^}C2W8zj7.#d?5`|N˕dlKJ^$|M?X|1b˷R P>U/r.yFKΘkƍ~SEJ¶8S8e6^4{1ϲK"nZJW@,v\qfoSb -nAQm Sjr@ QIua؄Y#Y"}0 u[nv1emJ8T O B#?1>LMI.Wk;va =3sw]?4$IpprLy@ѣnp` 4.cy̵8b Z'o$o@9lϽWv_BJgwF&U|:69m_CV74gi[VWG$' ktv`! 1Z# KIorp`ޭTzn`~悔Tu*gK5K_<P5︗j2Y|GKkj K\\"HF,9i4`i`b ;0:+?=BPhS9 YOq0.N FopR%||d5MHSdgtSџBD# npD@9! Ek] j+}} =T7>;م]{Ӏ%k{.b-]M`[˗=0pvIDnpߘ[xi-zzVYtWQ^|p+ Lz=)&!63 #Mzgf I[%%Q7/[$/[Pvi,ú{M ^ p3{3_.$^:U.^h!$W,/{%br#YGyLO7.)gp3Qd?.-Qe">@y8>cyt3IT,$mdsǖR#4`0{ÖNdn ʾ@0(}O" ||Hd1b{՜KaV`-/vF<  Y{Q+]'_G+۵*Ç,740Ȁrjkj[4+RXy،0vW ?4tsLhNLb,J/hKԡ6ֻaVj,䧻 /x#іʶ0\&6C^;mfi FAUAQ7r!pv>e|h ŜWZ<.;@pozf߇ N^`ky_3|t!DԐp]Kp%V&=qfZYC?ۻ9jWqZG_@?pNJ#o90E,?7+/MB?|F௰9iegM{bةC3_hRxwUD(GusLH ^^`kC7b^s^Jc>nTڍ݊;2?[/[/jp eW”#yd/Bl9G6jp噪'QftNVs{OutP] ;,6sX^wZֶ#M;@~Bj ƽiFfH66!~ͪ}xmH%% 6][;-">ؠ8S\*GO1Mb8Qݽ(s[FՂ#9o#3jX6RӶ8PX w'MJT$w⏗Swg =5uB40Gk2(5DdT2]X(1ߍ4:VѢO\'L3L_Ĕq(ۼe 4Y -wK3O=ҋЉdEk3-ZZ [xx[p}T`¸ݒ Sg S7{rpKdĢv%9kJZ؀ZiW _~{B~__Q8> Y 2~VgG޴7pdt篧#"33v ؋Xy\&xpQ9vRi@H8(Nzt m1qH6,j[QoP{zhXoG))-b OP6$2 AoK&&P5g RB<<؞~d OFƉzSULـYe+pexQӖG:9؀ȋ@Z@GstoUSP"v*clQXvd1zqqN\ # 'JIٍ?zª VDWMpPt=wSHY{{rjt7eftztS Nig_#OCii⌱-4aTsܓ1!&L'^Q]v؝1a[gfLӶw"翿N}/(Q.$QT8wy_࿘pVU7V2J Ms9hCaFplIfwVFI|xWo F}$2g(=ڛ ?!z%yPh\IɠI ˨T;o]@YR:7{q3K>^.9DvIԬG)OT/& t%R+OA5(`{1# \]hF8|=F VebɈ3*@nJۭs%yb&U+a ^'36`XJ5(g,1st9Lp*,6+/֍2*x^1kOfbh՟seXNo  " >,޾/g¿s>R^}2uUw}FI<닶{ &adUЬ- TS F7V;DŽSTofr狦Sp [R 5aّܚS|y>MW *B}BXM-ІRŏ3^ϜI^*+_Zآ1WK鹜C$%ΔKUºg0l WZ/HCe\BZˇ`ՈAIvy" 1Mk#oI<I. :s(4ňڶ`,UwX rQ观p{O<H*D`KC7F?u08Z7i; *U NA<-rLjpYhӬ޹3͙;Ǽ"ΪPDuVa`?{7qdqNO,Iz@ 3MAޟFwݸⶲSo+d]Z1/6̾У$ Bt؀֡5VMTС:i8=VgYYw'B]F?ͽ`?ȡK Lڥz!*z-(a\k $ߍu-☠,/JޯEwnHi z ؕ6n̂ζ\Q[]O( )ա/wWS&Ik$ ÑL(ib^ /E3.?ַ۬ TYk,߅Q<:z >$krS2ĕ =zpx7Z V65ѴGdXChr:;#QLgrpE_[-_v6:${ُЮVp qgׅyƍ u JЍv4[ R3#YJntZyD_1F0LIO~ݹQT9d*$#/ODN<&t¨I#x1h!Bz̽&9l 0 vtp_5mЇv*^1 RkCc,m),ŧATiE^i+ʅ1k޷߁1ڴJKX6XdU+S4F Ae 4`@ CXy/M['XKF{c˧o8p 'U$]ϟ<:_`)u*cSzh ?h,[qN9tg\ 2k 糱&: Έe/*S#`if~?u 2J B|ƘC <`'65F+{k0颾؋EE$@SdPtƂ&Odm߱U̺ ܍352LN N[0\1S Kp9,WIeN}2k6h0ߥib}L8gЃ(Gk'd0dl!28f$Lbw9"!PiRN礘TEiKKgn-;6DU5{&_:&r5 ShA/GZg=T2x}Q)w!봆__S$D@7~$l ]YVWXR5V2*VxKx[L O, F85 nw3Μ1ذ} @э[}&|}#;1'WXNb5\ۺŢcFǹǕ)")`$0-AC7YNR m3ؚaEꊐaD #H +%F&:j Mho  iplCFO Et=f 7*V(v8E8?zBԫE@,f)U(I+w 9p̐pt:9%Vɡa.˘}¡2}V;Ti7];,mUށ&z|5yw0Y{PMAE9B+C;i?eO aGF;7,iӸ.mtc #la#Pdw8gz ItJɤfܘ:$*Ä;Y%z.c4-/*0d)m?4?%YzF?yǼxC(tj}%U^"](xLs:nߠdlxyaE/n{KQnulu5,Áj0yZ~M^a5- WRV@tpI#>XUʴ_M[zWnSsy 0R:5 BM#WF#ˏX:*LK%\1~/U}Yו߆SS2=g^fǠ ZC {)8Agb[M;~ߵU@-\6yT SEb3Qi2087@Kc!;,u\Vn+xp-i a殻HaK,w>qY5:: -_%El@?t?P b7_42g\ʠՑ7S҂EM W|'ͻeUX7T!ݛ6Fݻ8BWzP-:MRVQV q2[d%nLr)`@ڷZ"/|YkuZ2\w T̞;럄0 'Q5@DMO >ъFX3b6BOI>5!%(jS4$x]A9 ݺtK?QdIUޚ}wͭ K/8|^$'L㕸C(IW=4WPXp {DfE|p M-i`%F2ˇD ¯ArL3ՃD܇8</j䓹CZ݁K&KOKi^$rAm 0h[7J~XSV\-hV 7Jp,}TtwdUmն3/lpl M0K?!Uy [6]י6s;>6$uֿڋ\@lYgD $;Eq9 z/FI@4BTv}!\ʔKTrO ]?oPL1 FkcQQɡVޠjWw2M{:v@lTM9?!r;1Ge <sRէ(\]x6=U?-Q8gÈ9aRU>qR2} h?(V=%42´&{ZOL,UXtFV ^LMMCP52ځw}ĄV{ oT{V)0oj"(:|EpV&BaUh4T^xwфA%EYlNz)jWuY?I19).Ur=xg n4+`^U(nv>{YZ->ͺ ǭ~j0L=_RPѨED H (Oۂ>u)N3g98_4CU_ 3ASc+.;IPրLNU2H4 ~҅緪Xբ\U֪s*3}eZya6;p4(d,];iY$sWfО5M]،IP*QnQ%II_S궭eO{JkDo!Ε2Yը'Z䅍WF)ӼQӣ 2%Өg{ vW^ܼ 8)%jІձL tmˋS-.xX|:}?ғT_=SAzE$ vu~rGBYPN)j]C099_è6vԤY)"y~6qO/nE\Q[c9Q1?ڣ=Ŗ0r=I BΓMm|"˞YomEůY%R!haL6cc㍒/ˆ%+fC%PTە6zU2(e?󜉬c~ƥR{YOdlf|4 =RlZet+ (~ frNBKCG?o *ӫ1`.tD٥C8>ʞn'|tZzCCo%6UFs'$\Rjo!O9hO$>jH KpioC{13#)H_ea6@2[Sb?]*8\/^V䃺ͮD WF<*JN8}^aTJWs 虖0iEץoSv&3:X<ѫcahnqV4a; '[9)Q~J;;y4iNnmOeShB\FHK6xHwVZ}Bgz!= A:n2l.Y~)Lc#[s5a?z4<@ w @A맹\ӀH: 'm>msq//<;X 9|æHj~OpD0*:=!³IYm:$A8#_}*# ѐ3[94.0K>c/O5^0,/$/%. OqV*8_$2~S&Qa-R6HznaHjRpښYhF[sJ"@rCoyu@$ '_$F`Q~(_0 Zi[Szm\M ٨Z Olvdg>S4kAUf0I]s?8֮i4V-\Np$ۡ8Pg$&$T #P>_!QTN6ϛ=#Sי^h*YJ:kz }OTb!{Y2*dsam,&z;Kz)C0G^<=3YdI[X:5XL>dyZZ>Ny D*zD55;(V.LF;e*. YElO M=G027^=Igj{ T1]]uߜ:oX?TN:)Xhyecl _IWVXC}4Bm͜p\TjB;~uf.ǰ *BuKSM_tAX ĄS6KmqϺ& d恇05-A*gJhۦMny;^mS0N 9l3+Ћ$" hiJ!߽ TBF/2;yY*)-RfD+?o@ne~Jc}n#ֿ֔I[4+A#hVJCA*Ж4pFlIOtI|&*tRq񂕴cO1coQ;pBof7ވ2@B1tLVVOjM-㐭h9q`[N7Os=~810U=sk4Btm緜1ШT Rx.xvw5++ѽ{2AS\7A)nڽ& R-gg;rqlCHV);5#\f{ ,UGqͷGK# o7 &A TN"ĥ@~H_)d⁆38}9N [T, 1%'ߡp =ɠ!OK eRNzg RӶ6~M8k>ZOpSY͖؂nK-jA$;f@Ciĝ !{vn(>D&AY72^#TSD G j/M5A o0 =S.cjrPnjh=/Jo O6N'6˘-}r2,ȈyvbLs|ߖ 4b&@՞s=<f%W#'H* A21ol"\S7Jb\H=MQ\6M:%w~#"t} ŽS!4%dҙMX2e kW!zu"dep ^nU ߦ =\܋<01Rް"_4$y`ј/G*g"V>B`8M\]‡XYНp1U_N9,SadV?X8پX,עb,PG1'a[+(w1^;zcZ>&0۠"R]F| 6{v[)AxVnk2j y~QΑ#֔!ad\hSiXIFX u",O&1Ww`mG"f.?W C %eFH&7B|h,g]Is&.W#m{S r,wd0(==c {&oBm8,^ȈC Um{Q.<('sKuKxQ<ϒL+R)vMω[L2s?RrW{rҞv(нZUSG|p{{n!?2FK\[ףӣEno/}//$2f=G}BWiT_d2BOY,@R1Kgm_/[sjZᮏ"?Rm*pJ7V[*H' %Y5q9A3##߯]w'S: 2 aql2I%bVKϭWR^6K=;c}Pԩk|SCoa$?s[G6WY ԾU!+-thJ1 pڶP${"m/q{n 074ʰN}"<#2JO4FFuΈPz ^W`(:9*C?Ɍe7'r9yF?  hg mv4OiۄokoBYwk٧ɘ\2`g22raW' h4+8~#Io6A&E0ϟvw1MqiJXQ{yL+^*O@5==R%:jULYC+pt ;! I ,@7BV͘^1aRش= w 8~Qt6D'+P?pX Dcq 4O&=$LLqusQW.7M ?x+.A#gYdWLì=%F1C2мO6 G]CYYɻ'P|W7D[{B*~>| gp#Fb| Pa"ľl$vhkKO~+y)kGn*3|}]\7T&؜Ƣ^ 8VO0zN;gn|2vac9ECajt7&u( fue;4'::uZ] [E8 ,$%xI\PNdmߖ,o;K꽖^7qѴߗNPV[N%-=Ԯɮ&g,R%L Exٔq]Ϣitnhv[EЎu><ÄZ=ʓg%YFGrp)n2T)⿍6H~>pMeLhQCpMwDc9Ff:vzz՜OɖdvW1|miY 7P+IZMB1%f]IAQ*o;yIO"-PF3{b ^ LYO1)yxSYU8?B8PCilk2߬6f;vW4ֺR($; ;u/lk)P OFk.: \4N\/IuMRqmEPw)bA.@;?@:kKI'WJ6?enU]i#(9k5]LhҌg!A [FVaF? ÁN:J0* гcjת>-M+X`"_1 1%uPnnGlQ h#{Y\YK{]S;[ӳ< Vq)W:SJT3,Ϳ*uEN@b v9+tr\ٖ4%/0.57Pl O첣@rT-Y5Y:"Zk,J.v E,|a ^ن. 'y)$QiFf@ 78C&`[.m{|XN)Yw nxSxa[ZH}#4&ϯ<(<$[y (Z&2G\&gw~W 9zCZ {__O82/,met6>ɶ󽙀%&> p] /8C?AwʍK+ܭΣzy9]q>LLlZMj?洦Wb_lzj)A}>Ô{QW[[rj̊#. J9E}vWA0VLӢd MZֈٗ<*\TOb54 yۜwEu F8-H:F[;! ">Y.ڗɲ :pg (Vb@-SkkBsNp &K%:eZ;^HR/B(<J'Mcrxè?rVvedgrCHh^q;6M,4',j/|9KO+ݓ7o{D7c=ѷ l쨰'ZS+D{0LsP))Dxs; 09pwl.A ?QL/Vlm ? m3!Tçhn tL]h!l&b3g2*;ӦỸE L!'zo.ngB"o !%Xi*WCnZٟSjҞ@"Z4Zԅw[+Ef :lԭ4ʘPs}nl& /6| +f窐oX w*GEe~]~殧KyNvdB4/k nJffakh2#bJ+LV;a ]R1 fx7s n!eNMU T{< 5c~v>ײۦvٕ( 77右kh!8eW8OC=WgN˶^Fcҗ5c `@ob{d,oڌTڿ=pc`m I%2;`[AMup-$rM|ػGXCdL{"#~&侃mu*DQSUJ೭A#49QT5kk3C2[x[GHDrK-@젢0dii y8 lŊu=3q>:!Nʃճ\-!gq-lN'UZ']h">K-=, R;2Q|YeS|y=@jYOߙSZx әY+?- } O,L/ō!c)NԞ_lemo'O/h.g~wH**f('5 ޿h?r`= Qg&09puڊkWvڃ?ȉ+'I%:PO4j:5ǒ{?d3p?Y*f̈1|] fH^w1wn?7!ϓncq_ٖ/5mz{bK#,KL|4д ơj% i,Pc4)Y TT81"J `W +J1,'&Kh(Dj"K}:&n!jPB7D:QE [B[]S]h΃#O])!ȩK.%)E 8~꠸Q˘. >ߺ/1 6oe(WVy|*S 4"9ܖBt ZlgpTj f6aCkTIwrkMCMkˢ-(pBqkJlVuI[TKoog hbzLR7v @Ҵԉ(z:65 *.%I X^`C pwM\. 7m7(G1n?ݻw9QȝMo0ν?q<:D8_aHeE2V'ɓS<>u8+U.腷ŤUqOeTQ)c׹iwրK4!)F=>!.$^ڏsХy2 =7Mܞ{*؞XڂRr8y'C-*l~pR}(pɣU#!$HzM)>J|0ĐX3f (,S',Z_ڗ=+Z$:`NQH7,CU=P5껈,`\9N`y,.x;`*FL)5/[*I?]%go3 8Qڐ+IC&kK +4 ^@uk6l~ +;yH#g,-yZR"²Qaκ@B"'TW|]b_k r<>8Ds|f5;\iHj_0VJr8@kU).EީtUIwSf'eZlBAk5f}"_diSGq1~ɡz ^ 0h10W/,ݮ˽>W)Yk&YFSUrmEYrx`-/%{YqS\>T[jmً}eM7v^?ґT poDTA^E|g*/OVfBuo)?k|hrVg^Y;d24:_J+69w)&a!D3fDs;ifE!c_Ӌi٦ĭ6۹̰CayEDEX B_,Rbs/LԆbQ6[/p› #QqQ>1mk{P;tܣ\I[9"sH. CԠ$9s? E&Kh_rɦĒEK=;RaȒJOAy5_s4zE>=QRhX,JK\gv.; `^O>LP7D{F #>`?K&3'FlPfg/JQ򃛼]>Pvec A^~ y7_]jDԢCk23v2Fq "ncbFK{Z;^K;ыNܼD`= S' N2[-<{:;dQ o-4܊&۬rKuS xXhGi8-~\Pr.)3ʬ0I+& sʑjt.Jֳ$%0ŜimߡBmiT0#aj1%fMRѥx *g5k"1H3e1r|3#r DM> LK.~o* Y0kLEiPN XHV|L})Ald^U}Y&#'Z?Ⱦ$Y)CO/t!ĘM]5ͩ7Dk-j:n?56 A(f+55Mg!/.<2'ë.\&O5>1S[ UUbtkˤ hg~ ZQwy/eqiãc|]cPGs.hhwQz`xGxka7`C4{Vh^̠Mml0k.ry{m^+ 9&8~^@fbOn+A9^{sE1[(aJgO;AUPJۿM:rg蹛x[cZJN"}[ܬ.Zn1xU'L-*j, M.CL%h 3'z19sW#_ܳ(= NT[PT7W( >S Nuޭ؞f@#G*ҹⳏ)hL]ʗ)PL)+Tnjqah.S{FԬ&2p!a4I%?J;!1=EtT D%&ARϳD4KRkʻS, o ]/CݎWY˒/ՠX(YQdc6" \QFŬu2C4 WӧNe_ViTxAu˱JNA:ۧ%$ܱc( xHH2{0ϵԊ}}6>r ٭^Ƿks)Pc :-5G|e 4.TEە-z 0*OK ϭ-/' £qu+y/ͣ9z Ûs) >Cq:_e1C]^}b`C!FjgKx] ʍ;ԏGEd0xz]>JqsO兩Xߧk\av$Vqz."].;ӣb?T]OEVYcP@uKܨ?ٖeL8զ"BTWnzGdI{Yk?XxуAmeewFM\'/"g"qtWpuw*d1! anc.M8uї.R[3N ߔ Q0@U1b|NoyɅ\Vmg ~,5{'@ 8)ԖHNe57rk8 ɫh*3N "(9kٛ#w N 1id@⬦Q"s2} \ݼ [`0AB=ͶUBӯ~'A:oR!a0/ bol +n6A&IZ>_:*L [[bYS7y :1mcDZA~smq7oDUwa Gs> c,B6.Úv [߰e]Epn5v޺צyڬl7ܷ7`Wr  闸PA臛mo4yT0VylI3(hm[T_'Zʁٺ.0Zt*Ɇ_i.V@frRZ*bv!}v\x~Hyu*z< kr$2W0?_d@l a-:߻o[i5%-" dæ\ 9@5 RkRIpZ qImWm1KOXOiѦNv : y%VjNm=QcePDd,A,<8꫈3#OJk`<vV e#`n!^ȑ2f;n8Տ(()-0e֫ T̎)dxIq)@=z݋ HGDzT٫>тbE˃H͘:6<ɬgs\/ɕAuc융Als텵?BNl:)xU coݺ;>)]t_QᓳmB;r͂)6(LH:>lIs\IcklD;"dOhg<<VjGn+cFzJ7ϛld=?Јv0q{-RYޫV)6*m-mZ_aL3j<nw"9!9mΌkuj\JK舄(yo[qGs7R W!zTn(5nJ@sM,;pm#0Ҝ ߡ_m"=2nTk0475Ro3q, ̷Q@al4+_"YY *LoVcL?tuzi3 wu ab"Gw;\38&E= ZJ*q-OއM=%i(i(Ja$Npu6%$xz~ۆ&b/#dͼߚO"vP{w,Wb0F߿SX`9]g 4NNtjF2ϧ9fc`ԮALP4{C}XF?}ϕX `K_#;X 2a+% ^UpuEPr! 7TLBsI1.ƤG8G_k)w/=U}QOC&PJl8!D1btx ]E FqQma n̪q9xd)M޻""&3AM.$%-uQVw}@Poqi8[gM15 G?͚doeݞOV̇HiWBܸh;X@!KrA |}$-׉`G/3@ګޜd:x-OFF {3Q&]7[䨰kKZ2oZ0">0j`Q@s&4ͣf3qNҫ(4'uZxjde$r|" S$c~]YрИw !qJOl<,AF_0NˊK;=}juD$xL.q۪hA|snD;;CiC(O u"W(vw\X $*#ޝDIf]k2x0jz l"4e{ # 7&׉Wji]-.oO(e!>h`htj/^p泦/ʂ]ɨ!jVaGs*Ms뭻R ` z5su2bb6,1D(%UC*5|rZ:Q 2(ῺV L@tL]>% \ya%Ȥ>x3`2y{?|q 5]u0<21Q19K5.} hu җt&t 04tNYNH`H 1&1AJ%޴e=*` 7`@m[ΪzW1\v+ZWPNsS68×y JTbNnZ7첔5,\S;EǭB^>=H1.zRq7?ۋ9!npB3W3=iGτ|Dz {, ZdE9Ϫ7GYK IR,x4}xy.OPiP(bM-E8N'M3M!vewe:?S\ hV97@>h"쎊Eo>vBxmY]Z5{hcچX Wa`0sq ¶WjA0׸?4> MHÆ엉5a%#Q+,LZ >V.wSe{ .y-sF`"~%Goy!BWVRL!^&Buj+'7NZ) 80sH |PGm[[S62DIaE pGOa5Q݅k<!2$Ϯdt'ï3(??_ذ&f^@nQدkkH_PQS-9mZ:B#ЪǶ1Q^0^x*U0(?(~XWHuE*JdKda7 d5>Hn &!_&8e.&x$$.Cg\[-!lh1hڎ{0PbdUAXDuGyg Ȝ;^[w2|8*:gm"$WaJZt >HꜦ\ sl[q Khr扈U; (ʸ`3t7pCmI{Pw_P= 9Eګ)Q2^ 6nzWU}:j|Tx8^(\%uF<>B7v3$cS!xm=9u,_nњQNňRyS X[R?<(HO3 9 !bf!=X Q4!in0b5P Nau#ژT3ݪzޚCq Hs#O) g̽궎]/o3 ELy1NdMKo2hOI'}vW{/ @mƧsE+E\d*|I_D ~#ySTgr~ @hrPwSaU-U ֕#sPzZi^fDFRE-Idb%Ks腡5dD n['xשd 8?mkKB $m !H~ Ce説̄s'_2pBAR6'1`{l &zߴaz)-""Ս63e\ @ /j)2Y%ڭ}~ڎ?β/( Ue:lؙ<0PKC6d?ehJ5Цkky%+t C,kg7Os T҇ɫM_BX[7`(cfD O Kӌ\,[$5":ywh/lD"?-wtQ|Z=HtQGbe+o9Ebb{K*Wͭ𖜨{Ĕ(k*#a6fP{zD|X!i/}9{L~<""wXjl9Q^*`LT$=z@:b&mQU GkX+ S-pvl6YQG3VI&`D%úF[Ǎ/8XRyXb^KأXqy=[n\ˤ)Qu;Cp9`HQPǭh#hĮT\YK1zLKqk;ӻ͙X6R @c?q5Y`5zeTV`jD8tx-;@6@k.iajZkvxR$&5lI  iA̡8][wFFd[?RiwiFG!H*w/2}GsQᅥ N8rXj%G7*VQeI_+NZ? Jx=|Wșq㯽HmS=KmCU Ub6Zx$GcVٶKHbP@\-5p1j`18GU;A L{HA&q sKlr} U "Q$Tz&Kzto!tt6;F=5 M+셆dϫ|R Rcvo?|b=֥\(շ">f~b(C1ړC!72J@khy; 6r\*uP{(!S$L[0k8 >Չ*}!jьmB0`Ubq{xK$t GYzJK"L(.,]g<ѧTv%,}֥jN1UtD7pmSFKs2J5ԗ\O% jjKMkw쁢̤b8Lޜ)~Yx4qֳy~roGa~;OU`V~^Չ,)K`n@3+R : XYغӠ=e,%5nyJP!=\m--- nZx`9y?.2|iG!s^m2;V!pϻ#5:H3,@,wВ )A;ILo j ãk֣Yv޴^ I4[^9:1j0mx7~@H/doymP92r ,#6N!͑gJ{ݽ^x`+:ΒO|m2T׷WʚS PV(pC1g]3ZVUk(}"J|D̩[J ݳ @2ښ`rU0si0 0\|mAne cL|GdĻGp0Á:2VS^ٸ pjX{#PUKdsYrhd#>^Dw -c+.sߔAs$'R]̏Jڧ#cjJ ZiN%˧\n UWlV-SEUemQ:sP5+cЙn>8΃7yQ?P4k4I+61}H椓QQZ x1#GR7`ϲ(Aa,_­.}63ڧ*.*_؃J-CoZfej0۲V`"ٕb-!9GE?KF[R 2!b_=3+th$53u< Q+jN_OB:*6i|)O˴xզX3,F|;^o]<,[cSd(HiB_g#x d`icBSq|Ո\ڳUv5b Pa88r.aT!V$Vuċ+izO@Q5DZ~ Q~ r-@ٍlNh ey-`U\jvLI"4rv?ctnj b%ˉls*7QQjFj̢46?JYӑ6m#Լ%+ncYp?:_ ϼ9 VoM3P p9/`@3llO/`U1Bm)4%D:a}c 8PVp8s瞵cP?nuaޡta~r>?ڹqLH(Ճd %OZkH(6Tѝ Ibe& :uϹgGpp"XQ9:Ħ E|-i5De}MR>dw%/s)_v5~ۡ *6S):|$o6۶N5bvW5IVMIs񰵾*,Mܝ(zqYf-1ο^'V@tA4ib2G!_bjz7ۦ^ LQI1YrjM՟@qD7wWgJMdAGTZ&?D'j_r76KR<7^IE}~pB՜eu/g2F(S iDW\YMy&Ӫvyd_^:Ĩ023{]poʣ. WZc/e,4ϋ%?Es>gI kv}J>! *rgCHDs>v @ H P)c7!H٧:+QBGViU g2I0Tb rG-"6b<M^(!3Ȗί1Vq ' |'@›^Y}EUOR[+Ut'aY }Q[OgV U%׻o"aMOb%כ|"6Է-#fO8R8NT=j#!4/_2DmWPE [6T͵l@f+"NxdqGEw8 *-F 9\0(ExR7s6(.84a֨ Ti*= Jm_y#ϥ|jG|r`@e8۴ir4glc;򒊯n6d":AU/b[|H:0@IT.Ϛ)2V"?D¬>P7z=vADڑK|M6m,USYI$Wްm- `j7b2 k\T S6讼_YQ< F mB:Obn-[s%,x*Fn5y.E*͙:"gH5kdi^Ӏ%!SNJ Ѩb. PŒGZ>΂J՜AX/$gyܔblىuv$ beT 0Y^~=59dėɿ$ hmmx B0WIT7>"f{J?Dω \pOs9ȹ Gj>ߏtV+\S7?݊e?~i/1i$<b/yCB#8ɑ@@7aq ,Ɩ+Zyݘq? x+ GY'f),RéSu.?a 5 a4(y­wҍHu|1<&)aK6yx-\s20d::^D r -E.UJpQFc%ӁVOimT,iT*z߿ BF:0'$%xȑ&HP S_HlMrl;8;sOUb\Uo%OnJ=@Ni#U)3f5"SI\)7ΪRLdS[?$_P^Ie8D\TYc&%DVmFs5>CXWA/wÇ HZd`.8.~N{w77<~ ޘ2TGvוJj:n̄0YAib=R"H{?8?Y,6Y ܯdάo&l+Z;n UUbmx9W^G>N)y۔礇fܑR# iYm.$Bʋcڢ=>7M B ؾ#h;2%Hc8+O|1l{]4Knr{\~jL ,|)Ks# 9rJ,>¤ mRecq6ߛ`ZUECI9.5t/Ӂkj nm=)L7ӹY[` jәx ? yċMVx^I&݃JyA|o!oue^X{C@FE=]ȞI3M8)!|X[?5g6N3z< ˪76~iXj*ݠ-( dh;n-4 A e}v#4)<{$J.}lWZz2bC"놛mi= t/]L~'@!Y5K/O7(PJR+6[WPbX&7a28\MU"{|ㆃ<0A'F Q28vfG崂FȵX@R0{؞m]{Yeͼ@@wtF3ɾV-Z߃xUdag;"pdBQ#'Bâis}sfo 2Iw$fwij°lfqDƍ.ӺʈbfxםU+Z, c6 /+*_dᣑ7f ڝSc*wlU4 EחQ(#Vu4n^{?h(qOsJjl9xtm򳕣SU6ʁUQ T θRk)47͗d69>lD␚sOX| ʭO–$ I%\Ȭzs;+F6Lѕ\x;|pAPsєa\Y}S|r ѳ")UMhI+<7HWkqJ/1ےKúo^^|e'Zs(E#ja00IfS,BMla:Hsb ƾ͔&67qVnƦ+˛d[hUȨ\[ծk^J &M($li`ЎF2B蜀p"3p֐Z3@. bb%|uEGO\5<]2ㇹrJ7f2ڕw'􋛀hrfE<{#]eE5S_Q7ot%٠BEr]y,;>3.`ۥ+Λ|vʶ@z]nXCZ8 Lwv/y#՜> r"TIƻQ]o7T)ӵ۶SW5ʯo_cyJ0R}p5E QmYa k{gz[Lv2E*yO:IK^se) ӇCg]ެ~֤j"=:EF&Oɯ8bx rH@pEmN!vJ~|*} :/3!,˱O-Ϗ(X6ޭfVo29;^Zܩ n xLhS0*q + O#۾B^g !h̝$le1 7 W% 1 ULYֱ!ٸ C_tFx*H/9k t/%<&L;@1jSJ'f1#PHd{.$',;" 2//C::BKМglzzZ@*R>N߱eS%OpO{|y6(t?P. ҖID펎-uRP N9TÚ7 'ZAz_Ufi^XJf @eDH{"ea)NwuPEXYkNީ<6Ky(hn/H2hG@6pXRސ=GU(:ZUF2ð=x~! 88/oY{B/ 5ݔlP<ȇ8y~Mtm@E\}B}4f xnXTsf"w(l-`PX`xfH۟FSsw=0Ѝ4t:a op 7 K8"P t/1~B!ޣ@ͫ*A(4;x8 Qe*M f?תxNHzNFRo!B1C%6=j^狻GkadΕr8& Π/+$CWUvĚ+pmLҟS9c Y'3ZzY#J"Tj!,6K8?9A0B6ߕy\$6=4ˆB$_6sT"9_rw>މ4Ŗ'105Õ-6B:M:;J&anXjA 6X0|w)FExy(FQYcQ[!8uHf K|ؼRB ٷ?V[M23] ջ&| C;ytWr?BJQL']5qk&pĄ7&v@"9jpEmT3и ú@-GJ|9RnucskȶnƤn~ҭ,a[}y(8º 8^4h_sob|c,1tWirm> ۡfv p;B#E~54:Uq1jITY5.c&/PGr"OBKs/Fk´b;`;5&]gJ ׉*%]b]~x?Kȅćs +iB>XL,0[4K^gǻY *F/7Y/nTik/Xe Y8 ʥ(r:N> G?ΓNiY9MT|TM ڼjThҵ$H{-GڴPrcths ѸV62C\M/;t~'d\-7}/$z. ~,_ D;F# +OhmTpSMʜTd XYF o4Sq u)}LKrqeWۿENIcs?BIe(Z0y}B.l]|U)ה+bGiP"h28}KdV-^pNX,sJ)%Їe A%_>$|LD§].ppsB:8kJ9 +;!7f;XX$Y̒AЄBw#v_嫺Aavo;鸌ܚ'6E_oMz9bm{~Gmȥs6oOGfL:&[jLc])sJ+w샎$8mxa`_L0~}d=e% *~%‘U簩ZdXJՙ~g{C½hvЋ$ o'wôÐu͢M*ӎA D) r>D$.DZď3SC<:9&eȋ=v0Z`1gNKsފ+C feY| 4"z\,6GJΧدSh9!ʼ;uM }FU47 Gya; g50[g%NXȁ 7TZ&kr#n!L/ mnRA<=+_!=> <ʄn$TP PJ< C }#HؼKgca}ky"FXOϓdPfo6A- }Аw4:/6R KG^#-&Q]|7E];L't?F7aX lscb'ce@\^٩)zt,P @="C{P~ 8`U),|Pኔ۪ꠘ](cx(zTM!vЊEzm׹/@&lT 222㰝`A&Y8vd*I>N_{|<^$50: 60uZL}s UGv]awA1 l[ٝjGsQ%QBǝWsjGE Gu~\٬Y'EA$cEqذfv)ςGC}i[omJ@Vc~^ 0Zv +fqQ/oPοB|Cz=NE4IL^f>A#ޖʭ sU7 L "R_h6^Qymd ̷ҟ8?cjMM=aYFa7U.<^s,~w8H +ԗH _"۫tZ!iȏ>J_1}q99!OEG ںW hivWZ[!Z St*7{k2hPW>iGnxSGDTٝ#!Mn;*/V ߱2pͩQ;$_i`Dvdڛsu7e*K`ni`G]6D%dXunC <U7TPE|0(\d 2~w^VoSA!7up&$K$Q[|T٣6tZ2!(nTMI07)'xyj9dTD٦uH)r#T4<[|$\YlOhd,7Ɲݪsa0)3'.{By9!0ČZ=+c}׺b:TįsP;}]6I)\k8 SP>^ileؖ9.*j` UEKG _f-+1y;prH}EDO+y 7fD9?jQEgs ftIiF=BH ]qZ\H؋ȾњO;(6d߹$N"m2[͏vd]ق}ޤ l)KlhәOx ˞{C䘹l=[)#u,v? (>4`,J&/c`0$ k;w,:;Z/1qTmp_8Ci PBʯ KI9I zIءE>-m¬:),'pB ; )Q֦u^ oLHQ}%>]xA+8!UArռh6VLI&mv'ULIڼPDM1UW㐷wo_xY\`mn%tL$^ZaxHd"jU$/0qYaDR`݇"3ǗJ531 ЏD'ͥӑs&ܑcE,3;4ݡ+?/9T*N@Dӗa!uݻ[] Ǫ阖($?gX}2",1Hr"Upּ's 8 ֋|Hx|d;mɭx{_ ,_#3KHrFRd 'eQJfTmLn]3iv^g,ZY ݛw=6ĂxgV.զĞ6&4" lVc.@9ҲwXqCpÝR\w'$3#䶴^rZpvUЯzk^Bs\k (;`$61怹<9f2O2A*bF:w$~*enf;9 %8.JxnA4x ?&PGք/{H /Lj 9 kND@.FEb,%Qw.]$2[e4%;5T2 ;M8h3d,>m=štG]PH{弈J#vcG`e7̚T[R,ĮNPԺ')qE 5{V|[#$\ذ].攦D.KP )ȨJmsj }IlVs>wi/cc/1ZBHdLOFAtB-y JIf?d;r~ ?.:CKj_ >2ŋUrMEmZ뉨 N_ Xm':la5ֱލ̜t@ ?WVX;dBPBO*.r=D rj 4s+Rm28,Sh)ˡE*9*nU}QF-֦S:1# +[{Tͤ0Wkr*nZ5J&bQ feJOiS#K (Q)߆@XMo˹uP@Ǝ&ClbtnY`q"VKDgXdPPK:hrAėCuO Y![pUQ=0Bw:"?^"uvH&}(mă Yͼ <556[γ}-X1B2!γXnTԡ}wbUOII,+;M[SlGHGXc-UE.c(ml )~Oa>4őBdG!=}mgV ̠o>tp'XX$&ʷm@^!\bȊh&dNv9^n jJw0AЀ~2oV-t^ l15VRwVe+Y+0Bbs:%=>&/ɅIviq J6cǴZMJSQ0dIe/ͿOI26K̕IH)F }Dt0CX\ ePܤUIR HSJwxȋ+ODjub=+])d W{Qqxiʏ;dRYV &?lU`Hv$jּEx ӊmi~u/E:ydu}:뮍j#<8UWz9ej̊O'9Fغ+ѷh{%e_}B)8#Bmw/7f3Ɋ_3GEz[T"عvRPܶ eQ^1#ɓb? Qb32.m[ ˈw$ d)$kR<]YJwy, ,fSg)_))Z5lDH!$I*^1Wb &@Ttlm|܋䐤ni,b{V5ٽl$0#~A@ J*NkiL/4Nh d M?'7)SpUCg@4M:ՆEQ"U2X~ʆqe> ( V}@0ʧԉ1a /Q.5TԄ^\OGt5ilNSH'=ߛ̓DC8;p'8.Jac>سy\G<`2)) MIzLg'S |D߇Ҕ[@zq0 Z#?L,ju)#g命1 =+ދө❸zC8_HdtlDdRΐWei_auaQ ?PIqBkKu7NG O1J8Aj ,ڷF>E8cOq/D嘌)"|5G=` \%'GwcYhY Ȥ A5pYv)g]74`5c&)cA8KT4FnaGnz\[GKEݿ/};O8]TGxbI+<(U' cv+oo7V)n#@.;CuĈCu\zsUr{ Ӏ?IXeNe!T*#ֲ#lY hGz Mף{!\HE'ů׫n[^Su^`TNex@yXEu /#)r`g'0=?#WlQdU)gSw? R;4U'*muU1r}Lc 0X%_#: ؇߁ Bf_&PB]d@5s/<$)T]>~" ko \PF܇3:[pH9y")%alEdAMZd9bR镉`F:'u}s:/H+X@V1{c _f,3!EGmTZN=rHi]v:+3y,w/q-Xe'ӈX*nn5RѴlvQ7g?KlV_J>B̵ۏizҀ>a,3/gQÚ4q`ҶKZݬt?pTO{@cc{Vg5ad "\zWNGCL&~53or tWq+a/oݠRɺSDvNm#KQMUNu!Dlc$ܬI3QkoD!q܋ET>~/~ ` ~Q8^']nυuоĕL5m-;hρKvYn>D٨UF&1=Rlh B/u{PvؤwWs zP9, Niz/Rǵ r~MTvT*OkĞXaV  ټISҤqt r*Q6JJbaV@z4T8ԹQ31uKy'UE`T?BrmkqF1vV6pJ0F7PrRwu[1X \Zo딢y~ lL 9+Ax7&:E)z4adD%lh#k2+i)gݍF(¿DJ-BB #@DNnq}C290UAcDɩS@TjI靁`0!B¾`V]] Y(]' 64av8~F~nu3j83ƞQ<65{0]=iN)Y!ZFMND?M<{$Alzo?2=<h]UUcɳ!"CHHR\]._efnX,[+^ҘNsS)Te_mQlD^d[4i4 :Db p2j~tmi*s~VWIR"[~Zj$S7.-[kIYUy}8/o> ;Y#;NՀ}BA.ȦE1_._EI3/IIGF.n;n} N̲O*Ҵ.Tϸ5M6 Um0' 6[TcLkmW!H0 pi<#|iz%X-%k( =E10 W&Ϊ-_EoVGg&rR=p/D:ԷfY}auO4q@ Dsҥt4+vA;RcXt!mz*  aJALWH cU 'jc+"dzŴa_ l'TvI[/l^[heРK(z}wďw#fV9h!=&LxA$ CKsyWYoyTL,n»רּCFs7mT{qɥQu_uȁ j30пOⳇf'\sKxLN4OL;x.o[""9?UJGͽ9Mן/޿o f`3o!bu_BI6Q"eOej{.5KX{JWSJ^HLj%@nQ(auh-SMnNײ~m${:AIzː xYm-^^:_?Zo KsSr|by : I z'acI8eHuitx:TONA| +HAQ׺(ɡ{(w9]4}BB%1wfŠ"˙%9QJi0; PDŽ 6q,k3A(hpܺo|Rfِ3"2L2pd y⸨6_׋`ӝ#K"4^g%yRJEi1֦Mnt}Y۲9̇3l7\UT*uhD>uC@C.b.RD f Dlp%*&:BK],\`@vw}b2oZrcXac88&=>s=܎ IèH󫒠mbt/n=.оq@N( 1uM:ofF]\F@{ - $*^ڴF˚чMTFqIZU,uy2#KW7,l:T$]C"OӰ ~춰s;HD jbe~<Zf"s֠WЅ,^:''=֗B/jZ N1ƧTY'd!-M6<;)h;J{`)_Z%zAl[l%c/2Ы[;GE +e8>Ȍg<8A* Ao8" l!3  ͍oy_l'N83*Zv[bɓ5Ck8pfܡkK_X!L6A_ؘ[p}Gzzc]~WM_B):3#ȣDsKȿ! 6i}&%@~ ' ڳK-)*V J4{E}[[D} SAɰ7#2Xw5n|7oH]X1ʟ /ٕrЗA0 Pu#p*j/a+rКxu-m_IC&eMԡwL_t<o^5jٴv+ʖ)o+WH_w V㺻'c:keW9O=BB/e'8@y{Mv'4,1#7keN:)q)ɴ$e$Jb{71hMcQmsK v}WUKyK8oFH#Ոbj\}튻v?:EM4Uyw>;NaUw1CBCmN2T'0鴻4c(A3GZ`G9 0)+#0<huKN8~TSh0hܴ0#+5@2]oH:CYB6Vƻ}l'PwgN&Kt6dMzbbH1yi#$\Ra&5"fk*e'4އr GG1 yT neQE_s5!{]_R{n%xs݆BصߨlcL6 f3fц" /F荦X~qU9WC7EzNYr#!'&*ÿȀZM=[9Ӳɽf/ 2vmpAdogCHώ̛=LP",ZQl,U2aRσ\IBcB| >&갟-=ipD}:c T#D ;Ȫ$-oDhH!EU\1QNa*8|"˴΀R%Ðˁ Y1~A ?[vH}ʡ{e'W})*0*Qw2T0:$su%i-!|iG^4pN#.yj g;͗v%IvkD>?`<զJr2 $U aѝ9qojSPǺŏ1ݭ~=dWIӶ*S,* <"/ofJԼ$SPoMWڑrG{:۔2HE1Ⱦo'Nx$P]$rN  fӕ(flL.x -5߼U1 iu"5/h+ :tA@'Li8c ~s*YRǧ ;2yL5 >Gi(<'⮔{^3Dt.V˴rZ/Qq^}}}K¡Q^,(|΅ၪmV~t5᭛6 ĉI!N70Š5?bȷD9%@IAa4b%=4^ ֶgT<-c5"tm5liaAG7cQ2 ?xlVa7|hJ;s`|SBwBa~Sgo(!Pa۪Wxh 2Թ[8wo3%o/V\!t=pG ϲ-Wɫ!reg&GxTF8SLWO<[4h3>|ǧW$Wׄ5~)P _jIqYrw $*W ~J+ xЗ tN(\;11R.R <ݢ's.f?PJjܒS(C4>ZMO^%iz0^^nI0$'mQws#پ^xK5G.I)$ݴ=G1E[γB"f~o3=qjCRN, 2_MEA[˵b]x?c?vᕚ#͍&yoso(ߥ:nLl}irY"]0HvRCQ$ i@4 @+xxcX@mQDM*\\I٪]< }g{]BfI&7Hk3Y"߇인Ǹ[}9ir```puxOu屬T<"7r0n+P!'h)46/S^rȞtRu` [3@34m$]}tzpokfywr&r7zj⃨>3FhtxFVz֑TIA]A>EL0bdƘr/l+t,H"_.pkPq]5~!3o8x M! ,/ TTMعު smvqc3#lzJL;Tsbo5ŵoN+w`7kZѤlG1}5yt'_Q3-{nbزf3,7J0;apLS$yZF[}(d0fOZ b^7W;=2{Yezh+֦Xp kv~[ܥK1lL"RNwa(}l-̏ёeٛ$\!cR͕XtGw D eXQ^TVItvznO/iۖ?Hk`;Ȱ\I|ʖur4y*=͉:o3Roh{#'bG_9uSd1Q jH:A9JX197<"[\^G2"#BEf61\=K{X<:5 ^N1UQTlïO,bh?fqWY`P$}܆[^@%VY,v&taUF?1M!NҤt*2e;:!&殊A+ΧOt%fZAG jގu2ǝ2:ŮU;5x4@mZˬqk#%6U|G 28=:$WweRHbUcI$y I5Lv5_30;g{ܧ^h{jC񘂗=9j+u윸t?W`+YT9ġιsC gj ew;V#zm'G*lH)ǐװqoմm g<ѥ=&~vs3RiU5wuS (7i_C*\O^.-`##&6K½ٚ 2G]q9*ۊJp zh}fKt3 o 3@|>P[NaIO^>Tݨ1 1x7rDɏ8odu չDUL #^Xz\jHk39|Jim-f;y V1/jpXXj{BBF2W(ba-^\9zV.ӯ;1#{ޭ]AU$$?XI mLBr49(h&25i_Qrlaq$rʫ7l&>YQmfL"`VDYR i{CJ+9 2$Ӄm͞W+WTw/^Zakˣ- 雙xi+]qG EeoF$6 (-Kg\r^&:'*E3B^` ߈IY58PGyiQ :Kh%8N.5-eM9w?\t|#JPMv\@vIFf{?:g^NҬw2e7_Q{&}v _ׄ™2諾B8#H3'lvn|Plw=͌Ri V!`0zc6Q (yQ)ļJJv)5k̟V%_qsHm*EZ4K~^8W(T7T6~haS *%9=RKJ15X5|Sg ǭ,1P IQXmT%V2Z\Lva\ukSMjƊ Q?aʎhd%JF_TԂ g2qŬ23'ĵldS0 $*"`z>}6vR U؞jrBfmq\#wu/6ēT/m/ RG#KMWp!eڴK"kț0CO.K_8qdy* 6+5fr&ӿ~2N":/TœL5&yUlۚg3罕hViQ:-Ukkn$_@G4FFTz^FKІD &O BNҁtuD"FcJ g*1(y?F{4L^.{6:%`ӥ .-ZMVm !.).{wNۻ+  iqNиhu#`ND>8$F XEi;i_/(jnY }F']Fg?kn .\61*@͞ ߙxãE9nT1<@k XPJ0J{fjXլ1!(8&N75kʉ#;) ^um F@ۀ JB}]j})Ÿbسӕ ( -VW^á_p-oY:ّ݇gF~T@ߩoA 3yRX{Fksȶᶱ1s/ 4Vg.bY48 %MNzo+yH5d='Ůͫw 97B>|XvseE(,}8Ke{U#CqD$vNxW H@D2c簆_ז}8>pcL3ߥ`8L 3jŎDB¸ύ|^$=$;B_^ʫw='lki=t!~@aUƶӿ)EH^'b\/`v!7a/o}h}(th:2&7^hM1u!|:ƹKT}n𰱭ezE}p'=Z#4x2k ѦWe?<'تw ochZ)C>ZD r8#H0[àgB-ָ4'il6Ae<ٺj.K5T( e/6щ$ߴN@vO_2[i4v:/=%|aHg^񴝦 o3Ky7uk }3:\]U.@g Nu[MH mfD|%.K :`\QCZbF.GQT}":qd67X.es_YFI&qh &{$pK…@¤5!_X%),]35f3Sȿq6t789=nw<xa TⰉ}z$(HY:\ J zz`hZ:}`DźM0ć:ecyaCI^;5ߊco9W$BlC!0~fX+5H1e~NkP+qNWvܖ \)ʐԋPfXqA~㯚zezt>w!Yw7 ?=Y*na=uD0 +-qNdaP$B wo|ud@F݇` 5)xY ;~睳ܙgAſfBqwzdA^[w?n?Xc_l`-E^N_ny#2>˻P=SR7C{aZII9]8E9c:{b'o&E頭- 40F]5£0M2:*e͠vE=LE/;=`O?*eo`6dYf\M;\|l0 ֖_Oh̓y `.A#oOevvݦwlY@FB 8r!you$>eߥk | 󂃁*pv')ɀRsbNZ㫲":4TH7ޝ1@lj^/Rv]eHFx3 ,|ntaVgJR҈`5D0EO8ܣrudLjާLc% 2nܜ곐!-g@V.#qξW\ ى02L} h`wC*nJ,[0L5[0FYգ_Bk)mSBzA#024u?s_6X: wuinנm/ , m1j Lp#׭>Ppy<4n_EsG;w`;ݙ6 nPt\5(,\ZTr\,(~&=lq_F"I#fN;%FӶHew s dej<k"v7dkH5*KMaz58R?g$Y[u NЭIMMU#;@v_fU1ڣ9w({:ꢙp x͘v;~l,oﰋE ^sԉ''P ܛ݂!*|{S1c&8}u4a ]Ɩ$RGd|f`?&*XVzbv`bz=~񫫬yӯ9%ܧ˿z;s;ΉǬD$x.`Ȯ/e!!p^qB=`>S>"VX`*v'}~UHȅ9&QE*U.3M?' Q#m$DW=Ըrɼ%vj[V[gÍAd3v&rUT*j)J02} `-,ʁSԿ\Gw y'nc-mQ.^}{eɂ7eU+ ,_ƿY,zY]/h U&jAApriMf6܃nkڥ_"SXic]q)a摁Ϋ~*Ux&6\riUNcz6p&9C`qnvuLH}OT3_N1 ɚB%<;V2V$g9}Ov̯Qв"}=g!#ksaGVr3zޡgh|<1 Pʖb=?r^ BnL@D-.>'&|Rv-vl:ALdMYy 8Of]c5`8"ߝjY`qVuOKO&QBX-1s4m;ӑ䑯B(^5ΐ¹6uI ƌ!H,Pc^ a<'?'B](:JT=xV M|S-ϧz)CY`rLs?WpwmY Ε?Z )zM`E2IiCvkdS#+C&iV)MX#1ȉ8?6d+gfYd n6S=ҖBb/}V٨Ӽu(g6CFt)oCA9cZ(N=Bg7Ё^?b+֌_GQ`|, Cj|˕Eem?RRY3/cy؝`twT?)o*Yv' ijfJ6Tʣ]-0/a>zj:)ãwsldΎ)|qW;ElLY v CH+8BEsI,T›pPGE"Z[la;-0| 5~,e.8n0!|]IX3xl>ZhzhE!#?=kl݋4tG"MVؙ+0 wYI<)^}eO]<9*p9\yRR|I1^{S@`f'{.%/}h{so'@bQ -k-Vu,za 2HJDD9gMWXetfgTn1vTRiG V`苩oS ueރ5<Ȃ5ؙ쵘I^<3 g9W JYDhH,Pst?&al-tq r~]{3qq8B1F<_ϔ=ݻvgOK_8HkƯe&;eWεTuNr`X{М!RlI+= K\c (F7bE ͭ^299_1!+ێcQf &x2``Z7>,?}ٕ_:I"vi#'m{vFR0 s@[%?GoƍxS& OVfqkn6.^ɏt}^ J@ayBҟcD~p!:={ݾx>daɜ%pbBtdn> :L_Kx1+||"HΓms~ҳl -.*Mޭ$/l`Q%willYHېR/@Y7K}-W7*-qR]"Sz3]Jj+c=1SVO i%?vXVOcgAp=@4<{xƭ '/$nL*(vžĠkޘxE_aLo-"S(Ͻ3/-SZvf&}Q1{o, ϪmˍGZ_y *گ+)ˏ+iw:2`3L,y))YE!W/&j` *5K\U ynqIT?١Jᓲy2n47E>?s 9p)2 ȖZ͛:-Fqc:c/. '@B?J+Pf6s|u#!$ [lU`gJTf™zqVPFʭ8vAoj=D%kZgߕQTΌcr *gg̈́"-2k,jB(687%u>2|gRMFaܾ1m; 0}|PbnR=)-CH 8ٷ8~ o՞ mXCTl1PF\N=> FS֋=KWnllvk1y ‰ål`G(g tB]gմ'rv,"̚ڑg`-@Hyk` o!z+S U)hn7w|"Es wa/y Dɝ7TgsQ[szlg0<'K*1*8n^!KXF}~";A׵X8Y>y85|iT z(uy8 \7lĠ>GD`deOcP?`"yXv, 7ff)Hޜu xs{/B-%ꗛbKaM%2dAnT9E[2+wbD{XځR,Ϳ̪r'/6A>.Α$Ȧg,qqVهvΊ"h|::ִɁ쁭F%MN byk]%΋yTES(X*0%]/?y&XchϚfueeJ~<Ȃ 0FL=& y/_q"8FՁ$@=偕[nTe@wQ E&kfDJp_n[2W5ΰ7~j`4e/8]oC%?cVmAl;#)>z64i F]-t"F zN ygb՘c?sV`Ui^vZ9v 1Nxy-鱞Hp4rp' \\;d={ }IG"1wE;%Ј";~kV[+K`ڷk&ѢbNbM5P@s\]@f+2$%Y #|,Y[,1'j_H%O,\S;|k*ݳAf&-)p-P*sd5?J ,$d\:y}%!!'@)GƭROׯ[\ICf1/^&.84ybMe-.Y2e`01T_/jdk^?=È]~`,9]Ux9>X#.:GX.{H_%ˏ%JkB%>+w5 QجvjFJ=6-֠Ũ? L} HzA@_1,w{C#uP ׻S3ȀGgei*Y3"OG ѣYk !p1iz{|))v$:ݜg( ` jEGV f' =s }VAvpjy3"izO-bЪ\tcCHi"]NxC ߟ]O"xrvaET5;1$FDBW+ !Fj'?zKK"~ȗGI/ګqoVk|B14Ovuːf;Z^8} facʺ*c ;kΚfYԣߞ&}ύTPrz˰pqlv4ӊ!@Ş k'ͤW,ZC{ӧBY{/#E[}|eC,Q9]Nл{fw|P~{V1(=lRp@I1[\jCϓ9(s@!VD2~ۛXx_ lBS{n}BܑaᾰR4MlvHF:g*m592 ET@G.[Do.&Q#@pīgdFȫ|p%]zlMV:B$`(AOدQyVs` -/d( 6>}]gpܝo+ue js0ѡNb)SXO>G +XW R;08!r:VP?R<2<[UU mB ;](>%y"Г/]K"9`lZZygUEH[m)6;;`тZW4Hh}N1JYg=rAg&DKNH6#m;9vCDS(10KAjTīu 6@#(!*gL*C<# XJ7vwLO`Y{/蚽W%5SҖh(mm Y OPm^+q'97`#aUy&9agk5ܨQ!0Ћgޭa].E/9/.eæ>Y㵽\兙H9a%`а'=uEҭ*dWr/Dy0f)I帝/X%wvr g;/$L-oM0[lW.*"8o39xmyW}.tczc8"p~'QL6WXh2`~<4ڢMenSJM9Z( ?W=o8bkܟ?}<V$XTV()FDԓOL2i@l!š't%<#Q/މF.Y|-KIpk1I3O~ʃ>"_]=j#_%țh9'γ;Œ@UbuwEF!Ev uЧ68csU_`ZHuȭ?#m*[yEz"L· ^:`m1u#>6|IMNcx Ήaz}Ղ"$J~")iw[xۛY7֯kɝ3/}6zfH99Q `QR=I7OQӑo`%ߓ2Cw(樋'J`o85,+dt$/lZ_%t9z1ŸCI@6fdp@iPj.'fz S{`wöQTοGp @ܽE&x@=t.@g͞iy:Yju*9){Gf6 Aa2D8M JZAhUV:׃`ᗙ@t!Y_t~@$܏0#.9!ҿ<-!d#Z~ Rf F`hhgGMRґ,voձxxTEQ*x/$}b A}h|d` _솛lɺw&'*B]y!.{e|2j{߯6c7au\a_ul]y`!鋚xҾNh࿚p/=EGBIPM}#UW@xRo ցkRd߰͜'bC^+%nu#n4TA@Y\QURZN DqN޲>Q@ɇZ^N`hH̱}3ʬGsCnӔ9!"Oa-]Y% {QG7(ھ|;e@1 ؔ\)cՅDR.؂ָ*PV@+ĮU*6}Sxy+T(\-r6!|zO裋Dip%`1B /eۈ.1sQ-ь?c.-6)CUcI/ kܿD4SJd޶ף% sM6_-^SD?TV7GQ_5GY^:ԇ5m "κAoN8_އq`&1؞;p@~.埥MDk^ 6^`w>wɅN)O\[gL6oE*їZ͘;f|T/.nC]Uo( gBSxnKz٩]:i~2pVqxU--OoN7Ewcv&U7b@NgxwEvB4RڲЩtk݋D^+.s:CyѴi#qg !b7&Ty\Z1Wf])+$؋j+6$-U9;G"XZĀ.μ7, gp)ؒ mgm`c!UG^.RE$OPhb%%ԫ-ڕx욟rG$wyAC!`5J>ދ,_I8#C]]{CCIcnsmVl|E^tGo H Y!,3|X OJԊcCӠCcRPsڑiz^ ginISpCbF VShq^i\v:>eI*lQ K0*0̔}F*5rttY"!}7%u V(F Bp? Uof_yk!LP<6>[KztV`H e뛨zPxQ`cNJ8jcÑCM,5t9.fg;sjϘ:7YK50TR@rE+i؅1ysӅ~δ'O c) u>pO#ڗkM8ƨ˿V`=H/cnIҴ,XiCc?)IFm4xz˲>e}~^{0Qoii$tq}*vS:?5/uK+=c< z9ގOW)$7o7x8.X O$d:<>=-d vt 9a:G=QZ+5A!Y F#)>!<_T@yL-# πl:50eNV7 J…wch3c "UM~|֗es.vȜn%eNs2ryN H?9lhix>=8BX^ȧ#a5[f~ 95)G| p%"i uϜ%@ B9?hV{wKuCyh38S[;impkΚjXom4flOn::wE>J-> =I% 0#͕?7^^9hIXFb{ύ)Gr-Q-v$V9Fʫ`k׳բ]2ғ@EMY:2rkna8?qARFq` >`t2n\Ȃ}*U0`I$uD1kK3meqxDL`gڥ~ҰJNY>xJ.DZ=5.ܝkS%VTt%*p@vZͲ }VQ4]z`Hf,)_{vП']Oi6y{}V;`CrMtd=? Hq؟9\{ׯʤ㒼N*u*qIokJz ;*x+ hM{y$xB[x7[/֣&Vap=k;isuܗp/(j +B <2ؗ7UkEXQ&Z "h͖$@ chffnR?&e2]F-6^OIf\mz&/.\M&B1I2]*ZeS2aqU3ZrVJg𓒇韙?̢ME o;v*u9>*hrŻ5Sx9S9`'*/k,@?.I: *Y2̢I fC\b!G/ ?@H/}"*O zAʙ2%CLĊ1'4L aBpVe^w_j;/ Ёܠ͜ut7(̀j>r Y <ŇbC^mr ü?c {[^;,'H bg>M\'ȉ)wO)T-E\Ov n|ᭃս^\'߭cc} c e{;V]:v_;<̯]'P~Jls-h r7>H )GXIbOp.K]L ʋo3{o7<@-Uͅ˲ ! m>ac'?QNѬaƶՕ *(rn2Fp5 :[r&\;Px/Ojr7"${Ӑؖx^8)i+&؄,9bb3 SCW 6".ѻ3$!_,oQ(Q.kCMuK*Q\̫5=6ZdHw^>Z;/jSey8=~Pۘd'oIŰ`XJQiQUJ rMpﮝn+%PZe1[yB%yh;o{w񗙘YC[#?Trhn "PK!V0KI:5Qhk}PU@{ iHGNr? ZߤH2lBCۺi|5>lO7KFQ6+B3I2DH{?(C D( Li(dJ~uM?6SGe5M۬Nj>]˺naa>+*7}/l*M+gaRnr;FpSמmZ>Q6PTPJM=IǛA|v+m a u2ziH}j݅"FpҠGv'3o\OnR] 6xc@ x4ˮ^ǻ̠LW;m2[:6K} wb}"|fRS9!M(-}kuwx<26U(S j@1^i m{R),ak4XXoIެaI{WWR۲@{AA$Mħ\?l]Hf'u>5CpҰɇ)/TC^Aq>CqTn#GMdσl) ̓/M􈠀omsB8iԢsT"h DBDj@x%xH/E;܍ D}H&0Y$_ ͟< :o9@8xeHGBZW"sh֩`=eY| ph$ԚA~:u[Cx>5 z+Ժf?C),7ްSΫ 2 PJEhX1 YJ5&*PurEN q?K$UvgA{3F YeaNBJz\H?64DKX D"4opLs_,n&7& V22sR7)dVBuh:<(2[ZM j J x^t5.Ũ(R讅7 !_E{a+7 z:5[T~~ֻȐ(;@}mj斑@?o?nS6`C'_'Ù>P慐bʜ-@VpE`PL\ԋCz(ehT"<Or/n:vĵP0h$MxFk(R\8T5eh8FܘhcA*ݢKA+ -]h<|XlƑ]wr װ?eğg9 ߨV۸\,C` nWIE廲L$<M30"yR%v(IvaOL^k-e6kf7_&]@w1ҔT=D΄ui;9gPf?k lOm{d~kQ:t՚[n/P"dq*%I_gC =0J~\P:/=.-_H" Iyk@yDginKX%2^F)>rR}y;dV~\8$;/֋̻7i%!ռdr_ȠQO@h(;oW4]*%Bo ,Sxh!u^B_V\wD$]a$Xb1"{} >N"5=Q"z, }m#S 4 ʋcn~sM[s=`ݣ7BȢ ǖNfU/Tk=y9hhLM,x&'@&TW@!@̹Tug!i(o6}@)sJˬ-F^Mj. Sۈ-̈Jxex/%52wFEzPUd9tVyyDtϳ/7T2c/:+hYFoh!os5jJ4>d{j8-9J(qJҟropKFPOe==7,^%C-eAC@w. ݲtniyG)|H?CG{L+a0OwI+ ȧ%W4E"}!*\nw41-t 2Y uQb Gu8KjSu1oC|&MiV |JcP8 Oz%č+C&C,*dO]{.(<j.umyl`ƞTgJKKƌ &:DZWNEd$;bBI2T(8؝h@ō-' z˵u+I~8gLUQX&o 67$,TDªSNDJͷS0ghL42= 7DHu=$73ĨmB\57 Mil=Az8j5zj.'=&C[lu;zL#,:%H٘r7pGh~F6a~^&༧ t87-B-裃n {(}T=i'ϱ6ێֵsѢ?P.|O=-A#akIs'+hG4-֙>M#2I-TIúJa :rqDgh0:/Ou/NxXzO䐁J! aO|EG:hBԻ!Ge"-ftx5bkyy}Aqmq/|`VLinVF9o9c!nT!4d<;@PoUxe5jNQVA[dEK-9>ۋ?.xHg+3xD]A.ޗii\5 ]66u?"23'lv|b幎(V𴡭E1Q `̀G|]L'b% ?Tjvx V zݴQHbȹtF T7s8E d1_:GvFҽؙWX:}ZCQR&i|H]%GdM5_ F:-h(DB|r ~ +(lIWZ&&PAՖ}Cj8c.{?pT\rƆ ^eJfҒPJސW%!VPݻaQAcl 0+397gٛ]K@4+ȦgĆ[Vz a|ʃ2ć^$x?a^0? MSW1F1wqpC}8|pEqዃWZ!F(<co@v}&UK&dQO\vlhF[+$Ilrɍ@w v7H3 j?I%<(g9@X͎0+М+聫: '[>4 ӧjpo ,%RuttQ!IkZ{(.],/FtB޳?EbB?mO094퓠;Ϟw;$WWnXy^mִ9EZG%üZ[ { BdssߟlZ0rvG_J9G\H] q"g"L 5AJ:z=EU1oݵ v@>ޠhf/YSrfĀ ꣪]eJy/5N93d-!~^3V=\բ2z87ط59Q&yLXӻ24}$1guZлF9n}7we Z!zvPbn"\cѝMO׺p>r Mﻞv-kr.l̖ߧ7CKUw"4pHvVLi2Hu[,Xh 9;UǐR{ *`cVDpM|t++4M#> o`L. + mF 8Q%_B:\%R&BB-S;+@{r ؂>HLױ /PR$?t:]*Ժ]kF2Pn劗 mҦmVS&ӊۅƬ}lJ5,@'U3^?F hKbq)|Mz8#qqZZg+4b8|wBqa<4#H -FD2v} }.q#Yda5/f誜qn\fmzU;uUƐ0o ]?ͥ÷[KKs-+)fW0D><`1HvS F[mwjc 9x!WUi8+g}uaUς@| K%N 5/ْ ^C Eo#r˙^T]%o>@22'\3Ijax"5N2q9!=H뛡 'x8c\ٯ X?m ;jDzPD8E2F uL!M)36rp9~@jol$ >2.sZ"?+ڴxѢc96[:WOvB4cqt\fb鮺6X~_a;‡;G_"wx _E!o*<kHQKG}~P;%k68Q<>;0bM]9F_b Eu.@e^8gD>9zlk`2`0#Ug۞ݺ0[aT* c ^)ϼGΝ$r;8Ejtc!C/(^_+BmOvo*i$ѶZW8Y̠JHg"NAgskE'p|1j/Rk)'$%a&cc["uHvzJ{=DU-D(I% Q"X4wߤ-4q3* _~&Zg6wjwD>lo|"is3=n}ϳ张G'ߨϦFJQ3]Ҧ۾ Pu$Ν4vfBMd~]Cuɒ)H:CF7,b^M1 _scgvc=TZݿق;oY'VVrG xTDNOQ!!f#KJY?W} Ȫ?sFJMAn^}G5t(x#9Q0%w0͇B;D !];Mg^_n nioT&|E)h[I9*@vedɨ~&̡ƾ|>8)4Yu8XKBy8%ٮ6w. U3Ž4'Rw`ۣᝎjփ]X8ܕJs^r]|[:t F ئ`yufvz0%8Yר >/ :MnKfNSkik&mΧIpZ2n 8q*KO4'LMBuՎ 4d4V[R3n9d$9Y6o6P\[8y[iSƲUv@O3Hy2o (Fw`%;"0HiukZ <>cnE磸!XD-eIg P]剿 ԸМ{OzO,50qy QPؔ1<*HQ]s; "VIZN6py;F#eƸ\K 3R^W}u o?JKϾ77y0CK:ŵhq>N +7%c`+Q?͜MlBB@O"m{XPPg arh4)HP/P5}+$ tw$Oèt'*T$y>u d)DCK/{8Cދ4B}bB B\ i,u// ,͔(۱e2]- U{*7!Nܟ)=R*y 9ϰ:zQD"! gHd]d+yrPz@_zHTr"^w7h6fiF҈+n<*mjX J\M*voBr=ӈK%a f6aS4#]~:ҎFH%!EP8Wze<Y*eJ_Ejf>*T2$ep_]NcD`ԐVQ߳(LLlP9~Nu&]NߋܣғaYp!˃bn'|{*/:'\ biW |6Hk"3Iغ0RH8ǗJ[NmEۡS ! t$qִp+(`:Kdw3rpՓ#{tOY*YWxǜ9]1.賴? yʉ)Z_~rԝ}u-A3FRBFhk[(TXF-zRQ(k@GaWk6>= 32F2j'~{QY["zPvaz(oAWua8F&7&_0PyQn/|qC)bؔ\3rNߘΖ+EN]2lĔ}+lRBٖJ|]{_Tc}Ղ76̃*k%Rwc|A`Frrpk~JEaUpӓ?6VBG. &]_jg0g+^q*=ht\XO˲E{07Nk/ehG 6п#N3r+$Cr/Dͅd"LuNV $N0b3t a 9.Ea=Mųtej5SP3=pX=~(A^%F$j@]'aV3pd~%wYH8f@Mlat_):Ṛ^M*21_9UM-s\+1|4&nmLJ^0={Ey ܸhw}a?U$o~;I?0̜ȓ15襥:GR;~qR39@T09cMGpwQD*x&tEm&ĺqqP&5UNh4Liɻ'aWZu<- {iV$?p_6e{)$(rs"g$?PAͭ܌ kH LiXɡrmp1gRȤw$ pP.6-agJT6>bRj,7ZV@蔍svķo((qU)^ r7Wͼbs!^EJ|1v "|_=fn5cvQY`| m=HwEY;SSdzk#-zfLX|h,xѧ1kw:Kn0G kj6 =N&UPšI$x>)QZbZ@dNqI2HvʌJ=x١BoJGwTh0(. L`ՃE N3Μq2dn(摒JhqSJdSo #f̿%{CG:8 :(ځXȺFT)7K:eLj$">FDr_ub5hlJ1|V<3aJkKެ:&D¡*nzv(g-)挎ys5OoHdC੍5DzU(9 tȁע魺.Hl8SMD v1+ ^A&H5jP}o4 IEh EuO%@8`U=6c\P@waJK TX M]u݀Fw/6 u@9KkV .1Y{θKYEiHKgJ8k3o+w 1qt'P7e38@uϴxjũy|k7V'u@en#x r(d BI˅9TF~dh~1)H j1i(!հ (gg;+i>a:qqk%xwSݭ6Q/:| ~Յԁ1ɢ;~R_N n 'Ӏ-Y}tyxJ_$?EA['] m5 +a2sJv~xqfqFmK(1)1'R?zI@r0~t?ꍆۈ]9 g_T,ߴUI>11~{ ;P%\>Cv|LuNH3: 5U9iPQQ]z>~\hgTXuqO-0? kv/,amY`Ӱ! # =tQOcܺ#B"쥊DCv3^۷&AWj)zDSIj*Y1ge4?*?x Vכ}65.ހ7Ԟ4 e6 lL*hc%9(i_v(Oـ7 Y iΪ h55􁕸 +\[unJ[LQ86@yLSui2!~=5?WAMm[?OHJBz9僪9'NW=w6_W.RrQ=t36 bhdB#*9:7^wy!eZuI-~C]52V1DtI?#.|͑d$б!hIHr0ڷAg^B H;.ƫN{¿Ώ2%5ǁT8?Ho+`v18~Wu[kzz nf6xw@`*n>c·uZbFbt>Gc'%6zo($toY&+f~]nrBPiN(tYNmGț$ dv F #/PWTڎ/ nŒY"Qla3d?pA6 5!)1TO2Of9 s cШ1W(`}{AޱJԌ1ϺA/wRuYE߀]q}Yy|^=M&mL֗]''傗2ϙ5g#C{r\ZT$ٗ\D= WٓSJn-:/?HQ)Xs Uۿ{M$6:ڹW>'PT8IIprx gN1MNҖ>'~͏"˴RSa5Mm7ZTWH+Z f>EiMyu4w&Fك(wd Ǘg&,@.݌5ZoDT 7$ ͙ʣjv9HFEmcL %SV).ttK?!zuurlW#a mQ24Uo:E.~65Tg46kDy:Y mNgKtu2t'pWshX` Dag̸FNcǯF*|Gl3h>< nM,]fMr9}H^wF+/i &ܬ<']VJ(9HE'}7݆ۘPkP[X z"SaZH {RUj7GYO 7 6gT~@S"CtOB3y Yk#NB<8nvY?v2xT xҦxh54Ə]ǘS7DP/ː2)pbtԯ&RFVDjsQ4&擿:}gFխYmA4м ѵN { KHY5}Ѭf U[T)Q3FӈD΋L' ݉rD1Y$6(w/M3XS/~]Dl>F$jTܚEXxK5yw~_Ԛ+?q@R,%!1ƣufKʅnꈑh?ZkV -V}6I6 ߎ=7i ;;13]YxCo&>DU^!~uj}4D$гqj}:h?a30jX{r?DW9~_z!2`0߃^pBH_`{vP"`Ml[zvnf~<(օa̢ÅZx#_ˆ6IB&vio:V/foiCN纭@IDvIqY~ 5ֽ8F5Ȋ8Ba/Rl _: ư4v7-؆x]iک?VLusM8_f]d7s>fK ?1{ú7 "sgwu-F0 9!zRC4k ̿C_w?m!ω` 8(ehV~-󘕁.!4KGN2f$M4/ Mߎo".RMvR:ސTlTL%RdNE&ܕ%D8r.^"S^)}窧^Q2z|(7%τ~.ɴ͇[cql46'Sʩ|Pg|SUex)-c{YҌ4%#s3]j>d8_Qk< d֮qh׽Uwc#1=j,!Su¯= 7W't!c|]wHR0;7J!ӟ. 9'QYgi`>NK##+S.`=u]khWst!S2bu(7 `aMtٍN!c<\0m'DI m$u+ {(MO)8LX%,0=ÉZՓ+n2VM1 eVDW*FB:uGZAYsom,g`aOt}cKApQx9$ A|.k-S!H1ôtTNTK0k'yI=]̽QmaQԈƳx$Gsi, *~H + pY+] ktqMbrXk}: լ2E#vdZY`goB/UtmFŸc|}q54Ej}a*w]nTK~I:'WP %$.KJ,`Ҥ&#u6Ey.,۾cg<sC0& lB^vB.R"GI{UeRޗnN THc8z*xEl/ƕH\n. xpt\j/ηq.28\h84{2nJQp"C~RgQWkA}*[!vtJX l.Ggޠx%R} AdaC;zo¤zluz,@ ]ں mdS) I3H|RBS|7UH(=-h|4!Ru:w_֦0$_Rgaتd&&/QL>|u*AL')6>Y{I!\qRLӽUDX)s>q(ׂV֏|\/UOZ®Tiѷu> >(A~}jxWW#ŖTkQI:8 ٍ`n iQ9u戋@r;U:*9;:91&y0,*jY anAqɧV]Л:p!$2>l٦5dSeiPx)C܇scX aP>}wOEk(q=fc-gƠ#2-ekX7HX r7W2>j&a.`¯{>-FyO#`x厩ӪS6j&q #aytJ>BzYtcuP(5]S8u_(((a|Ӽھ,p {}ݿk%m6s &ݸBj[\{|Cir(Vs8`J<V_טpJ.)8/@z{qE9L*z%p3`9`BqסUU2LBx|Zk, :.wjՠi|_QV2\ajDr\p˘9IP;䐯uh^ Ѡ R+3DdeF!l S4`fi4"=ohnjCo+N[ $j,(ou 1!y5P \}خ#z0G|N?B[iV'ekXH; T`juce5l`W46:v<rg#StBZdإ&!yȎPY!Y7SyYXMbM9J#d x0ʒ3Tϭ8 "]  !9zo\64'eٽgٴ7GD)rܳw$8/T=:_c!x2$?-mS:Z_1npQvsxt}5'M+}$42c"u= ,Sq З S _6&g}z.nDv0'IpwL߫hn@>; Ќ+ZG T7"L}pU|n;:5WfUMvCAoK`D^񋭣LpB?_5vAސF m|ָ89 F~_N,IgVOQfgxX tܜޞu)x(C]!n4(fleq wBbC241Ť]"eݰ-ѦZ%OC幭\Cm"ڱ,6C|tLQF⃫Y=z"TgBXj[D4nܝ\ib_tW 5ҫ(A7Kh˟W)~Hdf8,j (RS=3t]55w(jl+L&}L,eE6754NzkC"p5f9Zh6W=~I9qV5dӊmSj_t8/"ƽ{J mUS=Vk1Ghi%RnҎWYq}ܴ8'I2`\d ӿ!KoO +qw kjfiOVw.ۃyf MOw7XJ=k52sلD#QԸx>d i>iڡi_ yòtI<3a?;.#9_ΗFa-0Ľ4q\P?Vs TL4Y&yn Vr7}2Ɛ1%;ViSϹJ'p#{iqo68UcNxq hNDG=4;{A Kv3$y얝 OfHDZ }-|H0q45gc]>.l#]׾jlsͫX^wka0u4x'ud7Ir+:c֤Þv `^諸{T3]w)(.UsXdAuK]K.do}ƥw/J*Yd L7/9S.9z ,aE(,tσ#?O uR1usR1oV_t:[JoiJ/<~44Ŕ}=|ȹ8< ߃I$^֚NdkqQJibw8Ņ")9G0&10N ]Ӄ] ڸdFIM]^?1٘TH/TՉMLQ8'MB03+ҹ ?{ZD jCbm "{Lo>$4aG0'4HJ)A^?iKç a&;+ϙ-[uq(,u"v0RՆ[$7Zu<_ |"=q֩r|4r~'Ċh(>{ 9C2w, Yvj5=Hj5;4vr:6E 5]bZtCʨXmD.gn@]1*<Ëy}h{פжT5n{Ԣo7hk܌a~x6)@_&%palhLt9uB˝mI3D[D|0tF$GO?KfKќ)E1^} orB ne}[ +rp(7+xͰ@Y# O,:V:gj\ xȾ ?q<穢kO%Pppo)Yx>-niDY#v=WNG69.žxXD)zUԼmD4E ~woVFi+;8tHz GD|52i¨ӫx]ݕ50#%U釸WuT$R<:@>yAVվV́ |Hî1w`ItE8Ee#Qo )NeBQwN`Рڠ27 ε.DmU q1NT?=\7v\l MfӂҢ$q` *cZzd~ jftF~ljt [">|-uAVh^pm˔Unx$3js-t,\ܵ*G/EVA2(.muhYT2c͊E`4T:wB~E12iG(E\ zbiK0K *mj40~Ut0*qrE,$(Tr/Pl2TwĒs'# w ŋ&<}?&v4q$b_zUѼO1j*3M̻לz٣z6_ϮpDz}QwxM",q%i"~Ȳ?Y**Nr?[CS~a}ՙL&|aCk.E^%Y%UJuqW܀J/le:8@E$q,~iQXp{Z#cEsb։=~)0U3rz߹F,JYw-T75zQL6A1#E؂H*R)6o @x244B%Dm XGѱ?W.hnUy :֔EUU&ܘ!IHZf䁔W3? z'M#Y=o|1SB|C~8" 2Jў .!Ņ[HsWסaD>OxQTo+=+*ASS^k0,^]DB}4X=+t.vp2B1|6'Ֆ^!EQ^&6~>2'q)xOO#_֬PNFع-pwGh 犓#arikDșP ec1I9cD|B?*'uV[W;QVF1}{ 41(ς=)փ9CD!; *1{fgIc8fZuk>2&;.9VU&;rzYUYӉ. h/pNgB~II1udw,a%3o 5o0; ,WPo4K4)Yd8 v{67SAZ&?wN ^8Oz|axq{Ȣ ~@Pf3[m-6VT'Ӎ)Bū Ni*)&KhpJ3#U:yQuڲ#Jpu(]a^<鱵z/OA%) ZhUJFL:4>syQaUvd^W$_^#Y'Tm>P¬BG{!rFi4 i}.Z#UWUZ` }]L26sNQD@ WIl$$E>& 2 038vK oa%|1صϲ]5tdCrD,:7F֮IVx׼z Zr']ѐ^s3q&pAL4.y4c89Qk6fŽPMy(=T&[f2& zUtT.ө%4ՆVE 4Wܟ%j)dW^Y*9ǿUźzJ̌ ,O*T:3 2ذܳ7%X%j6<*Mh.T<]D&9y%mRXBUٰgw{/oV|$Eg+G/~Cǎt5v= ID6oI<ZфbΠl:Va ?qGj:w(鴽e5N_G㽏X<_G>o%.za>p dMK[oO2T5;~-۶5[EX|蓯ϤۃBagFn~NAqRgV _}@& ݗnl(,6[$ El7E(WTnUpXt8Wb4QU_RWʎҩR.gԱtRM+t1vsfCPK{|pWyTٷ[]s l{%udH[17Ϳʌ˛wcTvZ.ը&^% +RRםN;4?{.PKU2KQF#b R/c[mщۊ:5U%vST69j3/p6[gb]_jn*+|J ruGUZ'^H':5^Ds $,st*-$AC[̐wSDqx䒁;ʧ5+m̡߬[gǪT^eCѢefҤ㕧"q#4#1eIv.}47,R9__zڄҷ]xּ 5CUuJے?]A*"gxBUzv7eeluϯHw E#.3GH=L:HbopTyzP4{"O'QR9fn}SG?K]94`6ȫ&Ѳ@P|'r[2+ ?)2'\F]_䣌0F9DK&1Sa3(֬'GSm]f{QbzoH(F,_+~3p!Y̘/ŅQu]W5&1+iϼF 2`21:$*olC_wH-dhB^}RܱxZ0ζc4@ETp)w$x| nw Pek[`"Y&[ފ"`6t3deGsV{KD[bgJ~DzeXkS@AKQ2-bb%@gx)]._("{5)Nl[䛝-h3iΠ+li^e*q,J%^wK_r u +)u\EjaT f$m܂W$D2yX)_ԩZE@>3r)w2&UѓM.RURB:=[ªS:UiUR\PwtyT T,jȈ86yh'^Nk(åB+x48t\Q+{v͎Ө.Qm;W$i۰<,:(ms`PmuZLae]^7Q7/s/ n*HH /G $:=uH 2@s\L>Tuo 2FpHM@vk"1$j(XobزBxџ ևrJOh]…J+?1}JlwGÄVx[;  RyV>!8eH~ڿgUxߎ'ſ]jIYGO6f:3:&"EFSLqpmB2:r:A #q7xN|* YOYMغ\_awjj@l·nu˪y~;F=J62>J˭=rʥI\3\x$ MK[J3OrjM$1ܼ,H0T:9-Y\eb6>A?kI$>n D.*Jp5ށSߞwxaYXi.Q@+LFZ"o[!rwځ ~Պ1v.y8=8+u1+R:0sHۇ /J{t3ي>ˀY^Lr44"RLٖ%[ ݏ r'BbX^v/Z#wЅ*gzh,dfwސNp0JN܊VDa\өA,}VqրU ]ύ*[Hr$$iĦg"gP蚿˯2{{6\ɻi k[KUY)o"5`ͺ`,QڸӐuD_H܁qbd&[ͽ#CʯR_K5uSF`a0{DdKmvNNy=xOER6u]ꭑaX _^gߴgE8 ޞK r܂}nV+6VLaJSr62{S({\Rej\U$% Kyu>+7&!i*0P_fߵd:ᯋ0W=qB95 d:LO{E>qOiF]d|ea?h;/*R!:|:[U >0.@=?zM8!wFOG6r9g?D:Ą2(A}2!"bx޵yE"$ Yɦ%ͥ \u8nE=]dSj7fk!G$.*-J&$ΜBksaV/6MqAt7"pWosJǨduvז Eh]퇫J@;*c>rf9E0`BdE^ J͗XB*@J=)SN_6;Fl 8E1DUݜv4%tep~'9qX=QsɀUt̣%O/.=[j_b;vVѱI7?.{:8e3wUث?=D A돣R';%"s$>H7ڇt>,$*e@2V&ҭ2 "ismkf\h 89c;MLh19 Fl.6Dl,x#5/Zr%QQaVHpeyZ%9V 7SL5}D\1O4@x-QzNY:B\>n~V1njCh)N ݞu*i'ShD^pT Ԑ $YIJ9vHݓl3C.Q_ ]" v$ dQ||›>`+WNE&SHevEON)o[|} 6!7] Qztd@"u8U+2mzn-zLD$A`!׻l8<-Rϔʊ5)XGޥ}X~;14iYfu=;Dj%2ǀɲv}[ro ],ۉ78TiyaenjV99mUPR,rje* ]OJ͞\Іӈk"GpMFgJe7+^ ^])/9cmax[cA;gyp2yrɍ8+pZՔ JGRKRxGr0av"eHؾ2-"򋄴TweXDӉ/hanj 9FWc""&57n\˚iD,w%`6u]Qf)i]Wi#W_;A¼ŔX)W^іL"0Pn^ssƈDMAw-c2 q) *VXu+G!j$3SA6XhJQ\}4^A#H1VYǯT4<ل{eojLfj MXXA(AZ3?Sv깼G$`;x7:Ҩ^]]/6g617eufv 7W  P`LNNEeO#H[eRGhqiF2٨͂b2Y$F`X`Ħ FBq0 |$zSfeX/`h E_?|JaծiXjpؙsO#W )b)y#מ( C$C%@[᮴{PN[چrRJJYHAG + b̑F'q0l^vOqtqgD rAd:.ۇ.ݘX%K^9B@Z8°[綄d$e}iq/l$]Z n6z5,rv@~P2Y^Y%"8rP:ÓDX~* +~`EnO9s8W0qI][F=,`ҷT>dJxBF _"Bn- Ҧ1T 2۳E},o%]Ц%f7M J ,TWv?PH\ۥj6$]D0:FP'f4R:E@ n8&QKws oS(@Bnoc؅!3fZ8ssZSfBHF6 0vڡf 6\Z~PvTo(q< (WX~%n Y H.X 0x4+Twc%+"(2ֻf%fJu+W%~% >3oխw}9)0Њmn}zL>b|9;(PavTzѓf^O;$d|`ϙt)F#-pVPmom':;(%Al| {V݆$УBG%X(mkvA٫ǃ 2ˋSMmwK OnhC.徔 ly]"EeUM#G;ӷ4'=>H̤FY5;'bh[«h;nR)n,|4?vQ*Q-#݋2G@0+:3(Z>;=漯QV:Õbq|APn%x,Wxr1xuK(0@QsDǃjb^%DCG<גEmnٸYEU Lo,(0+*5-'ml `S\:W8ppz:빊78<g@ayMJZ8q<{>_R(9y}d8VC y Jq D8y 7E@?ޏ\[y0ofqI;I} K!cR>ĩ yů R{e?49edod̬/%&˨%{T#'{ Q4\&ze4xfhVz~A%)&%=nqyG##cQ/c9Y61ig׿n⋁ҕ2^"HͤdD:.73sLXkQ#MZ(ki"ԫGq2ɟù`X*a̺3L, U2m^ "U\eq^':mʭJ-,&]738#e=InfE0Kb jAj)2&Y>\}6 EMFS̬hi[)3w1Q3xkX'w]Nׅ=bK\ڰwK3c]| Vɦ.vsF'O@{lj-\L^J<'st'NUy}@ؗ8s2\qcn26KM`d"Käq|&#˛u%OYU FCQQRgeF Jyg7%|:meuayUvȭuυMKR+v!F^W`QKV}ol< )>N96A$$f&"+fR@4:1BoT K`|H2J-_Ї"'8zrEL-"]Xdw&DC2MhP&Sh5T'"b{nvF-žxexО)رmˊ,jY kn;!I~H<:yb9f[i T3ˎE pux2F돩Owߧ3Mx:w0 )E3n";*S៍˳ cMӥNa=5񭈞ԧS@^y^>+KjRH2R.hpGѴ%Ňd-td\K] gҢhV $s?<rT1Ʃ&-E%c&|<)͖;v`LX㿽Kq'A%qsQ$od:S6ekЂդh*[1Z;:E au5@( ӊ+AqC=X!pYD/ةZml "QI!Xc'A%ÅTo…8CV=}(@F<,M kSN Y%M/T2Sy| $^ )S{ZxBum) MG3PQmI#KXfN1F}!֩-- h Af_]z x.nMᮆ~ 7l'昊&\qxhr,]D&YRh܉#+bR4WpuSezڶprb l(wa(VAV"AEn~Lq,^v®/.|W ` P;:'ݚNdVjm @J\KU$LHgnAB:hwy_X'b3RA<}B t3Ьϫ,]zsҼSMBK'[_: w"w#ex̳m"ي, (f04KzlVQKQ+n>()^ S:XON"w,dUwYhc1u1@诠)Ȫӂz&Ǿ=#h%'Ϝvoϧ穥' AU"kt>ؔL^JߜTdnEݯx aBhZd-Ol |.k4ɨo8c ,o jcMr5V=0DARe,'l ]5 ڻgw8ݲm2J}ԞEF&0ł&XN7pp? low,3T!Edo^`/U-QB,srXOҎ19PSL(z}^7ɦIs-25Db;7xpt*Æ|3Cqז,v:1 X=. cAj΍d!ä>2, fߎFvCyUO3~JR%?E/)s90@0u2C2YwZ|PM>nET LDFh]q!՝A=5W2ំ$pc3=]\ ٚyDF0@ io`A+Ϳ^G~4?`J&1%Mg4_5m@rUºlzza*^O e9I.{!P+n|b$UyLsNMէїPxdK>Y 3K(1><g2$S SGrfԾoe}{ @V}"+50{=˰ H3L!W|5n ѾԓC=,CU(%Ȅ+@*).#d/ "~޷K 0pžOYvK 9ސzI*fԋ`O6+su=({,р悏 O=,nZ@9<'u]f2=E~yJ%1 86҇zS(vZJ5?KIItzep4bR󡣳`~nyY%Bՠz+*4Kr}t c\;Bߚq::sm?5 =٬d0 k'9(P0`??c9C5gv 0w@6lU4zFO$U(n & urJ(@wzhbSMFqLMF^OqL[@/ԌI Eɚ?#gVیBn)дW"bu(\Iműh ȶх%e=Lm1qԺlwOY0LJu@;F &rzJdQ5yAm& l&n,rƔټ葄.} Ɵ  꺛-k(b1!aݛ9d._w3 N%3+A$}$(m4P&͖q߾OMLz c6\G&˱)ǢVC51A&_Vx-GziٹGCƌ*{)/o%_;4Ẍlkym> 6ŻG2bKכí1+h3M m>1(Ӱ*IJ1]Kc b%Ozi" uF5,?BLQ@Ԑc5Q V8H "?A cO{qOq BvM7+@ҢC&dW%9 '!`tҴFRwq]Y<820F!╟w&kOhGm 0= 0S*W9R6![m#^t9:ptcgb.{OmQ0u[Ztl =3R  ߢ.!FR3\aCBVCv9̂c?5L˧PoafmPp3A4r?ַ:fz32 #^lvv3"FmP ȶ]*krĚ`Wpa ؅LG.D qS e6V1ŕ?\L_1 |XvQ2Cu7}r$s1YsS =j4VjÄ`a_fwd-q2*Vlv6ά~YCO!yx뼵q-,>{h: Nuǩ|us7¦͌*q׶94m)ː&D*{$sB1S`5x2|+Te5v$F{W[Ekг'~ ئcs4F61T1sioc\N-NM;CF4̠ޔ__ ˍm3#\ X+>WrjI邏WkyS#{5`Zv%ӤIzƾw^k 5z/1жPUz4ԥv+匱鶂wSVj}sRy!\b`"R;mA^Ĉrr)"~ms$+STQJp?51L|L &Lσjsh| %vkMU{%_/P'ߵTTρn4N1\ב3 ZS;DǬ LaG(w⛪_gN|ƘQC{-Ԉy aUHܸK4O'?KI ٮvEAw30{%QozyxQ"q0kqQQS<_nqī]Iu;-;dq ĬZ0 JaA#4 J|ֻ\ A~  uvȂcO猨$ r!TabH&H8cpEbE\UN%.y ,_a5Zذ2' >8:7d8شq`_9ƮLpg+PpyhW= )Jw&:Fƿ6 DePP/kUM|ZaVYnؚԳ GGxG:VaN{`MH`yU$ZQ2dQXd@^MT-jt>6+/H'm|Zs ooU~@@ڗjt79Xm;?,'7br:$03wrt*Tq?P*}< hRنJ|'rdsW0 M# ^ےFeFocxGWPpN\#9O]cW$IEzk 9QaT# )ZC- s\@6qp.P&D% (a ђm ?;7Y!}_R >\U Z $))ĕJw:;PM![ՔȩiM'^hJ\`|tr{Π'3ZŬ{22.ܹI:0xPŽ_N&~1׮E_ 剪 ؠʨ֊ZcDO'bgt였XvNUo Psy4U06h.m_*69BPvT1W<:?'3v{S,Kzyڲ5c%RE6] roF'g0BTe}kUTNZs1!' J& !mZ)$DygFt1WȠsNfy0g!Uxdj@-~KcZLڥu<:N#nJa.b赻!GE"88![<ض5bj`<$_,; r'0(9߬ZtӺYLAJTP=L3e0OuÃPANlkPQBȄ5 /Lrye,范elI X!ن:u/:SS %I7[n$_Si1w V#^z"Ktg:n8!:So%z- @OUbE;W#rVԈs< 5>!.^0i%ml[CN+:>E.\2nJMXј DqQrTo0=QK &lZO Fے6,Z3^ WZ/8Us1j?h׷WGkXT2W"3U}[t{M,[;W˸7tDV ՠo/^v[<u'q릃܌o2i/))ʊHlW8OzL쎹7lrnFwʘɿM=k mwnm(_Q51H>?Y-~`)󯀂5x x~+쭔k9ŀir/?q~ rzl3wf4f_]Su4!эn 3]ַ@x񹀳i*[z]Ykz\6Uϳ860vnzafk3H%b;y(h\vWh|$mx C\>d?񝳖БLKh,}6[[-Z-3IXیˆҽvy'өZ/T{7t)3ാDMsL: 3,zrgߓ?*)gbhPR'8P)++g :u ٓ4J UIDz<r۪M>At[Ge)_ڂrWP>i]Tf=m~W3C߹+߅h }Y3J?;(BG DT\* +POr[}ԿЪtW6{?,rԸ^'?sup6\o3[qۡEXCig.\Ox@]*{ ynN}=!ZԋxdzS#27t~'A0utuO6*o.N'@>(=4,Qz Kt۠;N]]Tgj, A9&T?pz9pAW'n>C' +pUIt`]ET«I$Ȳ\" +.%͂Vp%l lnJ#xV#SVL3cOeL5St?1[[@nAY m fN (k<\/qDt}ψk1-`-${|tk? &2 "t/]{R_I^9Fot$E4?[f靴ɧ,[%;seL֧K<:uY=#]X$m"VB qP2ak=45 eJ,`E ߇W;uL3;M;2v~EĆXėu Ǖwh;2[6D``vY}CB3Ub8U9 UͰ'mIȣqRE`+/Phm!.sGlb>ibPY~n&~`W<$4[:esOe Y&7Y&5Ox)v0WrKV6)(E$Mrr[@֕^!Lzh{{q㈏Rn3]6B?Bj޿)Rk*IW/Wtm o; K2Lv)}aAu9P^JI*Ќ9?|LJڬ*O9p=\;=MuLn{vǫ~!*]pl/FAۨdEXYmcgѲP$BL-D6 1~͚AK^:FVߝ+ 4RkGj+WUv:x?Xdd`:ʩ8 M;V\N5;Uf ͢+&]5 %qV6 jaXF "Y7c<43'::w*Σs` {Ň1ޒZc=QuE]Zv7gA }%Ln0sIIi|Iâ|"K|n8)7WeF,6J@Q!StۉR|Rh2ܬK9k{gUdנxy:_`72ܴ 0j /`\É:޷kSmX5.ɶ4\uJҀy%Șvr,nė7?[}ƒxDJStq9"!sb^M#j\m= >DTe ̻CֽTgԀP<}ivpMrPEk_?4wg1F;w3 ]+SםPh5HmpH<#CGv"<_E.$jI{4}p/bGNoŲ wwHmG&G\=d] ъ M_9yY %㔿Z>$VcVf1"(m͒:F0ayPLMhwlJFk7+4VOBFzxY5늻{I,dlxFбѮL3.qإ;$#)0"#Rz 3M˟% (nb쓏baH'3c O]^M-}aHwPNHg^S~4+ն⟎%JsnL*K嗰Ş8f'EIh"x/#+UO6?etTKFRb;h04S+:} @0!"g IhֻwuWa.ƒ^<싄L:Ng?t6uӻ-čjZwlPǬhQ'= &i[shӊ-\>( 3z֨ Et^XM[`l7IXA| K>kx^)~t$=ZuO:KJ%3F> M&>HAaZ*F Gr滂=vEFqD<1 ?oI @BPȅZI-#rvp'чqO/7#|xg|gZ N͉|er'or:.Qlj]wP(z=ڨT|PafÀ6[`|&rwmGf`-N &Xcþw.4|aNK=Z,&03%m:&Ҝ97) .DmǫD-2r@JClW:A^:*rr4}vwoY+ܐ2*s(+pRզ'LU`[5JlUgYF]+u0`; 뚒՚!}RlM &ӞXإ @&8b(`;%|'r?bc3Q@g E`Z.錞]R*p[{c UMf*?^͙tL_sot*^^poua'8ubґBFC@ AdRj)K= <><ˈRB$Kץ=2g^ŷ͌nz2,2/.0?0Md}~͍Ћ⩵لH(Q2J |aqH0) hßLO{=Qn(>[JZϤw쾶zTk ]c=ۓ3ڴ<.w* N&u"D,;ѕ>@nsWNPnV>s$L/TEG(*K (J1<:[ 3*Ǭƨ8*#oK俲^:+\p}lAM̠vYp?Wܫz+`5񱱌)Il,4<ꀃ(, "I޼Icbޕmݶoi`Mriw SI27MU#*XGϏ+v Gp0L PʦĮXɚ^TM(sSb j;p%-!hn ¹ b0VҐ=VOPf;bSs>"/mEĊ8v\de47r+yQ:}b({}7X^8LoC59C3EP$wjh_ELᚧ(C;3mR.~Nw GweY^C=tYҒzv&Yg K~̨ wh<@hGE !' c4_W=-{o0jIXڇMcN~fmZ8: 6~йqrY}b÷m&n5E^5!eڡ>? +D1/AzO IS<[.HX5#ā1չAgz[ᜱ_ߜRjğ/+Oͬ6t>ؘn}vyeBbYNqYkJDT]7١'!ޚ`$Q"Q˧>wd%Zm'lPEt{-v+tx&R75dqHGoo4~(ߘDgО;9eIxұ|kSr2ФȽ`q)6e4 ό;t£]H;u7ƵIhx+uoKqg>>{h<'V8M?g.ucdn r[sL%38,͞D]%e sڌ ^&4QIgλķWtr375ɻ[XT34Jw$.u#+^F#br?i4NtuJ.B5{Kq/Gؤv|(N#L~ [e]P")WiԵ!ֶGݨh1EikBiHx}W/>6k4c}dMUFr.#0ϣ2#BbueGIQ4v%s05Y$+;GA,31q t8eIs8IBEi.ًj/"u:q67vvCx''> (Gϝd{}eLv_/QfU9JX}5@ K2e` `, w.3he{|6!1#հXo(-%FG+,@4-z# 3&<,71?y 14&BksR\s74…Y]9 }QE"M}"GE/-%6Mޖ/E n*3OFV\n"%G6y2.M^qH?h6%%YU '4]M$"ejiTeˬkHuͦ':AI )qϚ'Ư!ҏU[L)E002?  KĨ=Lz;U}sMP);%yit%3+ ecى0:%"&fCsA w_Yg 5Q\Tz OE@jG3"x]~x|pwoenA2Nkbr A ,KgB4 Y j᠘[!{//v̤Vd[bVx& 5hq $I9B8 pyīb_#mn0Wl d+ xGK|kyI ؇̭W֕S-qSrTƹޤ$WrmoT08K} |; *D O?ޞ2|dZl\Aw'gcqL. 9xób!.f}`HpE7VS3^yp5hYq~s U| xuDBE$T'j",='Um@9V ciݫWk+ :0|eNg?^Qc^lcap^'4Qei PA/(|y‡zŃ~!((`G8jӉ]՝ rU /I{z2yLVai|P,ev܇^2|Cn3[)k>_P'?arsEE܅8տ!V™VnnkHwtZh\‰9ֻ&(a@ W:Vs<5 NĔ\N[rza,}3= fIV$Q7M)ay8\~37R ّ6vr1WQ#F Vwȩ]ڜ)'(Ū|3hn9<#<cA6Uak;V?C(Wg"$bB-3X`hАzAN-^i,i@QYpD,h"bg5 ;>aHw| jWt*J \ ZH4KO̴  ^k l8Wj}X`{ *jm~Èd Fe$ k]) ed)e9QM;%h86+>1_h< A(+9~k5eIb>4[zYn*CjJ|*CzWziaEхXkXi0 jF\eĢ ]><:( W>1e0'KSz1_ms/p5VǘboSnuo]}[?`{8֣E*W8AFs ?4.!bȆHt FZyJ`Ig{(Ajd30l{gK u۠3Q0jf@ R*IɰuC=VO*@N y+ohgȞ;Ԟ8JP1Vjtp{_4::o.yn"ekh NOA>TL OUK,( _s2oiM ! 593v LglbۑZ\'ga|KGd9Vpr1H 9!DhG{ԇWR4i[8HXMND)>1ݣ}W HȒ: v^bt3nG5/st Eaf|>i0ghݿ1Ԣ$T?.c"%RKמ:|M1 祋-xnFrA+Wb ӎӏ/Kf%T1Js7]B -,2/"C%[xH!.%;;0ؼ Ud<\ bc#>5G@ٚetBGN Y[NfeQ/5m#EՖ&'azYNA9#j K˔ܨ}Gmܟo :ќ<خ/!= ȋ3S_4HFoY]pUH.3'L#ܽ!FaYO ȕbsu&{X @i7tAt&ΠY奚tV} g`Jg zP 1x5U0 ?,'2NIRZ [jH/-Ɛ,NCL\4s?^[MV?!`{D]},,m+Toz_&>As?셯$}[ j~lަ7E50:rybW=S!z"ZtbNp4YWw 'dL:xȹ@d@ܗJh6힧^^ *ogׁz\ E -|ļP ڧs5u7D:Xtvi -0p;YZckX+0jEX~3R<UyBTrdjo'2o-grGo!EiYS/j0ʊF-XdyTpM0LBJGӀzQ*  DSlbwA󔘟[a1Pר-y,")V+xA@FTL09D/tsX;"'@Mh CP"Z7ARk\T.%1-#[)֟X$9,F\8Q@gP|?ZBj\S@BF70ܮR齸 * &'0)kd˴w^82UP?48WB; \81@Ve*36k4(\F -2sŴmrjc8pl»PQScCK'ܶ0\KDAԂ]LR2b`%Z (l"cm2']`@g>uD fLjpF\>|W UQG(z dnQHT&*}@<Kzr1 _ˇ ,:aNR= W(pdsvA'߆$6k*E݃Pd:5ȬN"4\$B6>1 Qm*@ C00rb! ͨT!2-u{y_O5\(?më+Լ< ԿF #J2{;?е$1r"\zW/b ?EIpu8ƙc0s'GTFXrZ_#Z;Ui@'e SX@~t(zLuŢ y0UAS[aj@ǐ0U܈yvH"mG %G0rUUM"ցPD Ez;tLRm5[2C|^LNmE;Dn=UʫYa担8tMg 0CɈWmj?-3m2jagDox$+>_k_SԹ(Ӥ+<$^ R8B]jqFvJM{0-56Z1@4wTu/gwA269KV/v-R;7׀翥2*/PZ34UGGms-y yK.anWdVյ|pJ!GOe5z:C2VִzFM0z&(& C܃'L6?q DV](I<9Z?_# *3*o۱׽݂X}~>)@6)m#et|Y3 ~E̦?ӥuCh2{C?7NQhd'^oFvd*? 14#H,DCp7T96acY>^]vȄue Y)7޴@\yy$QdE33?¶HgwqA"3N/yͭCQe'39vڒ .1^|O_z"q/ciDŦ|黴`'G9u&R5:չJZ]sgc&dت2uGjeդU){VߤA8+J$]9A= ]% jNM. 빬𼾙P'֎z(-*b%lZ)ø'Z301MedrH~@ŠJov4e3 <Z8)2͖,vw ]s.ʗ3"ds @{Y@[*q{,BV! >cqI71~1p,lq6me nOwX"y{OOM vNNXOJ)٫ߦr^jô (ĦT:=9u @M23%I9iDh1F2GҿZ]ED%uR/ xm#Z옩O "PՕB XN,vU'ќy.Ge* R@}K6ղom!A& c,E[}fnWBiiusJSZP))8(:#"s= 9㻏 5ۊ @ⲫUE:=q!~)ÄZV=BX8Vۂ,z7ri쀒BμNz[e7L8 "N |b="SXz6GBgn/fҌ7yePzBGdSΤ2TKͅiI@\ mXte(ť:՟&\TVn}@ґT5.Fg*OLl68hvA ei,-*᩾+O n]61ޖ-XUb+ *OϠG\*W^{uh]Au > 0OJ#@`ߓ1(Sta;BT yjVʔY@#QڒZa$>v Zӏ4gD@uiwUiH{2^Й CWY352pUZgʟ\fSq7Ъ, fh8?^7 !nyA XDo@g>p(K@jX#S%J~戀`8>_1*@  @X]GA k'ysTOb@7]^91y$7MS-0[$O0NwU;'n L o)~yW OvjG2Xł'2|PU$=NKrd}v`&̝%!>Ayݎb4ɚa d/mt8?aHN(ͨOj¹%o*ujvC-⡉jIhbQa'޺OMRFӍS#'Zrk9C/=$٥BK-[߼ڏAR!٪dt@zAgYHB=ݧwpՏ@QKȀ_7hL|ff%@F 3Ii<|yKq`BC1+DN0G6mT~U?=|5JtB,Ol ʖ[_% l gY. (T@hS !FY`poS)? # 5r{l9կ"YCOף+tKXM} dM9yMn.P%{;#2&,pK4KڠhZxU#]*rh$Nb0K.ŀE#Jvw,bNFȁRk$C]M WUn 62@JpL09ž[EekO^0uLYm%_(#W T \OfE*{!Mݯ,8yX(BwӊHw8 Z2P\kĠgUO?@mR۬HV(iY ($Uى{r U+ʞ=`ñngĔA-3 g,༿SW<; v$CJ;~Z*WzJ?A"[BҔ)}*ig~x*U4uq{%bg <er(a\ؿ}ِh.8=~};oۣneו<0O=>0V ` o: z $cwvi]_>^9տD{ apBp0SAMD:ƃʳD?c[hi]S)>D,:aCQVޙ{HFE/ӢVRg]!`z1n%Zf<[˓uLBy.2˧?Cޱ!+5aw@A:0YM@Ac M̴M]k.[)-ڹQ!  17YOajN>M+=/hI.; 5WilD|7),d)HnDMwtFVTQl*Nn& 9`[pܮCD+:ow;"-vr&j F蘴Pr,ϩk'| JVgNF\}5Z-Ψ lg{xu*~$ȸ}tXkt|?FܬPocTǙG6mCjHjܳkS ڀ IWN[󅶕πizW?PwCzdƠ$uNұ=7r #|fW!?Qe.]7+Scpfvhۭy@ ?,[ .{зs}lTI(^_CcZ `X{R^qU6_#? x(/> d>U>MO|]~Bc ;B&#KTؕB+ZrNyIx!зw} +kZ]wk>.' ذby"\9JL`؏DDMe/Rr휂M9>>>a:t1NME 7oYwN3nIEchObZOŶ1Vb&Qn vj;#BݥηpcrCz -gT G1K 0l)®7ޮ)++:[Sd6S#I5z>5n^.'c>Ĉ[pF'O*nU >ݩVtYV/1,7cz :ԏVZX&MrZ$d!2Cgy81dOO%W&bH/_W}E[iI{֠tkR{YDݘf,nj?&ǩHbyXOW ۹^k٠(rpTZR?10MkF4kLb`(ZG,&wҤs#B:ޯ8RYO]b-ZlXc g%2˘1!}Q0*!t#NKB4sVGR}ˎML U$kNY d԰M$ /WZ7K7}aObEk@[1g[5ͺ!C{^'<{A|=˅PNF(羽L 3+MLU :ѩڠo33^M Dzg?ѶW.ɭ esZ TN o*I# rwoN} B(=snR4:%Ñ;;jtZ+w+M^֕]X~:F15DIp46Y2QS: G3IENOM #337jY{ܝf5E$6ArPD!e$$u=<#=7/>i{LJh]vƲc79Eio{୺ &/ 2^z#U8Y:a1H}bІO g|8M$,_zS EG$uxsJӅaY=ǩ(p $qJs8x6Rpngɼ*CX7P+.})Ep^Ke7Q/|z {v9_),ÿ_cQ=r u䰐9Wl)n_S6:UFjIڴ}Fd(mNl͟FȥϷ7CP&yZS_/_Va3h&Y=ln*]&LiWkfqoސd(7k^Ϗ5f -:?#]Y, /<`$x! 9yonW|/˜i>{* |P#T25fdz8Q8wd<+V㠑'轕P )Z7 pxF~N`dzGvu@a z?r9OGS,ht :]v&aoV6Wk# 3&|߷4ǻH= $߫ʯTңZX&GzYUuUj;!%^"nFYq` (VC43Geԃq~&֤H`;`q@,FoҁǞw86Z $=$ۘ%{4Ix悆!I*XD-&'1 ob.xVp.Ü.xqxVAq}mߔւQG)%:)(=ؗgK>56C\ZTxh)_@MBzlWcN~فLoч[C_1}uySgV٨{f,)!}ʏ} 4EXm;![ }M6[8K H,Iø4*3-BǦ,&VG9rT7.{jᐬ~=F#$ vO.P@܎ 0)n@ss=وPs?d=~9"=29xovN@pֻLk0gwNwoklStgr!N3K͚"$m&ӑ{uJ鳳Dwm0|&p ́SH,LεeQ bNQ׶xu@O/ 3|z&:3Ll<9ϙ*&dfU6~8X]joP>{ZArPUhyrȂviu_cAaj -ЋЫ˗k..X(D+ O VoEd$BG:áIu6tv??o5ucĢ^cfQb IUnV~zKU LAs\frƖἾ x Qg٠\=mFBҊtBs%u(x(_ۄ{@2r loժ=KɀH1itf_Z%KK\w̱=w~j;Ô9!PpM]M׍n~e; sq$3*跶޺ddyiHsϽZ]Ws(d8^6xk'D±wJ_#ׇYa*'5ּ hCJ%4QJvRIӹ#k0WYB :t߲ۉ?oA+f-'vva:kw ņ_sWvT"_|1g/If|E:BF/f%\ǔ9օM*.z'-Aw7E!CgG]969yxN T(aB};AMW}l DV }J4T>\,` Ξ6INT̐j\ӹ/.f!uǂycWB||?y!rKʸ̲$(6NTu]05TEـr Vt|oO*)V=lLJc?&˦`GWOɔmfL*X_/AGU?ˍBtLjE[2iCDH;F{믑%1Sp]®Ef 4]PQDC c*he=NZ3?ęֽ!nX4tb_N,J3 |$K5%\cr;=Փ;4֪[~KR6G4!րy,,UAe]h BGDv0 ʛ,TGEfAD754q؈_!R܈>-Ĉ~U=Xkn9h4L]X3\gAȟŋ^ݧ{[ƤΠ[v4q5'gɼdʀ 䠃xV\VuT߿w^ 0282%2IN#k]6Tb:[$#('/.)qeEEhD C"¼jř+Yh·u=خSڗQ;RvFZ5CJ˂n~k|rwؓfpN8;E26$0`ش'Гơ/~}M5Ry\2Q4iM_7`݈%ߺ-I\d~$lό#oaT5I<$r*R/n&Ȳ`RrB#7'ݟz }] YWD3c{(^H|y*BL#PJO핪X5Z@&P]S 7BIQ3&iqr7AR6CYWBenMhRiP^donrnyr' G('Ɓn0v_v>f^ֿDO@Rx,53!A Jd?U8ä&yf$yw/3gf ln·N~Z3G^EHxenӢ𐙤31==@#LdrNc4rVPP7wzM y-O?(9|w@iQ/_k;'~!G'@9=,uR~J<[WiAL85*0ǘe"@)/Y=f E 2}9hXݒҌ+,]]09;H9kȊ8./mq|>9r9D_1_T!#fHxuC8[lrM/PR1_P=wdg~܇enA"uԁm4I]C[F;G2gB69F>*QxJ8d{Qj>N9K04AwHmy{ϩ74zFMR)UE9,cԏNwk!X gRy"gXdv\(۫nLA.0.EX4֛,#8eƧ 'jhp rFL9VLܲJ O^BmF ! : >ٳ4eHE WX[8Qٞc.533M%ng8ӅC,"l*ݤ6" R8amk%n6lU"%T"N 07<,tn""3[!I Cϭ">>v:ݤb`=AdO&Z]nE[)Iܥy('bjȵPCđNnW_ S|^;Aʮr2T9AmISO&"]6h#-6> O-S^HObc4+}[xŷ=9_QPY;} ;Ķ)ߐr7g*-F\eI*ݿ%:X[Asj6)Ò͑\_8<o+wZ׊GJ-N& }3bqc"+{gՄ)'y6$74Ik\Pm*6DmZzc>~NT/jxU4]<"EJ 41mݡJB$-^YCw5:Tlt2OI;!\ܿnt8]&-;)&Xx?zPha9uj/<5FK6U—dA'=!j*;^63U)Ek$c,nM.4̐k|so(G!#EK5vp'OS5 KY鱛N[`aQ1i۩@)r=(ov'8uA*(MGD?k!0%Ģ*8Փ_p㠃b(UA(|,1,偠PblEpi.&P:W #dHm?mWP KjvKtu:Nu ֶӕRŸÙ*?|-4BdyI윅[3j3%K`Pk[x'DO ºdn0x4P_ K.@P- qL '`:Q^ EVFG[cvRR l#MZJ-bEE|Yj0<ܧo|NRt{+:%ZK4QS>|!TP̃9tMZ{3%)pX@PA\1Bi_;Li?Nh\Y7`ħ>DW{Zz{#aM{{,7:Xo% >lBx{`oׇReۖ9QKq%9CPD PZ?p$<0V$lD(]oq>M0 s%J9gO[ߊt^J(j#Bkz! &id;n"w*Q-O|[*X&K;s|l55'^UsΦ†F;&3uuAK]3zs| ZMU3vZ\##{JC# t)`?WnA tZe= ƩuӑjO77^&Jy3<~*hN2F"!2=D{$##gJyu^?h\%.sQg$NORbWK,Gz5|71FʽUY|W$]J1&:I̹Z K+w\3X-ggGCn,Rf0mp( PF1&6-9sxlSWYOw㝉m%A&42qB-55ns$#@hdCrz1q#yZ/$:>u$WvٟI(Z`|Ww"jT|# bdm(II I)npG 4C!dG1ej;\Ʒn B,y_VG#BTz$(``w {,A^t+5B3lPȪFuw@7էVIuklc x47z;r>[s6PߑmQIknօRuEr[L17Ycԡ{ś (-JV^vij0K%w[q]'$KJuz-shD̽䏾x{f@N|1V-s+! "Xb};j#gL8Oص3 zʙCn}Oeg7UuMG|$k孾 jza_?ԓ4Fj(6'`Z`>Jζ ex-f5|9+SN݋\P:[; iO: Ln>*㖽)(“]x kyIۃeXjO`qe0ɕ6ج.yb :NUп6XM Oے8G:Хgv:[(cv{ 8rzvhTL\FRᎏ At!FPR 32 [X9uoeYZ#DC/vC? CyPY_ jDP})jqf 7[<}gtgIо|M׺:*,`N+y:&ͤ(6~]U7dBiV'Is7aHS`,AO+sA7@7qXdy.y2.e њg;w^38] EbK0DJ1|ݷ{t/ 2Gr"0"|!a,0=Fly0-=B??))gSըoθB/,e?_bdf舁PȑЙcѶzDȩ#3zAr`"t#CrSc7q 9VB'Fl64q=_wxeb"ԢJ-7, tu'O^ZňVr慨|S1OtwA5{ϱ5ͻ[tgFsUK"ۏ^"ʷCk_rgfibc12K2]lFG`THqg QXyE6k̨ߡ9 r(4yT:[Bv;6xqNθ|֙`bw/:p2{- 73TfF'!tcIfUg#:Ut( f,ƹQNts2og2JD{`=?5v6ҡu*T٤p!e[=? beلmEל3RXw<훌vit/^ē_2J3"0;ʆfӠTbV5ٚHA?Uo1H([zay 1˯}V/SEʃ~W}7*guEQxڭhϠcCXG(B`,NM+- Rm0"|E0xOn:(I=e-l}99kK(@D6pF4f fqƪx-]\|)FT1 #¼%,T$Jm6H|&4YwM6/)IG%i^dJ'PH\:jljJ &y'BOld qxOܿ$HF(zVDNҍQJXH}E5Q8?ɳd[ 0[~Pr:mF۽#ޙݎP91Ȼ &$Gel-,FUP5G7uG hRX'ԟE׵h~`XOtnQ:j2d9)- b?.`ԉȸ)O 7;m>@G^w6hP^w~d%اȱ[?Vi)B.$l)'2p^!݋oɻ`*ddڮ3MDܬ bj*?HwxW R62FO60JT<ʺܧKW$5O6T-A"([Cy%\ץZhl(5FAJ \*iPGx-zC'7sl<^BK5UAT$ZZ㜲zp/F$vxPrvLaNy1:[LS$x2iM oCL'Nѱ x/( !n!_&h,tb(o1/t%bAtvRetx"> |GHeiR2UI?kq^07z9_*.3\_TXclp'ynE5'Ʈg_3CqxBG2z ~HmiAһr9] rw%Lծc T8w͸0و>L&KzyRZ 2TF9X#&gW,t"e@\#sƺe0}fSQ<j4kah79sCEFp2oP?vp)+-e$R06zy9.1W|/'; ӀNY,hЪC(&~I+^Lډ^ZҨ- *Z$[F-  Ŗw^Z 3{~@u\fq c[9Sz99*!Q'BLOy| oobz.\ fGσ8 E UQgu'*e<^sZ7;xnA:i»z8cһʒ~S.G%?B;sk28cxgw) =3Uo[d8u`XhRN2c> |gǘl5lUpwrIx^qY2TIw@@AU5;ZC(]QªxnsԀޔǣb/ t&9@UU&w Wg1[np(E aW5(6bIʁs*47CL?wE% 8ti %ce ܭ_ t\t&]()yM: ㍔)Z$п~uwu'ÁS~CKϮ@nOV˲G9\ɂ b sÑz.,2y-tBX oNQb\i!˜viOh E,0X:z[fJ1. ڂiZ캳=G*yGWi0, W}'{`(o JM2WgܸVbќTꡰw?: LfR 𧅙 (SxdUU[79TjO3My-7"^YGkj,4ʏ#{Rেji󫖂G%q=z+@SIxB ÌO @y @XH6guʸ؄ub0٥\Hrt_S%D ǐpRö?9ᗢOc69`3r(qr0[o*E{~'u$*%ϸ*4Y9E-0t >kا$4$h6*o;W[br,.B8K$Ӝ: ޜKOɔiMnh u|֊byAVQTaYrJwgb<@uQg9x~/<8RKI7&GGZ/3X*8Gj9׉@[_j\RCoĐc'¨|hU ۶;,hU~IL 4ShkM(\=F&bW.kYF]X&fyHe$p+ "Y՚#+uS-˥ UO(cc+6Y/i|N=1;~? u=PFY$+D&ZX)>@McSzO|Vv_- w L( " h7r;W/l36n?OS hpt;,D ѝ(旈㰞7r`|$Z1y(%B6_Xct{%@α7:&rx$ fiS=ڔ\(ݎŗMb=c򇔨>r'5SW#wC#Ep70Tddbԁ&wk%'+ŠTO?9>\v5GYهWX5VS@ŨfkCU*58 _IZA!?$ch_"0!S>z@^!#=T7]](aȷY+DDY*e1 UdmrQxp*y^3H75u}-zB"ޝUcIG@ptAtØ!Vu!)*סas8:Iס#~t<eEQwQ 9S]Ğ2sw\e3*wM&kpM &E%J"ݹ5% .HG/X% Oxq/l}S%#8c Z1:j 0PLˁJ< ϫ҂-v`fCQXPQ"3~w8i*B9W\E@RD+2"MRD.O+.^I/#w6j۽6EhUrnA2?>"ïuצH^#AN*ZJYaz35ܮsd=x??|+x14Wl|=E(xa9]M0Ćolm(WħOrzۆ~}w nsZٔ:8$ eY^ڄ`.=i eJRVeԻbӇ1F|x؞! su]AF $uMo o+Ā7dȉ5 ɲuoWW\V$7s*.dS~;۵3@[wĥgLVb{O%c nŋTڡsݸd{: RC{w̾! ʒ[[zHVG }9]ͩywz@'YKr4V#">ZOnۅ" oeUbgSO }_UToZOAɛ3 5{A\mn*S*yaOE)pm1mEhbUn8atq:93<ȓ1X=H\(#ҹ9p*NgE߻zZY93F-]L&߱/o(L-@6AA}bN5GFYN^D 5@d}oC1.:ېPG&h2^( )J9[ 4LQ*~m[7g2iAC]aK(biŞӔar9 UbjyyfYd0H=I'C~ iF3N9Ԛ!WYgcLEf7iؑ@9ʷD+~Qҁ;[K\Y&w|@ "(%]ڛ˺?W ƩO2 3yx}+ߚ#xLc/Ԟx8(ͰWEg^Ȏ`#*Kf ]= qW17"^ʌ^6?m#!33w+^+sb-L7:?As<є!>mr7}Y !@mtȽ+L%a"<" `N @l#FFrSIcE$+~7k"$@)E>EP`L 2 ]y AN95R6Ȱ{7'ScD[cpSM$6Ws@.z p4VO^v7r( ݄w6׫&!{B-~R}0Pf_:.KOlV g]O.$`ߩ#; ʤ n} F$LjY-5S꡸kb-HD3,8ī6HQey:NMT{&XcL~ry\@#š_kQ8 =H0(ϴd'R>%JlZ1*N>n}xf6%^oC,ȇd>LI-΁.TQf,ӕ;N6gORRh>t@D[Ϣ tJzƵfù#% *WqB2uG&:4f朢0ZtKFqbغcq!7Zq0 Lh !Sa>I6~3"y$/o-/cò 6fDjQP_;U9fNM@u0 lQtjc0-fgg 5b`rXBt#1\*VoYeOGZŚ?~9\ɴNE!r1,W,$:;'.BOepZM?P\' z}>qҩ Kn(l +4om⛟[۶4;>%$MޙUܼ w 5Pc''-TJCV42aQ W_VkY|~d-3p^X:T'%D*Pms}dډIS,`2f.j(LZ1D|Vp8ebL^Sݴ8};U'5ZYI[UH{{?1Sx*Lmg٫%8S{:W(bB➛L[&iDE^9D=܃~p%]k(9pA{>8$ÓW[xMjC:G^hpؙ.``-{;o1Yw#bw0h͟~Wj "wL`GQϩwvR*>FjlRUK(`~9U'"Lk@-p!vߟ37Xe0;WHRjhV-W?#8t/^fxv\"b,)zh# !4 )8yOZ={zm`],a  d"#kpZ^#T:A+(ȿha h/*ErtIk1i4 r:3q)lO= LE3#BD$$_*i&-ܧ*B:ݯe2iXd!|JϔRTD}g^/BKS|S:=^ 7ss&.yЫ1ퟆ}2FX_:j)#Mu6_Ϙ@j ,e0 )㧢gm}4#Eܴu&n\w]fq\\ gu QV1%t ""3)t1X[iabQk JW lDpP[ dn4 B, X>G~x߮%r o֒^/8WfKD$"[&Fz·ƶ||DK 2ߘT2N\gQiYQW*>eh1]*jxT#/dtMT2z->ؙ;W)`g=xwqc̭[e_0mPj͖Gc[P&x%%59Wc9:pΏ/mpAD%ܰ[A8Mɿ},<8Guwő}, 3UjA-(i^ߘqndtG^f*4\|(0rLY#0 +Д I(-Ԏfq)#,媆v$taNHᆲzZ Rkڤ1os> 4y"c *N@Ԓ3j>, Y~I{椭PND 4kۉ-x½Lަ &+FaK/"x$.0`E,c@+Etl2 E܎Z;$)Y'U@!Y)J.8b>-DN()vEtz6yfv(rȝ8 O-)mV+=0;FFn]:rOuȿ IF .72Ua xXN܍O> 4>r} m촲,MU*yfڊ;uU%\l+攴Rr6=5e8kmP,mBIQCPs s\{jfj8x+mibK=nfrz\@8WHօw>`}Ge{D]z6os6 W,]y=UJ1{Ìɀ v9l&g$๳U9LÁMW.2Aյ x]; e 7qd8zmHuشY#ZBqnBVKA*y1VF̬l:,AHv*,:Xqe@?/+3`v+(eIL]^JS*0Ix5YXʓp7bR e ZI#:bNvM)А#ɫ P|*gc\_*.$Z)$F7^acP̼߳;͇3T.5cq1!^ \urp+]`;tه>_&;x,F ??Z_Fgз82mխVZ=k@A@aQ-Q,;PZ'{Z19WV%%fI rSQ _yrnQF^thxo AKDQ4NV_4k9-URU復 ث$xRtk!,NQGge0;-4E&J <IJyDy]4p$3&3hVNPV`t ܓ:fG$d N4زA; FRc&[%1j`7\IWTy؊gn2n9qC [-#by>{u? (Y z_ķگ ݀޺s%هf}}Eo8+~ctM22XVhUHA-V3S27QY&51脤-#n'ERђJB30n)z ;<*`:J<}mn?i·3{K2w|B3DO eo싞7A؀Zgc4 ۧ~9 ?xJzV x)@~kpQ+@8A|^UDѳ>@';8D>+K3/ЃG!IA(0VQaJjWZFX^8K`z8/ Iy@' P5L:ep5[mt_eo^Zlt^+Z< #H!5}^g:$4IOD EDY6Ot̎vi  &!cK9&hH”vqw\#l;{3j]J2x`!>=Q+ӇuR3'yNNv@iBIj~ f¯GVR7/6?f{K' ^F"-ctuR[Re wKĢZ}m7A4ɓF8h#!R>ʙk2y$B8ļ1Zc5AX<@b/TivdZ =|02 u COjҟl~n.@gQPߢ%ߝBV ߹m8J2yor61N,% l{Epa5t Ɵt If̯fUvߝ8 pa>2*DN'-O]8`VyV(1WOJ*SZMN㍤ Sf>F] qs25CET6>frx5m$ ~<&.S ^"" U>{j܋14i.| -!횎bM'ɯ?*bllDMa,%堶boop3|LJQc2@1&lޡ;>vʲZ-n=4f t,uCaFؘZ#G lF;dl+`ὂ CwW5 LUBL"č;x1;tg Vd;KE ĕQ-Z=@xsӘD4̔!IH2da98t^M6J{ zm5+$I0 ?!ʆ:5 r8bmUg،E-ᛇ o&t jEBwCL^7 ,XlkWֱpV&;} VU=^6bk#L`0[R5^Ok/nAP%ws:c9I_jE{/|5C.GUr 2W`4PhKx0+4RCg/w㰫Zv5'ʽC:Bkg/G{:?KUJq#j{9~sX,0ժR\qc0}5߱A-w7!؂=p8ܑ yښMo VQZD hfk2"Ob'RB =>8xE/p5xTD``:m9dDuOYl/L夃1/ggTw 7JAF Q` gui4/T[f:PsN_V&QTP8ռd" }V #=Y[uRZ(̀=p0!NRT5Z~h_7AYK֬ۊ#w?%$=\@ \`<Ӡj n.Mhޤoo#<"t6^4>Õ= 6%ac<Nd!fR7 TJhX{AyI.V)h( 3 ~tF\tB ~|GiӍq/sjOX bJU&UA14LK"z%&Ekl m9臄yb!T9BGշ04$/YYUӟ3ܾEmknlt0sSdp-Mͥ[ LA[Xg(y2\6 .(B&}д. J-iտqjo{֮yD>Y*FM4E}&|Ӡ]W˞roYr3u^v_8v҂%8fX:>_j$,~¡^{iE3WQs(k*[sЏv?Ɓ̌@z^ Gk)i1}D1XX%"W2@p'a1Gjdh܁!8ߖCSp{F sL9se\혢F8͐v!-~I?*>33-}[霉W^nLSǢxC/ SEq?o]VXպhs 0¡(ExXXeł>%bXm2MBP xu TU7S'X͎J;D wk3m}0TEG]_eHVڠO*8O0hSXl @.J(*&u}C$T8#BpD# v=h6GZ#MMwxm?a۲GKj)wyV$;DIBi\Wko׌lגoKI{9LZ< ϭLPRSIC'?; rf ym"MU:~ ey:. s˄+{聊F?2| υ΃_8l,{Z4N78t7Y.H?(F \?9/nDd*  Pv#aZRlf}qۂqt˯D}BK),F?BtaR"eb!ʧ9m 1RS8q 26VS/_Kԅ~x}xg$t]شS/C&3FZ#_0 SHOC16Q~ZL7&E#zMX$'׻_ .uos*)Dكɢe& @D4)x!|(2io&V 0<<2yVƲqKvY c?u([Ov)L aȒt4xG/_~/3V}t9TjkƯ夋K8-K`6x?@Vu+f$6ꡇ :1eЁGخi,c?z?,j`A"wpWL`DcnԍA8Cl<-Dwd=S@{b<‹цMwaxk+c"d^IVzޝag$O5Ip#SZ,9e&_Z[02"̀%bպO98AFD{4kC89'C}-&VV˜A:̻} Qݥ|vu }XYɄz2)a;_Pp{M̃\™ݽ}a\&{m|L=bnvhl&6cqb5I8jyftS }չdx{>ʧ'<t8g@ hѸ mlb\<n[-rtd^?vCP?"& Z꺟J+4oI'6 \Q[NX&nQny/գ/*1l M͌WRy @NAbϻq7v$%^׊R ,ڔa L'Z=ђ {dtiJ|AcN+Z 1U'VoiR"BRD)dǁ" f&pWif>)CR%[L09^^m3? 7N w NaLuA>F0ΟA_ю`&gS'Vp#:]z໽oYly.gdL7te=AW1C)U`6i'g-5࿚i%L^7-F !Ї$pvO޵IK(sZ>|~hN#d5P&w SӸ,W$Mbn/cj?$gC}``0ەBܚ(TDW㧲`: Wm$T(`Wt'޵`"6~vѼEc{!~R 9;;E؆ٟeãۿ(Z<!}///jo҈"j~x%{*`tk+3T$I'0e6:9=ܡ-hb #,ϴolKxVS~~TL*<,¹`j7: ϫX,>'pz~^|=߄ro)$?][0qY IxW',zK`Y-a$G}a,FImewamV_$Ww635qmV|SdL^h{Wt@HGL00}P Z"ӚPLS3Y#thu/ʊoҌJ)Bϖ6 jkK1U ]NKYL`(91o.N+*G]HcMr;+-ZF.#jK}٭lxVrP:Ѵ Np*tg# \ AޥVmS>os H@: +YHXwŢz;Y-%-"{OC\\ B˽FrH :"mzd8oZd\Цec1wexa#zg髤u~|Lt)掑a<;j􋴺XH4 &-;ϡ}}8:z+{-{E6RZB]ArEB\fE ǎ:dKli-o898agrPºtp\gC{ϠQl-G!_3Y?aI-̟lӍ *eHiP`ͱ^ƾ)ֆFyA NyFΨ ']/uEu G`*"Fguwf VXlT/ȟJ3# \ 81  - I|̺ (.h# 60βMx/BX/5dC86եTY5I w[;\j/G, W t mZLu&F?Iu5մL,^v$n" YuqȺ{d?sp=0_7nRbUQKZYEEXb&+e8 kJVaMR&NnR"ٟ ȱ# VYӭOhUb*Sydyu{p$L -#@46^ِ0DƼ8vllaeg6@ A+R6^1w q-#3IniA @l3ƜpJȡ{ 樹vؗz|rNcz}%f^9r)7#AtvKWV_3=ޯ}_ނ;W͓<=nǵ:j^ Hyˆ&>Wa8PUY~5CezT30ݷMuaۿ k+SL!I8`̡đ[Κx(U>ب: d(i3䪌X QQg%[!ls5x?0EAu;͟+jE3⊛QBd7n+0^!KB*UaD8LMjQꍱ^WSP?O7 ( N\4IA< dR([-<ƼOs.`# ~lbﱺExƦچMv]Q:V%˜W6X/|@8I[A#PaWU`kG. GłHǮx-˗n]ڋjёVDsxVj]g$]|X&Wd Hȡ'[գU] u?TtZ-_Yײq|:GƱ;Vz=l3ms M$v]?R>([kN@ B'VXdjzщU£F *hj<tmm?1.f pEu/1J_6Tv*ؗ3+?)'QB;?17_>FU?;lS7;i|X C#HHmάci^k\M@¼YpSԁy$bq8J!A 3-({^8LBoZ7$ 70äȦ4%%~[y@BT]4<@7BaP !Ϳq=Ax\΢ZÝA%:j[$/\؇r|6RS1aRPFXd7dLNnkpbhmKz&k4.=؂fQzV[)D'bRr(߁[CPI6yC'.2}KdGd!'CMXB 䴷G1S؜1K9mDuy EA7ٲp\$v8>#M~)bVxT;m=LgA}6 >Vw;:WD9amNl1)ra.*Ջ%׋%yMaAyMV%+c`O#Fz-5k1t6GJS擈I k1wZꑽ5xE= oQt9wzzCX[T}Z+?gdxg1ڠ!}Ӗs.Qe"ANfEBnw>t2}g%kމ(BI`5Qs~"Ǭuf &e 0rkE +TԓaG7顃^,/fEkaӺ!iu/:<͖GG1Rff_!Լca]SQ[^* j߀͸Hn1'D䜡{Q/P*q/asټs:yE#j^3ɦl}z4eXjRЎ3F+NU\Cr?, vRUv$=}ݫBF36e?>{Tl:6vT7z#{bv՝%IF-!''p*ƸK#K]%Ch[Lñ+׃N'fۣUC;j! &oa*Ղ \zUK(L毤uki|},;΁+ h#E[/;95j\dz$)!ͬ A.~,c=R?a >t\54[*GGec,Kg&yR2h𿮶(`!Y=/ 1bl!HNȀn3 ևTJ2]yc)^Ʀ '[~:Ո,=p8>sdw?괇ʗ hطT$Y2t2rώVԢ7NRQy %Wp1"Vkuڃy-?TL(_eP25!!!t({p %ګpҞ L~/{[QćaL 6)Oe1~ c/kq ubg"(`4zs+cqZIA(]KxC9VA-Ua0Y;*)6hSEsSóKf+OLT#&je=2&h$<DUf+, G.Jq1DbdE/;+.P,Ag(f41M˄JVY@ͼ+c.ka$o$z׀B͵=}USA>Jїz7~Ir|3 [T/b|yds`B~e LQ`=]ރ;~DzqښCa>|^! \8gm"c bׂxbxxᧄf]+DwP7_D<`jXk4@ uUkdD|}8yU}չ ևߢzǼhgϿBs;iKq0K)ZSAbiC\L2IT1)4|Oynn%֙aGqyI JiA#VPL,fZ%?BGǢܖVe0Ξ}d? D.јoN{jˏ iҼ䘁Fra[=ǻg *H:$FДO?r"r v-)L/H8o-IE~iZG>5,AB֚ ʁ.\=U\Mѣ´3~ޚnmaENA~`5_ˏKk![ 8(5"Е@ ~4vtR;9h Ƭ]$aGز_43`6 ?AeE`>Ϫ<;<,SS""/RcƤ8FP:1\%nseJAWCx8D"j8տ\n!趿2$|S%}m!S\}H$N9onO^7.T ݉+[,ݑ[עJ_+*5UlFSqb!P5mԿ6йCNqd^<W4 )6t2]=^#+D/VDKFT0J \Ϫ!ȽFz'G4i}TrE?n&T׊f} Fo6cVKGJ9|,~=I^xWKps{x8#=Nڂ!e)F6nnԼ{ EJ/g1'B.默buvB'(ҡ:X, eZQ&5Nl!ת?Ic(1 EțUW;M> ]{f'WhĜ,HW73h2k"`u"8J $&Y:Q\oH[GO}U1}4j 1Eb~4ADSΩs=2c0By&U64H2 pͮ@׸ ?<ÎM+6_jR3TU5NvioDӖk׺&qnix:b?D zni!'=\oȎaxЯHr;s֌9\CsyNfkl_;cdžgAmM!?|]FڦG!ĂOiMn)GS`=䖟}E|WĨg 5jmpY;$Ki5ж{ OCYGϲ/q?n " J6dHtd 8XZ9:WFE0DXDj2K#Etʼ%'w\j6SoanA>aXiI5?RGӡ󀕢b6cfATYrM@3lHIre jXWfFt5W.T툥LɟzV6N;oL_ kwJ5i뒝!\2 \" -߀LÿO1G ZKXln(oh cpvXJ*VJ"m%ݑLpnsM }Bro jQ1:>ۜ, HϠ!ÄI,3bZYv?m^HQơs𑰀 ~|:V|rށ k@ 9ۋ -%8n&)&tp9xWtZDYCBdk-Kԧ$WS3xU@5M+C"aHyRQ  CJg&ٶi!յ'ƿ(g b{hFeySpv³dڱ c"Yr/ńt  T43sBL3WuPJf.KwC Ygx)>P#`àq`RJ>vW9!a_k%$A]q'=0= xo Ir:*qǢ=&nJB@MG xj; nN-~Iڲ!9y-ީ~U<q(x?T\JS7P[պ]p=d徑 z[2IK_7m-2T'RvOpPʣ-^EfD8=E}p7-~L{[倰y&[g~&՜Ձ"*P^?c%Kц2 ~;ZjPwcom\=q1W:9WWpܶ{ҨjKoR[YEi 3sLdȞ#|"tjW]%ĕj8(zōZF8 ^D9T[6/z&i̥2~PO5, `>e,ބbr\ͩH̯9t|8 톸;dYEVe*܎5 ePȐ=T2D-t^@agG!/[u*h~W09Y o},,Z>Iխ@v)'hOaXE[{׭teҋ%©SJYf*c<GfBdcc_ ,O vM.sY 7;q_?gJ2qZJ+AD8CN, d vԷI6^*rGeu6n7)ƔȊĨK6 -gsJD#.[ޒlo.[S#_nOA?V Fm4gN* Jp|#{8ޫѕnG(+Ip~ա7ʇ-fq0CzX.+CqS/G7e?;v='atF2>è8LJKV]ExY7"8 ~Կ@ Wܽ-H|V4wSmQn(Fw%kBXG/q얃Y3 ~Teqq=zꓟ?I{Fl&*+?8GO28YvP~s޻ߛ%܏ACJZ?ɪr|z_{2jP>ͫ~2gϯ >q)2ԋ].~F?y*rKT띢K>F<$T8=??7{'^#>-93|̋|4\a)V8zE7g~AIN ڹ)I\;JؕB,jq`lJenN*^7|]l%\T)7|i͘,ёfE_cjT_%bٰ"mLwqK B :s1–%bTͰqM*۬ߐsal31Y Qa_f/yF+rf $l-׬@XP5)4$tjv%]mVͧSiLפݼ1$=xɲrESp.}!.ߦO_w5]aD3" iᆻ^+"JEԮg\~t{N-Ľ;Wctawd$..OJYk8j%jdXpXa02F_Y\*㇖t\VM]-ߦx^' v)+:;fV@w̷Fz}38.c4!$\S&0rnJ2gE6fgiȚY|"A̷wR:Ϸw+PrkzY{fT(OS•Y~o,8Cg|hޘxEI&=M F4Qp vg$-` מL)4BP;']^$"M51M^NOJ~ZBQzݏ ,K-e[m_j}^u6 H>iOh6n %s*Q5}}RM9W\]5V4|he5x'19t[LWunk Dz߃G<%01$D/( A(ŀR>Wf >|A5xg#-< d`~G ʏy`F?;c1 R5"? ,f5Jlƅ_Sk+BxΝPHZvsX ⚝i wـM#R5 ~-UM'K!#%tѓZsJ#P fM" u+o:1EN?v`e oeq# ԍ&(v>ѓ&BL2ЁMx /\5ƌR_ 3@9O1)J']EY{yV|Ioiڣ|$*G^r,W%(?yPRGrkTb2_4=|Mc5+(lj@$S,@ui)7<\[Q\vf#Q HLRcE[\ކXݍBW$>d2}ȺEw7{3P%0K:PsmW"TNgK1be)p˳(IS5hyq4o)mc~ I:m9]ޯĠ_֦c ?W8cŻ! *G7b!_PFļFz8 KՌ@nw$%BN]@[RT.*OYm&Mp9PpH`zapH)sGdݭob&X]]}Y݅"ؖ53&ΩȞbd'ɑV8 O̐cAyvĤwu[#ٜ0'gZbtׇ`Ly [`~0Qm E"XA~|_ 8.,j:Շ@}6Yx$7eEr9'a}tqr(婼犜e&قmm"4чb.E>]^5=i@QEHTV Thg͡&AܘS5qK|,ɹ= ܏-iBD.b˨?#~b!e`G[<@+eUd̜AZu.pam4T*`:99 RٳVeΠ~pu 0}<$zaU٘~i|N}GV6tg6Sxk쁨7FU˟_y@f^8fjOzkC0TdaUy[F&#*e-TvS< |-R"ԡpغ 8~QnANkNN*Jv=.g'KH-A"gR1uⵊqT{dZ0p}qd-X؂;gQT R%x(E%CKsNm\ocUy*(ъ`8i4u KdUKY,͊@H(k#p1s)Y~*̊U0JyNɫRS' 2g()1MZVarK-~yMgEldiJd+e;.I`hNUoOX|eGr5o,QF 'dQu`;fb[&zi9ވ". cśCvd{ZC:??/UȞ_ڷŶi* vaVeVnfKX 5c=Ql?3pb1 jD c qnbTS^((߬#vq\Hbs= 'a8@zE'O`Ӣ#-6z;#]ȆVImAX5N4"o:MPiնy`{a{V[G? 8~+&2ӿqxo J5"h8\Zҷ@bkr 3uWO1m ߂Wq>f9LM^1]!bM>T|2`ᱶms~ ųĽjP:[|$Cjqȳ~P_$]7[h/#Ie3u]V% a!,:;`]._fɏU#Y3jksAnC<@P\PSt]g PEt(e[|}\Sun%oDqdKg@\$~f}=bBf!NMWܚ>qq YfՄHXՠYRb4`UT4D~/S4Amm.,I+g+#bPs7Ї6El-l! |$ri\\eVV;;%$٨*6Vh- @> N6c=ZVǭq;E(|kZ**OJl=kVc1TIdLS#wS:7ќ]\9O/5S0ℬ#o"sJH4{[ n$13Zy'br`:ō z$1< nif~iK*zݢ4"/1x~I9ڭ!Nc֎mn0*-FFTan_hQ¹T%k9NTmRCTȖ|*ꚴ{ Ȗd[=Oho lb/ATaj@DX}?r9Іocӧ}jlzd ^{V߈WkMjΟsC5(Wttu-+GbpnT¥xc0סmܬ[//PJTr=ukjA|?ApU,ԜH\a0: &y&=wC4~B+36 ?u_WEvP+^9 ql+8cd%`z1#qU5d𼪍g)Be$GyHn'/)f1@JߝN*8l\uP#^8uQ%OW ^qxsw  +QaPZ8z*7LJ]4Z|3)#)1a@ ;Q $3ZClA'aVM#]ػN=lwx$=rzQY_MNg2+F @,c&F"2Gefjn1 MjXtn(bY.MqOP_)+ម-jd3S8x"TЂIsF~gE1 li*+4,uX, 2~2( NϬeҸǥ$y%ӋHI'sq}n`QTH=dei6xfO~On P(ޖ+YfS"!jW&`LHt٣q{z!u<RMR.Ii)kojp DI>'\ÓZ S%y7m9;oVOSĔ(Lֶh~'G"2X,EH\YiےEx78/+娩\DUMHVJ(,񠮠,S1|-QЋ̆>ՁeFZV `6s\AK{ N^ʁ[m?w\/z!y!ʴ+vRXd~1.$ު6P{BYh:iIU,ou; ZCڹ ]܌t#; ' bq,fTQ8,l'kl 2A] (Mm>YCebڿh! E"aYHKQw>N~b֦T:U`w"a(;0lmQ=jcf/4(,8 FכE}ʶ@7ެRn`l&f>K4֏tBig@t[&>xX+ (O͛/ro@uh4pisTЧB~}Mje||J7#n s/x9ZN=ynM}4P )vU pEC'lJȐl+J\篘A= uclE)w, RFWޝE%@n4y@fG DyGչExB!9K/|z9g¸vyGTş2c>Cg @ ,Ƿ܎QwwMuS5Hq ]0 (CK}Hb@Tcu9ٓVl?:02@ʨfyU?Pm~bWB}WFM׭qcHJ`+~n+#AO v2nbNFB071lգZCDK3)C.C_0_S3H$(@.{Y=Vu )~݁],^㾠+TO\1Lsh], ɘڷef&{)0q!D ]u5mz>_氖!RIC{Aa`(Ml`}6* xdB2 J)F=ʘCU9F&`m>0ռ'qV+0m2x<+WXNp E.gjLљ}=3S ыUf"V2PȲ_"/Ἡ5۞JA.q;c tS{o,RK7[֪ LvSNy q:ڻ bz13EvyDV(A5ǭ/:v%8P;fhRABw yG,3o2@( *J)ۨ07rն4!o|6j-ڏhT~9Xxd@u-US*_gZ fSH'E}LmSܐZ%A Or[àlx\@vmI)U~_QN`ۃ=GĂ@<.j]<Lf#]o}b3OegbX DEcʷ;/u[S3 Fh u1$M?d-C jO)%h֑֑xx2=ej*ftNHYOI,؎Qڧ&s+nڡ 聆uf6A}gih@)Krp1^FW9YOri ɼ(7"MA~DYX%nAԖ`Ȩ&D`O_^55[Mp鮼cl}K&Hg$ޮʠszL@^Ʈ.u4%dEKd7x {Q%P4 _[<{ }ЖvY*.Aa h>oCTFoi0Ł":lYTl9⒩ON@^$/?@ƹ](0lT=YvfZ۫lvyϋtOYR5hZ61<Ql~J 7iJ;+SkV>pPBGű|gWeG3{0UhrC(t5 4XRf?dT%/rbS ҫ02 E1ƦdjK!p8^؊xAmd5詩mU(+ȀKiSMwpWC~V0 V {hX~-EZ٭ !L$X^Xg[(2yz"1k1;a^dX7(tb#Q6< 9w9S0[EADݢ;c',٢Egi}܆cж߹;IBñM`베֞/{rhkgCQHog vڬƑJx&U٢gGod Pg/EQ ! nff۴y]I2,Fݖnb8;x}FoHc@~I'[ ȓ"IlΩrz'=I\5n33`(gxԉ#BPl˛MGjAfhnM)B獨$ת`v9>h* OQ!Bp "WWEhnd[vp…5hW R`D _4(NJnMo'GC_"lO!$ǡe waʝqxjZ.?1#v$!䃟޽Fu[9A_1d tx.アqbg> ^؎†S!WD< I ]!ik*ZVư ɜ8Xﳩ$2n7Ս,}󁵈Ӿ8Afv%R (Ơ`5xqDSڃZ4 xniSׅ0|59iǤk g?\P>udOmfvam4af4g>=^$lE~(_C.4X8{5mHJ:Q~ Vހ*x lv+P>=Th^ױB꫍Io#DBs!ѡŀ#.f}mq39* _vݫRf# ~4*Wg=mIdAքU䯎>[ajVɦVY#?{%y,~aUU~^'˥'E.s'3yrXcF2+Cc^Fb;P x9 )gF9,in`]dIɡ]~_QbFG׽{SLYNǼK+p;[LNx#S (M#;9[5ogKrd|̀nfY9% otWn4 B0GuEgЙ}eb5ܛj!Nj N/r8kGe ~6JgYmnO{v\kBȩJo`J :Hpvǥvħ<ϾUs26hbnF@嵷e{WvoXMn㐷eL >@Hʍ(=Z`g5fQMu04٭i J5@4(rvp2 q|8^_="u>.-`ї3QhLgS5d1"+qڙ!1 (x/|>8!38U`EVˀJ[0pW:| Gº]Qs1M!?"φR.P^jwzՑD_X( B fs0ami,yueW^H89`WSݱ$b9 T H4 mRF@1,Qd9L(ʙ0z>dQ`;)ڧ _j2hcpz*۞UM(>`OuZWN:1 TW¶URCة O6K@CLKL7ح:x|Gߙkn{MO\6Xd[>_CIŘ ywk5AP@sDpT3YDm+BV~%o]1U.U7;/&c|žԿvg{k֏A 7eՑVdQ"hbF^,#~h@H<2@ڔ T5깱Б/' 0e!Ƃp”=(mDhq{vЭQ__ޞ?s1%I3siJT}z~Xe묾:BOĈf<DCX7 g7H0^n4/8[I q}řSPyc+uWY?VVzpr`-hMAL =%PR/j ki7_.Pr{o6Y/ !?) UY^=h''O#7tΨA bkW=sf?Vc7\p4]q"sǍAyO1SX*r)ah6~_;9] X( K].O;Ϳ3FYB`+!~$CVOD(^~QGan4XNpܨ3DUSؒ>ׁcS|0AE*['O{[*7JSIt흳ybb7c2!2!rюSd}T i ]p|"]{z9OmNm&y~wXrHV>W67kzw M@00rl4خYoz&݊p3ܤ^o4s3p8(5o4i v,HYl⋾ei()< ^B0U\z[ աlA.u&ئF %8?[0J1rAZ+ǂYф2N2Θ׎/z"PSJpN2e6"-1$ 1?H7hg{ P cϔFTf%9fv`nTowԝe'o:`~~O1ʩ"Ӻj;F[܉l )Iljx~ǹao]nʹ` n ЮxO,-P3 9_|ޯ- Qz& =D!J^ŶB8x%&6kkȶ`SL²[S@U \KlyǷ/56 /KL} ld?H56'3TN3e}ly/rBuΊD$M F*У)•DSߋY͢iЊLm`>v3= PyVO. -om C,fki,5-?-i_w˞Η^UbdӟG\(}v|;70*񰀙ZTvӆeTq4j |"l[bɅ,]󀀌^ 0~Hty.ޟք-'-Ht Yf/^3euoUiYFCQ4굒۴K5k;M6/b+8(4PyRb]&pK/vW?@W\FJ>r7ep5f:*_wOzzZ1HFRtRM nV^$hcZaX 9[W@ENԂ;|0KM̓k݅;Q3K)G#ƅR7%q2]^9vlZag4A*^Ǡ/ /wEՏbEJY,9R[~qޝE_nKȐ^5R~-^wMFA,ynXAܵn#ʟ%(jg+б ) :@J?vPbegq(Ε ]*Isu"*D*=EdWVFeX?0 !ߠiEp[i9U,U! a6:c$mn|ci V mm[ƯRKw;'4A;'n;6H<]t{ 'ZiSH2S3FQ=5·>a::!59*m52?=S^ŧ*HG$إ.w)׻`+7j#6)/%/卺Zs0:d >oΗkO<E|ĉGhI'gjP.r[{i(0wA2OE _oGY%BcZA\}U(+kVŇT~0pv£j%;i]64q dAoؕ]a/|lgҚ٭.hӻ%z܅Ά.*PgS؈y)ݏ >ټh# Σ k&mxȥ['fpsB53eo~.0>޼n6G-MB̏OI3tr0U-1 .FV`UJBN^h[#L]۲/|^Jrt%s2ۮS( E5#p# -ч]ͪGe tIqlUdx HKȴeji:*Z(*jY0W&bꝳL,#G=dpQ[hzhd{r_j.ISf}Xԧ?v.̷m֟/Uo#n PȟBEhR>mexHlXVq:MbWl64Mu ;ol')aܹ>m/:_f/}Zͯ\C8"T>DW_x?H1ɰS0mƠ\WW$h%^S U󽠦&67 uetS| U,S{5%]`!=6T:Ump. ${'c*umYsPd<{5%wBp&s}1Fa+E'Y |P?z99יᴓ"6S`xS2.JC@q.x{4U婀]AJjwMrq)#V/7A]'|o&v("Z/f ˛xi8Kux֑슍.R:6L8vS1wJ*7Z'QG3^N n/2\jvOc֝<@fT}|G$oco^1owkM}׆sqޅ.,kzlY9~\Ph>bNF Nʮ&,j$^bF)xzMw%4h+84~e$CQThe/66.EFxr#\q\q(u@~r \zhCXwFUV]w7k8%:$`^c{MLCk/wl͘ y2 `C~wmʂՄQeb)Y[3W3Θfs\ˢs#D1)9l>wD_l!p~V&aHI @ؔ"TWƌFA.bWE!A)gW-% dƽ! UPsUë^Fٽv^PT L$P} )t΃x*S]c&WMX~L_r܂X!IAY]  ,Agի;&~^S3knv^u)Jmfk/fZ5M ee0R)3;'a=;R `ܶ>;k)JEBb i&&vK:J66AIʲo)zNJA rt( D&U`qSFn77M"^jrp8:rKmXhO\2w=;҃C+^1h\`̠:g/#|]v͋bK _ޤS]lul110ǹv0~-*ՆQBgv#pbNhj*dZ-BC 9vipumSs.g\/жKSc n X|"aw -= 0u(Tyid=]);~[PjP#gsAfP1}p‘H~ L)@e4V%0L_iٚ[ARo S&KClJQ'!pњ*o| L*sjy*s/ L,MYjc a`"'LYg5~k4˘z6Hpݫ'.(6c #F,h.Kz-FbfTExGU2Ie+ǧm 𫏽3zN / SVox 8PE'{ey'S fǑ2U>,SWL8EnһSϒh%m )S8|BDn5wGo?@>l_{ΒHVD?+wթ\?j@_l=+%Qc髹prS4pX/?KaCDHu nf%q U+Hܴ> w֙5,8I/I0 xv=.;cblZ:ehb= 8!;P=^𫕨/v 䍊1;K٣!Ϣo)t8M+ Hrmo)fzc"ZߏH ^BKW7qb5)Y3 uTo&CF#kFP2eYU}` _51N(hU1Og(9نĎ0%DC+Qq,)$oEs9T KPF="b5uR]1XOsbR=+5X@v:=k]M/b!~q@Y(1]S%jqL(]L]ZBBx/gV+^Iw'gS,AKXI=ٸ%Yiܢ=j,ۯҊvi('y,f@Or> ʡAFWHsd( %N l1L9(`V|nV 7 WRV5wc&(fE;5TWۧd)U9e~:6S1>+ YKAtXgrhnY:/7&{|mbEDLI(r9< C-3m=rr}9wsc?/,Q)=~OAҔpr,~)p:z֯ :ĎU6PpNCP 7E m#2uW`l^DoIfK gdDoIEÐ,hb|A5d`, M0=@&zRĸg`8xTh8L)aĻumwI uC |k(J%S%axmD~zq_kY̡έR9bNϪ=/ 0Hƫu7M0@`V2t!(]4uR'.N߸-5'p 'G{#G`HW=w8:6oAXj]f0b^f|'E8Dd*4_^hߧ'zQr)Kuw-7 R6,A |5n7[H)\k/fDkCB,a%k@xL|Co*.ޫU@^zh`L(X6XE2FqP>n2b'\:W$2HES1;"r;9 rJŌѮߢGDS'Q..ѓwk'BЇ w{TtWN|FF\|ܴ<3OűvЏ'> OzJ"iz) #3#k$ppv 6`2콥LYh|osf/ ke@S4( VM;PM}2D4-EA1?P)zc-J\sҭN*l>uOD:bKgf;s3Rr/4F,P9Q*ءۼ%7 ɸ!ԎYkeTٲ_Ovɕls|@#ʻ mSK%V^ǘbO s++?-wNFߏ1a ]t>@,xFhA "x87  7!Q̢ !3(Gd@U+L`;/sYUŘT/oIs2P#d'DڊtSa9T84HBHjtu"{"9{u4 P%Tg|Zo3ݴ5@`q ӻrP[g&k.:D)DU)O,PM/sFTT< &3Q<;)]TF~#GEkyo.!_e97|<–q| vw( 8 [_Ԣ#Ѣ!SN#RbLjtQKv(#{UEFF捋cg?4IJiQmu#?Uwr!6+YpiWC~{/PfvI8R+v}Foa"0F`UIUv 7dnRF@_Ϝn=$m4pHgl+.X .Йr$#`A{/DaH z~se"3NL`bwIn`,T<)7Ro| ](CDK% /t֪9&B#E6ր^uؖ: E8nUKpTJvoL]j }m%DMܿ6W T.q_9ͺ2> u֙K@L! \M./.Ch̳V־'D&ީ ~'/M\զu8hw} 9 @V]Wgl{n9ì3i(ZD_I"LY4'8 hK,yŒQ߁hM&E'ƕΞ%-d̻Aᇭ^#}}oUbqIf|*IA7 g]Xӝ.cu!_"X;Z }# 9g+3 |X8g,di`k`1!иl3#ky; :sP 3Pұ-K@n2^*=M<x?k}?#{AM؄@|Pu:"wƮ H#S+ug<:[ljVI\x-1{drZʹ.zXF dHGxKpBzd<E#P@cDn\0Zߒt{TX|M|_4Xb$9փCT YO;RTuf}| pbk|ƞ*u|hu 1,w>X5"3]iܭ],|ʦ)Gsc%״ɐ { @Q#1&H'9-<ÿMF`G8t:r|ژzćiOjt.6dҰ>ߝbؘtYB=*# !;PqHS\n!^a-٫^Yx5TeV䠧rC#!<(B:xK> s l*H-0}lLy@4B3 }H$4))\Ӻڸ[+EEB&qydWѵ>p*GCT봟M 'p ׁWO`Ubvi:^^y߬JOU:˷&h 8@&1i])Mӱ束!W^ TErB- EPNP+hԪyS޾`iݮڗ=F.}IYn#VG+IWc'csh^!|_tPg:*YU:߻ˁNϢӢ`lx!yvR8O9 D ęl΀> ,S)ÕV) li0ЩGjemR 4t'N(1oX|q㔡nקRң$h{5;!I:2|GwQ3L1c?PkVVgq]@#BŐNHVj@NuNt!3JЖhK?4e wӖ3l,h-uukE-Rrq ͱڃf)ԫ:Hge>ȱ+싹o zg(4P[wP"\e-_?tú-%*NL97\ K^=gEKЙ{F{w&<\& P* MEl[$%vxϨL1MV4UV Q RZP=y^P3}͑{L75x!gq@0YYHkVXj{G$fװժE RgARVa|'6oc{I|d^ Ub/,J*nN5`D(<ΒMs+9[82սe_鄫yPdK fCi\;LA4kAn2Z>-z +PhAH-1JQ46碻f$L c1L1O3>O<F?#KQa{&88ۉ]kP@ 4qʮLmK2[H4M +]RH6͐ߊ{+a\YKⷨWp{޳Uų8:g7zU9!;io֨T3o:֘sP߁(a;12+a =w0{0p43I-S̶\S|r} W$Tlۧ%Yv!M`XS1Siw(B =d6HԿj",jzmhUڛQ{Dc E%_/%wi_wUQdzWÇ1`M>{M9y\$02۵ ĺegR:)쏗B|&i1zHlY11ߎ@kcSW(l|Qys~FsGL]ԭ7A*f Ύ]bկzke$PRTR--Yr6(F3jZ\w`¶>yj6r<vDqoχզo8M ϙPד41=8XټJo[O v6'N:up3 K=U+UʤŠLQ}Cܨ# }1A.`%e>] ,8_fI9T6y"[]J8{ҡZ\vᒀ` ;ar=3 PV|۬@`I0< mϴj囅$t8V9fVl4ef(FA ssYS9!eJA: vai\V}s!'g "EĹƂzVzjHAVر{yݯTF<8Ma*pQrLWKG }O@a}߭jWFgĖɒ Aqk2!z:mF^],X{##d٧#Æ&b.rHb(]&|ɄoxyW\?^G> #ֶ< ~X8@#]bq3)ńxB z5ǡ}bcV)?a-ph.Cþp-tE<<<]sh7>qt4_۟zLp\ s` F`c_zAm^xC[w4hQFy>J 2 n)*8Wm+xc+y+.q-:Բe8a&ƾɋy G\T0~7Qt^=co\!zfO$3i~I k09iY B'd*:Ihs &:#,3`Ľf;Jb»faPʘҦ)=Ǘ|̥H?|{>/Kێ2!F ;ҦG1ΰ`>) j@ЯU E?%Ta TW; ؍R,f%0_'wHxbzޣlW}.8^eeF&Rchaf! lri)6mѥ):94h[z@-)?^%܅vˤ'>29ЁrH[ ON?L1D$ˍ'꞉34–L8'!ϝΟ)B?j3-ag!Bţg`a\.p2uجhI:Nz%EP'˜_jyGJ7ӜA›uProHWH,(ݛn^r TCG[i:FL,ABOJ2TxzQscWf Zm^9Kd974$xi$#p0xQy7 zX6UL6+8g sf@oy"I/΅3XjDʜdZ?,4X`v%ˤW\AaΧ,l"$k I [KMg(^`yUo݈{Jx<&S(Lɚa1Yplg rNe*-\wFO7Mȼz23S#->- ̓1>\53-yH?In rEid! cj|$lޓ/ŚÝ=_{"PͰ\?cGjy1pNK4@\T`ujvzv}O-?Ur؀V vaq} og""s(~yM2N)>s7'5fY ] FqB8wd|T1G9-+ ĂH,Gie_a$I߅!mIi:e,aGTfJdy3 \KR }<zF'Oi¤+!_l#_| bC//u-؝eT#Q%EءOm 8eCBUCH|Iqa LnnZ&'\G-6kL,-U]&ŖU-UK܊+9өvCw~T%%u\H2&&sO0"vJUw}>{(q0:'vjft!sC]dgt6HLDѲ&MlᯕCL}`GűD7)χ2:_\o^t- SFR[09 0ģUg[г &d׏)&S@6S.q'֎'xRxaWr񁿮ic"oiAf)~i2lv iq}ey)ZxË۽߾@VܞqQQh9x)t}/AçJ[(i%N/^'=91[ جqAP}; wcF99uY==js x F$缑AUMr-3a:p .Q-rǩ`73VM% Gz4u ~ Q}Ht&ǜ6VwYa W&tjajʯ@>k-gnbP&\j|dP~iYm#J$B$frd7djmZC?䈓74kbUM %#izt p<2fx_ofeWJj\QVؽԆ4&zb;#$ I.yj]j7q%~ H'Ȥr'O9 QYh}xu< W8_d[uMɏ?D% cD*#3@U ,BfeV +O†ƺל*z|$haOh"A-Mrw4 DҪ娧9\Cl2zi`]ꍩ贎GOW|Pݪ>yVJB͠f Pn);AC&VfaTl7Y.`̩r5ߋ~NPiFjh)m!1X=Ս]0%8FX PB2c]?sIEZ&t0?e ̖̈?c2Kަagkas)|A˃wD*d񓨸7mKzyK{$ ?O?z uNHGE),1׹ N\FSMLJh,و$I\2>K5x\yk؆/~NIϩ?JqEAѣ-f$ ?]ǖCD aH}旳mC洇U,Я8"^ NmfmPIUe^ K7C2QR$Q,v)Ku^u\3?Өr){Eή;&7l۪={"Jy WlI\2&)V޲O6sAJ[S"J9&V~x¼\7~!:$>`KFGVn; rRIW |{BUDCPvB #(bi![E!mq12Ͼ m#LtLkbY"kPϽsrҬO![ґ/5AqWEHI͡5{Vp,To}v,<X=o~W} LYL*5'%w!\%n*m|ʲNrK&&VO%G,W3U(CCSjG/9Lҥʍgo 3TCطB2J v *~jn rT9Fׄh; erYkKe0y!zȊh9r$vR9sIL[6pDh<q ~ٙNfɈ,h2ty%O "fk"Duia =|-RskhVsC}av Khy)=ڔr{# 51,ww+~"аhoBY1㇥ ZGldcP[{]Bkug6jATo<qMnV &+.~8R#,jcmUwm.͊**6,_~=pu%(bA?ΰ}[iu) ߲B1R_ $%eaR$S\If7Eٷ:rp@rGTSp;ڵ= z mI l|"ZpFd3Meӑf0#e:&st$HskyS]JlTyB?"zTܹ*=CTS'ۃWmQrR5OP62Fz2ϕ6&'ydLڔI{1"A\pӹMy1MVhy#/g{0쟜 h)Sq '6@@Bเ;y~&;xسqQsgD7=!?Z Q>9F5=.cWԾTRLcicl|xbI\)J\UH.b)^MݯʝgZv(zRG*K.Nomlc*""~(x Cd_rBZ;U4z# }!0KN@ɟί67=8(3{MyIm'XNKp]IL!'XW1[[RΘ~.[hl*KDQ.T6f;bʓݼr}SDӤFb}kQjEl$F*{F?+!RyL[]ynMz]S_'=&-*5yb ʏG2nUc+܏Uǡ:dtKZd,K(N:jI.c 88P8zK9y8j_igFObՖ$Q&Ių" Y.ddfܤi^Y'ޅ?J<_Ed/uI/U y}'Q.1c% .KDnmrv4Ω0ωɪ06:~'U}g@KHV\0߯\V:v|W` ZZmYɖ:;j;IZWoP{o[3JUOjg_*9CWye'SP]Tc5_sIrN@ҽݜe I3ٺDwgxSFߪθ50oÎx4Y° ZG~%;ւ,['Zu$;^D:(ؗ6Tc3Frg~Ey(#ĺ=_qYo)!D#=iJPS<&:[dlL=+*3C#* W"2AG|;.[VkG[HJvЉ|7vm_ʴ/IJ(-S;u)gkk&K8aj=x[ΫdDJ={;-DUЁF/ߎ ,e|[@:cE›ڦ; o@q6xn>YV<:⽖nAz$Vp|\/XR?} Ҕ! f6\"L ý) 'i˼Tŕus8&a) =IXWV+gΨk@9"y;o#?CfXH<$2Z.bձO{ψ4?XgQXpO8qTu?鴫4: >|d^呣NJj ڣPNCΣ$u eG?.\!XmNɾX;^nA{c>>cO+Jx8-!3sI(']> F'5TR| YB~#?fKߊ{{!ziF\SYv5˯}RAt=-5Z;ŻWҵKw'#cH$ τ(H.и$4Kl-ocԫ& wkf%KTSZoE X}*Ua՟\T7_21t@od\Tgm^`Iy7zs }vC 7֟f[4+-@H%tX0kԆVlEIGC!tr6? ZRVIK\?+\CAŸRgUAȿJk+Q1sjF۷ !vVa)L]e"H5?-@*٦"*.e矷cmJk- ?Tߚ =߲KD^sOT̖H~RYq XAx0;/ +R&WG8"Q#wk뱕0"j/Ըp3.wtQ(Cy1oMd{GNƢ#1D9sqW9>e6Z> 3Rw,U[9Sj\@DL!hyq t"m$($1єPb#ߜЄnW$$r!{䟔Ç}FoF\w2RFcc~UG0L Ej`qnU!&u014T. m 3$j^¨St{\Z=wڊ0?ZD$z._n361b3?W4[ ~/~J)Z xY݊TeeKXP U"&tG _nrE>zz cIN6xfjF]j5b0 ΢,{/FGό-XDvE#71D]Fh4MfOw_e4%t 9`WV@ђg >;rlSlp̿f&|ސثROIɋpûY6 yMGowPBy[ I5.|:5W@fSqN64|svSWJ/nsZ(od8 u@4ѕDBcϛK'g߂?>|TE;XƼR35d+{.BJqc9D}8XB լ ]ɩ"iC6HHkE i?T5]hqy?:݉~ >c{n[1(_T̈́uqX]&w3$nRt@ /BL3b<'J0;7vx¼+ דD@]oWplZ!uDyi$wQ=,KB_hxLrC#.-׀fŹɧU & p&o7س|64`;7DjBEc |" 1b?V\uM)X`A G!ϝ 3p "%_sӲ*}r&%i!J Қ$䵎Th5?Ei]!Eh>W:R$kfuJEzL±okԇ]h NL <tg,Ȓ+v6yAM:-ЫZ'eQP9j~<{Jb$ f=$o%'<2U2Ni;]\LnyX k;z,ʂD_ LZس, CG)$hLnȊэ~lA`-?FGgѭ`x+?Xeۑecd|?#^6C(=q*I#{#l7WB \BcВնD9=bc!UFi1gkCV> 鷫 H3dAw%ixEK6:oH 0$eP@lX)/}_%Sc6N07O@Qr%R$AFgF%W Ë(L&Vx;p,;Rߵ)OSaK|Cst +[䤼3(lc4&{}"|IB ډyҾ$sۖ:GQZe~DO!IǠr _Ee!5Efc 1_2G4Z<\8r4ᖮKp0>ؑ493@bIU7]re$?uM"H|2"Xy ڜt0okp&枖czΖƸ7uǎVEI؆ ҘIna-ryB덎• rY9~k p_x`nsh2P②SpGp\j(ViRN9"S>9!x.$!7P 7; ÜU/Ѯ}su i+RG O˞P%#e]Q WW9w/9HBjwC0z4 [̑Fe\n-hb۫㄄\ti#w Lu' wEx>?@t[!bБj3AY{K>P$;3gw]y;%? К奥]y!.T Ȍ5wj#10 {.-ke Hl-m#C*|R>?;)e$YEF,u[)YnSd0IЇ9x"eR/xt&+A0T]PAag_־ rn<ָV/[H; אc7N 5Q#\hdEc9Di~FJF%MPJ(r`D 0gQ}.4f9u#W2SΊ.w#lPSp -t2߹FT[مmD?-YmGÄ_us4t|.RLX7 e/N1FQh">~jTcz1ԄLovDU"_/k(leO14e  sav0hNn5lkMg0ۦ*i%Vc j e [!2qXa+(ۡjWʨbAl,"&Uo8Bp4ɺ40a1TF?ͫ:gW+,BxET RGm=X Q[%NO}C%/j¨)qTKP$ೝ t;qvW0 fG^t'or: POl*,Hs8AO=bt&jw/lzY=IZ'Tᩲ&^ <~71|6jl7m9(t<_G|Wz^^F{ tSmKpc}&:4g9T=aO RxČ"*f3|JJA }L™1=Q0!?DlxKWbu6QB MN 1dI)лshMkET Ca7_^lTA@Oxf?{gb֟F)~k̂\EP1fÐ6DCut|GZZpC_+8Jcm-p,4[;zځPdFѧ༥ TN$Y.?ik@4jB~V'6ƥ܇%2swD]̰ Ɔhrm7R9EiP6?@HX'So՜38s[3b͍?ޗEƇQo3%iZ@Ș)71RI.@dJ]u /\g9*#7~}C|wE bA~hi8_yXF FuRc縻E~dGE)H)68ʜqrNxo\@Zo<&g_|gh_~zˈ{ސ,[W3Q_"Qmgç"(HҟuVbLʆor)Ek,pkt7^ErXaw5V9'o z4;5y?x酧=On WT)=5d*>e#/Y{W<:q!qa|+T}zx\ хb;m”=j_R_BtOdf<=&RkB8ݶ~7kP}zT\)^ޠgEQS~+(.GĹk=47%;5ͥ/.Qf]:jy-eϦApm 6LzH?ebh@]^#O+/Ჽ%?!|]4!@d [SG_m",\@ ˚饏<>9 洎l\=y&0 *~o GSF(@=H#ϴTʘPb|Pc\1pKە Nh;Y@APqkP#+Wr&o&/Tѥ]:eUpWibyQ%Lбz΀}71> i@U^W.b]@G]ۅr&<~ C#uc/Bi$*U3?*2(!%J}'$dgVZHlhS/\D$ =襯ngtЦRn椠iH?į Q<_1>zȂpq(e&V"I|}>`x v}Iۄ0)!)gakT'“̈7 }`a5"S|DyS=f[KI/5Z^{\ҡ:>px1IT+৬PݗP8@$M lda`okPW"Ig%5 g z6n,ϙ)zaB/Aȧ!"_JQ 5{rOS-O(%SG6RjJlINx{Hs:/hsdW!yL=" _!G{{cjD" 8I }QfƤ 5gȗܰh_ʮm3=v-p&[qkH)_qH.SteSm{Y'>aKf{PYt' SH ѭ=ٷrY:G HzfDyep8 .◝n\V=LOch5JӃǰ0H855c .A 5@o ݄@!DD.?p䶻`J?=7u>E.yed j4Uf~M [ z~ KٙΒ)Z֢X2v&a^ZN38irYaRxX~[-Ҫ<{e.YRhie%ɉ kx@BlW^:pgSïQr ] Lq-"F~ Rƫ:=g``õ;1nTV`S'Kqv%B5ͻV1wAz6|a-FJzd%:ɢ(h3\nx"G*eg?dM]R'/؀cɪb?Q8E'ǁY.w#ЀM6<Ԛ_lk琞f|9G=@CiX̣K6+jŽ34/VC}r5>=TA%E|qn19ZVJ(+Dq(w,TsԊ;v.g81ci[<nSj-s_I "ӽi][trl mtZ(G\'ɜX}U0D#=}IC}" јcZr_E!E&gvPOv%r']UDPW0F͜1;SC֝̄>>!͓.߮`>*r`w$%-;-tHbBXsӢ׆l*J$O} >c:c6eh a=Fǩb 7:w8?ŜLBE@9qϡ>ܶmfP\#m+'wY1=v  <"/D/ _OoJ@3.2.{41iX{S4{\Ng¥&\/xPMjyr6!䑩n9/?X0|eĔ}o;!~OKq#ʒflhUw6ߢs9׫EMZ+[v"'g7&ݟ)C9V'Dyc.n["4 _jH a?pLtMC^9SV[Laas['Ygz;ʝYx79ݐ˯0;"rB&TI@i[xH|R*(&z=[sƒ[u(J'x^O%i{[C(fN!6^nU8`u2N9f꫏ GM|GfB0t| ' Li$xkKuAXGI#,T_L l."/ ZE5¹r^tXBPA% 仲|fPG_Dq`Uyan5URO ]X,a5$ tv~+3IG;',ضc&DXGcʥ>te{8ߙo>3rӮ8YnO=2fH7(-'.ẽo7Dr|]mpcEE֣,^}_ _dTؖnLE.7Mx9%gZe#2E:B ^&zbԎE_TGVp@9\&n\'.O-gZˮk?O~ ʡ "r$=fh/u iQn; E`n]o~}l~Kz.r{ aȆS+zhXc "0LK܇j5H3k/a1ބ9PXVĒ<׭:uuջJ܌ r'<9 GWB9P ܱ'qBY"6wڦ(FLE|-aHLBA-jOexa)\RϏd!Nlk@|Y)m͔ O򇴒[%qc*!'#X"@ǯT҉r/@mkXav+z 5'z4omU!yBQSc[ wwxj02Q[#1V} ;h3TaK!y"9vgt͙NEc (ħ0Քe Yb uu_B?jHk,@`fI^;`Zuɰ7<1K/Y?_>f tɔSH9`TRHB] z(~?Dپ&Aˆ*H P0T]MĽGZ‹?H=<*b p wE w98&9t) R~1$P84'kҋ WFOuC Gt21mŷ3sGԐ2Z>oޡLF)eR^:q};[˰৳7md`hӳH Z.gi꾘OlHj rw[;4@?:G mhF06}ɗ\z4,@/z5@W>c6~#oT2A|&i@ 'V\^ 5 H Pݶxq$Yi^0c6WN ,N}IX8鲲]QzBf+eys~r~51Ԓ?YZn[rWx"GۺD\_{{Ơ t{룕ߙE\R{%eWE'7pNeǺ~qoCE6@`gMyFWo׋I3j0m"~$HHC k@h:v*<_ջFfmxMhmNޙD3Y5ϙOi#Ji |O楇nʺM/F"*M9RqG \xR}m8zW^[n}$ zc;yk:6_UYxTP3zh rR`~;Lz]NyM(6 Ğ̐fsb>ͼ'>i̸0}Y[¢$=gIVD_הϳ?Q楽p+>uk0߇#UT5#2H=F&}ОB zz(gu9?^vT͵G!~L1jq %7UiBjJR}(#卨Jh~v,V Dl~CPx16ϴ0-pWJD׌t#G3pmP_}p#6VS`(#GrT Ά,l@R|1 IWㄦ{]~a9T7>%g4bG ?_ҕZ@”Ot[OJNQZqNg\Ron?^GXA˓ӕ|T DH@mC"ѿ+y{ҊQ?AJf@ @فHY˕!~y;N4V=[A%j^.jݓ`;v>|,WpCY.#ea1⬈)3PDٽßvLoARH#spKpѠ?ߛl'1j4W)1Q®uo8C}KbP2J%nrя{Op4:nDV˒JZdʎXml^0}^[ \*=KM Ug&96|Üā:fXZba%85Šf6.!$ `ȼD>0"d!3>[ =s_0C eƢ.qed9s{Ж,P?~j 25c⳥ǁĊ\srNPʥEE}YhwMS?`JtץVLLnt{[>_B^P(ũ%!a:slC`8**: 3̱'2XF;H *d? g=ul 4}50چ =Qk*1X2Bn昅TUvL웹ɚ"&g}6 dK: X#nG5Lxmw͆!z$_4<\;~ JAy>Ϛ$E狛`.P{Yeu QȪeꭊ|4!F|,'&až% cD-toXOgdlUa\B}h Ъ(}]g9=gZI}N1SX}%ڂ<wZW 7 ZwuW>Kv6iĨ RcuPcԸ }!W37р;ɤ4xOs"T\9ݮw-0z֒p99ߩn+5~EEe<ļp &C5ݭX.\v *I†~_ڮEMUwc&S5йtu xZА~%Shl?AЌ|}F.q2%O5D˾Ocw(lUslaNtrNOσ_A#YO6kXQo~ 8/tdpd8$ܾfu7TkK7Rl8 uhb$8J;Mo!Kٲt` 7it7&ƚh.~=%^WjukQaGր?܄ d=c ݇j?LMn#ZKv&Jf`4➼ea&1J3_&[$Ŋ-pgL*RXrG>\A&΀a`˟?4H|kg0$ŕ5]|_*7RmԣcTp<6{EzF~YwaHb}12ǢI :tqM%*%EGLldLhF)~M j`/Rӕ.p@u~6;|UX(/Û n 5U`p4Stl*QRe?:g禟#l5ЌgR7:/h샘!_.:U&i|&er)1HW5D ˰weEH>8(`4t27kx>F 2-gR#8HjE&$Wpj%0q! WcQ0;jrKL# XhF8r[y]3@k\s>8D~%3ލ}"p}(G4gSSYJa^e.*0eMoÒB#^8bJzav>=ټ4 X[leJ4G|زO܍wm-{EFQ S+m KD. ԫ 1hI}cyv9S{!S?}:0;-Y83VV 3Fm&c}z;Ekc.Yn. */0-'X=꤉fk;h rM̴y^eqUm8{{V8=zA<9`̿oF7!{P)j~etyǪpx5`5bl."C1DR2+U W)|Z.x-A 9rMF|(/o9]"$L]s4K4$NW)t ^pTbRٮr_>0]雏ItnߍuliY%?m32lr:l¨6OP]vPcegZU(if"Wb nˢ>u2 XU-Կƈ"Vf xd״(0S}Byh8K',H4GkɎ 7D 6NkbBp4Oz3䑈#RQΏ8v'@׆kͭBy_ %:~.k&2i!/rUJ-sNk{QBEmO2e,q Nzt!?8ٰVRA!׾WXQOAe wwԲY8\?E tJ>Ux&/؅4`78γt#? p .ѐ4:?!hT?8%~Cp]E-$@ V L5vdqB] ?14jK4%.GN!"G=% DGCwzοy]Y :6}6Q֔c E(HoU< 36Q)JDQMfA烚 F:!mX2/dx &>Y6uCc>y!-b\7/KW83:meK]gE-!BmiFf&xnPʢ8 YD“ %?W3Y,]-JK.^`L7Р(6aE_ "5?2H$[>ݱQ ٕ%'(j:Y Qg|mr yHҏ>@> 8ed,\͜edVS/Az00KDee##8twOF^ώdظ􎘛@ OuNuTU򃃹M.T,sQxwI:ę ~Fyl'B#t+d0,"&4f 1ݹ3y%ޞ͎{;ICZ:oQ;P'fsƾܩ-E;`dOgT$O<_A;/N^3#( KYDE[Pg_e=}6=z١&Ȟډ@4c1'll+vpGA'=WTjFX3cM9Cy6W|:AQџ8*|6*~ZqT_,li#"aT 9zwc(n -AY?.W95#%>jӲ_h jx"w]O1|UGًES֋yg?\ِ~+L&Ȉ@-z]La#,Muq+x^[8DxscCǴk@~a p/F>b͠kPdؚwJʶix1͞ĮI^S%БӀ~=\P7C`14p7űm(yKd@7OK- r|#Wdk'+D]nq4$V{`cM4:U؝G87[+q%G*hA -2>ןKJ,vr瓣-iFU~g *Vi؛LnYfv3}`k^<5JN]]Zty؈,lb@>[$܌saRyr=W虖Ԙ ԝ  ֲc|o*TGV&ǷlKRrPd+pݘ?-bxfdċJM-\=' MXV"<hFĂ]t5XT@<ߩ8)ʦfWMH3@I2 +Od bmm6^$BMg ^#_H}K<[.OWӦI:.z%m"ԩ?zʅ ka[JV= {Q=:ZdDW>q W@hTs~(1Sh2,Ռ%?ms%u;v>eg V$DtЋZ ,Yߤ%[O}Rۥ1Z( C =тlgeΏ֧&1ۺ?eV󚤠E)?DE?Fy.$ Adԣ x@p+|9Իҋ#(~GX9 kShk"4yU{ss7F$#01;Ul}ҙ&MsVPU-C l%D{cOtfS@ujJj*O!6*)>G5\!z%f+ax4#6pMibBiA>LN5sh#\ŐUsY(ݯw L&=6&uT٪ӹbU!cZTr|B?R$1 wD4J4"d =[hC)ma!/Fox ^f~cfo㕲{<<77EXAa!?܊)σSɒ5YʸL#{)=;yQ~ցRsGAq"X6ހ6VxZ 9 ׀vnD萀"V"̓Oњ VKU㦫!.}FyȄθEMP94"Uh]UrF9T,#.`|k)@ZoPU''G!dK8Uq1gr8 N+0^V"F8L*̉#-7x)9lwVn% & \ sn^]˻OT}@%4~_ K3.CX>äZu &|YG\9TS?Ew%Ka}rk4J VG kX6 } %UԠYnU."G =RKd&S޸b|ELvIK[JV RA߹2M١ƮymnfPի6,54;va-:l"'p=l ҋW me@W=/oi?:sU$r8xjc$Ӝ-/f ?E>|3fnAaG[ڀ C7nH;pq 8jTrH8#Ӆ4#H7PEW€3qv E'74l\ `bAZF-H"q&D ] qJnLuq 9uT/F"@ɢ?;f`%(ʛբ/5*CF׫g9H [20SGt<HtoŜTBSUrlW}XXZ k:*l9su/y"UQGhQS i3…& Z0 ˣA+u 2 XwEo:޼QҧR9-&u~aL߳Y315 OCaQ_l+‹?Ձe#-עfD=D]`#wã?ԅnkIrʲW+28tmx͏dH~f9&;Lk)~#J iV$!قcF/=K4v3~UtTYVDelSq`pZi1)\IIMkKR+[i$Y׸+FjL:y@3jM-ucn ` "R#'ONQ5d ۇ9nYe햨O{%'c5FZeC"v]5GrWvW]Pav]Lffv23Wpźw[8 ]0RݺHknGxթp8vfeY Le3VO !I x1YIO%NƸ)m=؟%Ѳ쾀T'.hs܈lyU܈*ܿ;ah o+GݰA]ѠAx+&̓+d*m ~|˭&\,>I&E^%0ܖJ봬4ɧndg7~5 r_ʿ|ұ .uLm5}F~A 24a  7RX*MfQ E_6ؕ aczWgGwy4@KWxI E-62Vr m4: ,2{/ &GͺjI КO圛$B[% لAjE5F㛪GD"Ie1;_;({n_vo?:6N ?ӾHU] 8QMY40 ]\(~Txu9` \&b`aXTոz3"ijG^$bnV9PqFaΥ?T}20Q8h썗= \edEugU=3/N׬~0o$D_:ړ)BK׫B|'+f fa@>wLv)NJ6]8#rt#U(JQ| Zxq4c&J^!~_鋥F57X6eP̱&E5 $\U穤|b O#>n&OdDfw6=4`Aʉ:7p&RΗc&E1Iң{R7_h](;}dz~_u>TnŤIUp1@"MWGx8:I: ى;KMήcH y؞/Je6ٸl \&Z0:@^6aM:@drEt To]26`_VXQ | HF6)~Tr[:P(xWp>cȒ j<˧وuΟy7W4Y`w{UZla8UYjM_ >qbDy4;A#db逶n< ܾfz[NN(YH>KgK7,Ok_/w@H @c(ོA"j(Y)YgmlMЧ:qhDu( F*>KkFjL'OvHw~k~IBzK{&Ia h^ƾfgrZW.i\ #k8#kQ9{`)FĈMm?L7x?=ʜ,9{|uJ8ҙv+ f}¦SƓZ2~keI,ZIqRc_2u;i}%,2a2_sY? snK tG7O௻'CF KmumPG莯=h{pe"FbH.]*I+..<  O[A$R Li_0] jxxj[`EDݢeNV>I2jgk:[,S@i*^S8*j0ۃTiSbqX&!brm1WbA]c(TY3Ӕ(TaiM?',t+k $S$_ns q>I6q!2O_ߤxo6M>}Cn! #NqT6p\+U(H؀t 3o4ei!jQ򙱏˩(RiOgb^=eM9ڒ?>},P0Jў^@H..]w;ɭ)ZlXz 6&+Ž@g]2qm61SDRքr1` @PjԸiDT;N$wtc>ݴmgei}sWeE)9׆B?IOaTF^t+ @]/#PTF g!Wn+ )@0M'ݯHtZzie̕޷J,^y-]/] }tю#g@xmL uYHr2c*^ DXܞ.?0djخ;=D6"&II_:+O(~S/ON.9Yo t9ɴ#nt̬T:Zza ű Wsu[V{l|#^HD5|㼤LwXnCumzv@` MD[̗|y[=\:}y*) *DB(}s]?hlӊF<]r9f߇- 4L~(9u|%+O3XVCCea7𴳭kZUmcB$$ꭲE&(_LyO0B+5TQJ9ܦ*;~^gdI? 2SOo4l-F^ϻ\+]#D×#zVF +/5b3/)/ֽJ~ .?[P,` \c%|ͱ;:$?(TLXf]=]N6֮HޮpQfN-ASst4Ћ[1H/?NZQ_YIs45㉘t&8?;0V-j T!. bFWA6hˀK5o.Ɖi{+}GL7;e*X,3VInj5W'ТZSej=LCy[NSʀCW$ `J XD;$a>f)^”_X* [" "cyIS d ե21X\؊o2:/ȕ<ӣBpP#!rUv1qA=Pr31RO"҃ߓ:@[4wH%Q>jLT7~d*fHsa?z{};7wyе Ee`yYcs߅sMAl7QZs%& &t=Ȣ! 9Z9<n_>]o9鋮p}g5/Ums%ۧ./ w#Bykc8P3H0F/Dg -gR+oO= #E2 X=ZޤeXq^ aK$,[lI-&K#~wRW/yf=[Tc 11qdJ;[9?yH Jy! )M@Ϳ&" I&ޕÄX$J6LRsƳ|~G++4֞Q߂1(h^j D?_<>J HvR O F];|5̥`0#pqN0Jm#uZq"L3hLw'FgU,-#$^:^{5s;:P3Zl(ٷl>ɄQ :lI#uCF2gdIZ!YkVC{AOP«S0rj)52i `ި}~*vsc.iW@KG}q1([N^jK`G<,M67v:g}/NLkyޒF&ZZ/"Th]󭶹~FRȪ}rR.ʤe![V<Đ\L  ɓӯx@V9ȖKi.ĘFml`Kb񇼣*g¸J~͒,XO4*Rű'WִYƙhI-)x8h_# l*è-0W:uS[R BtqtF/EJ#uSyU,=N:JVJJ$OШp_-]R-Zޜ msB B f^fW]B@$b6b-9>%7='voRı`Iԍ'5 TF88%QY^ԃq%z)l X 18YL}b7gX$_룈c)Օu섚%N.(k2f6/np8شxlF,mcT 8iMSn|jܬSD-5c's6@Tu: 8+FI5hӷ0,| d񝌣Ϲ=]t{ad綵:. cu66"Loב2٬\1 ~sa 5(wa֭)1,z^_˝7*@ԁeטD"e0*~U>n ? yq鉧${A`oRd7[5-)(p .23zt^$lAtqz[+ .C/׉ܠ vPL9I>f VVTu{cvj$Lu\TaiZfuqOkJ:uAf_?P`|_hq$'<,s97-B- 4YN#$,szea8uZ^e m')&;&%!>y"̀ؠz4Z"+eWcȗP @=M OYf PTx] kzٝCԆo9QO5$?gP5TI 9LAłZJ@ဂ)6 \7} r&b܈wa] 9911 Z~ZYƀp[$J7b͊b]jƳo|m4Iɛ_u||k[+NCP*3 \Żj٣,DŽu׎P-Eo_/ 0txF|>3MY>m)v/ߧQJͨN9 M`MhiMfȮ dT5qC j*Yfmc  \3cwb 7?VHTbWXpM.s&FڔR-;`0eQM>0ޥ*KcT ׾1&d/eُ;wnUy ϬG?VF$Z_Y2g1xYy`Y;7N,DwDcS[4ZX`eht=ӭ&~fV:N=:P?viÇ'Ȫ!`嘖YGU5>_lHa=H΢Lqސ SŚZ o0Ѭ\ߑ:W5Im&ams{6 :y%xOXWLl+ERFr]f-|Y{ ?pLx):) &}kr==Y4ElnέYs {+55D ϫcv}mĔFⱐb$LJƩ跺Gl:=7ZlEǤ=>CPlʍ1sfJ+ҥbuOi:.x91#phFqOzBX͠ߺƏ'NXn]1% w.&=UǠ=2?̣2;'KM~eAOq>$ cu Sp԰m?R# !3#>3+>$tMG&٬kZ]ofF4izPUs4;z!D; faYsBbUfm,н CB(n=CܾXwiU% t7paSJ>ExejsrtRܱO@0śoP(ʒ׭-<ɫS_@~|]p-_OX{:Pՠĭ5L DTP*kJ,DEfn[̯Q0be\CGۑn\G@Zϩƈ @B{e7^1J}E{ PasWmUq %Ns2.m}04XgGjk+atl?05#sxsA5ؓRjJ Ǹf~c*CcF<ˤ\-хsc{ٞBV/KwOSRDV#OV}cV%B~(^s x·+bR9i.`65qMI`w* kCKʖ]K,=Ӎzuဲ C*G1S,g8dӐxv0h߃֗0N~zDij'w1at۲lzA,)II0ɤ^q5mv{ȸP y'SC<GyVuN0PR"ýte2~Z_yf0Ru]f"?75R Uo`-)yw -PWƅlYb[KRDapޒ裡([e ♑!w7B/xN׭>@z-A6ҫ>aeQMy7xozv3G>ldɕ^@Cg>^l=Ϯ\<WNfkWI;1;}E+Kr-$<͋V7>-:JyC?Lk)u?G1#ěm+Nǡ4FuZ)W8JjB;S!(H!Y2{̦ ~(4@jf^=,+A\k {sFriWbs}̼F֬ d ~KUId6l᝱BPS\4OPi}J̐ˢEN<꺅)nd%aS,=5\%%6 #F ѩ-ծ*(yC^5 5*ߠ+hL.˸mjJ( Gk_&d(jtxOӡ?,GDw-|})/ay_rUϕ!` 7zQ JNTmlp"!TNylgF>pu]@]DYpp/ RA9s@:ϥ3/;fDiH#vO_h忏qD:C[IZ.9 #!x2JOO=)vRbaU[R8k (5jʜs zpl]^/hb E)}lBp!|E_p18 9ptS;G\]R@>7Zה2yN:ʬ~0*9AoMZ ~!B9Tj>?o3v5>K7>]=]H/(ϩnue0,wg5 VPk3=A`{8MD`N[zX&YC"_Nf/MKcp;s7<,rؖv3ĵYmwj.¸l{"Tc )~%?h}1gq5E04KQHBN6\YW)0U n`k7@)^m\Dѓ9xĔRDw*_2(SCT8B师DNTb\ h|[3Y).{ ڮ E*0+a_YpHihG/3sȇwe47vSW#[;m,;:[w/'dZʺβ-^6t-,NSBuzs7rĕ'/<֌ܼxb@>~ BBdtN42˰a 0=+Gʋ+Pau : Jyֹ-(,(?O`L<VkAh߀9U8*CG+=`~P|K>@-%b"Ӱ1K#mͦ6'/ȇaOXp"bbRṫGίRhwinEI/f~O)+OT%%rEYݻPb!$O KpSL`/`!U֛i]=|eqכ@!s-Н^8%׎P/8 v܅3,J]?qY 6R}YDE!ȸw/n:EAI: vK1!ĞN2)7 /C~w¡t2Rj #[Z3~^zXKG\.6]oistӢ@Z)L!k/B7kHwgu1qUWI3 MAW@>:8ŗ:,hMkN@Wjri*ꏊwv 3V/ ^*C"߂^P$7ahLf_eS6X"*>1>`x#nd;| 1V L.'Nߞg#D ISVUJQ=гD ĝ kwIqu=o%bVXΕaRIGX[r䄈qK#cB$rP/Td_I̾{ ~Ae$+eX(<v7l&X1ܔ$O1ͤPcT_MsqrRySCZvNḤ3}w[; Eä 9?E±#,1Ι'R MK@`#cz?b:ط * 30Ȃ\d6ZFњ! aXW@>;ܣSWIga8qz9nCwi_ L)U9,tapI38{b&:8_b_S8[v7UB^{1s ,P*F&_ W{-dGO0Ed,{f+v[MI|E BY:f̟ :MB V%% 3NNĔFVʅj @/E[ Go {&z!S|?t-ڛpfb|^߾#)Y *N{fbY> s ?woS:W %^QFhT>8^ ߊ7Ch>Y>}`+%4 lb56i`EQ&**?OP?iIʝ3PAȣՓ?Ìv\+KV7^% pgNi>x`I Z(GD8D9?&=5wV>?}rr* *+"7 ldHC3FzZ/VU NcFiLs2H@NlXb$0@Yv3P4l}O&#A߮ n[D88jHkb#.SUG35I^-7R4 ѯCRu,myrڛ3@5 #{ƞꮱ tKJ9~$,0;$.GUY=Yq|xd(6ʊZĐha̜< 9y>1d`8$s2hV|BԔ~w~YBhd\9ٿ [/N]BN JAO'> o!j'K^Q:+}˵6|&hZ}8\G2-+hb|SF`vXׯT "8Lᬿ Ԙ73G'=ewlxz)F^dK$>E10]֠a!exW'[pڣiB{o@LoC!Gx<;jx}L\S&qwK*q1BL(\[>f1Y2"k!.w}q40/T!I *BPH1A]ktj7KPJOK؇v؊Px&KxUDQQc«L]ej:zOí9N#{bU|?` G'n{~z7 0鸅/WA,t0(IeDcZpIƬH?%xspGTHǪ٩ٺ6"-Pɨ*,{[0"0Sb}?F ZF &`<Y1]pdSТ՘Ah`eL PsFKBxMΪZ>ڑjv5_pf,M_*TTЦV#z?JLW;M4{DnJC/-=̃0e\4u~ega;m`iyt#'ӟ--uKFowA, 㗷`{g,ЬճɏOEb/dfYw'gPX$~mpS$8_IMŞ!r`_Ax[FKC_IhC$jbLߴBݙ/oK3:Πp: 3@JJޖQfјϘKkLN_ND5ܥ>l`N1&8P4F>NQ9#gC>°NP`ÂVwě+ZOH :,["eob5TCAӬz!j(FLnA}. ,%pDG_B~lloN_IΈ?$:ij/fߥ%%͢eXcZ5xL?a놴UJѽJf~$SR;!`s !68 ꮞJj1rNv^.5XiI7pf?M=M$=`&.eŕw+/kSp=saWvO%I,H)~Ye4b;/}IVtAoï@OtYLS%)|:ZPҚu}Z}2Qq~Rfl"E=vCeI#<%M>6fe7;`-kִ *}e"j~ڪaB, xN3/D+;W b~&8]w0w] f c 9ȇr VTunrRk͊[A tcHS,2#;Ն)UyX,^E䘏+LilGW0y;\/ч+f Xqn/oҧZIWu*.7*'l-26L@}ΏE] %{IA|:Lbc[4}&Sݱ׌ېyAN Ѧx̿|"Y^GP`bo8҅"ج\8'!@J ̤kBԸCm(յaX}˯-AԶm')#Z_<AS*bc{0vPq`y%V>3>Tݬ'fSF .CHs,_GFJ+W,W̛׈$TXGt*+)ʌmӵAU]RhfB- 1 sELvVg4:|Z {Aa0S؅n oSBH+_WC?~\9 $,?(?@Eb/'(Glvj $\Uhy w ?oa d7Ӟ8PSƙBn "`/'KAp)sYly`4`;pl HheXt0戃6oFHIg]uuh]@,c8ٸ޾dC5_2vz"Y}ʍ v{u#]d /ce  ja5נ-F`Bqw(šm066vP\p]LX0 㨂^ImMfUEGty@9 \gV# {9;zẂAqLݧe◬ [m'Esfj MeM9ؓeW/MCq@|o. F;g|e4sM,b&@!614BMM)[z ^.[$8>mwrU18sn,1~op>L:BOpwC^+o+7dSBk6˫N(;5gJknn\˝T!;m2ZO!Mi4YO|hgӋZHMf6K$z @XD}G1vzd]oa33۰0>.[[N'؀7THm:圸ρlF6%^fk)A<9ZUft"숁\EÁBCaEǔ?]0Rz2 "Jќ蒂8 K4z-J t7Fy@87ldƁ@)zr JT-gG7>2?V! p*0$na L%>,m%Z-_01NvBzaّERm$g%/ nh9kpV$e~@h1}\q)3|W3ka?',f09LOkCы&N`6iM' 2ɕ8aU[u 2ߢY_[b .lkPc|,׵3$ql-%F;v&L>jo^ȲOWA>luqÜVI*/`!Lˠ兙nB_i1FF2|K Ĵ.JI7H-R_9xbx.;ϕ2 wͿhЮF糮<lA|iDy*HZjW]93Rf iRc W?}u|h OCP҃2^|F Ύz 4_@˴гO}Lkڑfge:ӣBKپ&D_8EV/*$yœ\Vhca~e6RwL!k@ ").X !d^OJc#qt)Il0^*$2%ȡS|ۮ`'2 "ew2Bce#*5LK;.ތ #-l@z]rq˜wU5]w>12?gה(^6/j~b~> ,sf7Xi$*2ތz hu.e57.DkLI߷7Gݾꇎ  n nf]=K:c&95Wݏ9pJ5N K"R lF>$3v\GTB`Bv#Ѽ"D*EŽ?LeyʫK7_ ;L]gpڪ'ߤРڸ9ϙq(Ֆd2zFԏJ*6W-@:IUq Nt;WXd+I(_x3Bd—gvc\wq3e؁TWIhE^ FF7~g}5QYp'0gټv&Ztd[Z'~ vO7w^ilrVq4?Sy4>gɓ =#ŊicQb_g%|2FnfvBhFZF>L`d Dy7r⓽UZH,%Y}o }+[x#c#!2w߻45g»& >"f?\>"1T36xh]#('gw-u_8'LG`^4Q_j1Ý)s-nRZg1I~,f8 |;O@lsL ^9̗[$Q:/}p`72EbR [IRI,sOыk&C¨/àH| sq_]S w8@6Qq~֜{MsPJ|0²|7.aN'TÐ%~ 7n}Yv;@9}PXVUz҈*?Ԥp"; /B#%K h͞ 褑,a9q SLXLJ0&QI[`OQ&E(KSZE^7#~GHbb]@w> \T,jAܣ "G:}&OLx-_#- 6톞4́I::+QL8\a07rTQMYhBzisӔ˃=JE/n yZ36Xqi"_48w'1A'Uw6\sNϓ?4t:Ъ[{ueH'Į^,gryGP״Z 'iAw>M S[V';/PT ǍEWHLIJ 6ЋTzjH@!E ;$\ eʧ,Eu@xjξ\C^5z5eS$ e2, e˙./?L^T3< P4 άH\EhE EH(+DgT63kuz1=(ڴ260G\>cob³d]1Hy/>L|xw]]XЩQ.M u'x72uүO,qA@i[?r^*T}ZQh/h")r Ӛ4j( 7wR3ql3F鳍i F[ eS~\aeP00nX>EE[VǽsNw j2y^>#N{ΤKs/k9$=e[}˼:?)\C I?FAlI& | fز55{pa  ڔ^d^sor0Sfld+.T4*IrE!vVbfn ny@brƤ AuʺBne!BNkq_ZMt[b1!j5ė, dQ G\*|/H/Wo'İ?:H! _YT[?y{@7du 1Y{[TIЬXe^āwϰ3Rt>JiIuY'E`b `d4hI+dbd1Ͽ`-GCL Yɬ Xo3Cp;ĉ-ꖆQK附/nĵ3W7: CNճ2ʴkW8Y\1Ɗ{OɎ/Ii϶T#ۘ&8 qB4Q]5ѥr'FHۀYKNpnmG&j9T/ywy**fIL5&^SyT+ʓTGGK{iz;))(>]z~v<  `ntYS&Nl;:UpƀN9☊ "`0BÕ1$`(m<0MpQJ^D0zR6LAcm^Z;wO_GU֞J7ҙSz wV<| [tus*N L Sq[CH̖YoCW>I>φ-j6IFwl8mlWStiǚQ?a:0 mVdhDDOz\Ӧ3uJIG&0ƏPÿZU"8 lmyT{+VM| y] tkL@]/a깙Puus{"re)`B0*" N=4@ȣ++l#hOSۭEy{9 fw\+dc*,?~֎2"훉@ jt;v4A67dU~E . g×5Al~Zd,NZvj}XtPCc1`Q"y-nJžM*wfPӦ}E!M&A~ϟO+tf3j鯪dbaa}}`А5bnM:P]' kCah? %8AJiƪ> k4u(n#;m_p(@ Qdw/ĿFW <^XxYeƈ,2T[j YXza^&K#SMHPm}(cތyT4}r7_nl(G!U^(ty[AԀjN$Sh~vIAmZ^QͨY(K5?E'ҾoY>Tu}*^Jr|]%85G[pmg}B 16™;gqY|SؖQ`Tk} :. H\E jnwIXf[ތ:#i'|u(|(`zؑ"lq6"~- ;uC߼%gw$YS|aV 4f=0&g`.4+3-ev!tB巡ǥ ~5r5 U~?h1_XliRa{B{=6;_<(~gI9RªkߦeiL]s:VY~ppfzI)ThNlS/}|sxMq21n7+1a\NVojV4IӆH6\;mb ]x܉y ł @ Vf>Ɛ^N*7TɹLդqL\ 5Vbl-zeJŦчf{X/A:]|q}F@HQR2 ˵7Os~J7cp6VGbHGu0ٮ/㽆'G`",HkvAV ot{Km@:A83&~^S;myn[bwQ}UnX7C0vR*>^ek=>MIYj=p"묻֒="t|2K:cxE)+wPۧsH-):]z(֗lhS'ӬEf8jiͥ_+Yթ|X.EziL2[ohEO!@2s%in&dHς!x籝^ ] Lx4^&'vurvc(wYد=ގk)[%gu?/6!$"}B5U^v=_OSx hP:(5)KGOh׭++3MTs=v>HcEge5&d黿}!sFYyQ"Q7"]0~ww1PK6d Q]jGUi2 x6B@z+ׇf)t@) SNFELW:_MسKJ_WVs@NH֗QE1'~J (Ru,)9QGR"hZZ$.(l&UԐD]}WM;i7[u%/k_`0(uw}a,"GNfe66WҽbKq{FAzFQ-`)REt'푱Jd]p*t C+C\X%10lpGX? ̊˫J$fr҇ZS3Ӝmq%jǮK;ujlޕC DT&rgFчC; kn dpZ*fU̵}mu6%{zv?lQ(   Qnnt*)3*R|Ah\†XR@uJXT PΡ +y"%0>8 ϱ6'WAhˀ,2gQjL*Yʹ@FX=#⫸鱳kqpK'Z%IfsEg 4vX9Vbއjﵧ3G*2oy\:zO+mJ"˱fEbQdq40 SYR`K+]B,(ޢHli1y I>co@(@D^ a$U}2Ԍ2f\±nY_pRy-.(5ܥ8c#k.ňa_ Vsj"DɄ6$3"aCJkSnb0rX Έ }]5 կTZ4.is5|%YU{+ Z/vJg1Lcݶ{Ls8SK3@V}Eݭ]f`3+xbp0sEUqi;`^mׇ*լ#fJ$5=7FU[j=x}:R ]cRq3Z1@wݱr\mrS6}:q;SA6~pIR&B+QgA ?Ap U"0t WˡeU&5tsd0 E P2 I@[%w^XsГHJQp4{Vl,+4s`-?6yh^JQqȏh\E:S&T)V/J XAhS7,oC1;4V)U1MmEfjAd8Cϛ⟰VΠzMB"d@T5 3a%z˦Te!1S^'48PPϡ f7rXC/9,,ny[ɯ-ܹyStO9e| IٴB~@A*Gt+#Djimݙ}Ӽ!Ҫ繽MF}Iu5d@ 3CKwe8Z [7` .p lpl1yUFE#V҂@ ILoKՕC@#j2Ҡ$ "UYÖ" P{VvE)\KCt"1+ւ* 6<iU6Kwٯ1$y;ռ 1C%P"eNg*_$ Ӣgs135R@k׎d!>|Sљ^.\yQShrW̆ ^ z4m\*51@}*. ֦rsZ*gmwF66Sª|d/DLeWTn 92' {Mt^;=@J8~{>?p`p1]+Z>I+c;xxab`k}Q@p *#'wQ9_dW$ufpEU*[7FO9[ag>S☋W>T iMXI37>g2JlނJӗncp%0LFi?Ʋ٘@K]͉nآ3`眐 >aUȖ?7Vk(Ŵ^våk@*_<ʙߪBM/JפVbfd=PsD_X A \/M/lѮn!pa4lqt0ֻ4nrk{A.)R t͌?EWH(:iGf Xrx4p+Ktyy~}HP&%4yPQLt!${gx7K#<4F3pO_h)=5G'AX!% 7oV<#m_[Uˍܳ/XWfyvUJsҪtZ4yQ+ (]3JUhR@Fyce %W)܆7tLI>hzȎ5} ?azf˸VL@p )}oDaR&(as↵S;I>JzF=\`̃2c].E J@D̍ ڂ)`HsRh41 磣D[gr2vWdv%UՃE9i/=w,v*ԫ*PEke&wcw.<ьF8G[kk`6%SKgT4_d6H..&nw'90eRH5R('p\yRPn#P#0{BrU mi6|2T!K\2~vME#B4*tJx$M=VȂZ/[=iBn8,4b p^mRUA7z47`_Y. d눱M^JJLUY.7#,72B`K3O3Z=͛EF4ׇ;R<##5 =,赽)|VӲZf"tݳŲduH'PdW<&=X^~z$U R@1a?pn׹//v&TH ð&L_2.QF)',P[}kXoՑ^QJYLgԩu@!:1)}"vuBF\p Uyd&]d{Sܤ er{N A~YC|T]qCYocȚGI+ug8j귮ׅ|eP} 6gmX QrJ__J1vn aUNTDf}E79f]LaWL P$E2jѢңش:;ْ%PM<ɴ\K4kT@ }19 K2LeZgOac!'.wÏQ&?^¦ϼB*4la^`w::B嵹7+A_ntҍ? DQ ~^5hftdJY/l {|8cbFvLDX[^^s זּY2Sn#6cTBiߥjH5F D^6uVvE0sv~ϔ6ys;L uB;|ٛ2%}TXIo8q08Tuۮ N1j'p 1S=ǣ_جt!KwY^ʾ}t3ػg8%gjtn}݌u0RNU' (dOO62{<ӥ=G<ۙMZB=Wu rmmEo//ZmՋ\EHˀ~R\MlP_Nk;)@ ^0BԦ+ESVƒu2zUg25^ۚ(} Ҳ[(2%abwd&a\98KcimMwDG: ![|MT~bJv{1|:2/pZ~N<4zt@Θ빯B&G^s+7 r+ݒ̴Qtv *RHe=[#md&;_uEXt'2,iɕf]Ta\ h~q (_՜ u+ECNRd~-S!PMTIGЩCKSyK:۴#4j=^ך?E"8s]rIuR?c(M~ҝciɮźD"F{3{\I1M/0fMR"b >/2EMa1 wIl(Ր?vD`P>%ڧDOI Z7oAtsS~?,g?\)Im a7&Jq{3ŘGɗ)iTZ\al^Cj?d)+q>fy vTzc_QZyY)I# H-EAsq=5-)-.{# ]KtES\ڰ_!;zXęV2'n/fA0cu}tߴ+7h~2k@;8HÖ^VzV$|q,$nx-0yPtC?;:xxdF={r2<SG ֟Z&J-p p3 O^m8Ạ//qC O$˘X/ߠNmP!=.dF{#%&GI:[R-B&%2ʬGfH nlbJH&g $2v[~AkPM E>iӵ\dkڪ DǬWf*$/~RvQiS4W^WD]9I|7,J)KeBL_ƋK`UF$M7TY (hIʼjT/V6%ίҏW54'  t.4x->MwE>Vo/| CэB9lW pr,- ˹[8")Lۍđ\yY*avSH p.t1^.=a%9]߀d )_2T*?kOUYP{g{8P׏ j@ڦB`PtbaLS9p_97u,+6W$ |FK .r[<֟&mGUׇ2sTDsΦÓO:IuIh\-O .O:PAx[_v+ uȷ+BWk ! PT"%&j$~ye`xZVGJ 6F܊%TJ;#`w5U3KYti#]®Z6Ŧ ,}oaFA9[sM+0RkP(zZs"NjP ٨_'5ĭVIrwwM4E&\ɢMMԬ9 :0x}_N'Yը-6h P@3ۃ$e2O~0B1} P3]X%\b0e}72>[bQ0iVkX'MWEen?hu9f۰P«XH"&I rFKMhEX)m!g,[ҷ¨= l](ZWp29x-T>SԟW}gBޟx菉T0X, BPcJ҆^=G>.k"Ӥ&/^N Ķ_ h1G-w--%^e#Yj6ҹD[#{ "\5цE֕Gѓm,ɬ3Ύ+ϸ2u"Qʑ(7 m_R,NUQ& e[m^mh'DNL@'Ϧ x7]=Y)ſջqw1QB=h}xH)t-bx^j݆~]NZ*L~+&3cRjz׀(m[G*F0t⮀3͂78$vsV~'e~ YEuJ (}aj/9T>ZuJ{.9ȍ#(j9O#$$~Ew~xebD,2V@r@RמNO〼Լ`ɖ4[ amH w #/eX[LխbZa[;f_dx_OQR9x:ć>r S] IsKMjbtDk[2#o4y0'L4zǐ:K/TFM+rz> o䃁%r ҆NpْFS|!e.pغ&g4ED E5ORd;3;>^İ 4VîЄBԹWI{\At)KIlڝ%ij~d-f'#"Ϛ7(+Lb=_{č:0ͦ_&-TyH+{t`JzRW0$ʍ:+Xi‡U 83ɯ:wV+l:rKyhs.Re oK,,G%2j@#n{<2gl*G}!5=.y[Z3_겪 W5P,QO\ԫk M[ai,b=}o]GE\m{}MYt`PG9V9,o40`YYqyFIC?C=}7fȦd@<ߩr %N]:֤:rZq?Yh/C DTVFr*g։V}}+5|5hVٸ釼 14F}ta`'ߎ6'{w!d&=~٣9 h 7@Ǻ 1v/粑z 6[a - pF s,1cK{sg/UDkiF3s WljQ 79Ztlt5#_jcvJ_'UYV|d.g7 oCήV)7ĺF vF@ *\T7<bS& ma,R1`nłOЎqz! C{猟{dl+ yB_ͩMME'pʶ͕'®-;Ns} qTn9@#`wqBrs[^br6&X)U=SAR6xq֕=_79I9v$78P"+xixGդ8/i|F=I `u,J~o.L_ᡘ׼xRE=~>휘E W0'R8y;$[W W%"Zs$J0z0ø6aʺch "f-s:L{W_ߝwFͻJv,G4JV/f㽫̓b۰>c!עEm$&"c3?Y .Rϝ})1_$Agtc@ 9@lVoayz^ۏA $ԽȰ)k3Zف=0 1ˁuG|im,AQy &`R-!1$DԐ:~mPAN3۞ins*Xyp?}{X{;G˶Keooi4"t~C2AC4PDLQaSxUx#Ը 0 +!Zt ;m3Bꆧy6icWZRB߯ }oN)%]$oNN-<ՙ,K}a`UϪ5j*ke'̬@'Ps]+gːh+\]!HL^gGOzN*kr!uC(@ɫ=ymKEʙ0u(Hʗ(8LD]#lS"EnARUΓ&a;Fb\08 _]? .|=Еp+rx}F@ie,0OCleS{Ʀ>cDEyO3X9 :c"{"#؃qwEf*X2dPذ~=w4連JNX <i7]'.7+3%\ {%J'(w]~۷67\ZWjƩu2 rĽLj,~v4V+44K}!xy<5FqHFjFJ"'d%g6d7 ;0Ә୽?{\,W(X$S8"am ?q t WdYN`)e7.j%P^* HlV@3G 517 wUhroqԏ)F{,/_wiïQp{w*ʨ̬(3;`&e 基VOI&;n@q= S'&@O!~hǀ6}0)1^d&~XjNOlD;ȽdBM䴡 n0"c5CPLD#Ռ "} KýqCΣJWsPg !xWG%1b;r_4 v(L57Uh _d)98kBB\K ;֮#~7zSlN \j_t[ 󛳜dj^(?#`'GqR<\6Y$i8vNMn,M?$1 wܳEhF] :c@BpsT_s$w (TKh^k |3{}I!5JJXGxT ˥?&T$/WGT"k8Klڦs|+AR/@sq0?sqz^:h K`9jI FI}Zgֽz&L ^FJEZ&7o8QFhpπ^@0~ T~1l@3 v8:LGJėKA S2Ѓ<ը=[HcjagY%JLLWPP)) ѫBu(Xr6 'v8ɬحfw]4/3׎iZDԄI0%,.{vQRL4TrjcbL^(A*HbxQ[Ǝ|9}yg~$%΀,e7FxBؚ$$XqAaʠj;1xpJ ġ 9}r:|o{KuO8A4#vC~:?$6[BtR?ŀ#X4j~70%h Me-r4L]63E"XO:+ |y<_nH0ٻgN*o HzJ^Lm.<=}w](N@n&\|1O/\|d71J~F<;Vp*W\ڡLZm X=Q{ `&bO۾_رGk n!3|վyH1^AyqK#'Bk.GW6,\PH´kρkJ|bӶ^H$pjgi^[U#0) jc?,kBT4NtBʢ u"iuӎբSs>':<+ 1cXK({.8`0ނnB8s&B.d: t1}AoOyfFZDXUfx?0{+gjFaU* xtN R:XP[Ñ|BCi3;ę5 ln!h.S.͉!տnyHS<'дö{.ݣ.>ПZ S'gҐp͎},<!|o K܌wn!Yy_?s`6vt#Ǽ&TU:"pܻ*<%tMSSq/͢#~ךlL~ `H8ȦѺ쫜Y7Bx40:~tthWocuK!q`{]0s=^nQ&2<6"5 yx68wberVg5%,5@`1u \ aj]Mnikk.7nkCyBAw+e)ܮ,lYO9I"Oxk6P+ tVcs'lW ӲxJ"4'\o7=rދxD_Ķtd)%xdz;} lXc05w$N{9,<g-t9T#@kF0}u˜)zz&7fC/0Ŧ`;R\';"iY#2^|(b؟0,8Pb YWr8:Մ%z(~W!0c[qc: FZ*!i娹}]ciEɣQvaU/WO0Ghq-cqFMr?PnM*L&QE[9gp5 HIUQ >m'k|a&g[ջ\~|wt@İ.\H4|e˕ąoGB˺uHvon}6#ش(^jQ^eis G5ɇ]:u7yrwT{;:buVjUyf:Xq<(l;BtU$YaŇZVʤK&(˔-@(84ٚ}vc>dF .vXޟf4r ygP[\ ]'RPւb2+]MQJ~Xh(fYv[Є'T ׅNx;?X<[jMsxC3;|!-n)b=EäFFrOΐq->VXg 7^Ϩ_uB++A9䦻 0TxlRc{ͪVzֈNN3+hG@_ $*eV ް a{$X dGj9h 5GFqRN6].4bM$t;S }ڴlcky[ ZQ3;UT>g+E٤ü!,Pc GPX@~@ҩpWmÍXÌDI ӇC "<밻.ӭ+3GMPl)c6M7$GwS7f$Rqd |am T\~=uw^!G5EqA.3ԏ/D'Ǩ>JV Z^tSYմ)AA"8j,XK^+"3~5(Ū+Y*''-O5HLQv\B ˜pgWqW>H5.bR,/7rzHr8Tt*bb :Q(GħNTp]lq:/"Yhnermp?Q12F.:VmCˍwoC Y0Ia\ Vzqi˝fex%d0N/X^"H"|Fp_ X5?{t;Zz5v9\1W:-@u3BzL?|^s8 |KIl++~FqeT^liɭsgmG mԇ0;L(Lp^]k̛%i{ۛiHv"Cmkl2Ci|ě<h3Ce87E| K0i$[{b9V|V&?$93ߔQ"_𗡋QΞ2<Ķ`k5joTTLȎa'{K\#TWۛ:}jFۘչ~^W6x"; D5bR1< bjly-eMK7 kEHc[VBQЗRKs:l8 UEEQn.W ma '"m{Ⱥ%[:9;\(7K 0ESF>If4/&UQT_ŕB9n$ \H>xqHpƫ*elZv{%=pn~g6aB払*h/!C!ܗ%W7."pt#m&_L;h-c&U>9'u Mŋ\5V {϶ȩ%zD p6]Ih =#g-S~Z]kK&1ث[`0D&#SˑN l3!p!u!]H0dhC 資/s0~I{ ؖY^h# />/mkny՝ %Z2),]F6cvq?Q:J!DّvNhOZN 3/P2Ѭe%'/Vb[(b( Y J0t r6-kH͟(pm[.\7֥N" q1vp⏝gKGs/}_ j9{GO=e`gT  /we/ZU|,\49( ݘi,x{4l^J )"!.ZUm8RZ4*x@M#{Y(%&-M<&0!oeQ$lYo}pjj4M&eu>{~s>gACm6Fo4 5}JGo{ט{<FX u^o\"N5T4Qۊ2p 0ޢ.V59%_u"6MS=!^j/or¾⅛2,FO 4 gqqw" (R M譥 ho"BvX+E(yB;|1#2{}Q2EBHuM,x\.驭bddɁrS0&X/M7n(hnq` nl3$3X6ѥlߵyC>rg%Q|Of>Z4M# oqhp/`Ak:I`t @B i<}& }w$ȧ3t^V*?~GC~+r$%!|jFЖTφ:4 Waіק-5GŶ]pdN;.&TuNuzTs^?`SNN7o!\U7X*ua7  !Ev@ߞWOT2ҽ"M#Wd-Ft2R`< O6GX^x"X5FT6.쌠rCC9;*)=-#S?$xc:GS΁)=oDӳJpw;WmwoZ~ǰ?ﷻ3Rm_Q\d'eQ V53U dk:˅+ج?: ]ic詭Gֳ11OX m<|q;R%,]8}v i#'SVƁᦾlq(Vo)Ex&Bg. yvbnSUۀ)^E)8&ga1_Q~90&ܩoJee%7TK-ҟtw 36uQ⋀~O&*R9[)2Rž/Z2̭P6K˫-%9o>\weNJ?GTN*Pl^fۼ oek˚ۯq5Qo.(|7kK?%]eΪX^m:~4yhҾB4}rD<:㪂>Q,h]$|p(- XYt-6O_jۦ 2E(fC n9'ŎU0ӃuWIH\; k)z=6d2QߺedȰU^;Ӭ]1 &EVSY79^!X䫺>J~O!!Fm5m=8q Ud]Q!Cсn \s+,4f=Cz(ݯ~w KR\h;SU7 OLkT,X<VY}hJgVqkZ10A#=A+>6ȇ#2K(0yq\am W Ϯs|bSZ<THD,*c-sOžW&-5۠RKJ@B`3i<k{.5Pzo.~q4]b>r_ 8+rĪV~/IKbI.]mg!pW.v՟~`~CE\*t]c0 IA.5=?B8qMze*;h!c*IW6qyņ<H|ȗ>3Re.it:lE:S25D~**م9%92\7zÔ@iL xN_IiO!R7"Ce}eK US:8!b!Cs9.z#vt sy+NwH2(&ËQN509~/F6ˡ.^>*!@rQ'A_dH1K;`9{ Lx'SHdBЊl(}<7@r'M߲"D5~'UIт>d̊@g;ٛ8b,&sڵ܉B/\3~F$+q0*'u64Ģm6(Y֨OKpa!?TѥGn<._OWZӴ.׭$H _N ]S9 }1_um$*%C|akiV#qc|y0 ໵UQsOT#!gzԝߚ-r"K2E2Ba XrD]j *n"0]h4ӤbYV L⮠5dVf 9BN+K3ʲ[Pl Gz&iĐ Md()^F8A*[ύe%#U#? <1~ok>֗So, q0+>%d<Ɠ'`_$L7J*Z>۶j.j\݆Ɂ^9霕cWoq%%ab ?v>uHbƒ}"PI|]7Z^2D:־L>p(p2=׉llOxo;~F{+`P&@i\B;DeqAWśARpypN({ 9n"O$"^պ9~Wg]o7{.K$wE;Jlkd&̅MIIhQa{@.H4eF9vreX +gɜuΆ[$ Lji%'# f!'Q"QKV<d[^T/ShL%u-'4_wBs.@Loχd5k [ܺ AqX\Q=B^,|b:}~[:iA{8S "-Y81ļd`bj_]OPn\z;j.Cl _!WByCƻvjtКPw %ܩeEpc./ Wq8o>"Vhg%, :XDo|\rAwOywZhh?'SW".",nC4/J 2ףH(AށzW+Ko cI:9зzó>"ŴK;Ĩb@Ĩ~l!Hp%"(lm9uCldfUT]kelT""ٌDJowU):yh雚컶,+:6'o#Suڍ7Fw Z7Z6j-ی4NivS35jM SpI;ڬݰ 3VyK]N>щ|~>oL%̬m -C_OO*99F8f'D '1ɓ`G{^,eH/iJ 5%@z9]ZI,16 [f >EE\8/~}he$r[M\]GTMf_K60u*7 Cn3=^b'rqOz*9r5H4DeU?q9 ;8Wʾ0{5&48κES1 4|%E^ t2![8ktv@o4iέGO}.DiN 1Qڔy~ָLj~<%`z)Ĺ<<=%xK);0;n.NVsIHtg"K| Їg?FF0:FjsF=#[;#cd}EcՒs߭#ro@4 Y ɚ`2krn9Rw oAgD@0J}m ^6& ԕǭ0?XB9l+o2}Bx(bKt g.h]fVl8-; ["99 ^02T*##tbCugH^WC5[Џ@mt%" ~2LTyAWڑ2Cä ;mz)& 'H@Fs#QDE볛jʈ}{(jmw@-8KwzqIڧyulߩWø`tu06mYԢ/U'fiwXZ"wAt@7ϺuCΑw jɥy(BʊJI9c nޖ8$ kCCm%Tn*n.߬B<2c6*ԂeisGC*@- 猀Sp HC~!J+ڄAhXөY\pq1ÀXX:C,!{'"aXsvK.cbŇ>iD[g#M5!_E2"Vd^kONip]'ғukuJbQ 4g4k 8Y>e$ѱRBji+%!gC]/2v]*0I&K:[~~a Wg?l#5ǟ[πrg0xO"#q#F |ЍF% 'LAj@78BHH~b K캏/WP>&G(,ki}";.K\̈́m=g2Isc(^_;X#c̹Tw{.t&1 oS4ڿ#&}q((~zKb*Ɣeְ3 Fi-a,g: (QJy~T_Śn J?J%;JCIwzyGuG 5'>^:2?a ;3y?-sU̗= k7.ÜsmxvmdiێWc{]kE#xObQ~A%Wð':(N]W['j{T {*%gG7-.OG2U7kb^zBx0H&̉19(b>V0Dџ}n LMCQ$U\/z)`$#|,\̴p>kOJ|^ĕ;3* 5?C!h֪wbTbMvڻrS[^x<݈ӖL.i'X9ЩZ0$D1Yޢ/m[c4BG m,hV|"^)gFs5^gIi`1ww#'荨{|9)SL6FU|r?8!)k'ҷux縋Z9jkB&_6㌁`, ʁX >$20 9Z(!߷DƺȹplҦ^I5gu/d4~ j [^-ǰN2M%'&ilD?'#M'gذ\As˶BR+QH0"BOӄD-sp%*{r:@lSկ$py-kRkXemT8jʌ1* Mѥ?AV)!|w dTz'"i 3da Qjed#Y:M z!rp< IpE]!02ߢx?bFYu JCͩ M_m-g?.\4Ac; rӏhL[mm5VPIơPYm+cA|kH}C$w:#\vCrI~^~,qaR>l7H֤@`/mݰ2.e?- xaۆ㜈s6GBCyGC pCi4 l5Od= o 4>dvr&h [r D2$Pl1!/6jdl+OɅsP?)G@O) 3i.:$w=F)L"{ 򯂫y9+͗INKM*V.׈l8G\30%N/AIW} llCuߪhxuUxIҝJ0PuƜhCua?, u)l2q~"Kl!H'd12,G#8؁~ձY5нn0]~h_:2Qpス,I&l9H,uAЪ-dEc}%SX;$1[Wתiޡ_AWkz` , 6#+7 )kKvwq%y m%=\=2 )h/z7x_GHoHSD j1*kQ}$i7=ϟq#B7CP[ŝ*ŴÁD6.wg,vʟ<5T^k (ঔSC>+ ꋒMf;b,-ݿLj-5}P1Zd/x*js/ G6RBJ߯W̄Xo!i1#u&-F!Mԟ7/n>hԑ)QOL5!7~e:NwN ԯ;vekWVH}k~| I2Zo)djH[,%{n%= Dc0E@sxLmP;al Dȸ9cmJ+Ml9tpgk-dSɇw9 2 8J /֒9K3Y*IT Rb=#Jc>C2D,i' xI+U5>Gp|q_8SR8 #^tg /CIGNDXQ|8k]#=|zdvŷШ{j${nQN fw]Mŗ!ߨ @Lxj.Fj+H4OLEs?*Ns>Ul}TDt\J2> |"FE *q<c>]e bӇX@p#Au=f0ZϢ إ"!5_ߠ hƒKж\y|3pTb7T `Om^:?fH)ضqvl˄{1|2$[.U{t_A#x6?XbA2 zCnq t-I"3y|׿_VqM{*n!ykuƪ@䍪_,!./MHo*"wyIs쾊u4tGwqq(*qK)s'^ $W)S j1}6=- 2ڞDt`7%,!F\"@hwq+6ߋu.{ jص: vFVlx)UTfs/&kOm&X{r l,cs"S`13]] I X^|˷ GK"A*xc*^X?-}3*i2IGn 2Ac{NTW(J>vqLd|[zKH{t6L$"qirST7on9ka 0n6_" VK@V-5 Pa`~gOr-X]\"{߈N䬺Lv b-"m'v٣cјps#IF{s|G,a@qܶ,l bΜ_ۼ˟JX$Qo}H3Lt?ԙwu |!iȰ51Th=4Ty |m{:0ԅ8 xؑ jlUzaY'p.5T )hh[qe-Nt;`Y@~*]~):"/϶C y-AQ8`>-n ^EvgT a}O|z~}`$I(B5S 5յz_721XJ#KZ?dﭘQ+{%,٭ſ-jۢq=U{1+r_< mZҲ E6fS#C$/h&I|>=e\H7 d*{l r:X AxLTڱ/k-5볮G]dgi>yO+k f֛ vt d\ѯ8'^l!-ky b%lU*$2csK'\m9#JG ;lD⃎ /A +3@jܬe5łh7W]mK\G, tc^׶ @@S J/aM*65JrJqs&,[Zㅏ -"{~ݦiq0QQMIϞi?_b̀ltA\_ !jȍ\#56~/{tl:VUWh]؍O|фHMq/QnJَD '=c<P 6?hE*j|@VnG8A\ؔ9-\d knmsXy ?}kܙcI j@-J?ګf^_[b/C":9 n rIF';Oqe`;2;v6ȟCbd=[[q5oP8') )p\ NXT}R+!)ZˇU{LamZ)SYܱo4'f[+ r&բo >VKc\tE2{҂Ov[i:VSk-1پw-sU_?Yi-ֵR 5)zbgsc.@4?kD[aUypɎІE-alp%(*}j{/VL]9=czՊu utvKn70XnjBS,$̿[IjryB DQ"e圃(6K!a7Ӵ_-8 i ",wJeCnmæmM 0cCz } +TFXAD=Dp>W1߬P&' q'g \PEt;v]FSoxV:Xw[W1g,؉CܾmN8 gp59r *Ʋι{!=_"ZXLy1S u٘բ|=@1F;1+O#`mYe|(5V\{$NOWjuz MC,"C|wfC:谼4or +bpA>zC?aWǏW7[i.Д$@Xc%o=[x'+Ĭsqtl sm!Ȥ| Q @ŵgkJxH3V`Wq8Fz{-u|"'ig]!lp|8@SaIb}-dB/@-'s ֚V77IjנKƒ RmM?+F443*lavPK%4ai =0=7d*K%KOߍKo 0`bghpo3cq\w3`5.:6"'G1k<5(V9({ ST֗ݎؙa& &q{,նUzlvfPdM;cVNLȚz!ˀ8}84OW'rΚKtMrRn_bC,XIrTHih%?wy} 7`XeeR˄(g3gT#Ét&P 2'XdH:2 ‘eju^,29 ] TgwgH$_0EeV/L DC,tvB^WH[bW)y"g_PmkŒ5zke6suGl |~jk <5+v!jE\ʏ %0I7޻v m,@A'sekojR?SA,t{yE6ASIXHLay<ˆ3`1è c--.8T#<>ג&mΦ8#-E9|%2>J+ѐ/Jܐ?lgQW D&1jƇHX в(PsSd&=i }o aWl\dȾT[\CqM ſt>~ gI+('Ž4 ozi"ḌlϐtS[`K!XaVQlǿ{|3{4;J/pNKeߗڼf-o+\y4DԖ?ڞ1Nt?nr/{;-p53M$y@B$m@b.4I1E{'p&%2̽nj[p 7K =DAONεw,qayH\x~еHiEM]й%Z^!6R{˫'rIl5n_3OQV?9⟋~N' l~t@v Y߻9+h1P5S|h+U<bVRM:N5}E$!%N3Hꐣ";wI4-iDv f:%n6-H^hϰ6wx.o kKIT ?uF2+kFL<~qW.:'~caD5}L#M]jJzQǏj'4n.pH0!?-7*2 ;pe9x/xGiBdyN$z|8M=g7BxC0I*÷qĜAM8\xY<D03R! rf"JIQFZqu2Q 9}|NiC,5 ̂7_rUI*z;0`eIl$$1klʽtv"lg**̡35)/PWm2]2wP-0J+l:k"q ?F!l ]1&,:]\nf`v{V3o9(ghQH_H:E"?b)bc/g~OoN78/֪ۏt6*OF-7'O^`R!hEEPߛw-OW3~Uq%tͦz|1P[5فߔ4W]2x 7qo|$e#'scxa<#&OMy} _.y׺/wYTԌ'+iB=Ģ51\GgMGיoOGNGoWgbOBՅ'3YYN˜q\ﺰGF8wRM?^cXN*<,G* ÕY\oooGbF63Uk Dܹ=8ȟ!Hh2_VmQ\֎"rB;{^G1*VkfDb#]nCʺ${#fnRn`C.f5 }w_̞(uG b07eGUgUl$wL ^cCU*:x#t+E9bknǎ%i@ <0hzSi~4cgO679cHVU$Vl˲2 ]nk* A/ һd7-j kTyE,eZ8úm]S5]Ɍ3(|ĘZ'x ~vTeW4z%čxqp] J\A{%@/'fc獎UdZ̪/I~_->NIZİ)PSHZPjB#c&ςw ,-r-873HjMe;X'&)7 W74mPC5+JĄuњFQXÎdriYڄ?KaoE׬'%mo([ hGe^ >SD{.u9"'8s^q8 gufQ_3QD4nR0ks8q|e{yid3-N .VFa2ymDG#V(v um YAC݄{սSfL*%O]n29f^ےP~乪5-}{NPqAA['d_"AqOlyYs!dO%%;0GbbG7.R^fIfqn0OFB^[EQ*I3WIbWᏃ{v߉cQ{-,w5[/&We>BN_It]!\]e=*\sw<+d$8BKZÜnn5y'u*)83NK$Iz"8"{KҤ{,(M!6@fiVJ ma$ۼ*Q6(dA¢8{ӧ Rz/DM2 ME Ez{3f-<~8;&/2d>˅{holJ:a'ŜࡶMÐTsBrf9&Ai#/U㻎q\@h~hu-KG P+vPNz?qJ/r1? Ap҄[-@g*2>#\=X*w!לk|8@'ēYȒ,n!|!J|74XHt>hˉG3t}w}ʏe=A8nƟ NTmQ#逷cVvͦIp<"s=yR8@J-L/7¬[ '|Sz7B9t>d.5wyG⾾-^32}X\V X Eq{jНeXxW$LQ5/ҧzqKW 135`qUTf9`Z.cf_&AHKS i20saFSL#/;Hi&x|B*G+8&222ujH{u ^0wE%{ZxX4"--?$1[m[Y'6c a "2"iҙ ?,+fJ0vrT+[[i6\kA{AA0("^-|jwi:FlA JA@TA10pLW\̙Z߳]7Z˩s@Ky[hq;M;=Eg `jҳg1vF.Q]ɶxikqjcxW۶]LB5Ǭin5?tj]nXgz5B+⯦g鼱I'H)m˒O.إ-HQi/BNfׯ*f,6[ѰdZb nH|mFȍ׀ V`rxeΕbdM4;}T@Cpom;dcNj5!:|/Q|eamlʨ0a$"'On>a:tlUB@J;^ VHG"4 RAQ>T"c ~K3「[c(K.Rѯ| ~엉/Stxz`.0/2p`Q)_(~LҫD/p+ӓ}S Y\{ ".G;4I3ŸL $yC$þǗ[23}tչH7yIA? &B$ 1E!&)mM&nv4Rx:8xzl\Zx3DX {Ŀ"KpGl#vw{j2ϼk)OA18M#f+*]Q}&Ⱥ7'X|iRYH2Jy/4oc@#UN&cQ٧L ENUZ3 ʱrVvxy8S["^oqG\&g3$RS4CZhz/`NCbˋ]S7 Z*?ıu9W5ŝ包q_F,@(gُvQDYY(2*Yy&D6Ag9 +QIB-F]\;`G~㛷 "fe.$RAew=v2M4= }52540r=}]MGQvYJq@lT; pXy+U$է9j!怟Gk%v&Ξ~QP"w#'X#m'>sts?ڥ t ]euQ'sN=zT\:#PbYM%vݱ|GFjq1}NS)$1~-MNb(iM캬-y443` ^R& w.>ߊb疞, 0ƪI!T١餎Oz#l}ulZSj%66&BGjf3}ZW(Kdo#./cL.{F^urYl!b5=gd2 P wF\̬^aՌTK# i uLvOnYvjv]e.C<7ۡL歃ON2Nmչ|]|b'Z I}A$SO~$eL.d4- XD|m rwE.Ys w7l 9bmt լ'Lͺ0_čݑ^&7o׏duC?K 'H+nCָSDM Sp%+cFd[.M>_}"ُ~U6~v*MBҐ[V /Sk$}H8&! /]6ib@.|Ϋ.Xw>d龜@vknÍR*Sf)YUa9 Vh,jIY H_RX$o"ӀC|!~3)@!I) (zXQ3 ,HY CNsR 1 +{dWmsa)Io\OԃppǪuQinOǵ`64AԄFVZ@XW gLrT$Eˊ>/E¥uƖ{m[RX,Y^~!Fg?ud[t<7Zg>tk{,Ddwf ͙+-QrT`'ntbOM/qmiÜ0(RvX2ɰR 4#oz`0 <>L \\PR͌L= 6K9mx,LYFJ}y2T njB"2t8FpJ9Ř)TEg'x살uEPĘ7>>ɗ. dPVJئ-$n҃ B1"8PN&cL;7wYzUnTL|_996QQrD4OVTj LqcO^02Ȥ?ޠ A8!oLRacƹb#d<9jQ(tus{?<[ޝ mx5NOrY^>ިSTzoa޾9wM=b}ױ.al A)F{>킣~_mdЌ: 6F%..\nj_8~7UƫuPz՚` =G(>̰uݷl%2#cdF|}!Tdt4B.QtWj5hX`6biX@KEfiwT3uij7`h,_d}~9s7iװ[j+!c1ޏD <Я~Ёb8qz,lYhojпpV.},XBR &\|\PĔJhӇET[YFѓcKS]!l\h.gN8kaֺβ8ftr?* qNh(6{zʚ,"L02hQ%_"`54+uba%dAJy! :$ڞoD!C;q'8 %SWCDc+܆v~DL':MGIb H)]dk%2_˒u8*y)iHfd-8Xgdo*"˻ oґcwl*;ɲ&owv,;9F}sO?jKݠ$Tf~`$t qHD2 w)86ُHird$iҞ^/ MpG OUլŶWanxH?\N1zטސQ@+q^cM|OyoCf ة+iIG>hF&My J9LV72TiycU^}c)/WSԹA}"/KC ƣE-yNb:4+W EKtKqPjYR>µe%=SJ4dx".P7ںG>єIũ/(i=)xISϴy|6&ʰ~uF0_hQT9*!*͜r9CzU5N.L'rK#%` ('t ulZw&mn2Q&Hc VUt@Oˏ+Q/tWkTW[=)wx֍#  NYQ*,6H0O z i,Yb!gو.XbUۤi Dt=(6~J)`t^HSv79A0){Z`Xe|5+5u̪5QsY7&L`Ehya'*f !]rYrSXo^2YlϻXA 73V}b״#ÀЋl7 آjh!tV`V]\{Uv5\>Riu|ߑtqER/RDUIۿヌ ,lufolY T\ i ^ $d@x#SQtTʿ3?oƿT4> +y\v<,?"̘V` X̺\fzn@ę}nK٘LlWGbl }$w-fىrIfs;)Os? C8Үm+QF%>FsjlܡmB6b|GtKI-U2bOHA`^b1B3 |s2=Pw~DZ1q%W# ϧ@_,&F&S :>-)uz$!\x-/@Aa3ju-cW>N܎jͣcBKak{Mt\>MZgۀ`G~~&Y%vg-1X 3ڙ{lOzpԁUQʜ0c\MW;`υC^vcuͤIwubQpI߆ӆH71=1} |@JȪrMs]7BA<w^Ғ WDUN>فGM_DTd[XJ2btS Egr[nMm"^ؙ!nMyI󔹁U-z>}'f6'QϹv-cJG2ĪQD3쐸X%>@fHp%$'A O)s2FKP_=W5T sRSԿF7oA@ܖEr@7hK>Fou6-g\PST>+}QU5oyi`U+v\U3/k5.YTS\N% ,K~tHHӿ\s 7e-Q-baR6,! Xh&#SJ) |zktKI9TVk]}wgW%%2WerZmW"&ҀɆ)&U⃠3ƻ.$Y^qrfu| "a0Pamb?_7Z7`p3 f wX:<8:ZdgA9<^ S/>*Э7*:$|L>`р.m¶wMCT-/0\XO6`CKp88X3訌]ƈ]&O[5m֢O翶Q9=l=au;Uΐx .ȱؓI䎼/i^𰙏 l+bv& Zebn[#8TD75 9/&R?N=y&ۗI~3M/ˤQiأF_!@J-xɀ•/!>LZ8cD g,̳D)9VcBtS`Su{rBVy>,ryTCل^@*SO7{T3Q-ڄ˳&.hȄ^#FK˽xfI}4Ch'~ ha+2dЃM!B ޹FM2WkQPTYf\3m.?ٛwTN=+-i.mB_;-W/cUbTPogq} +Ebľ/,3׬:^/ݻac^XLRxW5ع9:Y̑Rꓷ%*g@8_a4j,Okhr'?-%2jЪ̀ۨCd6d&5wa7oh_(I{^KrmŰ8]n=\d$\-p)R, qydم?ɄwS&aH(̉]EhQ >bo-OK7oTIb9F~jpq07URކF<c*=ETR$yDt4e$> 8n[XefNr'4^݇*E&.V )ޓ cএgTc]҉{\7uI\<"u0&Gpo,Agq7hU2:{mD':BA)ɣ%k"h8t&3aiiO]%EƔ3veT)_S40śzw]YQO1E+R`> kF1W`IKxCqP4ܳt*խHv-)+6] )ozִCÈX;Y3ܗGٝB\:GḿP(`/9ܵ+q҉ b67! 4We\u̒/.`Ŷᧈ+yԑk&"zjY]n-P| q[y!שunjcc~^1WqVS?!kߜ46DyǼ8\ҁ %ja{ʪ#-;qaFT87Rc?~4iMq'l'ʠ R4,x @Id'jU V)>TYo+:W5JO 8 V>6޻)I{ UN G$i|C⥦(/Gi_ п 92ǀzM9cr{As_}e$༕)s{:z5Zj{#/'!hߓ@v<ì+;e\w+ܑ9(9egc~8O"ӽ|ER6y-Q>d,ݥj[Zu2A*NiYT[H E@H!yx |`BHYh\J bLH(ccgQ7*( ohփX]=Wejsk,k]F->B?M rfz_\b>Q@-4c_,ӈ!(0ˡ9yۼ@qB+!L&,X]>V9x2YQ䥵ڽIȧu:rP[OYFԑ\RCÕ>ԩ!d/n XZz 9LN*p+AC`M<uloW@YGpsf0=2ܓI0 n>A.%P*,`.tZG;٦@wçIfC-RE7#,buALwK^^+ 3lh+ )폨ԙf(δLUC_np:[DIv|G_)5$ FRcbfDceLpНu.,]>iypN-O9d޺pZ6*$ hٿQ)Z1CexIaGsB'ٷ`B϶_Uw܄/YUV9W5j!Bke>-)*#z:..%ibBJbr7 b!;k05N+X?m67Z- ߯#=,ж؁5 #kY\OXX-3G҅2ќ8n>ɥf]X:b&TMM!=[[6gdѼK¿3yHH>o} )#e0DT<+f^g2K1RqP_Ȳ'DP199d4=vH̵OlC'J$Dsِ٭uP\DBH };qQK=,`O)܄#xӫUJ4}..M'AY]|܄t7X!/S4 ]{؁H8LbCjy89gL&'^͒(̻BVCA1&Nx;d{Mܦ˗(s賨HL4޳մǡJ>Z{׃Ė<bs3Pk+ 7a %fL&=!¾XI l i"!;H#cr:Qbh P3fݻz, O6VKۏW 4X>/=~!$d% )'u.;u9$Z-$dUxKvtqED;n f{X&*ΚHt]u^.h芈ml~C͟S9ptN 4< нnr!8~r=h:ꗐ8W`;Ûg5K.LJDIoS]썇re{"U 5v,],~)%ƣ\[~^V9.zfFRkw*/@5сl<#Vh.av-^`:AXH#7塺EK!O@ %`Aaɫ}Do`4J4ȄM@&*JktAx$3~̻j JCw 8JL'|72x9hiG [kgn!eer:-AE5.K% ']dzM&t j{%dX$x HzDv~^f3 nhkItمN"ޥ1%T 'bCܺ!؋"hiiUkng:Y"j ETl(׵Q>Y"9&tp;X"$#*x \T=z֛$RDIrw$Ie6˩ښ%O0FS\ ԵuϦO.RЌ"(e|$K/`$f!3`Ys 텕Eھ?3) UDm8 CuCrNlGȏ$]l?[ñ6ePP3A=DЃjp)(lir F Plt=M/ N]__scǎ:%[o>ʩH̪xD6հ;@5=}efXoBt faǸ—Lؘ*GoJ uTC71BފޫoQ[.-w,=;EYtgɘ_'oܭEjM؈Sy1Ɇsl#|f%l5Wj& BGjqɐKQz3"7Ȓ:~ )PO_icV]r1_ȇm|AOVCL<JV̜dc~am_R Sk*dʒ/lȃ?oxn8+Կu2=Vb.# 9)2Acvɐc{MA`w#sز1ɍHkC4VEd;LިLRF;]yVAnƢz(*<*.p章D{ '],z.:gdGm_|\kpUKY7gv*f)@f$i<*caƲ;к!. bn&qna/lF9kQThނ|?W2>;O<8"W:fP<ݱRN<TmFS,OBnFKzP3k76d_ }Ҹ@(tѴ+og3-SEe*s)+l2Ԟ{I.tΥe3>_s|ZL??1;ڕmϋ)C,OϢZC;K" +#ZAkNUӘĿd~1,sD"4G芥 \SWA􇑚 ;DJD&'(ʏ>aN9%CN!LK<( 4]N?*Tt75ձtD:'8/0Y?C!|`\FqBtO[cBW;˰H%-dfߝ۾폆HThw,k&uHhؙl/m*ԤZ 1Wr&Aaz/8 v4^\ ]uQr/BPeiM!D"-}FMp]9Z^b`V{ϑytaE9+r]>>9#` lygC&tX5g?H ^sV 5TGJg-}F_t$2@3bwU\EmK~ۺYâR˰4)j[~~_IJ6ѿub3SgyKgk/" [o Mbhч NKC:;/b7|dB"˫:*$TO~U&L=7tu ͇P}RR2YOY=/Lјo8KqO-y<Y:4ћKqnW#b,b{U JZ M$M=DJ`qb9&G#K_ 0G\K@-l8J[Gn'lw ϥwg)zhT z_&,O`| }x:"/@Q[1 7G>3c;@2mx\P#GS|&l!`' *-tH|!aklu0 UUQ(izD4V F!9NGYpzc0B͐Qf&b L&#Vyj1}G1,^|K; R̙m ,Ypy `CTY~DpBl-Z/6F Jr좬PShlȐm%|W6EQc"Z0_p%nAXwdgDÊǏ[ "kciE9p j?f0!HObk6|Aل/ePȲƌՂyvTE?lUQfl4Q$|g)\2Ÿ][:[ec |bhFO?R-D>#zfW~R ĥmAҖ^|I@^4^L&☺.qu,Pj,z¡SdiFdjX AmlO 1L6@Wu{>rg־jT q6jm;WD(q,ˇ[3c\^~j]TkA/XVqew/b -ER?tYMg"'Xja! '|dZ 7peԣض2qgSר6HGٲw@dx|$f%d+GB+pX8Yl)J.ijq$|*N K}su%#aNuA@Rb@Ͻ}bF, a 3g}dyV`IMYE/^IϺ@Y8I˩4+7 2[0a=#l2r rҊ $-{MMW̝{u $%3dY%E;EhRb bӧ4X.9^1-(Jo& 2h.\i1k1 GWؕ:&0G.GB<5>9 +r>NXI{Ma}@BVF ^:sa2{L?8R{ӕ@y.CcuUI ' b-(ΦBaZKsV"a-HU&:"C_FP+K۵eC8& ?2h޴hxsV]n'y.&ڥŁl6}4<չ1qbi^IQ-ъ^u%(̊+1y* zh]?lÿۂΔ9Ɖ( Cju;0X {`;3τT\5D68<0W>OOwĘX4@=?|SAw>C~\oH)J6ErAzjA8+$*C ]Ψ(OAUaʆ_"KF_wפ9 ~$*l =K2pD E6t= :~cKA+LthP%yY)Y_ٸKp[q]DL ι]O S\j3$T`$A9$-.am.IVuyx#@$J9A1Qq8|Ɔh5n`ob!6fݨEt|axezx| j5=Ud֊QJk$ŴlZ,ub+荜۶DsUQPY)˦w YW/I8 'q{k4Y鞌 lU{;07 lojoy+P u, ww=لBtS~j] .wަUۡ]ig }DHHL}M]5iQ>59ZSEss͙f "z*{cC~TN*^ÇA˜#8*%+w՚aS()HoPdGIwr{tEҷҏϭD6_VMw9 {I(H o(Ⱥ*Ϻ=$fW|)J`YpM9gvu?zRu )4g -|U&YoITMxQocHAhc#UƘ) o1+C.̵vBLQWh7kW&5UF3M $Iz^Uސ:,hw²['n"MS)R4PV?ܠ=񴴎5!#*Q亊*| qOT{ ~kE?N;]m+%XdXAWm j9,DJB:TtdN{dmbe䜓>[Ѳ;DYN*7Qʍ_+s;v8 ՛6x],pB,Z0NHۍz,'0>ZLe];Nt몃J8PGȱE˚^DcMmژCPAQ7Jy.qT dԈrEܦc*zVqj`֯]D}udůD7QG;Z=lXup%sG yf*6nY*| q .Hƥr/;_(&jyR[)hrE.8U|ilw%4@#@N  (lsXWty#юov% ֆP=/^zCCl`UU6Q&^E` n'mch3{k|5 "CZpo@:Ô[$TrӪ4hwJK~ə<(0m7e˗4ֻk C2d_Hy RB!6̿R{=vm>f1v~GR\)LS[B r7=GB&F.-'k kN]v5>aLn&г{< gU6[zw(Śy ZPitjn.-a[nX[;FiW3#KnGTUP\Nze ?LXۙC1Traek;7;3Rig?cZ<uYF¹X̪Is]؉OpAn`\9MW ǖ фX3B7Q`Cf#Ǣ^KăT~Z9Pvj jh keM;00`:$_V̥2h6dF᪋w qesU w_^VJz'Vٺu\`z9T^Mtzyv"$,Ig3ctڟ^_OZbG< FCw>{Cw%8VEo64vJm@} }3SWǗc Ȳ}ѱP𔬩ݲRrD#ʔ8j{Q}pᔎYH{Oz"BI߾>!7m5UijN$)·`e uYӒcsư-P wunq93RsT ![ӕCX'K^sN}囁|& QzATip%#'K *@[`ubuNeQ:#T Re:Js/>傄55~Q\ {cUgNQ9,ExWC=O$󸞙^4>kn`E&e[xOP'Lp^ڮ7Ĉ^6ׁ(,]i`Z^ѝO{G:WI~g5د"esHJEp%|SJ ADNvWv_uʲU,4uG*';0j\˱ Un:ha}Mhp %_KEh!( mZ1*aĤb _g` Th)[ Z+3A$Y 0E/HHΒTd^?j), KǟAp\c|0Ie#U82,۷ߐ۲k"ͬC2t$\S,H&zE{#y,4KFdŸ u;DΙ@\-=W1-'s`"FO>­2 sF mޛxB&n$gk1-}a7 fĎ܈># +h<(:!`k j  dc i@ $7e!fMvb_4#+NSL0EnzgmzV8zSP0+:.uu8ZNU{rJxX!W78:xQ0`9 EmD-;;hd6$Ά}DVUsqK=;#Rjm!P`t6, Vw-upq ATlCa4|)c }g$'rqPȘ=F"R͵5f҈; Hnr:zՄtNEZW<^poМlSBT0MW$8%OdVG̡oz׷Nq y}WLz֤3Mʹ#bQCPd kq5r}(Pl& X kðheѹWȟeṼ>qѥs)!q9gZG~\soB'C7{y28(Hӻ$&LPb1+jj鐧Mz<$JA]{Ct&UMpٸ"Ya<K)fT2,3$UsRKJdّW @lU=*Cl H؉(2Lee ^砰@SIμ i>:S|ıE2~+g,E腽 \u*B;“bނ\|iu,Ab'b.YC$)c:SQCwa%JJM|_ؐ #ؓ 2Ap'~{8>OOv%W,{FldDܒi]j8d{^bVGR>rtr즘Q2-V.Q#gh8v ,Wk;>f\c鳓9P ][4I`@bdZUhhIҩ3_,Uͼɤ] NuZ#נ߿7f[V9pt+M0 zj^s9/;ϚSFL4bB2ocY͊a;2!AoI`Ϟu|˯S#6}kt1^I݅>Ot(y H9.cz^lZIi[whq;SKKa; 4< дa{|0-S!<Ⱥjq90}41ZK|>_[e>uv]hqRF'@?+M"nGx&Ϝp/;^{1?\A"y ^;jci-X jRavJt e5a*/*Uls[I,l٣_x__Ykg7E9 P_㜀QUt ]yU4g> m ."$a`Ǽܰ-;(zo~ӆ.̊tc5jvNzj,عntG*o习nw<{H="oH9\ NVWk+V`;9"4ʎ=AG1VD-|fdf#?/&D{A| *6Rz] 7[>pu,A|AL~B+cti›v Mc_ݖ_Y, ~GNEdu uԎ»p)ٟUoQD㒢Y 'F?oN,?/հJ:1< FΛRNvqPI}H`rI,mXQy*x;+P*킅d<"Xt%M n?J 3*D5ֹ}̇=0As~?v1:qr;1YǗ9-3o|ϊ/ӠCP`y}5PV7E/Iwvalb]һ9ЁXl =Tv\}f"֚tӲ%&z? Wh+[4|c߇:Lmϗ)h\D^n{٣cx&p{%(G*+Oߚlk&uMc!rxۖ▱9vpW8ƉhH#{0tkҕKhs98^q:W$B06gdPu֦|z"vhxvw {-7i (-W-ez&az D Θ~8vm=7mDK#9Jp=B0uaʀ d{ss_[rW^&wPTo$Mًo=Һ`VIGKu#{f¢,-5hd1t<"L##@]=;uzmO;{aò䈒%2mlp-M}!(<ɰ PY';Z9]]VMӤR\?8h r#6( &j^ j&WEɔ!\HD^X@/V 9p잽9n`yXCD!dgj4h=#KjqlHl땅YucTZZr7&뉻C$N^+tybbHT7RWozra-xonշQOsR hSZb&Ky,J䠥̚n!c/Nܵ [ѡ YVLyyиA1T_up/6ֲQ@}XiÉw.B9RVlB-Ar7}G*k+Y`3˗$X{ ^*ŕ< P aNX؛JmL!I,P·/GpRJnez?K)ΐ [j|të^9 ɺPsX~rX>P)Bhr*u֕ Av*~:jj'd8&)_Eaf|#=`}7jP IK &daNbzeY ++) b)n.ؤ2C:2" j 84qw}drZ>#*/ xo5"59t$2}["/G#@o]VmHekzg4<%8+Se-<㭪^it_r{S:f[Mm]OxDnR;|,1zr3 ~y8#U,k^(BcE#!|,s(7A ʼnDsQ tKAG[ gsbӱ"-8ҥk؜s3)pAXL?Z񶖸0]5iW[>XnR ??q$YE݁_Zu4{WF;_a]cU|#G}W'kUkY˹Te~VϝRqDBmae" = wɼDd4a?mgiIp&ˢ]пƕ'%ټ'YuB:rPȴW2!b6gz~ +ͩ.L$@JBvJ@-чM[Qr;h1Fz`(OUCJ<`(2vvCs/Oe%z=BSL%;5V!^׵&ĕ,dE#Xߍu wtI)E63'jdx3x Іӹپ@jO${^ݪ!~rPKLrRelA- ~cˬw21R$/e,ߧ/ (KU|d`꣬p}2\ X⸂ʏV~\Cr]LgAQ-/_?|Bu IR^yF-;y`T#L{jW1~\BCK]눭e#^X}C {q@9ɼ<up)W+~k_ S KdShjV|fB|- 72C/X@([keOˠ=`ᒗg,+"}t_D^GaEJ[&\,hZu' BAT*)Yr~o:L' ,ɕ];9n:p)(}b_J$xɚl )g6 ILSZ63K.3BvwX S 3+!F4j&MGo uڜWfCT?-[u]hJIG)WUqvٶH}˴<컴E Y;Rc [RْsSRE23L.9T]Pq5D=\1LNtHZ.1VO~"PٗMn﷈橑4ʯfcV*ÿ}rÉWjMf|EۭY?lJ'8|t>iA7"& wW, [E`DN)_*an@'MdIڻ'^`bHGҩ2X?؃EL]X ~<+ E.1Ry =$Z;Tyf*XIBx2]ZMMbM?%aWavzfWup60"Vepm4Xa P=].|Q-4 ޗTG 2UT ,nU$M!Y12@po!Ks0ɴxqjE=O'R*|!%g;)Zק9`YL_{0k9^{zb ]M:BB JM?s:7e}Fk!$lQ>7$:&)\dd2S0 b'h 1IFDʠ]x%V*Ԩ%L(OXxO[L=)f,*;Vu]Ÿ ԏ7ĈmD~sw݂^?Errqy`12L} t\0z=q :1*'ne74 Tʪ6Whր|m`*J*Ķ¿Wg{dl!K}-U{e4;S &pNoOjq޽ZDnA}-9g,{gK2+! sh0Ԏ@-h=0l]A/鬳W dISKyJϫUB$݁ s>ѳ`}/// 9 =c&ӏQے3%qVӮȼk3 ޕK5p'ȡcs3%HV0:61Hݎuw2ĠKM19;X%*To:&pRY:~ѰǫYzDnllz|=B`@$abY:wʉ1L01x[^g F ؎q>?r-midQsRo@TN_r.Lu&,`1F*]up6OMy *%TVAlFwq@ER7{Nq!Xv]^!xpݶEe HR1*.l":ra )ic@R:w[o_Q!K"d ڎO_;/})+1qZ&.ҢON&0Pn*ȶ8Yw=$# N pG4V7:-&O `0;si|yw.Nx$^Uwdbz]̇œNh>3~^k)YEG>q'yAeI+ȍs x,oL7Ua[Ыp꺜t 1#'‚ڄ I̧)QWC{MQ23D帚iDk\2kJOR(Gexn]-¾GCi̟)J!w?_ hu"]~ͧe䕾qB΍yRcl"ز&P~ .$+{Vfǚ\Ysnsd|JfℴqYuY]`D].=nt2 RN 9!D1-%xYÃHZ,,S<Tʥi ZL4p ,vqV#Ȋ;R!4r*hy1PX ۝d@B)?ʚ0=qK sBTe {&>G2N RBI)Hҿ~>vk{1\ ֭|pImL'u=HGuU5BV2(UhwzI]O(6r32yk %}Ys|KЭD](^6mr V3vS[xVsJf!yXZ .O )֔t#v3@RJDkA-I<u0W&v%h~bnfוWmў)ZF.6ؑy !ۜ.6xM̲.! 4C:rr!b5Μ -DCU6?Ż_Ve RG{`??VW/A :XRC)+&$ hǹcWV$`0jAZ #\E*R1ڕ:X#W^}P, }2\ś#kMچX^!ߢaVH@F >Ru8S_پavWҒT&IqH^XM\4qc ܾPE{?6Zn,tL裀}ngm昞o{+(wA(`"Nų؀(e!KCԑ%S> yEdeڠ(j d O໘yEB `7OFGyXU;"/*@2)MvIР`6Va-f!yZG'*-0 :~n%@H¨^?=:_?|B??W{4$ Faad?\vDLVb{QХ]+ǎHs5ᯁ9TVyM 69XkT0ZM<5r*^mrpS<1壜 fЈfGLM'ͦ"F[VMs>!l/ q)ZowOǮ)0 B͚)*7'zX-y"\o60k@ @_v'Zt-V6N?wAzz ~wY1%RZe"yWj6'ԙo`+Hlk_^UQg!G@pUE<w#z, 5G׸y4떖PĤaƨ@-]~^Y5iXaz =1_̂*>"uːǡ(6?DvbSHiY7WP2K+gXH)9bW7RITMmui [XlON% +74ʹ͛wK0SV|TYכJuq m K&>靠HVNL[vdA-|}vz_M1`xQOYsC d.UGU1w@r-ٶ)OěI/|99nѨM6X*SHgD<*>NҊb黧=.JT 2fJ *"_@p>nl!zod2b*` x+q?{ =5[q$'k ~5R n0`L8{+4;ǥ%M5Rc2haTˆU1;&U%M@/]WJ]Tpiy-g@sѪU0kdb|¸٣jXg~[I.mH}WI/g,ڞ s˨p6φcn8m2ǘy3wzPւG66? X٥LXagG6SU(ɣfG[WY|̢ýn $2݁`Z<|ؗܭITv\otxQ*F[n*m&"(pׅ)(0% `Q()#t &fdS_>ëtZӏ)w3'ۜݕyNrK (1!}pXup 5<]'af+BA"Y+g㥸!uw q-˫%QtG/o4\#NJw Z.ə "n[}FLoE-Ԯ=u:IJ n`>)~h )uhY8͢6RqE;j[-A̝j_ҍ@^6b96)ɍlY}XfBpB[V&GQ6B_&t\ v>wץ7K|ҺlU\mVʢsѕdFUnb"o?Y LPY2t:qC禅MSF5K9@ SӁ:/ WRq&h.͇`ҹn0~buVDՔ#`{XWh?Eţ<%Aw4@l蔮yc|jbl/Vu@n2aZ>L4})%M|B=ɽAiͱB70f& /[֋J*yɷނAP}{e Tp O!9742)Ek6.Nu #1cfҥdsbhZ2E\ 2 _>^ӻBrd7wGH[IΕh/0Vރ;?0HDeV%G=nLijߟh.fj{xZ o &.'&jHT$xXVчj\*!fž,u;o\BxxBpB>`r(C!Luԁop|6v$  &, x:oxWM"TA*- biu;mY~VTlve@HL 8Pxi-^T $Ѽpud͂oHnO!==_+HC> k"vL{_k[c} uoF45VcRڗptascvJ_M7# 5)v]srlF 60TJgp u"a6 :ʔi@ugHʈ]1q0DsgʼU]- ܾLߋ-0Nf') @]AWh*Yn^' ;7IumԅWu~'7hXS g2[~gz7!._+Iw|ZfE/ xޝnsO?'PyiIYOic$wOjfsq΍|g zYqi~'i|5ء+&4ƒ2q=eVg8ޜv;"@^N \Î/Souh{4ŵA%e!CS8Hj;}Nd)%R0  FF)^O[p"H9_pv[d~TO?81+F܍Ԣ]^B~J7rqϴ EOބowU#AtCV,#'npPCn5۔'8([Sd95FZK >91Dv d!iw<a麬 ZMmbyLP,)IKvm[\ ǶA,GK*pl?[KCXfZL+@wx3Jk›Y8K+5sC},K4Ì,'C1EjU&s0ҘQrwVxSAgbtC*F\݊XfUI!ڊK{v)G].O\j\-ogoo[X}Oqٔi7'S @iبtg7d4( }\mCf Vf鸒 F=Zl x Uٸ' :#ð߶6ŅhK_$㸜;,^'ݧ?;E $ ș4 59T:nuwfVyJQdEk7B.ږ!2t6 kn,k[V,W9E)?%-3G={<@K4$&5Q :J(g /{S۷К6]r% nn0+A:!iGyZ0~m))5c_qWr!Iaȥx S_cp.k[GTAuC0J@U ܐ% KcA:E oJ8}5 /̛3qX]PF4t1JĬ:V#FF'A MU+zʾ)μ6pGuJLffyu~QeSr7KvZd*OQw> yކ-7U'N+ND`XcBze2b8 CCc9]\2WA3Ƹ*z /cvQ ˧Ϻsw뱌=uQ6=]1ꋣV5p1[a:!n,29hUʣ᏷T3 uI3'=@pH-3D\hE+@tE; ]yߊK%Q !~o0B! R#*AxɒK87#D_],@f̎|o]8>Z[ a忖aSys0mDAm*EmDb1>g#WoI \@շ5$bar1M+9`v"tS$.EZ Rۄ fұgfVuKֹ #;c /Dsz.2cau'/VEVqa1wueQ7JFuXp/PZ^[ʺ s8GeHBoxR:OPL5CQ~{Me¶Է# OxOQp!e\*'~EAlBaEhJ0b̷;`MyW 4yჁ6T+Zޫv$tm0Jw2ꪻ0"|?MK<ֶv}BfjEB$45m|?THV60 Wf^q\l8QDb&6'wqM&A ε|t'D]F|vrpk0Uڵ |NtE@w$Xynakl^'nr孁2B\3IO&W a^|AuIͫC֪3k[Jb*z :D֘U5s?>Z%BJJG+{?$^}'Sae9ױLE^G>v6`C!U9$;~z,4*gZVDXƺ 6Uh2`УdB#r:fB( ER vS!@ D5 W`()MuNnIvq,R4x&e_2 W(XyKp;]]! _rT &P,U/`=jYY򄸔ߜc}UNB0fzBWC?j+"@j_] kЌtd m#'yG_#iyצ*zs-K:Â|a:Ő[`e_Ljo>[ yhI/}=uϩE§4n@tLRKD-<qϹ,"c;ɟ#ڇ?:C'#.S% ׳ \T$'9\aHQCook u,==kWG4 }X;+zx|,bY-2Vg L8U#!%vPdd,ty*{o丂V1=d);IQC؜1K {#YD-\||mI3W,gsAz˜ jSN%!tvo5i{x t<%5CEnu&h(JsVD~6p*v+/\ T[ zj$Nq) bG$!YNɢ|O)g d5x@b}i'tƙN^`ݓ8BW(_IZS"(ngk0&w\tKv tfgl?18.SYΓE Ar3VgQ e'N8k-J؍7>s듈x t`IzX `>vGdj?ˑ7S0-/QM( Nq=ycI2h/弱HAT_)RK.XeAZcCj(B(O/%d8d9!G~t}ʮ )PkjqJljr`R?d!e(A_p@U~ew K"LKF;)Ccx?Y]'ud5bH2 dv+[5ox5ļNZv?I{yy{ N[`#*+5NŤV?{YTl;4PD@&ron8;JBl#PiWz=z @<ŪEfX]ɢ‹5K9"1\ّ9n p%1P#rW#xC-5-㎯pjX76 <_æ Zh[-e ]5[j"F炨Tf,%K X"np7 ;Di^}tS +0lE؞6ܮ6+قr 6أJ̴Ɣ`[nsAuGڗ4ycƙ1 _p ]/󳵁0Zyxat>>.-AL!{ۑnCk2A@EGNe4Aߊsop7+*7F3Ceqlq*S6%uM!!hC>ÕsiH#8EXsoYS{\'/@:X27dS1[^t٘]F.m#]TFp~JWy0ʛuZ>6>D7V; S&LƁnfw r(#%Q#jX1!Е&P2jPԸ Y8@zfy۠8Ǡˋt}.]]ȅţ?GLNެ9𼖫潿S;0FdQ'~SA&FfGúa6m .6o `zv%x(Ʋiha*Υ@iV~TmuRkL #赓<Xy9 m/hz@ܘTqjGۺ$UCa})UB qpxaX,WQ$LhԔk `k2hkiΙH|ea$9 rѧ3 Box:@5;2rIdƋ0K+&'6l|Wrsu5RÁ /D22c!_Oh追f=pn{ޠ o70%xϜfW1h.4PNпJ}< Av 4_^~M7u:?QJf]r|CG(Jںُؿ ٟY5$vEVk4 zfܙp}=[Ё::yu%\,<}veee0&\9i/cIXUc5v[WW3d /or$ԝ?](Kʃ]wTot[|uj GAߞq!Ag oHVwoqLsYGzs&HtPr 7ldn<@"훁i^&[oޕTEA>~_]N,q`nYG1[{7P=Wn\xf}{`/IAoX[YZ FBġX8;*EʚGwQ>G\C`azi/a>6jꂯR!;=!=HA hL. u2i*øGa1Mt22;Ts`29w D ]wsqʬ[6!PHsxj*2ƒoo<$&ox2*4w ?^TԳo'ǻ/*PkN5' >&Ϝ=ɭ3W"s-8mbw橱jD]ѵ^-(v( Yn$#$η{G|`IbooU!f:7N邩;"Dls`FFgH>\p X4{ʯI`auWFAe`,GU%W^b QZXH\|rʫ$8b>WͮES% SJo24N'9uWhX8ZYul*{+\!CFR|Kod<+C*Fm#W{*H6 @@G0"N]7\GK'4&['&A:hM:$)RD%@R*wR A4nN@{ i 0]27|t4ⓩ+>-i!;>ݖ E>"JAZpݿガӳ@mcjeK!nLΤ@>V2Q:ѣK$ MDO{e@! .A1u;=)T>'lrI9qϳS?_t& t 4ޅ՗^M:M[~@!kdo "HBWhlE5N@&Fgo򀍇mD(%yV֖P@7_?#zheu>?0&MW&pxkŊ_oVjc{u`-sLv텭 5Z&iT'aS NԤ읚fdLb̨ICsz&"|@#nԐrf_It+*mPT?(6__ig3.^]j"{J+j.y($qkSIG%iڌdH_+Xp*ӴqryvKs|S7}m@&W%`?֚4j}r}ܮ<MT[zTQak9orC`Ēgnyj x&s(oԦ9|.*ɾRK(iǼuDZ G3rbTs'a~tLťN47wEw"7o*D 6W ɇtQP=38\)ݛ(SMψީZP҇wleu٦ZKڰ&d[cR lO \ړpS Po62"ߨ#XcD@եPv`m96 7}{_t<Ʒ'mjSBXkF֘9Ǘ R]5VbatҶk&̊<#?BŴZ}G0p 8Y:9Dल=] O2,(Rg ^v2fZ$Q *Owb_9-q,6[y&1o:D9с'JrS)a?l!Ru{v^^hd535Efg3b]xxhW K?ғ{'glL& A~QogAZ[v@W%6,o\?&rMSy%PT6de>ۺ t\#8A{2L@~"r^/MKQ#Iz {q'/\e6Σ$! ld:&*) +¹7bY i us*\_ L)WiU*`CfKE/Cl؞ s*rkDBvO6-Mhf{eFh!٭aK!˛lCiK#L(SR4!iq#\uكy[)gnR`\F_վ1SmGcU #qDOh dh&_ArܧcU+Q\*[yG 퍲̻G} s+":QnQ\(Wtu(GCV0cVܐ}yТ$PuAјFy-׷Āk`@[]gd'ֈg؎! Wa IWu%6d{5&.`(#߂L =#{ <8-x]Y::iOZ#*Dk 7xg^ 7R{~}ɞl]QL8EOKv0P$zH.| 4[ !3f`E :L#RipIʚI4YvrywJn"T7pC2vW$5 b}?wHmЕǧը%X Lϙcj<|ovf{HY6N*]زCeɪ_pf~ prZ+IBSe " UJ1nK=wկ^H!7GvS݂?𕚸iB)mK'ͥ*:;ǡQɯ? ȬX![_32G4Nhx{ C!}s\gyrk6ڃDYZnEU9O>T $HS;ĩq)7~b|ҏS0pXI߷ :8^+ϖcǴPP j~ԡLɀ/.:A1>}lűp!nqgz N5QiY_?n@=?h;DUz‚ܼ!R$_@K0m!ڪ } Ҋ巤K>aI$ &&֬PPKz8H@Ky༡ﶡIjq|,#r)3yr׳+2׵j[LVS?XֱCoGp7رx}9IܖZ&eˊd*GbwzzSw,RȢň?d*[N{o\IAbAҴ!CKoՒP)}~SskE=b%j{%MCf^x'6ZUp`-e:fT. 4.4I!27R!jfHGo> 2tgRK2e3v`ٙ|@dY 0MWϩqZxYbMEH$:)Iee]{IʁMur;aZtZ]슣Y$,wsW7>_B>47cV@P36aN牰z([7-a(#W%-OH;~wcp=MoSyji}b 9F0gv:;?G.RPE vH8/.͑!QP_X0 >JꀵI<"ǢS杛hY> bY嬥)] _W2%LkYDG ͈z1چnLcvHC%4B;zJ?J?hhM=gJrW0,OeQ,".T Y/k ȡi rWڵ<d))m/20SlR:n3hp ju*G8}# yrA?U|#8u,Aй'ҨG W'6kr9At[aC bgfZ rQ<̃:.;1WF7:i b\* !=8.Ue?uw?ĜdrGHJХzkj*eq9أBN qñ%֟E`vp>0"@{[u+ȬK0<ޮ+AU&9 õ:Ȫ"z엷}$WaJLh1?qlV5 u拹Ģ}䠪IȓvqSkeA0 : tfV蜅X=fNy5's>F]awl]]~ab( {|4O2|cD\$K)"@l裏Rmٷ݁'*PWO,,!ckyjuw6$\=۞%Fd)V8f7)SJ}-{ÁSm8JT^*XLڡ$5Efq3KVZI1E$mKk(L wxPڅ $\i,‹kZ"/?s\.L ם1LlAsh3gj>ȗd~/|3U󌜘p3 4LxV?֌_ -Ț-1ַr9Y̐Bj~m;rɪf;nrU1ޔ)!_dߠ3XOv3큏\Tdc S-hVABZSy#nGYZDg xn֩¥LRӉ3cU+)c eS/_Va3-}N`A(+.΂CZAR6E/dz 6 K^T~U׵a@_vgz_w 8UO5'o*c:LU,訂C\\צ/I("~49P*ו"!!.LHہ|bȹebt>`l9y\ZIaH/E1K9M3ro?(ảt|+u޾!m+t:T;C6"?!w-:s2$Oq%rѰ%P|WڂGύ%SLcj}W`OCZ{@|,ږ#%]sҭS [o Ҟ;oYmG\/$]c.$]wT.O7!ȄsEOfyRx,aUvʈϕ|,O.Dn:[bW(#tpQu֢<p,K"%HNlOAn)c&*yVF(vP5bnU(p:ijA)u:N>rb?/}cg̖?(|V-9wlg6M>X8yW$ailE#ِ zKߧ{O7nxe!Xu(ʥd YY۔Cኚp<› M?4 25E3윓J\#C 1y7yosCpӞSnM+K .'0GΆ ݺA] RMvN/s^].7 yIF;x%A;iQ4Ќ$ܿ{0>kXf_m;tpK~C[AL+*CofRЄsZ $2cG) ѿ]-yPimfɆە'.NY[I.{C/8qɖFۋ' iv HwP^E58xtp#`G 79h0t77Rj5-{?CN dj?fSخq-`I-ߡBZGoU`߶NtI3uZE txX4|j u453-l].{qt[O# z>b yb~6]kOe[_.kw0l9l M:^7x8pTVupL~L9 +dH3f*v$];9ݮHn`.uX%CT3 qCp.KsR<,ƒ/쯁W/q֞8 Xn8  0QΞޑc؊jȜ % RcNGfx!/yn;FBZZ'=)ғj.+-a7l 5nnH:qKŦ o8A` j>/g\4& PRp$> Ylw E=c c$܂z@3*q |N"9/|ZexIj R]0s ; Vhp0JYiKވJ!wkb`\db:a<=7aˣĽk^#jdFEٸ8b! T1_z~(|`;l~9X9RhK7nO^'=P 00R;I4Әln">F5I߹ZJKȯmuuPq.*x_ȍ!1)_Sun5tCBDңy+lbAcp$xKdc2a0`c&҂wņD{Aol\U\o[Bn'!"H9w_bAFFߊ8}S>б% :T%kGp/r?+r; ˾HdeY2!lhyOJKdvT|~wIy@HoF0"%`Lhz=yb@\y2z@qONSٝru'eaic_Ɨ #9>L݀aMȍ&Wj<" ` ͐DAzgNDKѲKKIn^+n۽QY$zA8ROF^ }N5=x`d\pGUv=fdx! yh8XPִ2an |+}5İF( 5!;d&e|vO(9B&Sї (ȓaEW/0xv3LL3B|@(uNCcmb(FEG%[p }!+Cȅ2טc؎y0zԟBah\,Ye/W9lNgq^3q:CiAS/b7(+d6,n$J{as{@L?7W'_A5_2(SEf2K3Qm}urFGfߟv*"DJ &hJ71!@zaD|^d_ U.DsDF}TDg,e1ܛ䚍T 1q@Au3Wa]eh^Y|$J'{'p6q*Vن` .2sM~Q~`K1U:C$e7G&L +r,i}6#D`tS9KH{8ȕOEq :o*Zν+)MVQ(liqEe{,N_='z40k3:Y(v.MXa;MZ@p((!; C$ \d}=\mWR~x TN{+s^黉(1:E8%34$k/2 )tjHn2ZMcw3Q <;W;Y {8ה8rtYZp@aTwF&tHYځ;z>$8M9!Z-<>CWeH?{L-clA:һ35/j wpiU]#a$Cl7@RYz#sizE-nz 2_ewΈ>/•\^%t1Ƀi8 ϢTsK7[`l6նYYȩ@0Ο;[f%kSXꑀɦ.sρCtF1QyliYK.a󩶊:?nK8H쉓BD[s7xZ%# DIXqշyۇ11Gf.xSf .7H:3W1]7߂kZn0E7\o2-ڼAkP!8jG&C q[Aܺ~Lui7|N5PǗc<xI{eo6u{􋣧hI)͢mig.YT!'^l%+vem!C+0~7 nOR`XvR+{u o*QPd V6gng]X+Qu,[P:'T:D}z ^xT i|B1:K뱪TTI'.m/mAb*/B>tGT'‘"8+8l4:adw`m0nQʂx΄4eB}B-J%m`Q0`Te7c`y3im g኏I`IP%zCb@.Rv؇0,a  k9r=8yON>C z?KaP^,;5m%H鈟SͩXB18}+mz 'E5fp{?_!Y@ȥS`pH6#;ho/$lDC?ȤI#`>מQX61U.$[  /T™sB]Et7e񇦄vLQ-BZp qt(M)ҺY!@ j,Zbc"4g."X6\K'`Tpr}w ֘E.:+[fV ȸ_\qzdxo_}-ܙS ] wJi~b^N/< :o["%ګF#s2EE3N둚%ccjYY8T171Qk>77O$lP)U<\M4J/Ok\t Ժ ti #E;_XW!Ͳd؀Т UZ%PfՁ/~gŴ$v,R!3yTW zz|P@+v'oAO๥p&3Bpya<(t(ł!ʣ(ڈ6EPH(B8ǀ}#IY_a+WpEHSQLw> "ᣳd]so8xB(+u~U7?&WDٗnЩ@!2gDt+<#)EBm5\D(/.xSL3'1b4|1d!4 6dcna>W"lX0t5`a"/G,ϋ'Q70 60EݼAbҮR},{DqA¢kW'HtlGi 0xkHϩrR+bũnGA FH㨾ubF} Hц:]eۮTvo;+ GN&i΢ܙwtyO(ubؽU*`.5ḏd,'{6 3+{P\&- ,lV<(-]0tEK1'?fL=>A-&% @9|73pV c_\^ģG=sEij|洂;,H"38 1,hҭv\Sp8WYt c3yGU\5@5*Wk]xM˶I'(6>)Ob\R3 rGTxOk,E@,䀏Q*HڇF4:%b3Q^>&/ P5w[#T"ѭ]xG[҇Z) )+&Eťè M0X/ >L2oI7-!hr0'_"6{ƒnUVi*~%y',8}Z}c7*A ly-72CCP>V Ir]T|} 4H ۭN4W/85_-G!W@Ŀ7Vue#>R\Hk yxk-2! Z"+7 (PAa;i![*ĸe _fLҢ]]M;PTLb_V#\'.r8+\qZWӽqLSQ)% ́V/ۢWch/H{42./mٰӤ&1(g'm.P9U85ODo%;=F%\]u} fD'-rSi_%л1yiBo ,9gFs$)10Vޟ4Y}gHE54״͂pqZQO]H. rULu9$m?a^rBĊ-/ÁܦHC~96.>k'(m1'}ܩ2~2?+]lMp4246VZ #` ?9un"M=pxY񏫁YK5$+]~:F@{[6(%ZT!Ew2 ܤYC@C\7~5Z%eqRiV%+gVzt$RgE=|>>W+9$AP ~B[>y|KІoY;O2 z +"aq(۸=vQ]㎙7) %/zٷ}#T X .mWP?dNN1j(Q g1DF>[2ib==۠n"ڧzgx&}Ov#o+9̣kw& $pugWdW]%5 -kz@ugaZzNA'2X#uKU"V_:K-} m$7 _EͪZ'#fm-)8= uON@^B#]yZT2Bqeܓٟ̋w2=IU"sUw}4 'leG?3͇t*ńW<Pg3 O)4}*)}Α3`Zժϧ/"$5_2#ca##3ݤ8o5!2o-(jR3[ba\(T?4m8]m:atjkq30A!a҄UI?,c2 (+BXccŖ@Wl.fi geAhgϜ{)0T׊ 4n 3DNH2ɥUW1 T/[KxA}opMV 2E+f+F =|U@޻>0Z8`(bM-r}Vyl)8`v>6cT%ox8T_ dYO,fS!v:!Z׮{|b1> :wO5!C/@ ak % <&5^[tQmC"^\vv*2RV YsYNWdvߩ3x- @Qf)8SA i UQ2ޖub5֔GvWt'$.j }J~KgBۼ#\.ᒩs\eJ+cZp@B7xwMٷ@Ӆ֕拆{?$.\gßܾv.ōtp"QR=4Ԋ)eVr|8c_#H?{*ծs媧l^+v:*YsCe"TΉMkGK7>:zgn3 R23w]w;MU8Eh~gf% acZڌ5oMuϰ 3 "Ob$ȚLUe/L;C_Tki JXنJMQ;v]_'K|/ȧk"%,$ޡ2`ћq[}rA8nwZ;ZVBéq/nHKz‰ծj\ Z< ٨GASK20 cXG2Dt"R*"[CwUӈ"o2[Hʧdx]ڏwa?5z я&Ņ~LY>) E?ˈ )fK~MgS, ԏyO;AA,!k>X*QM ǰ.!AXS)ğHYZ|F#lVLόvJشHe4G^ p){z1+ PPlӳb P4֋tV_wd2Yu[ e@R*"?)_EBM2fu;(wG*a?g8B@Hm4cvpGoq@[>V$6\ePe>zJTɗKZPk{$'رR۠EҡCU\H]M$ 2;'(:4`CBYw-Jdm->KH2PDZe^MAWNеТ0kk{@3WVKă` Q-0l}7mF%2?YeB9I83~(< ~]Zԅѩn=:^BdCd]AڜP8G]Dk{?Ǩ~u}̗smQ%}j*J7ι&H/yVz`]eihτtzՔB/a^3JOb /LQTjij=fSцjj:I7wԶ &X QC#52x {\$O 6[F?8SZocDhaٚWb|UEGM. Ei(XqhsnWX= ʯW?"hF>Ǹu7-1Pa3$5 1!23z ai)7<71mZ2^`<w~p5@?I?ؠىD:kMY,{8jt!NKM:1Es:If"ӢĶCi"@uEP-Ú3N |oWq`$]n̦h4 58+er9L?'~&q 6Cfm=AɊDO|{侘=~wH'_IW?JzL bs o4I/*#8 J[H$P;k{N>thRB@,0$ΕGn4 bd")u| U UR ~?рw^r1iv_ P}k %1|:[ РG(cL]K\!䥰D8UD?bl[3ٕ[E aLrFbNQEEAiɶIITHPb+b&!s܏|ڠoϰ؄U;G⊁O#ލzAt rnAaINHz$"]MvM!e "-|v!3nչLw5-2"#f+L cC Od?#WmSs6>߆y2Du%r(婴?x#.~o{'%HwۓwZ}ܴvQi)HM䫱nb$S~v ̜kZP0Wrp/lZ xS"w/|,Eb/_$b@j1sYš۸]``!et&D(NBa.yM@fɉ|K6!$2'4 g_E{aG9S2>$.j 1,2Py@.-Zڐ@u>{N>۴&|נl͞FQw]Y Ö/!xfZe74(XM06)<<"Zi3զέIPPg(Q(Kɪ1<暶P[5'~ne78[Ķ(Oot7(U~[tP-Q4 [FFn8 #LlRs鞁A٨5)X~ ~O1)l@` q[0Ӽ#p؍DQ(/Dsݻ6:1O.H6sM<;zjHE{,Ji$$疴74SA3*0Lo? =1Ø:ȋgKc³~.s@8 ((sJ5EA<߶4R['F^G nx5 *}pwC(ġ&ߟ(bJdic:>Y2̙5:qv{4r5FX_4U1PIkz_jUͼ,$$cp 9T^\}y>v檝+¬RT7.( 6 PSi;'#n~\r0ҔCN UO#8%z@لӂ~8MI?Hg\ɉKApB}QIIpaؾ'O%o @wuFG6,}#Vx+ ,bfW94PpOFb*Wk g aGm {дRo\ EMMP2s̺&tE`[(U'n #O^sktưIr]o#ν́)IdzyDžhݦvp) 1ir85ˠQ -{w,r uo$OxJfeGiuNmؘIhQxSʈu^AVc: CIj@j97,@\97h,_\xk U"gCJ@#3N%R[|FĘS `p8ID wt`@?MG2 )i`BOQT!?NvL<S 7bxElu>J*u9|,2sŏPh^-E+a Wo6>+7z}Jt+t ϞXGCl]pK[O'+VZd60q!.v9i3Wdcz]L6{ͺ}1|:څgŞ֊%<c~Qye|e)凯WNnLк k,N6S;W+ۂ ~K[8[$z} n4n4h[aXaKMQiA-5xp6ڞ׃%'q')y9_O*nɑ|p?$ĬzVE(!)ul85|VUMdY~kSv1/$hO炙 !&jrsځew)V] AHjt>e&VDM-!9;4' [MR{к[FxY[=/ZZx vEPZA4Q"uyX><,vK/ͱw,'85Q vVn?L90(.5RTO!̗ݢ0p0^-n56b{,PŲ1,9I\e=-oN^:8\w>v/wFF Rj? 4F(Ch ( -9o [~$~H:"F]W ޹Vt[~~_h=S=[vh"yva5EPC9̱yA8!dW+Ͻ@tf7DCq<--C2[P67ԨڃʴʯQ֔n#qwJ\x1luK)Qvǚ܎a J̈ ٔ/5{bMf~O0}Z|٭F" ę$CDaS@lcLr+ Z>}]g^_bLf B3фy1t5OR@`R\dHM<; `IFŻ'Q83xrp`෕`G Os+Uun,q\r;| dtv֍Gg )\򗧢f?RR0ᡎpUYT|K; (m(MüAqbewixl$[J g&FikQ[/ʫov+l3 Ojݪ/db."v'wvގ8ͿX=ʄ[0QDyQ" ʪеnX,\}1=N#va$4Iȳ(vj͢}plf dW.-3d5]nT@ǏfL^ sLW0lA7ɀJ'ę4#lZ%0\頰嵇=JێlINip.!45p;llxO49:?!QY% [QNDlȹh 0vpLbXAeuz@bmJ>r@87w l;8S !ҷ-+bG^a5o%ge)tcJ[vz. i,as'0`LzP^,3J[k˹V 5aG{C(8{ZcY {IܸD|PփqX{ÚGa$|:-~ݝ 5; ӳyl]orXl3LIzej|j'3T:)>YޝSyajj;n,h #+FB@ fp_C^t#ۈ1!YyjДd-LxPdist.zvM5VX kkD$*hCZH0n^=>Hkc/mdIЕÛ<%n;㤮6im6ĥy ꂸ}vO$\fF(DH ƑZ)XV †k '!m:;X8}?4Y~VS r2vyS9#D1- mD3P$dRT9]¹U{~-Yg1ўvV@P^ «,%~JHJ2(ASmVl%M q˷cb]tCNH.+AX,c0p iz aV6,"J}f8mȳ܂;@`cL>a[zm el„'Hl`RGޤ *duTx{'f,Nah97d,Za-ާCh(Vʊ@h4ѐMw r,}? A) 淋: v *9嗬 S:\V7u Q-A '%NJ.^?ZHԬnm:J]:<77 CO  L[>'ko)vsR(;1phE.GKBB 6)QJ37O@h>OFRs@bq2uĶҍf&^3t1 ysqRe\p}7*rM$M#|]NQK5-AF#@/ S|v賥?Xh):gos DBFݺTmfBX/Y/+b%`lDW[1bJA GvKgcn 4 $?5F92[w[$9Z N2  A_~,tĉC .i8Ɏn̝d8EE]^T"m+VgVxuEK!eLF&G{JWoaa'%BhX˝PD<[-wv?GWԖI L6wd-fEq!j릢ִsBq~)dteb%@ܛBr0v qxSlRg4%AH1PurxЮSLLTIi^+q{PN3:+"CM 7ul^Ku^w و|sFumIƇ@h%uE \<%a6%؜|o- X+U5CʣpmU1{Y{1:r߸b|z[-=W}?ވҍFB) ޕ.ڨ:HV)U5|U%,IXHRZRFI)[+/Y (xUOC"ԅ f}/9D2hWO şÉ&`N69z'BD%#_W_^~Aܑ̬ƃk\Fm^-ES%WuK/sӯ;D #:'P Pgba16K?h!8#E{hW JSߢx_1O @ 69r.PBoTfa@ٿL)ŘDƗ łT?!2ꈻD1 Ge8P$*1%>:»YPU4^epK)yQO_C7q.xUTc9],0~->5ہpMnʅb:C/Sٶ3UQhBTݖfݵD~9ZL  J{^tS2X5ˇNC%jvT߫yNgHV ,KZVu{X`ͯG ?`X `+'>1%t y-;?O>@)Ixܫ#TU,rHئ3>mtD |*RIXc+Gv0L߆s[}ˡk=t0`6T=pd4}q^995EWksHė8s_VKohFMZ<壴qfG^\R}h&Dĕx3QPI)CePv\8Xφwb>OV^´t+p1Zpw/!y./>I1ı˄'|ȁy+`?yR΂0TYn&$اbzR@Rgfq$"AD*Hw.p]GM #TuYͱ"beާ$C9.{I@`Z7Oy 79xZ?T?",t r% ɾf Jkt*DiTxs yNN(3 <~92B|vGǣ;1ڏ79v bViÂT7%tN:֨L{R?(T;}3Mlw8$~&ߨ]ؠꅝM%4YDN @ ;̗U(ZV4wz 2(戆ӑ.BOv\ș[ 7LRۦKP #߰p_E鯢d /gԒX]"n {oqfbl@/wSoYw(9v`ѧ?T3! P<alj/K9Wg ;4Lgd,!e 9w魟 vQLKeMǬ$Kʰ,)+M fcODk[f]nQ@gE}DuEK/d̸ ꎭx\ ҈N xCF)MVd G b< \ Cb:kyX6a+C{.?8 ]VtĊԍE#i4CU_r߷}Us̥JNt5[y&GAr [O2q5x#"H}a-NQ B@*)!S׮9fEYґ{t=!ZyݖL2ؐ˹ ~ȳ6czInIC \j 茲mӀ2ǯ:ٶWcDH4qs3o[ VaXǪ}(fzOL4+\4),A$S¤E [-5m|[1ΉfyDCI|5PE 9A,zW1: Bޞߐyy9Ƚ^y&%w{vcfNUeV۰猥8qU~mvŹ!\,D6N+! &8#O/ #j>d 8ޭaZQk=bG !׹q>dJXhv. 8om O,1-^Eja4XX CzKka M!>{*\-/Gp&7j  c\ck[CӻO!qԻe&yXÎ釩NRh|;AІ{RKu͚`+D#P{"+狙qt=abnCꪰ0(;)5eXcYpbr .Wlǀdz/Sidenq%܄k>8E,EA/s|؊: rl;/W7W%B`2"BMt)hNhȭvq4M43f4Iy"G'HwJItKKB$ΗoE.ik{եRհrLror2Ҙ88CLaq#:o8r cg&^{#BTЫ}r:sҁT[vJ0J]-fmdǯA#mVE^h]J)"ޡ􄈙Dӛ Ddmb \ }72OEuXzV:,A!%&KSH~#ViԞ/]ʟ!|GO&T*|_hϧ\JF? $/7ˇ)WATG;IN\""䁮?EHu܅x7&* iQ IJy<K\O,REt39n-C U9)xwt[dYiۻSᏖg,VcsGEn4;Ai^9݇N: 0YV'_JC^9un}J>[9/yp_X?J)m4`n`mH>?T܈I< U7-0}VL1 Cxyި;+M#0>7N'L<;G)7OI%Kd|s桢YаOzFEW ~_{O\0A=u.mZwj ekt~wpl:\0vW11:Q짏RrHyY}O&4v!2ja48.]ifpY]?A+c6&N󊷏rf-2 cq)`k2Σkv45rKgjâx/lhi߮֐D& :vxv1i!$RdͭH@6&{cO=· 1| P Kd`N3tumU|9]?ݛigwϱm^t~C2.yr5"\2>myq>02yeECZz$Hs(J՗$?적CF:XHskE D7xeg5RJ-)YptR(WEXC Vvo|GU-:ȂNҤ[(Qߜ1{j5G1# ܇uA F;~: ֲ(z7$e$`ھԊJ(T|XK}wc|h{Nbrc,,d-Zh;#! DxѲUiՁPT)Z As0>uqml z`к3B]ۨ,a9ECMӭ\VoA~W}mE@yK<&{+.NozS![{!S^ ƣ'M4OŏuύWFjC⸝UAri[IYɌ3#jVe9j+R{VN4XhQ.TxbvGvP`nN!:4ڛpaRqL;aUnKs_zT"0s]vY08n5UΪ4S*>sTGs- 9 x UgBSդ0_k6M*#r.wAF)M.sbqk㰸<įBYrg\⯤go_x ݦh0`C%F}#BiJ vԲ縂([ H݊X$v^ojCڐbGG(SkPvr)pY=1!\3`ќ1fݳ㽫w~s!خYQ)٪{Ɫq0B#Fp Q2o1C MP N~Fq1+idِZ46}Hک%)m;YOeqRZމ"xO ]>­iV\? _6DzE{Sl& Y#wĈR~5PY^;+kp>^xPo$Mr|oG tX J]vR&p^A+Z n#L ! mlw466tG6ϠD"*яoLlr)f|薜fYO?ABMbdg 9utIF,l3~4Fߘ+`PLSoxuBo7D>}~sJoഠ u/WrDa]ΒƸPר =+DɌݻeK v4aV%nUuX6jF+#H qͲp gM]>,}"޼9c,CX@jۃf.Qps;>(hA~;_";W~[hfA\ϑ k%L uU!w#{b].IMaG2ˆm)0{}DNw )=+_WƩ<+?$ xRM-lEE.!wjF4j[ϝNynyjƈmG>h.;)-vo 5m`)g$Υ7[cKT)7F3HѴ&RJ&WhMq;l4?m ‹P2e:B[|5-&5P8^ weƘIpp_]G~)ccn 5%\<j~1շ5kBMRaD=Dun!V](Qq!- ȓ;S}e78m1WBOCMmdp=bVFmWA# x'c4&^"|oNhj3vRT"K߷Qسe걘ڠ֝U"I[r[7/*4,.tFi!Rf;?]TMU:EdgXKEH$})a M1+5*U~\]"}\͑ƭ_ӹvK:hKPgF$Lq?Vǵ+NW.6 s$5=m WDF0}tԇd`pCRz*CcB)kqq'Y&GMd!6/@ rYpJ^Yql<#v\nS-蟎X7D#[[= Unmp j0Mb3XB3y\˶_dqom>!< V Vj@FcK^?rQ$pj9]Z_9_ $K'x<\&)jtGğ4di|P;L rx?=lNG+$C=3APps¾d`^4w{.~929)w9|wȈ 8O/vIRy FzPM̅C|qc=*]D >Iς0>[X:A&DYD$v~RJ9d,Gyc/`̘I['yN"xE?{OH),VٻPB4[!0%E;hPMs$a#ROdKӋyGiy# -,QҊp;4:m ۴k LpUnDr: '0Q |Vȍ?V~ ֢x _4oW 3-Sj*.A8x6dCJ>cxV=ķI?Ct3JK(66_/)]o 3N'XDTyׂ\G^:ue>5t-V$p_Z,^Ι!nr}TOi*8^''t SDq{rhgWdSU2yF4\Y^ ^bBTmҮR[ix@,p#q-92mۋQ'I% T3181%1pUNNIBu)zus`ٺ7rA͜J}.N>NX,+=" L7&)Y>&*#qN"mjAXo {f)MQ(4W Υ&ACa ] b*x 8D7?XKMF@-2( ;Ӈ0ʪ ܉#+me-NTL /B+NGO& ;9IqAwS2@7@ڰ"ثtz$<>tj$n~[{%; (1n,(ZrýWf*fL<ۑ:|mm>0i-hW z!J= 2ʝ)سIxY7vr.{$?0j] !7%5#۹R(xQw%!\xQԄW3FQ7z3ݪ}`8c-i?gS+sL@ݨͮǡ,w-_q)L#7ZeHb$,_ͨ JX3h-QV}=heM50AWt8ΛBr /TK:v6?b :B苟OL^({'gGca@*5uRIS)sq~oWJz?/Zy)mݾߖw<{ߥoeFOr{_͆GվBYqXК7VitǢш}1[5=A;?  " w'x~S9XMd':Vc d:f,tL;S6&a*HHXvٸ$ !{KКY֦ K{(4tj `SN6sݵa-]\]ue4#3eцa/1ELKJ2I>ZΪ^H Ⱦ[x% (Ӊ{m=KE p-Vy.ǘhme wր)mO9xmևBL9}rM Xמ Bl IO-4F\䯩lPB|X`!K?G$ ]ǟ8#aC6QٌX,^;rb>J1g_x"n\aޯ*B8%\ {?zKY[e Wavʑӎh B ɠuRbID*6 ;冿} ɬ+-8ʲuwG:*U)k( #!:ŀJ@SLyg >HPgBgqğ=Mk[PdI)M^[icDF3'1܀)k=a 5thRY?2?5Gtdl. df~bzVqV? [ܮͮ.~!;1=5BA8uI{{cٚWUߎ}^#Bf6w ̷9Rr2ig~|0Dq.){ 6hPi?gGa2@Cr$W?iԇycDx݃Js>bymP+Fw$@șFыr*p.Ļ1{}wp? i?硓]z~ b{`9`JFp=0CN*~L_ rs;UQxK%f $fH~Rz NH÷"kG 7@Qj6B ?5퐚y@Zu\k1tC1R_;3?-AIxf9BnG8(%B~zݫMuu/f4 ^]$5vv §1hDb_[ `:O/V_R[Q;>nJ%l))5>M*AsJ>e29Dc-κzg Ps/im*L@|$]F'Xfڛpd᧩ x?r r6lst^9EG_HI&fQk-YY-shHFRNtamjmA: WK4I Yd$\nQ“^)1']}.IsJێ6feY`څJ%6m'v7>&u5.((qT|.|7%c,#~-%>KHSb[!paI^ŏYG} n^E/?Y'„۞Lt`ԇ^[&"旓׼cmUnmhAwV#G`IBϋ Ѣn0wvNT0 )_ NDib bZ(/"ݹyI0r -]2/AE@5g8j"b lr9f*xb9>K3a}:t[ ۲Z*6=3՘X#^58?=`b]6R"bhf]1N9]=%^:PւPE[_{+\s ]L 6ޣ5 ~*0ylFudA>s뇺+4tKhC O7Wܹ+zڑ ?Ec #藒tzD TDinlkѥ,'*lyq6p37In$'mCHx8maO(EthZJD%b0 Dt?)u!Mk)aa5`M%Ed ✜ۏl!ڪQ3.v'@H8@> Dnkp%VBʞ*,zyEl=xf(8n[bC0šJl '?2P f]HctίMٚ+؈s^F`/}%;jW [˨iZ{WxN80KXS#Х.M^qn^ ]/Qrã2­N :W(dɶ>>U31әAō%m`ȸ@ q~ćBRS]`|JQ?TiJ:KB.Z4dEJ7K0"]^Ǔs ^u XYc8,pLl&R1\|:j֢øi%Pb|ƙq⦒c?KH`ܿ{vH~ ca"**MYHE` :(sfWE4W~"@_ţfow0pZLM7oZՌɪHVV5(u#A eӇ 8F:z?G0@ӒL<_?nH-L*"1pL[Dv鴙`he|(q%\(Z4bB52hsԼH>5@Nf7GP9l{ɍ iݓ&_l"ih4݀=Y cYǸR xm3܄ +po4]w֩} lUmZbu)VfFTHkZ8aYjHx7.oH񚟱M=t$hŎFȋ Jj WǧCW-\`fѸ)IZon0Rn]BǦ,k5wлȸl;톤K8v(Lz۵-<9Ru=? .r0uʞMZ 9<ӎKwe>zSˠl*quݏ\ҳf,O毃OOU3AJe3Oь'u;i.>@fҋ[t,K >[&R:"%hiky_H/:'+<2<準*{";L㘬ܞa׿ޢ.!Nq׏XNu>S0l@ŏdmw,E[H'=fZ!7p"OMȪ:y{Q NMZp#hDkOC@i@0FGng΀!UuuA߿ež? N,#?4٥MOb؉챓r.9ԙoq,s_st_qXEqod9WZ Ԏg4̡3Z-3ws>!Ys ?6_o9_jiw8/j+R쑢]JX6{O-~QIc<$ƥN Rbn(k ((eUf7 [JQ\n^>`%¾xАmtHˊ.](F*q9uj_q1.WNFȷ@Bg `g?ܭBU@ Oт8CA*2+Jy0K$%c/bSt,assdbkH:0pl6#ڷt޷>}F}O9J5 ooi^uX<^Tۑ>ª4 6uԪ{RN辐m8d ~mmR9ϮG,xaZr'lA˓-xyUң $.c"yKz~YcGg&cZ!D[&UI 9JjQdJ٬<*4a-'%W''a.iSGbr1kفՔ! {5$ @\漌5ͨRCDN?+- rK)064,ҟ.NGjfSmf9x+J2;q]d"b= tr*5 ⥚=]ΦkNgxwx&cÔ$jZ=Ằ#Ƈh-\5уloMS)[8ڿ&[U? jTh8@wZ_YyhdХrߝ5ɋ0I8p zS1![\ؚl$bu\U4 tWڣ~V2|A`/[q|A A;MW,6\ DmG()2-3Do;>ςj9CD6+^B]gS )`oz(55nv$t!,Eil'Z\نco^GF!0z~RH,[J[`Y],)o`{rn x1U U7_K4)n{dHH{B iU^1&KTWCv%.uΗG83n3^ٝ(ɆteXXbj_1c Rϙx]-)'{%Ԓ6H'ۨ.L6?fXZ0pe_C**$ k2))MyM)$|LVt(=xO\,}>kץhA @}f+=D`&ξ![R0̖ETK/IR|*ԩ(OW~}CN  XN>ȋ8~ D#7ɑgߢ[6ntf\kJhUWV'Kߛn ϼjm>͵R=$:ŤZiLj{N T{"NB#H7dΣ!2iRP3|o؟nC<7Clp jX;|"kkFPzf("S$>c:! $9Vq,u'7qNy F,ֈX3 'EqA9e ' BA'tFͧy5fLZ`e8ẁ-p[2'w"/]n: *m=G~y L 5fRdB5VƖx8&Y79_5'e% m >I7Z3Lx\&2bjmFM[i+y.V Nz 6)q@ngOg H?#[]jƫO1#%ɑO+V&^RLsб͆l:$#?_X:yr+~S؂7dr$=k/H,8?ˑd㚳$)_BdFKE4e  .@ CӧVVBLԼ/i;Utg"6ZDV-?)%iΌ.m #lN:"gIjN~wpse\WuIg":#.98H(҉ݞGՖuQlx5W}= at>W6-:83.jOQ<,+c$,74 ';|kČ Jjk22R~!¢]|M* bܣCG9&ny+8c74b؉}za&k{X^uIeN~7{=Nқ =/ځt3h͞j(&=qNc>G&9!د6YAZK!iy"W7 E>'Z~Sy6:駣y33uGp%ۤvO`A(Y|0T)#p{r!EA({JeD":[nbyxֱDTZ^x 6ݢ7*2R,P:0UaPa ;NYQdp&i ih-o2\:FǤZC<vs0]\~7˭vPFe,-v68 NPj RWȃ$/L^'>:wγ Ƭ!Rck߇׷XH{Lн lסp.~OákJ |Jj8jpP,ѷL@t^9IQ@Sks*}3N 5,p%w1+W-@O[ LV12gRH 7k'9uZXǹ > N2hAFVrVszլY;{=CŗJiteG'Ò"mXY0Ùb_Q~鹎*u-K=/E1vhM~  PU|KFF**,ȗ@ j"qf*5:߄/op_ 0zl>@F>6i+&\^a }cֱDO d>5J:H" >&C3NoAa ͓< ?e6G#C?Mn+QDz)E`4k(?WB[<4SضH"[r+y`/Nyء :h:mm L|,Î~5r1BS>+ !n;0[Oq>Wϸ-ƝƜ]ڠ#cIOh9SSM ɏJRG7˃F4_>G B])~iչl4Q́*A"2jHa-Ǧ:/uk/I[~)ݺ{:oCFA, mYKPw' d6~OZt`M|I11P Y+^hyhaf߿‹3 8L}d*ZsysЎZV¯ {x :p  ݅D;\$i'XGJ`j+!l16eД83i >p@  3Gya?z QSֵsӍ "`]ГR~NG)p]a\RJ磩-4ͭr4"KN*]h*B͟V ̧dž11ߴV4E0>RTO3.6o:mU ۸Ԡ'ҏ{6ݕ-mʓQ5HebD|&Tb|:ԾbP=E=fnjyR0r' 3^x28 |K bݴ [B*Il#rV8>A2>ەH*zvuKuЀjA()Jy .)mCyRAkL5L&2R?-H&LeJ%4j ,myc֧6pQl0A8: x`b]?>!oFp+hQqW'ĥGm2Ԅ1y'c/PW"/QHݙռB F&ٴmhsXAJV-b8" Nnvl)hO)HQ&_D&e=4Sq-ppX7PIT%P\hFx-oK&[<17R-0)~7'Ch1PjDU?{j単=k) W&!V^3e.5")ڔm%!-1Jv5qu.XcA@$6oj¹~4ݬE Wд[w4&^Cv|q+%ciyGݬ{0ӌۿӸ lst t)IiNdg \>fi4mКaI9ţ6#=נ|A&F?I~զ١W~FOg H?+!{ zꢣsLtHaX1AR5.+}S&B#J EQ2ԝ X`4Q+ohhRtRmH NPϳ1?Ċ޻lȄ܃с]pl H߂]*IW's+qaXN{: !ʳI8Ӑ$~6ʦ\g5.^Lϵj{C#!,߹&R׹·FMgcX1a-59,U}9vDiAhn6 'tXY۽ ឌlƩlv`oA$Ss7 |V8C߈3$0sϸaiЬ<{播 nbPP:%P2_WjuBSQyE-B_^kAjB~|U'2i\%=xpSkkn I7qJ }_N"h2m~=sP3&o`r(=%zIFhUn$U&jc:\5Q3SC'~~OF7YJiH0s=JanՑN9+t0OKX-޳pZvgu)V5QG\yIY/_*%pbcabw*0gri4pi [$/ycu6p~I mt4?JPETjo|[.wu40X'O(Y9婱d v}%^t;G/+܎ž\a;sY+KH̶{a9p^-$ v"Ѫ 7{lcp'~®/0 Los t2kbFVH~ģN 8FFFi|UEOu<` U\#($C_ vBAGmZ7XKe an .Z ,#U}QF. TrX!i'Bghme)H Qp=5+j@1T"!J,LgiYUw~Wz+Z]_džI<MwŰ*5yhdA84J ] }F \zDF^QiGY}{t[` P,/ؒtثj:y]FAd D66_X>NW6AIT.!樖CBPӳt.^ܤܹ "qR g@|9gY}B)UݙDc@t}Zua@X1z[b²фۢ)4vN aS8\. G8@ VFL {_2nyw\2c'G$Nz}|]|ݘPF3*8 #??kr74Fϳh dUsC ~vpdOjUv'~jw#SpCdBGq❈΀-ƼxkY M{XġmDRlRU߫‘ DPeA;j; *E1,oioV}:pykl;)R)թ@g#K?u!Xus| F015.0mlvgFqNpز& c0ځ (.ɭ]?Ͷ+NttQ.5ؗfVK@+ߪ2QVTo{ۀT 2$$"V+}-JY'fTwy0H%K ,Ҿ4w,S?Zο/^L~+/loD%b~gyu'ɴU׸OOJj )aW y| u[o yp T> [y;-|0ITMgXo%cŤf6Ŋ=@/mU^r=yOpE+g9&fO~DL"KUz&^dyGiqK c r騥 %lH\>>(8&Ef8_ISX!K=dok>MnuŅwh/i=5=VEp캊qtI"=R? {.5y<戬pJOi(zK˷"M (xĉ9o˝`D#sr9@. ^Pl&ϝSs؉%yқETٷH7:rW$]'} !,+9[?ESЍeUkќ]MM> eyMFͩ|'n[㏌T6NJvD3Wi/d {.7CpVc LK8.*o\ )}115[85896Aa[j=_m$G|bjnDUE^$ٔ%%SfH%.mVSSq1B<_jO nzةjG"eI^,]>7/dٕݤ$@SZe@t |98zl:ͩ~bo7a EmT"S٥MvcJфyf㟬=wE=mMmuދZ*%Yo8^EÁ6^gN_ fFY&tjSlO0Jx!V܀R;~p0; 'ܠrx_^[SWG"9*2љnJ&ի)i#6l,{ᱠ ,<$+ycߜf,y&Rt#Xߛ廬R~JIߍt͏p_Č0ƣjnp^D^ M+8`xKMJn9+O1@+,Iy}PrjgV̦d5b]Jxr5b g݅ ZwJB2Zj<|:N< f.n#uZyF*so/{nZpZp߈@q0̢i{E@\Et*qLt0> P7,ORrU=uǖx%Y209 7u'r[`sI3heW1||-ڻSwy*j~K.oN_P'̪$bUʼ.$- ]rܭi^ iubwiMZouu:nr 0 `M#Fs2Q&2Sku>AKA"o6Xh B"w$:7jiz FgB1̭6_ 2 9S(_q4i;Vb!\Amœ{1pnC܊3!p#p:s< 7@0$| 8H*޺Cհ5Ac}F0:=Cɉv\wspd@{)Gn*; OZ=_`-%V0n%%$aiuÙ瘊Nܦ+W^h˔@Us`v#3﫲k2ӷ~ DGU劍pLs,?#^~R_5%311j Z@p&_am-"?0\n!dؘvp=nQn@&vp>`<eFlnSvE vz-s!.n2S##[U -ل q.=qqnUHeNc}:˗S )I9NRZ-׊7`}r 9V΄ #s5p9duޯCE!M} ܊en`XJo"0!:J=oiV5#i}w_QŢ-3$s"=ҁV |~MV@Ky o@Xi{nzyu=suG >Bgx 8/Q/Gtg08鹅!KX&# д5g_@Zt;0Yc'XN+Ikq6V{I`#2uN`ꙻ/KpdԲpv(<ٕd j WcBpةV ~'~"lCȌ/A(ze9o'1U1MT̩Zѥ- )sRisf$fA4B䍒-BqʨJ JZLLf>(l nڠ9}bZdgm=Q mIJ`*"NiqКbcx0]HY iԩ=+O~Bgjcf oRϾ3s!_0?Ͱv#mb^sXCXQ c%y 1ژt EnO~֣_^2d4 E:Na)~h/OaM?yk^VZx`-@, &@*Lɫxt | u889'H{f ƕw^gN`2a?ML>\$ 9ޭIHԐMXKRdA~֑Fc1~'S2!$޲Q+ҋ{fT=ފފ^gnӴ G3I훌!;nnj3(f^uOTԉo&YxiB$ ^I=J׋CtUg5E x$/d8<%F#g,EC'Z<0+ʇ! L8Q_4`љ./=&ݺLT]`g9uv># 63GJ @5=$K\4ʞw&%:p0J ;)d/[W; nKςKMa`"^Pf:\p>Sa@lU.*%|6;(bPQ4#Aa$t;YKs5\ c0 r(Uׄr$ *I`yuAEzcy2r@y%,F\Mol+&iL!LVSҵ6n}PT11V [«פwVPV@P8e|Pl jNO=P폹'AN1Hfy{+Ģ(&M*D5 6-\8`iA=T"LF 5Ɨ$!;^T7V5L 1͜phC1yߝӃ͎cJkOOT%nhp3/}sl !Å[ ZMGPi0Mj=5[,Tvh4tS#;t%c㬈BtUgY5d }oBp,˝@a.hDG1 AEޣ V7GKض&Wt-J n fTE7A67:43d0rĆ `=FkkTS0Vwؾ *.mG71|" xC !S5`]\.&V0QEB4rcy#Qh<5Vʗ@4}y :]k'⧚?6>UE7jGwX\ixu^a)5 bU8 L_gjx!HC0]@#l]#nY:̲uR5 S!xu{6Ɗ_^{ ACIl@O9}5U6VZX:˿Ij #{p4D}.xxJs2M0-.BqvK+oJ' ECG'yy"ս&LO~j)V#.r3&%ȃL`VQt(Xd4+`"Uȃ=g"!ݧA͉wS ȦI!-83}uQ?'MMڕlmo[ ~1u*M6QdD5oB2*OgWbiT"5|Nt/ir_RGҁjV#.IijY*⤯YíV#"N[~;U`A4impI䣜j)RqN![D#ϣW n!KU=)KDE^ 6jP<#{ D 0f4f;Zg$EUF@PUj~ˍ: 0:I\;89߱kQ%I~Ϯ@_PWpo+M-r 1 HbFnDiMM896ˉAW@ƫ #eB `FapGd5"[y _.ʠb^F}0ܦ/-)b7c7l;6Vc6W;(j*Ex 9YkVw@WE$$kJC`}+-^`bCDfLl[ N\¾%4s֯U Dh >#s jh$J2y4H/BTTaǁ5;5]UYm㲯7Vus*%+sIYٕӵΪ"䙴g>ɿ킧]0eN83 彣?]뻤/SF(7=:3=uZ$oa %xW'잿7AIP:-nh{@I-Vx]QZ̪~ $O5BʛDDУ;Nd2m^ }s)Gщ~Z<  X݇;vT2Q -=`ԿbD/$QRܛ ܕs`~bFW œLsi({7.汣,[ ':qe隀c.Bf8?`{/^diI@'TKTS"pጃLx5ÿU+iu}qRGswx8;a%y)oy N<]g=75PGb蚀11)j1c{`:{R:M9g88--j=0l;,^]>=&)[SEN غ fhQjL {81-?WELl0LA;Ÿ *w [K)I^'RK.e@=CI]kf3R_bBƿ@XeQC18qۛhmD,ʐgQ1?LTڦ޴ k;M1zHl<.tbvvu2е=(q=|NSyTg$.Z n^La~ JL}"V*iBBjdrm*pk,$yȾ<,"y+䌃+3Z6{_ BMT$oS؁Plj3%Pkcŝ9GOGhdCeר?6 gt:]53: 0 R fЎQ6/2o''^mߗs?Bԍ=N)eyKӞ7(-"X/$JbNz_b2u!RwSA{kb%|s˧"Q0z <eК 9d+Mo _b8#`;CX7ZLM$3 qTԡ6SLjZJMϦEa}` LV=-.>Ll>Q+Iޗnef(>]?L!N3Aȵ!R㜂/@!r_ZT2zKĶߺݗ·jC#m R![0ЗavNDǸ7T})^2@L0ؚ\ه/VZQDtWh{, 1ɌE@2eѪӥce=Z*(LߦBO1X*[qгҚ* / |GZC& a32#-lyK:\/0y'ΖES??˽X4ip+X$SH !OdRS㵺bjcEźn>s9/wKK/eA&st01XM@JE@9"߅mPRǞ!2%r].'(Tg$5f1@P=iqy+Qlc%E-I\K[>gr˴*O!u/j ٱ}e~ycÎ~mA517/Vj?. aA=#''jIf9N@YY=(qkWz֭r7v )ɌYm@O!+8@Z񿮹~6U٬0 4'[hPsB&)~)jI:D0bX6F Ds7x9Z$&TxfL3K){ R)ṁA2/uwr{y cA9/5 XO+3L0p&<꽏NФdz%|#2iHu9‡0Ԉų mm٧̃-;rHo,5 z\er@-42)ҍpP0)]z[IP5D/yF L49Xn#٩ANjg؅Ґ(7'>2NU]7}M'O72>^F?OeU?ŏZ B?~Ffz{La,!a_C IЗw:jI{sovhdDiTVIvax` @|=; j‹[t456݈PrkWb`>lE'z˺A# ڇ,W@3; |i]*_/fč[mO=E gl+A!upcQ$*?p5v_n\)9_?\*cl6}J2?#!N:o;8(paHݙM e@cəϓ''lt"' uh4y'WDۧ{#EuMRm`b_rk/I)tu{TXB:?%(ppФ*g߈8c^vҤB'mofD~VUL"AK+ZW'>wl47.EI4VZhFxMn0T#Y-{yɋgl>;V KzbG*S}hU:MnjihR +E5 Լǧ3FjD2SkBE@m!FIUz]%`-l,Rpqqi0l]yrqtܩCe3띑VW ig/ Ϩ)pE'פ&FB%$Cf=BYX4H7Ir3]JS =q`9"Kx6ICj/3Pq4!vBL; |?a2($C!\ٰٝB[Dr Y>qpR SFȫē?$ ?d㾳-4xb'Y5D Ȕ(6J]\/H?矊]GfǑnpib6|^B`z =&w0 36(κMnMUtUb%S5mA X> /f~ <}&*c< !UH갛 |0-IJμl?!фe ۵G6 k!D!BerTgj Em`X@(]k[IPY+oZD{QUӠgCXb*8Qh 2d@&ryṵMvuegG􏺑!)8rjp.J SE=d{Uhy7_rkLÓդpVhE[Uy3R)mkRl0p=1,㕩hՓ=n#ۂ iӓ A gs M2ArRu>@>EW7\ n^/ +a gTe7uwMpQ#lH}p Gv6 %|6|/$U,/vRlx_Uܪ%GO|<wY]x[x_H!5&džG EUXnqz >CNMMwC[NHnTY.ɞ;/$#0#HV^ I'LT|4 *"z YHD7[t?~#XRmUx7MRsT@U"|i eȮun-p]s ` V3b(۳:#]U6AڒQ%&p=RX(ZA5|ml]M?$[-, ״Ԙ}mޅD꓎yc=i^+KuQa)6IX(j +fު?L8U~ܪ[_~V<y@U< ku;096k5Rf6=[_R<+h/AGKnO- 9[lEwDC`)'j}Ψ[bx.rM;u ܠPb"9rAi+r=U΅[oHG'd6 ObR_NO0kzgR?#O=yREQ )Y% b)/3~4Tu9̛Ƒ'*XLغaΈO߼{s݈M\vwA gʖ9\ؿS'8Oc!%dkj!NDY^ȉGk!MMfPًkەΕ6adF#X3>|dBlvWӷp]ޣT`NT4d~D"gbb %C)nOeTEK[5zLwg\nie9vuyIu#`7@K>Ul SV  CL\Jw5>?8PP3o7}ytRD{*KRwM9ԍZ`?N)>N0jr1PѯW1ELg E`iY=v~k,K~Qg%t6Cd2A)^7v;[P*]"<n X:,d$4!Kgf)G B9e>ߐX{OY72+4| [AXyHҖIƔK?E3iRU$ym5݊>RQu2LxNOWCM:b}= rwC\ػ^Δd3]d^o'9uX2Ik-ृV*j$D1oU#w'Dԉ *֠R M,f6~tsCf 2D ZfY|o. qK59q2Fa1 S{B&9}Ϻ*1o.5>/2ŠE[GAfN4vrIw  *_LGP3xيz>аrg}zԸ|#WcPN>3(Ha{h,LJ}v~y5%*%-ZU>'[G!D "L`3s6w"Pds@2Fn'FuS֢ia\ XUm#? {UٕeY&2z~ 8}yfu\9uvȺ+exx2l(p qc[B~xC` kޭEB/2xGH~pZBڃ6>: emɀLd[B$JO;#koׄywbedC]uXñ\ӥ.9tS5N v+7%GpS],w6GOȠQʔk3q耚}}o& [ *LhrN,I7] _ i"ZN״bΛxDVH "-&a*4sbY Rife,a^_>֡q fԐ's&S⺜uLO曢R=Tv5ٴ|\32kʞ bv?/)ƃ #:' 62~n+q-j ]neKsUCmqp;j(ҹӂCmhTbR0;|2F}fna?㌧m|DcR^7 Kc)aRQ[|sUP> -!DTg3t{0f_,v4ѺEZi)93J0jTRߥ}-#Uˤa@NJ!T& gU ]9xz=j?kNҡ'ϋ? ^].<3_v/ZUBR)DGʧ1v6\-յ\}E3df鸡_OUFVBdyūPJnO , 9OD|c[L^xRa ^ E#+yQdc ;'R@FLk3ɍK 4}5Dv[fA]TcJ'R\ ~0m|t (qCD^~B} aaxd]q]DKYWX J,GѭkuvJ{xסGq},(R /M)`$AVu‡j4R}y|ˤ@].NQ)CN4Ɯ I ֍‡Y?p*t#JZ fb..u98V),쎨'xoZLivc-~^/[ /4:{Y6|zꋱ|SQ˛!l-jz$5㗲:?ɸ?bųf$_@_Eý$|K8*ɲFza2Y7Bn#&E69U'pصhUۅ*1eW%0Qf6[R h(Wإ)3EB =GP[3yg.pRAGr|9MGS+60q5ia.0Gܿ=O@[Ԣ ޱdxX(rh\w?~Y&2^%+ۄ7> j'BU^sq$I1Y])9iA'aTCFܥipXnEz}jo< NYfǍ.k4W%f{Id|#m6!DXٙE-$rːP@ˎJ3LyG\;+o1f~RIj.zFo1\sF=+3+z؉G,CxlUMz7Rm& %lZ9j/cX#XDIfjzΩDKeN,dTp- °^XYZ=Sc)ȇ5FW!U⊀olzf40zO'5!E ~)L쉩և]ĖHK?hHb{gH2<^l._Lx..~5c3 WɓJQBU+|u~@@`un-9~KTeOw,B=Mq:ɑlCxs~b@[P N1}5&1ZLrzB{ qGz ؜Q,@zT9;rO5okN[~"v}f!/(="otpYOܙn"eQ3J=[O?@tw{5pe22&H ̣Lޕ73 `N1wVga"6~G0>Iv$(޻;/[0Y͞bQoCKepT[QY5Fn}QR WV3#*@aF3P26"+N\Ex5iELbgO䇅cP(TZTkY2s,d;8FqXm Ӓt\Ƹ+6ve`4 = <6H՝sBWE-Fd5D# B) S(\ѻfE4XE,P:j;l@tY ]Xb\W*`vEf3ȶA5@ d.Pa HL,Qm|T{ lEdK9Me\S:ܷJ?ʝB6[2lD,>dKܳ:޻.!vBƨ;S)n^Z!LN5܌O^Ͷ2Np1Uƒ5#X!PowzvVD&g(憵~,K"ɶ0>26[i”d8&)*jjtn.9Xe˵;ZEN%wB SŇ(T@cxTzrl*!j\WٗyL &?7)A ߏ`<.]AIз' ӋT`QO2Țf-w5if>J1U|}QW#W RmN1޸{V*p]!N;ш=fmqD,[$|ЁVV'Um~贑ԗᮗFr5MTlOIľT=QN P%;1|J7p5.%]6 ǽ^qL2in\VJg5 R^օH?Q?r*qgs 7\rOMP)cA :6Hjq\+ KniG+L~hJQ܉?V7m LUrY~$W,]yV{<,r Z@ [%L/[]( ~I_K{Iĭb*#Z#ffN\40~fd}.EN/ "F2",2BZE3~ՏƄ`t,ܙEem \vJ=K b0n=%b^..BrO|O+<7uρkcjrd߃u?adBgM_p,GS< a:D-"A>XG ߊɽ'$}:=\F,7| ӻ{}AGlާ#k/4db_B'x=k "Sl@4\vxˬr~S.PCm\S`wz@_r}ك,cZL% &"LTroVw.8Vor* ``fd4ܛG6;Ž alvq;S_n~LᱠUg6rU4^cNYh[SmyGjv:!?El#[SKmNoٿNi$>W#^p,L"|V'^,BQ?-lꛟ;LPQLԳL8۠fqzL#|tlq"b<ŽH3pA.x Yg ׶mq@c(# $!r@#vR[d5g w~oӐ1kІ<s]ߏhݙ.!&Y;^|mdA:MO>/[&,">ٻ[|xi`'H[f3Oc^p ]-8ĕۥi rsmKiad}39ˋ`\Ɖ~&I]V 3D+_$DRGuS#t 7ɜ8nOٓ~̳SNGH##JV] :wѽg/dFP2z%9Ezq?F(/y |ksk LV/:,Zw8+!r 4qXZa|d_lyp|W6EN'طK D78)Lɷc|Сͷ+K30&y.0HFگWGAe ?E _g 59 @IP6OrZVmJqZZQS!,#J;Tϼ1T@|h3Kw >.줝 [B ٪>xVl[]9t;v=EŰX}qkwp!E\]lok`7` ٧ϫR 8 6͓icBNj,ƔSW)]eE1 vU!)oRK{[:jv\5nabߖ;8F*BЮ@Gi ϝyحːA5Y`O?(?{$@s̔=-tȍP1} txlUZ04{fOϩIu 6[ӌhA":.Flzۧ2Yk.)+=}-7HUqG2+Ӓ1xy\>zr(p{\MW_W$]eDU"RNL0܏Bm,1`s;6hAsSad{Pi]08[!0h,iVʰ{]mS;o%IQꀦugkde^k'l"Z– KSV-6ĸn;/I%hI6t+!KۂVzЯi^yaO:Tmz0F \*YG yC2B.J,b# ]8k&"[I/5ٍp^4e|$=Y~̴uت vJ &~|DeI/lӣ8i)~Cxrwyҏc }Cƙ89RC4B3ĐxRmmh%؍?"eL`-1=$ upQ BsQb "F%2 CNUѳG"0W`c5#GgSH Fb>r-|&բKqP&5Mt(xaF?6Dl<3A&ՉX6M4nv@ Q*izڰ_pξ!0ed+6B<qk[4dheˀ?ZJphؘM<"Qd6oi)DBNfBfl@xU)hf%_L8_YsÑu:C_WTymY'{~`}`h2ÛloW4پpb bWV}8S<@K& 5 'U7$S1}Qf$(RاImPD,k3IӤ!K ,^-,\]?f [Шv~ggBh&@5_Eリ%&"ky\t_ﳣMd"5$[ڊ>>'$&>p SowJb3_&dN ̛.^i,Px8NȬcFJW.㢇ԋ1+9,J5Oi/y`ul##6 3Sc2 cpUHhGb*fcW#" +tyP~`C L6"ݦ@V%$DŜLSU4\l YG<NߒKf/G B gp({anKҠZdsKh<NT,Uxm2$E*Xñ Wf/[QTH_'MsL!hG\)66Y_e3|3dZ!gyKjIK|68WnB]h΀$3gTСѫx'.bKhp۾^7g<^:TQPi~tېB1~ ܄spWz’ϖn(ɰ@omn(5ɠ^ByߎՕPKX;Q+z|*۲jUrY2XbBt`nXnZ2ay(Y]?A~ž? j7|Wx\5fu/Hޖ&b~$G93 / M^~]̩ h+yDq{)Gn-؋7 }t S4Kk\Jg/%*Q~/44d;oT#[j(p!Sۧ{4f JqH  ɭ,Q.Ji0:J'5]kw{[~߄\bNYS?Ambs{},MZb6 \"XJb̺L ̀JS=S'u@glJ_hq 鯜  E:zKvrt;.eYpBy3xE;#| -@:^_'nvs^u+V`PUFA=04 A-/„̴6k}(Y{lIKvP.'"bYC-(O!-옛 rj8yT9$fP"~xPWjT5؁1||uJ͝e@!3W85&! <\e&+7>Q^5L/m3(أ԰S j %BZ VЎ҅zJN^KEP4,~VjܾA39閳k(nj}v7},T+-9FT)m!%I5;5s+v4 yG'z6YtI#&GJn9xJ)wKj@+OHS#R .lSWkZf ;v:`SZ^F1. \ 8 G ui*ďE#yF-yD9&X ʂ(=? xMFfЯ:t`O&Wuph\_1=P);]Z1;l]VVObWy<-  a(E!iͫƌN;[Y2x!xufBE=FL خ|Dbb#yXwM1c?oB[۷h~&YV/mO^CEh^Vt­߳†!0˙2¨JLM'GU#TjTStga5ύʉ&OxXK3kDoI5ke=p'^sR\m T`gUt|X{tL p'YcL#5o;D -X-봧1fZM1vU1Hw$*;m m,kĩv%"SܚK~ڎ75!1%u'fl<TZ5z';ZbJhaSppm߀R "y36m,EJ ~>}]8?`'u<_}yԎԯ30В5LnsbdX\\lZswvg0D?r) %0nwUr~yOЏ1hGa0~vmac lP*լXu*F,q#7x tqK,Kj \LK|sk`z6~|b:NǥcrPl7:#*jQ@ĝ8_PL…5l6nƙA)đIuD A)İc4# u4!{}3vO,ʘSNf8lB*zBc-Trȇg>*]\ kͯ, s_VMA㇫4.~'s|Uj m~Ui$qr)w":qJMtX$Fi_Z-8~-xhm, њ|D#DPj~JMn\e+{`JPN Z5v 'o%O`K./+FoLk 4剬4L!H(?h8YO<NCB*`rjlvo+RfXF}Si"sN"nF Y FR8Fg(@W۽x^r}Z}Q[by` j hP#8 }2AeA|G^ƴqSNŪ#S?k^_"6np[{9-'\ia||)0 7@悳z! CϊȄ~:+ \HtDz`,-c\ߕy;:|R8TP [bmil):HțN$H_';&GCaaK~3T(3D"RgK)mg|$X.Ԣvܴ|D[[%}DHjU&%+S/IsdMwQ&ŇB-'4e5Dԅ%5 \QU PE+  dawNͰYg%f *%<&Zڍ+1L~`\ApڳTpg-K&U̽V<8,a[e q$Gɸt*^+k~rgrp}C0Wq `i~Uz8^ n֜1.r#W{H;OC\5 ;3_~*~!:i:|nꇹi8u?@@b޺EuHq[z_=En!`bx5/{(wnWlhe90B ?dTjt}#1۾8c}u{#4T_K9/N`)e~2bQPwŸ78agofs^3ۨi,Z/ We/gOiQ7V !$t#&+-W_a,O F5(r)p!6-!<@2Ra~s."K!~#nMTNyEs˃5F.@I0Qb|tzjL,d0)UsS $Ku Eb%|`ӡclLr<24pPGN㾮kϦQC[ ĆӪY^h]ːeUQ=hs%{P\~EvP>EJ1%#4"ӡo_BF{qcr_ (؎1˰zm=" /uQ$/"=6z#B ݕ>)BuQe5п!:j0~b@() X[yDZ6#aD83pxYgMZOQV~T4|kn>-3EQQ/!,mgK xĞh]?.]ĸ K`'EM0_d ق8H31;^Գ FZ{Xr`6qX{8x +TtA@UU&׍}up+!zL:tgLP:aE?sC*lxLOA)u?m1簥f4N*ҰhwEI7Tڟf̺F 9FJ2HMҥ~ D$̄s߉VT7d#WkESmYM^\Ma1p ,ޔxw@[i?4L==JúRR1(49ZPG cWR4fB{AdY1z 1q5$jHUb\`xZ}c߿jw)\ |Nv f[aA. 2sP*6Y6**`(fsE^cᢆxvW꺷,6bTe勈SD.MXGXܬ4XC)q{,8_0.DME B8A}OmI=(M2H^ь ^T! e'{?APȫQy }vk%ysM_R (.7zՕ57LDCxBBŠ dR X"o?K)1.A} Ӽ8@\Z” _ڕ+~^"*Cy<:\ F 'scZKCNEd@J%6Hsz]Y! clnyf1 %3,-ޱN%|:s2ˎi&辵3@c&׉͓Y(n2z8H Ð/߫;y ϓ.60p+*=!t_5X. k]˻JU^ƏK~ $~:}7rS40$"="tGO(M‚ ]ߞ[nw(=ӌv0= nN(m[F"v9]p 0VOJٹ|h2O}w:UT-{q-uq R0 +f>13I ROk-1<ʻHK[RRrSw"sjSϯsJ~ ղn?aXxqezz""Y.6D7w rn b[-蒴% a!KuS4X1NU Mz˜VWeg4d,joN)8` opL4%7AbPF51]ֻGq*$?#lՐp s |mr41)nP ؏-HcE~ $j0r*/tQE.otm1T3<2N@Iwh i7,Hn8F8C #COgX۷uYb\4V9ŮHq*raI'ct[8G5i8&LS w`8~k'p:|a U-[0Nd/d)NǸ+RNؿoIͮp`Vw] k3:iT+х9+{y3 /)%I-PR| #Dn Rǐnvf~HPi8u4f#[`[ԙ 1!;l>%qjAU Dj6 O>KI{P"Em9MILEXs(Q6_+Y1g i{r= =g) H"0y^HמE;Ψ^咾+I[E5'4 0nxbԺwa*бXbw ~C\3~?ܶR^5/*}l2ݨ>; ɤ85 htb'gp=rV7{ļl7qˍuԾyrwK?;N˗/%|eXɏ'y{eo[TRL-Л.V)"7g 3z|:za:,a8`s$RdX̹NmC_xHqh6^|r,02탡^20@El6-L@|g9 ?NVv(ޛ ps"©ziUgˁyRS,AH)n4AF'(FK1t|wm҆eIUV\ XBrSl@G=cpFp$)qSRjPF3K{,& z3k M,G%NQܽF̑(XF5H%8]y'2H˸';^BLAX\-Ddo + :&pݏ3"u 9Q~B<4f?oݧѻN&Q5tڵrxչMJ/5`gh5N"T Z<9Bop4XRcNE xQaǑqB lOa.o*mbȜ(Q!T>mg6)1xit A{"Ȩݮ|G1;A! *6b~=rs۲ʣkfr,(2& WQTz3wq);ulEzVh =lILsu?cg){j$8K^ gWp*&#(OrSsS_ع]Ee<[.8&"] ANH+"!D"%B64Tw` !I:qsnFQHBoJ,w+4]L&o`W\!G3x G<^>YAo^Jmmd2k/e< Z6wԗo&6NTy.ͲLV0.rT',v hHcxBk{@[6yp|FFIJHj"A*/[#t1]/9>ހ3,lk C7Y5,0DFіFU'0|le+w\HŜUZ[(JFA9c@3l4|o D(Dgn"l|Ej2$VN9mlG@mI_*T<ts#7iT.h2ނ)J8k0`ԶGzZhIϽ(D'DT3bP}ZH>1 ;'\֝a::J!BB ] 4a":4ꏿ@I2Bc'wz\1(dsב"M;[O0g1wV"*"<fϲx7jgXJ9HH^6N[7RŢW i㭱2GJ)ug7sJ1EάIճd*j UoM/D8fPU,-y^:6MCEј+OcP6epA+@=0n[xX~CD<ڇA%?}|xQv mi2- eN*=2YpwNh`>LS.ǦEn8Չ&ؓ| q`{ni7l^W1H)p޻5=ld; %+2@9~mxr˧ OݖE{Or@qYY K%nRs$ךe\\ZTRNw AmǷ1Z6 2KY{C:C)#2=}w[/tf+8j?kjiCY´!.ł5ĕtMgĮk$/tg롖>8e%RXvtʜY #I?CYvѸ,X N fOBOT[ܒ0#i6|J/Ԓ:/l/5, uv̴6/UO*c@Lޡ՝EfKPQQr=[fPb^gvC& V1.l*w_'ޠI&{;;HJm)6 >Fc~n^E-wdP{*}/7@}ة'e'^L9 }b%pz6]lWkSP3gX;bwXjX7x.L :vMĭPBs@5wq,ϒ6 WIPJ7B=GXWB$i (cȻ:Á:H1V-(g ޷8uCwCWt%763lsK(1~ը[y%tWTo,r4zV 4&PY-I||FB@ldRp̒?MKy&PNd/,UK# ^>FE[g[O6CX\m#-tl앁C&&'[f;)SXb‡B3JͲm50ԐOEΐ3~(::r"*!eٿP֩y0m>~ry 7Dat,Lֈ=D/W*4e]{#Xm80"jOZU/=q-**5`W^i`uax|T_M Xd(|E}p;S6m/XkPޜ4~HRH[`Lv}_#Lud=5΅ԵrUE /gMvr!tʲ#WH׼ F # ˠ8U+K+?4jٽ}' &`WkV_7|SGtXĠ urQ@ ~ iT*8Ӟ.s) \L`,/o8xG8=q%8w}H%t\L bX)؃|j ݝ}]& \լ祛 l,dc5џ$0ہD7U/G%wSF{'3@ MLm(^W~"7ZuŲk;ǦeW~Yh,8e?L !Ǘس/w??UbUa&sjN$PH{ ҅=2(Oq+E^{: k; eDi? <%ԲTikEjD%/J>qMZx陗c5eziCZC'1 u>Fr\&,}n6Cg=+$LYcMnzSgE !%ƁjHɟHU,? c67}ݹy܃XdP4_>>S_dDbYΥa`l\⇩x!Pd-& RZ4|Qΐ$Sn0x "'nwE*l5a޺-Y.dޤ0DNEj<.G1A*FN=K3 ­PsTUDD(6SntVڈѢ?s_;nMi2Z0\`;s%3-u;KH8 ]u}TkRG6IM{U-qR<n`SC 4.CjE:#4m.؆= JA99gӶONiI}6,2@̓vv JueL/l8Nm!0v?i1}ƚ';+Flu}.L7(>$ekZER6U񜟽BclZZ(*H2p/3Cܲ KF~/y+q蕲"֛,bɒnaQr>J[ fUR"t%_;zr[G`6j~6±L:gvn,%ۑ[Rh%t@4/*ܭcI=oNF`fi6}h~h0O/B(FQ2=;J?DQȣppbs~)@,n] B-$paC +;h0b=21ΗͪkG{(6l=7 s_1A^\:{G`pQ _ ;kPYljG}k)F7K?+S""u`2VC OZPߔ /BYme"qb//X\5(NpΟ-X'a5QӫI퀻2!XĻh{`f-nPG )Ig|M}?O~| 7}/p: /V!ER\0̿G"G ~)hYK=2s "ٓ]ܴ\@7GL/9%"aQqHB<߃4 !sٮt46P[oUʹ0kH+hg.LӺUMڅ_}󞛱_q鰷5sc+3gM&ҙlDV .0E"3s{>ǯЫCesԘ9xX?~KZuW ߺYDk9ض.:3ΐ3 s}hF6ڦDN~1=kT/CXDƻhBD?$JC.LGKbHz9 ;L5ʢBxE;bHaP& G1`3 &襖,_nGyg ~`IHfۖT>M7hn-SO͒GuwSuSl{HE IDެB{*kOYj}" 6)(y""u)B=Yw3i8qXtW#؉ˊJl"d889m/:Ekw[81ٌ#'ٟ^z L݁y[_u?yzQ]5wڪ KrRp)1!RsJ@G_vVð == ƲN]*zz_ "L\Qv/S>D䂤Ⱥ4oToSiZh'g> 3l=73 -.<ϬLS[gtQޗB$O߱undG}53sˊi fJ|$lFfj$Ox>G\65Ú]L|Us"UBOw9u_jodS8 E-m+:#9k:msxꫧ lJrQň{8L cO6b#ElFFOnGp|kD |h)Y k0@r0|tbCjγR38r*Pv>=\,OΓؾ8b9)qv~@F#B7O3MAORP[C_|#S#l{ o|^L%F_ǵ+)O#dž'oÑp`-"Omv4 'ݫݿ Jd||hq =F2bte:?8TnX(*1YU5XYc`l;‚f7]. DJN|# #".R)NxJ5-M?L4J\sT4C Jt|aD>S磸4移FylYYo :0]懽z9D {ݮj-ljΊ[kxGr9~nmKJ"`w{Q i/ DO%Iv6Çʰx7ӼIpjCR46o8N#5ѵߏyq`3S"=W#6'Sh~d%Td[*7!jaDnىYYG:*IseusBrc=lH>HدNztAÊ'MXL";JV@c/@R3,'=օ{Xuy?1d؆fY]*Ue(Lj;AG W?2^%ZUA?O'l=j%P7yoLI$%OZ/na$u%D,e0dUJ/3qP;YDxd8O )M e%ϙu/ #};YiJ9es_ S(h+̌Rh- 2<&Ae|g5pFTAz[ӇDk&x[SͭO͑3Rd΍lфNСj%}_*2j[kTwa^f[d@B{$}kT5,'i4@!eHt}l_иū 2&B\.@q8H̪Z GǾ3bC-~t=? /)-2+U-mH"Tתy_ /{7A_02*#P8t}[)_@Ii5X(6`^ZI!=U LSi-= ;&>SxJWaqyqV+9mNP>lbRLlpzFPa_ 0W4ǜ`Н0mIZ(Yz(x>}9bjK&f*oF nfD,c,U}k@ nT ˆ6WJ;Gl.z+u:&3EqpH$뗧0J>R>t9 Uv!J@y`#H <sO vLMtV6}0l?і4OiaK[I#qU]\դ1rtc7w/v~Vjm _P-NZګMCc:5f!D'#GU6b0R"@ ]؇Yrgijæ61SP@@PNWo$ =%ekiDPǎ7Wx  0a3K- !?yՕnKv>S9C<]jaS1WwQ!h f:t; An5"lXWț1&F.U~i1nCI;.t qqeǹ9SS*Ҷb{r,m;!s屦 VnaihH#4voG2~R2_h8$9<`wQ9LYr*fPQAX*>AM?', yf! $y7Ijo~Ә$gv"ٜ~Kr!aBb9p: ) Gi'HFg**>:q ͖\2D3CG@-,vè軳TL(,j :|ؑ@DA]r8󷬖蹈=Xf](8 VI( x?F"lK;6Vp2$ubKңi \V<҇?-8}|w<GDUz5}"f2dֲyJ5pu}_vhV_LI,@-L >t/KF r{jRd>ˡL۹hDLty[]="-̑bBLEFz_Bߺ:>~UBIu![ZorylRIvo% Bt = -T/6&He:Pű>kngר "n]!WԍyfM C/ukFAtf``T!as)swa=zgxjx˗M"qɦ1덹'xE d5 F.Rvǰ=^;C]ggM9KSt%HC!R9\SP UA! ㆶ< !N>PMeK>c;' %I6€r;SbގgU׎jglȃ\' .HFͩq`VrZ:"-zs:J'DERy"2Fy_"oܥICҚxLy#X6S# ږ Cd.H%:ʞ#nce6rQDT/"*p ĸzv1PvZhP7}dJksnط\"Q%NWf n&8u4:\H̽5:5)Œ5jI a'/D_89R(FuFt$Q毹v׌%۬qN#+S(J+NxcL#U2֮ cƧ^ޡ K٘Պ,/Gx˯JEy.. X)l{ :OWݯ4RWDȐ@ur*3Ž5e=4DtQ5cnYPu;mB\CC2X/zO7gv_޾jb\!;jɻtul?Wy+ cUͱO+H~tNuȱWSY(Rd%C;k]ܽuwDCQَWݥ?g$LL$fx|-Qz:ځq68.i hU÷]n$6tJg) 8=eђ. ܄#=?45%Qs܃#"^Q嚿&mL:% <Ҫ'+^P# C1o%dCY4rÒ)tdeĎ##=HȿDPLr4Ƕ1G+H8sͨkrpoJ~Xa\A-$mvVV-Sw A 醺Kpls8(.>mBiyZF;?|Wkdg0Y "NNXr[doOLdBEkN[;$z],rk.,R9lP q Gxt` )WMK r}QPRƐS! (PJ*vuFZqX/|.bPioO?'GJݼHPHH 6@Oj2|wdiy;_,. fyu$Vޘ6ep M0}6hJ.7q{uo6;wYb 4(i`4nUAX˛&B2|$C J{X*4swۆ LܘsWι[P@Ld ^eJ7Wxw勷8ԨF [mF۴ l!KI*띉! ad4 "pP0b#,6Rf)1hbԗ,n9xϚ*Mg4[&vdP9Fsο/0o%X>cTVKM94 eQ L9f6mLK UžzeI;T1C@S!tْ#PY5A@nuH*>IHiNT"rt%m7҆NwJz:x+n=KҊ7Rin잶 Axب'CxcKZ2cV OAEM#{E#H#[ Yko˳>_vh㵌QQ$^Mf:E?u@ұԸ$_WmռD R}:k2jO;P>uVz%89Ͳ='ɈK]4\-G\/}r]r-Cn1'vbTY͌hKىne&'ΕAԥ-yu$ ɀ&h@_uۜro}Nj iR̀$޴Pe3Y k»WB-XV֜¼;܉' V•ݰ5#Dh}oS3p -)b]6X%5+ u? iz6l.ɌbtD; !SBZt06[EgtV(_[Nn>ĦE d ޠ^4Xb [2H+(ե5V"nI?tI1;Vq6{Q"- TWF]xEj~z Ⱦ fQ0a֗Lvgtؙ냴wca(zGT0&гϣMI1>vCH-;P>5DX[@3 qpS>giB uYAk0 \Lj9_utv<*KLl :\Kt W_F!鑿Y#M}i.m/AmF+cvY.M-S>*b/i[WΝ.A+SC8IB,oP-{o/!;"ccɟLb;|߁WܥGft~7 O )J ҽ` Q"Yh҅QEhYۿ_V#i'%ٔOH·zѷe+{]\@U8JK]95m%=Z8FFAx}H-x,NjPBu[(u-:6Q9kol?cO5:,I~cO2uBNepMMtI;1): \̊AT`hRm\׌9ˏ %=|a0Lk 9OX;>/ĥZj"\ VJücֲg+0q`nZ4x`UjO#HP0F6F/͇nS֧E : !?LMy=L5XI6k!o@2=fɡl+=Tґu Mk0W,1٪ <* \<s(Vun+WdzQűU|;)EG40t[kǫSzFlz sG8Vι,:3W-&>n.]5eJ h<0&^0K@oVA\# Ao!Ȏ@Ɍw}xxzJnV?H?zes!HKq׾) QٲR/`L8JTUMJ/N{i?.dN47=|NP\<;Թ|&!DZb6R7o(ykGm+^@HtpFMutVד|35rǁRΞ|kJn-,!Zv9tAցy'X<wUl` '$8;d%10mGb''%[* _3k (.iJ!ySGEy 8(0VԶv$|[x.}.q]M@+Jb,n6:b*zW,wylT%K;7>z1mzr,j y A@"ǯ?kْ֝F"QqqFԈ\:&6LݐLCR*?QQAdT*Uh;5P]}O[$< @V=p/jߵ@vow4M[b6$YZTR y޸LzEcw8 v+N`|atxX>~eN`fz#4k=yp[ٗ"HhfljeM(o4םi?D9B?{ D5+ A-ԅH$57n,Fhh!6@i%{!̈WB\տT޼uh;;7#YoOEhf`b#ZOz 1- VTF 0Joܭ,3/,@]Ifr/ݜ4 gʆLߙjEinxn~ [ePι\/iҋ .1؄]ԣnX{vA5XUT ͩ \yds wX7W`45y}ߐDv{ҒV. ݢ^J~|@%SfV%D_y_e*r;2w?1(h@lvξ  I<ىߞ)CFb~?ZNBy^3 &pA %xl԰=(\Uö3̀ŖVks-h}圩0[ϐ{LEܕm*a p,+ g.Qs}."{N"O-Q/_ ~q'8ե⃀}zZz -@a1 ;}ߢ/vύFL\϶9Јr?! oLC֖g{T/VPqqRj~:F5WSɝ:W%:@OzS[hjIeGDvS/\Z$<x_>;nk[p?J쑬;R^O5-p-`98i |ͺK#ZBw0oS&A#Z@ֿ1'P3)$EmMM⯑Z-;"ٮe$˗^-0wSݾgZ` 34B'zM-XFf~A|Ί]fHabUQ(&ħ(~Bb.HKD&涩|;jꪼ?Fe+XnI޲tMeJsb}fp 1ɚat;c/+1^@ yt3Ux(;w4bS:q ,D*+5J+ڗEwhH3"JQR>ojq_xCxO i7D?zԜ6iӂhn1R۬C M죒LK252\LhtoVValI?cR豵j%2MTZcN3Y":)F,/xJXġ?aWC芅qS< 8ЫIr@W<^Θ_,/(?`M  P}9do1=jﭘOYPs*+ddt>F]cQ3ީ! 8t*7փ;#pG[9kekߴwK(GL]cfS_}8Jpײ벷zeo.& ~dPH_VrQE"v_}b#Szƍ)+8vr\dD3ƽeE8St(43cDP=8,y+AK+FMVg0Lt{LQl'9<: ˜A+G&8>J*u ؼpI{gdgV/Jt'RKd~F]%=_*$Ҕ.XWuL=d)t5mQk#v ԝ%Y,%<)ԻDKX ) sҜO4*Iy-JepX! Q,6 vQNx51Kba[,^!VE$"}/! 0\b%ۤ=39NJWU(Vji"*pMEvA֖9[jbF XKPuw ȳ 3݁hѬx$M v&{00O(r ݃hKv1<Hv^#[뽬 =|:Q.m@/͇ /C|*# Li ˀ+NWJwVMHDJ@;Ȇڶf2Γ Qb8GU9#tee7 FD{U"Mř(8ȿ;ĜG贾oU>߱@I@ 1%6mUM<|vR5tXfass$o5}rP}r׍W~H)cSRlTyZ3̑#!+n̞T1WBRw {x_e }Qj<%\m>X#w>yNyhh0UNz%U^"^/ML/[}Qu'麒z)38K|WATJ7кJ}N@OpI+uR=OmH[&](?m.bw=X Sƣ$$~!1$6'/ǾrU2aU&6G 2{/,f\ 7ƏLk7l7=йTPSPӧBS# ̍\;`(ӝl-ːz bMNg6b^U]+Lf[itmBJG9/4@#.s%*k"#cL\'$9HYԔ\xb=)@Y|zr[ex.{]NDPKX0-x*Zٗ=Tp4zsYqlœ`njUD"( 2iQcV3qiy{AXE;ȳVv~+_~m٪o:v{z͌c 2t%֩5Ԑځ:n`f74x t 頄:`- RGNYa'2?? go B gsLh$Y/ЧT\ĉI\#QD\J#A @'8.`kxL`\"גemO[$jx(-v.zp2vXCt W~։no|%$"7Re LyӸ6m:ijͼ;j7Ηgy91lvcEQ0"BshϰK@VwxP ʣl!EV>)/~0E:eIl$WJu2a w@qM>Ũ+NM*hbnEKr (]}H=rފ11=pO ^6/aTQcƲ_m¡fpX~q]+01;!Ko 1d޻=?E6 ,߀Wr@_:¨$}&h  }At XFXɕd:.ckU*?QRalz$./pу\LV.d.'c({90ܧ_%B Bղs{G#T5Me fDUyg%0?UbߧL xvwEg0dǍH^)~>J]okY\WҾ*OУyi-_f$[gU?d|gq^HNxTҽu *Y?چ\LpV`. j4\ M Ty#%[Q6]&JԆ⟁5ߥcYឥ_RP`Pmi,}${:|T׀ _ 2B87]v@A["5)CTJ闦[ \s lٜdSS,67u5HE)<'[^ }CAPV'A#]7Z (@Xbؽ_EmbX#''nj>W;9 A6Mn=~Iu8fxKuto/:}n(e} 'rHQ n6" UA-d1TA s @%JN㑀fׇ^*OKꦥ惣񰯰NKzme˝x%DΛs" O]+#64E7-EIf  n;@#xE:Ss&ܴyɴ$EwsORoNHew{@Xh txY-kvvS:U?} qlbq$Cӱh I}ژʛڰI__➗ t(pW b̜Ըz:hʄ@[fyO@l} 67jtYII\3/x32g@dW6NV:yII:E +KU_Iuoe?@|M3n45$%k/.ߒ~Yc'@!]KŻ0wᑫO`1lʭRܝ:)cxa!|tզSr<x 觲יH ,j\('2SzNF㙘w7U/Kw/v;QNbDtIѦ߰6(U# 9SH&~יEטu𡠻(16JKi%5g|z^x5Ӣʺ kaB,Z *effҔ-|]LE!HQ-J̐|E0]L.1kD&K/,0eE<ټOG`I' Mh;}9 +tD[0?΁*$SF̍x\hQj5څ̛`p|5Ǡ?&X:ԕ DTc1rZ % 8Vy+ i@w7{~|CNe)}*[۩\'5nԶ7 [Mn{F~?Ou13ұF-wF4xf ϩ:@B^f6/Jeth@y"/p(5pQD#<"jmz^ -`NJ-4w)v!)sEwe(HM ١~Vc} ܍шAp;Čnq. M}%VçE^xKd^,9: KS.b1ajBDM7 |N~~,H"K"˺yЖ٠EnqI`_Q14s7 cLB KL噯0ئ "߾yOBFxIi\~uYcƿ[`DdY>Di8OΈszn.朢 氰 >"b "G]~-AJVfZ[dՁ:ލ"jJ z4ݳcѲ2V4(P 0mj9G๪U6C9-5|%POH_6)Stı"vy\$ !5&Wsub!!Bݨ7NnZD[&D)euޚ~'P^A ­Q-gy:}X%@Z2U{D̞|? 0{:'LdtÔ#}WمuoC.Øbz+^~Ůt8;+6JnPuY/-ci_!D{M-jx/2;~_Yz)`ci]ܟwrzH7;o(-.{.E4AdWY/0Sq[KM^MwypEVIs$S K*nֺ+H0KjngݖRmo(IPaeWڵ7Sg~:4mqk,.)x-[ƍcf Yݞ3@!]2xeL|l@r+-> FU ɪ4fD<<'Y?TPD|(vh%4ǭaGvv0ǃѠr.~wj#*i%GR-pq*2I+G2}4J}k,v !c{[ $з̡N\<~U0>+(&MgG; tpe*G@\XAJwR{cF)_)Ò6P =)I=>Cw٧ Fwf mwi sÎw5!:v.cmkoLk 7 /;i{JS9 [MAPL ˚eI~pPӖDa<u)/TmuGNPfbާxuMx=C{svl7"7,Cr,Ɇ)V:-DfFfq ~N*v5(#QHاzh K 3jFP%T)EIq+dSMsv%Gݨ}^3^rCIYI!*;>9DX﶑=J[{UZѵ}F8l*)sʼW*PKoUڋf P,#`w5kMH84T,0[ٙʙ$4Qzé/1QyLW%e\dqJ:v~3npᖊna6X/yF *<Vn4cR#P_>=i@wvʉsX޲6R 4&nw*|K6VD+iӛ 0e:(rJ 9OC;5T40r[EXv7C:{+ՕL*QJ 8H'f{1gl/OYrP5t!jfEͫSd6eH~Gz2Js Feb(Nyܨ _ЮhUlILj:_ʡ+O}!ͼ!iR}`![r?,kD5MhV۞kyK]W⥀Zeun7 .{ZIIFA8v qiF0ԤA_Ihͣo?dNz( .+b*Ց(vi64Z<~HOPf b0OI57dgINC[6V&HQ[ a2?:nmI>tṈ䚝(*stp2|^H+Nſ-!CX#J+~ %:4Kx}Rf4lj ˶TjwJv?O;PŅ5س1],e.EHD#Y*v bS-i@hSّڼ en4}z!M'`Z!kV!/ޥch D^DTτ#j7;ʚ+F}V@O=,Ԕn^gGtBnܽM!m㣘?.[nQ;YE"$ZyQ?s>[E ^'Q"x}qH?M"GW0ejӳ5)S#IXx{ bD:(fG✩xhEM5zνFfX0 j՝dxvʬ\qS{pTj$nO|ф&hNwW.]|HkS@d kh0z:,WRsg!hB+RuP<`L<~ѢO0=p!.OAy5="j_-Ϥe}jXJ7"OfLtxjQ.4|>B0x"ód܌ 2t uHZH06P,ӬR4x~ ӦB6/Ulºú#qU\ W-k Ǥke~dl@]gvwl7rTãN ",YS|rٙMXsܵ逍v;ȎLc11#oDʤ5D trT$@S ?~)š4,8|1*+jP\if`tԣ4afEI%+rXِo$ŕ2Ծ2^f?%OWl2DԏK+;Hs3PW 8D)Ye)-Z ַꂢYbfQA_,biv<-j "A BWWnՉ֟"bSEO%R..dwKM9p]Kڏ]r8)m<.sk?n;K:(ٵ=7e}w+D"OڵFkFcyVs Q-m{2lFEwGc!+~jٚl^KϘ+=Yr^R* ˁx܍At\@貜GQ 憐ܷch?nT,eq\v[!^5^hDt "fg $'JlӔ z1և.q"!!rdL6MVm2=ǎqo[$o>6W{ IsEڰ̏"Gi#?Fan_;3K΄b!TZet;eM0"xJF2= 4p"t.|քOGΞ@CV:ӥQ} #ޞ޹'0 'K/pA ud_pxTQl&8b$;хxT9fM,x̆"CΘֻx@BTtիbt[u$Ѯ(hnB-鎓S29;+ oo}fHk|$l%tתJ Iܛ.6[x؈g@pT1= #p~90"rtp =}/3TȦ B`"=lZ {#%SU7QCy QAp|?H12bse txoIXJ{/-dيg}5q@2gHl8JaLlO_7KD6㞓@[;D$ΰniMHy5^aF\_O\ԫ h ~_˴eWBيB-ERͦtTIB{l+:OtLgoddޙ^GT[7kcl~o^QHHML]CR}p5ƨB,cy'|4b\رf&gŒ%Ͽ, }0 i8?-T#u;n:LG K6ѽJD=ZXVE5%s!YyWtv܂+Y7SZ+PHmW@y C9oTSQڍY>$F0Nc%F{9V^};2 3qi5SJ=#wXN1iyr')w:/T[3Q+l!\O>?s@(TBnF㷀F'ɍEx#!MJsƞ#9^Gb"IpGtj]^I_!SՈ\O ԥ+eB7D[}>Kw>Fx_3$pLksKZy0{Wٶf^!N#[YE^Ccv.hfyԑ,l]ʴkY!XbDxi7wǭsB/T^ۿ"#p <6>yv";irn+b.A鞩*{~]{; I;c1RNO34)0htK5){[!D^u# i"yLNƯNW7_U CSc. ?5:Jaր֓L (WQ;Z VCE˘OZЯ*I7ugO*|p=]-5>gE=~\% I~fq֬\F&M[l$bzh®CP*ņ^V`68s倈䱽KMVM't|8&! 2F$&Uܼ&鵲g.H\A4%hjtg-8 _cc5|[˻AdB6-*(q2l!' ǣK/O!=<,ΘM3A5cG SA0yҜ]Di#շy wL'#X 6h(K!\` x=*5m(f4q^FVJO/q=D)u.^0d3/rY|p|C+nvѣG`ݵ8"Q]/цz5t GQ3 55zLdWѹ873G`j6 PZ ̩>8+ڟn~Xf+KSI@+!Ki ?kd`FBrMf(`: BxL )1W-Ger{:WC։A, pw5ex -m%\w\ΫxcUT%w(Ài(fgM9&!`x&(3Ȫ͂S4_JxN Ei ^ 3s=TCaa̲vEPs^-:o<ҙ{VW$w"Ļ)z#&+9DE.Gq1TyM8%zr'.'cs=h'z]o=EoIzͭ;3%=]/V,8=7jrMť#1qCP6Cl%/'"[L!JYXoCTӊl'+poF#?)apކv]rrjH?>i# A:_Qy 䲺k vhd|.oՍX[EDzNwU:DuBb΢ SӦ+GN%c,0뙬mO{"Y+0%i I XːtPnRqF=HB|/÷bť-߼C]wF7cv>#ݶ + :! ifڛri)ܺdn0@Kx ^+9oE:acn4V# ư-WD*HU5! 8͞y6f> e~IN23NNW#X@AI9_R z wsrQdue bPK;A\\$kdn4sl]OGQ-eNW,wo8ïVjV>L`{^915o;(6y۩,рf> !^ ߵUIecilcO㚔y"p WƸOr`,b2S;!cad?Um,v2V,m|͓ )]~ϋkh<ほFgETL8*,"Sպۄ "#)߿먗Z1:+}^1SעM%?dǢ̇%|mÒ}8l!yEm~X pQwRAH\W s?Ud1D:39袲Dg{^%!M/3G^bRglݕڢ h{6s(a ͲCp4~ЛR'0qY"fVcA! XqoN.dHi6[ХXӌ#ϹQwvة-rgoJ&2I'D;>.n/#9cJ p6#X+Z]4$dhecs7Wb>hy$t:I ⎄֐K?[Kw'J?Zx*%x78HbΧ@^sBfPJDS]NH<lVDgI\^12Uz%x/gp֤Eؾ-ިE'Ȳ/S[EY}V,`v~;I&~9Eԕ1n'[|ֽf,#'59uHStRQ.ٸ8zKq5v$K[FFB]Ad*b׽1N*ڑ'ލ%[Xr NMO5`eű.D-p:<$r01a[e-]UFe PjxrmJ1ɐ$ӝ$HّELG8,l ۡ 䄿^yē݊ҍ^[>@`(ĝejy];.ۺ !?ʄ.0FS(oJ" 0z&&P1]y\Z0,bX[IT5hm{VYvS85PD)z퉻UFGڑfc=(X#u5)Y1pOg?7݃ ? \pZ\Q k ۰£-a&+8f0+;Uǖ߸}MKDØD@Etߗ$7Xhذ gta`΄V!}L>[j ݷ^#60FjwlODb 95W Vd\H۲p2y!9dﳺwc,I/oԭ )ɀ)Ѭ *zsCkو9bAb3ɶW֖7kkmeZɻHg|FaE]ABP‰l' ?% Cc{ʡWF PEK2&n2R[Ĕ"oJDM9S=cڮ-rY2nd}[5vXo1Q/ <>h7[w~kR-JT6$}z-ϓ$-cPtѫuU%Ie~s7kt"V8|V1<4M8{ͽ|G㰵"{$ hdK\6urSV%_ȼj} aHBUv݈Q[CۃF# i/z lY;nF6rDCThp5Y p)8`Fnj->.b`] $1GZE5UۦuOt_cT+ CHJM 205z> fLKN5DIƤOG=(KPP 3]{ON$^.U .;bzѣ$5CJS*/TMr[= Vhqs3p$4"!RͅgǪ'mC˷%t7SW80.efg1EڹDWg [aL(q_v[W 2l8ƌ3+(> sĘ aqzrŠcuPl)X5S3Ճ*żWa.` _`;;N)y(ΑjЗc؆L̒/< j̥z|#$8ה5c.=`  "6l;dn:9-ian u>Y,8Nf |/QDEH[u!uzm]gQ<%R ]Ofu]51q-"Bـy8D!ˊ1\"}qauz>toP(_ uLuX+J~=&(?j̚4)~H/2G6sm] `c2<«XAǁnST D4 a;9̿Z#fsP.q(^Svewflww;e R@i`w'cdKN/pJZjvM܀|&&bk?/l4VBi$# {uaսsFj~&03Tk\IG~[oDl2H;Dws~{`Od8yXEa>"T>ٺ)v?Dfr[]oF!x=1Xɺ6j `8p h'Л])Nt59>u;X"JrG"mB:6(u X',@*ػehޭ)C tW&AX`-5wf:T껭s-l)4Į+qxǙ4}> TPEp޿q! 퉭+̇CGrA= Di(/؀ l YLW!vTl?Rr\d|{wuJ;MT{عIm ~iP W8ߗqOYe=*Py>X+'GO#VW"QXIPȹHS&UT2M?NGptCtWuOYVmiY;L'in|v$r;t&?ȇU nq8ovJyu $= H i߮8gsAiU:U{m̟W%ϲDSN`qAR4.7-D3~Hi儾338i4/9QXq2B'<<㊨t9L`,TJSts%' ̵W' L!Kq~Z#NNVERŁ .!d7uvoZ MGt{N1gՆU_) ,xcem,:>I,Bwl U?phES뚪Cؑh2ǜ8emehG'~}ey"" ZT,ĕZ&Rytw)nL&fJ=FڃnGܑ!Q !j~=?=©򐞍<(XgC ~,ht0'+'Ɋ]ا,iH~#5Zq%y!1]!`=[PXԈk˥*!*Ms,7eޢ>F?pܭ+o6ȁ¹r [ O 犘@UHKH,n/{Fd@sm\bueAHvrH&)օg%D*YHPyؕq;J 6֋V̩tC #yX" {: 77Ǡ *;(w=j\왘4o:C=+U 1<0)4]Փ4-H/gr%9=T K|gZX1;Y M-l!VbT&l{T~ٓZjk9ꜽwvn¡$(˾|D^,&%:Jg˗JʼnE3a=pZHZz(T40+Y'p.'AR-5G(ӆ'{S e;4 qCh)fS2tP,<;94Ks񭟞O:g/]Q))(zz-71SI:ƃPwZ!jL_FB0*Ux8HBҴiggv%Y-06 cFvA7BS7*c>=M§ئI|!gu^{* ț3qע8lz/<|gG;c {m]ϋj_SI'sSC~z̕(ea1r=\=*h8/ԕgV`y>BiZY]('AZ䥿ޛe2nP n\й#е޻4Li;:)$B/`L10Y~c`؝IrG MԙyjHUB/jM N/ ! ʮtZ1J)3D;5ՅkFtK =H83IYzE9AcmDgә{NۉY)W 4͵ƶ;X3ZR-_*dH ݑ<_pY&m_Ӂ;vEQSXлمQhTwعI<(xPn@U쐭F8<5=k pֶ&&cB>Oܕ']C-gap锌޸'2jz. K5zOic⋻>NB 65FJY8 x+4'1vLCgabaHd ^UWNsҼQktYƸág0튥(|K!?[9o7,/w%dS^9L97T}}j,U* y5sŤ^VaptMlȚvK't̚hƇLoqytV;#;Ty $D`do*4ʗbG7tէNWC X+*HO]"{RXk]!TB7wkL]|ıABy}S e5/Ah}:'7N%'M"9ҔzFDMc$ 4:V =7)IdAy 7bO.ڱ1E< ,x5+rj*qUG0p[ Z Xߧn>i(*!y'lZ{nUzF0(kv N ^*/^9PRm\ι%2!dH-AGk23nhB$ u]~G %;uĸxwl$0ro+ئ*M ٞP% \@et{fmpwk~w T MoWF@ !@SW8kgLnDT4PJ_ɪ@ٽK#ݥ]$ېW ♱YB>~,W a x{G:126%`/F,³̊EgOP bTX_(󭖅 *<|p~MƜKȤcc t#dS]&/{B}:tNdClaH+-9Ickhޘ+:TaapImInI:RWX ۱f964e³|dԢTM1䋇V w_ɅIM$G`n_9(晋{-$X@a3nx**QsNo3S",έo{,m;?RFx9,˃α}ʼnwӁjΦ@t!;;ɼDwrm$>9%낏~7Rآ_ٟS/&(% p<:S-*q ! BpeT} 9 .J͑QxlfISXqZs>Ixe\ނIp>qRH5ܦT2'XcahR%Z2F6rCƎ>,75 {9{ƻ1aP{z n[§ucrs] G ,;&ɝz3 8lёp|S)+t\ImRx}HQ:"8Ky9U/&lԖǀpcC<&/j?)_Be|%p-aN0I8Hos9„77p7E^@ؙd 0[4cٿk,2qb7}J6s#UèdmɅ2JX*B=r9kơTlܰ\ d38Tחx Վy'Pudy4BKEcwnj{o,}[JVz4 V`<"VjXh ~Vl4zS%۝e{lôJ4\AS7l#m|ʏ@Wi/c(o ~ 4 ~.2VkqʠNV)x=Psmr'c+dL"`Cj!0/Z@AdXٛ~s`X)Y)]YȺIĖ~kcV!& m{mڊkHCHr0y4p D;3tj87k4}3`?ěBEfi(ev8p6k{:X^v!WY9{3}88TYvv{0p>޸1Ľ'"㐆{)++H4Fvs8iX(ㄦ>p?S؏hjkX&Qas!!\XlOtW>44Dkc-cf[g L2&qV#*X~,|Y؞`X%Ɋ/ / Xsa&R44DWc:9s Zva@wa4om@4!;1y2 pB*Uo\bq%)PTnd?I*GLM"%|:z3ÖK/9'u;퀻q-s֠ w֖Ya, H``,u`K< r/.(&}cmpZ2?Vn`bs8=l2 7 *3md"-`tNěܗK $D?e1p-{8DE B?2 LhVhszC q6c((dAw֛ '/~1߄Y|ҟX"A6_Rnf<9wȿ`E@eR%AHN0*Ț5(Z9:a{j \ Za SjӻR3S@;HU῎۪ͥayykA앆fyg"^E̠ n2wA( 72G#̶c3Uuem:[$l΍M'u~bbs'B#F椑k8eDK АUՆ[S"ѝ:u!qMhi/QVNΩS9d:b{r =K E7)A Ӥ\^VXbMRaZyRME~qtuz,9`O<.`lxR4JPz/c@q''=lOB DݡF]9նŽs\N{!R~;q5pҟ6)Pu}[Wr,IِYũAC&Zތ5"/gTPGesn'eB&>* /C+9wMn\ C8P[RMԠ7uVn)£zJc4'ҶUّsą)"6yu8 !{dzFGnqH6d :GBb/N?n;lUO(CJ`GsibxmFLiX[/ǂYʥ,Xʊq `@.͙߬X|qQә/,~/h#oQk0\lӎbj巔{P-GIa/NSQcVXe݆mp f0;=2U\f%O!'P׹خUt$!H=d-o*l5!D06sR-]隆 [LyQ@=- m ĽmEˊܝ'@΋mqaT71(qff(F6K2w2SpAjשZTᮿ\!FF!e:|col'`d/hVjREx\uP&H((OByvT[o)S+ *6¥y-G{ZjUmɜoC#̙Yξ~Z g.Kِ/YKn-ve "r (I..Xxޘae)}wh]|EUVfȏNӁ]+R3gx_fF{`ЁU.apC]*E95ʬd+fYW!NQ[H/@8io;a"v.{@${X[}4o?#<}3K$du[W,T0 ~ܫQPKq!h!hzHY5)5_m^!F3$,;-L$Bfo@!5jwI&DŽ%xƍ͝È/i Q4X_s"[lrӧfu^rqΖoVU|p'>NZ2X0=l_2gϻ!>2 6t">VvʞVG&vJ[Ԕɟ-x5#0DxUepw+U%Ygzr1NPwZѷ9RWlUyC;!(/*WHD^iqd~a30^S?+ Cyom jBbcTbZps9!I0S&%$=wAc|èY`W&3[?WGj/Hޓ}SⰾO4NaxiuldBS%A-K%.ͷ }խ=L |F].sBMP0%T8U-ަtIÐN*X3Ös̑bP1'핹| |ЖҽZBOKڤB鳚 <*7g3FMg"ba[u oGchZBJe@.W>d2cw Gk))'rQ1)MT>M:ԟeT@_ n}ևZN{F_wC9UYWn E)EҊ>rEsۙk\y'cƽBp\T=a]5Ñ>(ҺdV -F~(+m!D2E:(,; Zbߊ CiU|flەjlAP+𩂄~v]+HNR [:Yg?~x Ʈz* < DmY+Ğ0 :ᶿX8=ϿƞMv1E XyBrv4㯻-L=Iޣ)F98|6fp*؏/cBy)4,v e/JM!uH{XQOZ޹qmL#7ܳvgڷ9lrGxĜ)/PP> jA? .y(Kǜ28PS#M|;zx%5*1m ړm&9.?#FaŠ$FnȻ!#3mD|mc埅ZLyE@(Fp~ ORU$1ŌZ^GERRf^`)290HFܶkuce !HkVD;\W+'ɧ*߷@H 9p^Vы]#?϶MrW׷kdH8T1VG;ӽ&iN0mQh-ۈk5 hFQz)[mSϋ]"7vMvME@v E/ܛoSA9y5gbx L{ Q8뜙5!o.1چk<\X`qX-L'5r͏LDT )5L/R vziA_~w.2h-I'~޷(4=X'"?e:۾1P-ܒt_~rHb%dSݵ[H#L!qyxtDo`"-OBc,;\r,0A׺qXZ XaG5~?QX,#X2QHBhUC~"@Ky7vP,&]wj#V4g'{{t0(L(&fќɔ4ʘ!ȤyI I?*MjNϿ.`[k!Is%EyZƲί\'B?UU fU#.HtUQ1t]CfFkZgv =Ö2 W߲z-u@Bx[7s18A C[Q}BZaBf;jEu@zZ(;a:.A0I!?}Rz:sjF#킊Fg wVH*c^BmzX_ 렆\J>C5N ,{ubwvd(hʃۺc#跚 O |; I侯Bc"7:ٍCR::X56t,jihI aLǘo/г&jAr冭 bʢJQm#Uvfߡ.l;5P; =ݢphߝ-S6t狎{!H;Fr,]v2 mraϗ}BW.bVKŃJ,ڹgβ/h46.$9AŨ mHvQUrAƳ ѭ?QOn,O6J[\|ג0?<Dۿ)FFmbR:H[Osn<`L%8:եFzO.cltjPf-}f[uv0"P[7ve"l(z49nٟT+gWnl ^OOFjsSM$ʜGVVsP^4 ǜ,0YDn2~uT?iHݚ"Ih7./44Z+&r& c-EER5x?xJ6?ZN5{ >L_ރp9Ơp+P{K@-ȂW/٢wù/6O ;cvբ?[*{tD}yia9.aI'-~M-X^5FDtOLdzW!2CF¶IMJbqY,t5Bn6ŋ.Umͣ5|\uukDu0@5#CBBc1'uSS^EN -h)?HIpwR H-vpEZ%Ӹ>Z|& T8SĆbl[ D,ըݭ0 :|I"o3j_+/A܎4y jSTRaYlI=` ڝ?`Q~7 K.iRQDҥgL9kN934cfǹ"57) ?2h PbI>%# nmd5CON:ǾAk@ɶroB ! ڥ}sԑ46PNYU)>TQ'˅1/!i,tx4Uԓ-Fv2"Y l?k9>7k6'/vTd(W蘄K{uQ/:>Zuچx\9G1TQRyCvLVj1/?U @Jn9:֒=6)])$ޜwPA(Szs{m , 3,ЈޭJk^ үGNp4 sKZx}^ta V1`\f =`Y%j}%sr5+.#<) K(D lߴ_ )<3J o`6>&,eDW^yjSWԞAenO2bH6 GrwKUEQ0T 1AmCXl}ݺH2^Ιo 4%R*[?؄_DjLؤw`NgY$J.sffן#_BDuG=+ r*P0>pfm}UzmA5wDďujH(eo˶RNvM)t -R9 =xн H[.WJHq54F<^Ci=sm{=!gr)]SyZnhE!woF 1l5'</UWFa[4JV 舜ZR:82.7jRJyK 1\++ȚpzǨǴ$v:*r+dGR`WZa~XcQ>Sfš^|t*W/*YUX(!r@un-kRA4.- F `l '=(-.'>ss!==ad؎z1Ehp vzd_7&: . sMmG<%2*VźH#aPuQ兜$1rJLt  apz+G92sɠaE/D6⦠/eYhςVM>eK <᭥PkJj|. \OۿB_eBjQ]7)^9>\Xq'gyJ~s_ "`!ߨa43LA1fa])招p3 Bc%0sE5ig;nBd n ;R7Cp-%3pf? E'=r4Ih k,7ԛۅ D[F͟QzSaaʬT })P^XlwpEC1 GI]I1"чw%[;ꢶZydӝʱOQIJD EM#5`PʫhRl=%XM譅k %kYM$H @*nSV?րz">8zn V+lbgm"yys IwTRW[zuZOX>%dԧsnb͛Еr4aP+)t&U6#.AHBõ -@qIՑrqTi |FEE gQި{FzF:&ϭE*8x_ hzS#EPuĦ{^N洓B/.12AreWֶʊ1_8㋐:B6!F3WToUdFG'[ G(9gv g$6{LF L֕N;cԣ#H!g$,jtqIqx&mq+lm%N ))b` ud9x4uD*c*ώ2=Wd0TMuPL|w>0JwW4F|SI?\u`ŸZ8@1/a Swc}ĘߏdgVdqZ(%Jc+4V [|yse)\ZǤtsDH͉]4H*Iz'."%#<%hϖ P߼/ӡ kp,#E9vϟq9rM VBy`N l]斯kЯEK槛e!gMMޡ#~=SvqI; >{OOsrxT"90ATiv}-Аsk V6b?p1Ep_ .%KY'xd7<̨e+URzgvR-օh]+P"CƘ0ooWkFz q a4,T9={L=5N ,f`^R qDP7Hep^n^۫.b'wWNPme8@h1N@_K^ipGjP+Dd%<@6rIO#7 &IY3ȼP4!\FJ D]˛ ԣpA,ZF`2I UlJ+A1@CߘVH7DTc^x`c[dIкX_D9 :CR{ %Uq:@x#7я1c hvhޫV`M|Ćs5Ƌ7TړY=U~n/:- ZbIɵb1[qzQx:5e+{Gba=XzPQW-"L8C%96%&ÐV=~aZvQf4l6_'!+:'A1Y!8 Ż&a߯q9hKuJڎɣ }{ubΟ͸{EY7G ~Hd-`A9RŢJq|KV%oBRh0p|X3lKs>`XIа%*};R:oyL\zsЉz5gi ()y^N:6r~q߆RXz 2` 3TSO$҃/?;*POdžسnf*vLL\:oJ4$kdGAprItJ fJ7~tMXTKR/ aǁ755)o>G'ެ爾yE%i(A\cykcW9 web= gS8f&r"f:ɠ )0+ȆBps ԸE&b>Sٔ:Jo_xR O!LW fzx-o%^k#<5YǓ@Ezg69uр q3N 8_\>XkN,aJIjT S6cNVD5Bɂq.< M7"$8YYC~tU<ѦD|7+A wa$ Wp% if2nUV1u!3 f&v4v`,bxV˼Wunp8bKm'DSv@vz&֐e_KEW%c8_٦)%B-9mO@\DBQf}:S.8N~no'0OVNL.VIuʳ;"Z1(0~V"VZ\oʀ2/wkC,%'62=N->j={<)i&cB"Z15A! *5ʐ '{96j)F9?IU\w/m_x<G"{U]($k)jA8\VO|"5&p>[=cna>gC5l1.˒Ze{U+[5ZM5;(arI=!Fi"8?V1*a[1ݙ<92v-6dfB }_)"JԝфIsU)2E٫OMhU@_OgF"|A$*\MpJ6\x^b[\XK{m ?@lnqJ@; :?fҧva鵏D>7 G*SvGɍ3g+L)6K(!g˧ة7${`>O'M?8.|#0Owi{Ui8EpbxUor6oTAb=/0GԛzשaߋO͉τ%XuIa%+s9wt_;$N,Ӯ`}xVhߗkASsG k^D9T NGDhQ*uOOs֐(NjMp $/| {91j<Űp !X%Œ$!\Hj}V\:y?P ,@1x.S,1H+qZ6ج lyΪҿ0% xuXɐ*DTf/|PJ`P7W/| zhQ|"!z3LJڸ"ߚb&L.o}ٖxgچU~ ʀPts^0 n;))8YAEM ^Œ'T}8Ry۸e Koj3x*5>޽EC0) [\ (o.ًqOZ*?eϾN)"=87|n&Ox ]KQC" 4 /k[^DwJnWjR|_¸U8XU.ׇB0)ӇU0l$Y&E/E3t{Կܷ~f ߅YH *0QI͕{97f2c1!XF֮ɻҭ2@b)Rᦃ PkO M5kOF9swv0#}]h!ϒxDl:gCx3p&_7Sr\z<*U wɃ۴ ;g ܲ1؎mn OCʲ#UX-)0+[jyasn|wgPbF>ҒВA!,z2M)N {ĥ3y. 4?k޾3'S}\NI}7-Gͼv1 R5fXvexN`ko;n7uP .VKn,Djj&ow+C`6iq*P8q= d-f10KT4 lPc4\q庅$ٚŅh5i.BH;^Y$$bKeKb3-7ƒ5]0%ӳ=S m=9esu7yNyBnA_fZgvU-(vJQTx$7 B~Eha\oջWM\=ɤd0|׶I*m,O'@?ܯz?:[4S:_5P^mh*ά0I]U9EbdL>-,Eb yKK i>^羗2՜j"^doc}W[{+~y"sF G{:&Z@ڿe;D+xoxJe3՞A*C'-<qkѧ^==gP4⭬/x|EкOM]hNgEzꪑ<ԇ#S_T(3gx:hUL]m"貉v@C_0O hljt LR+K߄WQ=t=}˅x78-_9 {C0F/Q"̜Zg!e{1(ՆȥWKeEg-_A+:ƛb~/˟*{.p*7Cй@ۢ!Nj{#Z:LS`:ހZSjDQܝb*}߱;#zD1+VC4`>rc=p+~z-xUx]IM㹵Qj?w{ܐiKoVo@8<O+&t!%lMY&J5ԟ@rd"Y{ţ%Te+;a3rqKX;F qsF 0=!a陹τ;x5l͑vyxbpHV'̇aukb&2JԴ#f?obAOָ'.Dq]xn!4v)6lO/Ѧ Pw}&mV1 PWXC)?Dgum7 ld7U7ibAbQzt/zRʸ-k)۴\յI96yF!#8@5}x]?Ng.'1UW>fpv\\eDBs<g2i!y8A@_ Ć2@oJT/.^XUT] d?WSn-3{ˍ]NjuݑRGU]Y"Cs@Jìئ0[C5 ԄX'1pe8ޤWts|Dpg5|4T8yvuv? 1Q\̠eB'%Vs麅w N} E╙I7u鿨GZ"Khn.C(y Hh{ڐa^F#rògNQ=x z-grTMa(0ʟRP35B1@n_^sNˁٙ7&Qmu~Z b" KaudK@il-Xk)2cTTyG BE+;[uz\F<c0h#%ๆtX nUPOPd_[ (I S瑁E!M ,LTLy}c#W(n ;08?rڦE@W-5Xg_,q5C[9ٻ];i[& @Cqz)OH9+)ۖY~҃vgZLB5Rᘼ߽YѓTM+nKG})v-O'UE[5cFމ/h]&8@-OB6sK)4vPgDm(؏jZtNUc2\*xac70;pVɜBMlGX̲d{y4Mk6 w~v"olIߖuicol@/o'udwܵrËtMY#P=iFCco|YiQ6#`)VּKLh@±^TZin-z`_h Pԯl>ZpCf1쿝}mI|XUW݂.(MBN֙^]L[|(BCM0.ұ_(rT},JȋtOU6@Mkck>ݙRG; s^n<|ڻ1 Ϩ(yE;L> {H6Y U\Vi㦀zoW=&~4CÍVR;mYCЌ q10̉Id*Od /'@:LM2OIm&Pq~.sNpLzن.iU>; %R$j]r3@(S5 52g1'$oi]efQ7ŖQҺ3龁#<#SYBF<2~2-u&Qh5 {I?&ѤCOŘDfTv>5 P5q[3rK>| 8vҿ~]ؔ]~)#;-&G0)gI ?M7jF\oC·Z{u_\`It? |wp#[iwmw{s5~8*a!+SaoZ(-:[99# 5F1fGСwsxP %! Ee;t(‚`41PXw̡M֏ kGP&#jzZѸV8+7j*#999ړ{\^Ws`9wD>~lI[ 1ՍJ@ /ईq P_ؿ0WH޲@'4җ~_wTRYiHHCwܭj׀ъqB%?鄢WQBzPBm/,f0wg]`$CZҘVp5> .8#  QKo$5Ak:]TxbSCӼQ{giS48qĶwBj ɕt:2 ڬo`v6(_q&EK֬b K & [mdJ*W !S~ :.6~9ݰxxsl9;r"_rPdаsW/r TG9呬^"^~u25l}}BupQ}e 52ϋ?+/C|&$AMkG9F1065@]WRio4*˪nuu?Q#0vpk/eD A%v 7iQ7tc\'(f˞8 5~"+˭23l:wҊw+N֎ 0 ހJ*" +tjh ]=U} M|#Myzj*GUE@N ;dNo7YXS28^P4ڰ +cC(Sة\o|V(WoKnAݲAx ,,Q+}xNZ3#TͤXhgӻn-Y!t)'ukW=6Cy/ n<۟S_G'ѫu *< @J6G쎔 LD"ءo _ۅ+[n¹ݢ.g2`;\ZihKXCYX2YޒY4 DiWf$|{%4hB<^@"%j}{%?X gD,o֙g0ԑPQń-SZW5b*R9F R|"^_Xfrxiv9%QU]_^-˖%zYz_ƭo񅸪ġGWH(9(I dP0!"*/.V#4N9'rLOFBbA5{_,!b-PA)C";Se+g~aGHB[8 D5Vg== ,oLTsf a잭o("(#Cgx] " XǼ*8U:V{״Te2?4rP,^UMs͊4]#=,o@c7(f- h qYr@J. gKq.yWi2 9wZF(R@Vy4ีynK p`lg◳V,|{'oj )aw#J@rIe=8->4YB]bG}6'k©iB}A֍~olg, YD"tRE˽J)r>W"fҹiȻŵV/CLJ NK `\e TxiAAʟå}.7*AjyJ# l$^ApBQF6ڵ-Sy0j(:]~¤Nj+P2'T;FLG ITtK[c+B0S,_j2DA":#kSnw3 f@p\yYQO- \ǡi.%rF!_`5Pˌr~C4#]/[tA&7m dL2-9dqNmFSATw+oYo_ t:Z n6]<^w[Յ;;Rck @P{kly8j 5nB8AdNA?yq!lspп>iZMo͈-w%H$UjC6ڛ~ 羳 vI[VEQOŨ܈bvx rf]] {dVhX")H`j:eیmbSed6@#n֡a7LDfUM|Ɛ$t*JzƊ$K)ɪ \&-Y[TbJ׈ih1`B* u9~+KR~ً҄TlòŖ7\Rf\o$W}0]"krz(l( ]!fuoXaPv01RM8w<|"sT0}[ k@c4[1Uj]cp4k {qJ#aÚ*$d:.BԢK irZOJ7vKf}Qw .j:Pj)nh}1SM}6xvQs9To K:cMBy֩%KtgۺLj81Ϧn"Gb4Z/ ܾK4GW&fjd3MϢEi|~I٫cGy  2/6#-A G7ބjYetן l'GLty1;?qr0abc,M`W=/r)-S Z\&Wh]m^wEÓ:hL6T>7/ћE|AZߺaj ܮT@~&3cPMPrSjmAMx3;)е #&Hm_<%C YMWXFo)y dηo\k@=vh${e@A1ě#07Ӵ$>(N *?M6r1RP?S5!"ZKД~\hNg]:YY_ZMmnpӒm8dG(3ȭp/={rsH,OP@U"D*nP͵ՕHя6OU{RIuqِ Q 82QJ*S\\\L̽i&';}dz-7ۢ|F.cZ*a .aQ tMBƑw Gu\e{ʁ"N:;|E mCy/>,ZU(peM~N )7)~#dx|fFcL6Z[E7Z`ȏË]E&Ӥ>"۷A$ {3 @V ,AF ſ*ɳKzs X^Lsi:plf_(I^#V턨k@Ю '54@|MҖv:\g;IU8Z\#~x/{F8"y$cdc[RC9=G3S}~A ߵCN,+Df-〺1‘pRd7p% K<*$PNufSaY6x~RXHW߭uGr҆G[BH8O@LjB=/$?VjAx+vlgLxTޕ"@<!n>0^yTE.X_RaNToLA&D0tT}a4l: ` Tx1&&]ڠA OvEd)Gሦ+<[Tχ?mO΄a93v;%/UGMߟ9k ߯R5rlEkE mZPAtT*,XQih&*}*t$p;Xl8PX:17Pf_i.]-_@b5!uAFYn ^5?}YD|>!_7: y"2^WL13߭3=xݸrm\58 VHJs{P!Dg\wHqhaKTN֘X [kѓֻWXd$dsU8.$_\nu֦ea0EmE>1u ؁-^0R0[O&^D< _2ܼʋd;'e'5 9,ϞisoPG:T7=At :<(GԏH"scʔedB.DLS%.VeՍ z:մb/r8]nzyΊ֚̔9B]BUh0T@1@ UzXooO3C \=ei㞵B j̩6ÅQhF-^c#'|\(_Ei[@}p)}*W7BCЅ5WQqvmx6!I\ܥ P%egAAT,>-]EgǏW<)îe,@PXk_N6 3ƂO҆WsZ:`$.GǩUH0E`Њm; ˟ `p`C~\y%E#ҲfrXcouYnbsΩ2pYpeh3I֚ 8u._i&d~<|ۍk BĝG!ԌvtLgy_B<-l9"4y:VqLWeXfL;FDlJL`q 2RrW=F]}L50~Vbg;p( '!s§s+%l7d"Hgf-z/c2LQ{³!3wN4c51ge؛?q~ y3}܆rƵ2R!&>`TշnT=dv}"x YWw)%C[U?\xB27=9_!LCP2T**ϩW>H#"cǽ aeKL([fvEcׅC? W"j%K1&ĺ,`$e9V薿)P8s-ۿrV_ȓ?p}õ.x/!ΌcumJY,P}_$ hN{%QGJO}\W 8U0؏q)]xҞAuoע&)tYWDtDf_0í,>'ak,HbK%װ4.ftp*&{i:Ҿ(A/NZ_Hu5hWbCbݓl\a)\`l3rCF%D LAI> pWh5mJzNvQ[}YU.;dSB31 (nWQnATӋ]TT鵷[/-!А1ŵ &KSj 9~v1_ZRG.i:I} =Ee06~1$. 5kºYK~Vq9;;U}Fgэ4~>`Г/IXuf.!LNw*8%GEU|p4d(C)p'⧤ft'?( Qs 3æ[5[ s9`2xܥw_<XZlOqF\ݓǩf?FÒ=pz'j,P5TbReFU9GSR_@gՉ˛՛P׾oc%fp _uʷq}+Qۤ]< 5f+e-UYZS/4#fA B!/vԲ^ыL_5QKhFC?DdD_l -ыb(քV `mN'|q¤c<ƬC_!W2>k;SY ^m\x0}i_Uo(<{ig(&BͰԷ:k-: PM;✶=ʊVearnCÂ[ӵ9oS &daTJ57p_Ɲ+%@8L>K)?Ej(~cS׍X`5ǏɑlCp RTHΠ8e.6>n{Aeb il:DXɭNgH~ ڔfkU ]BxD,UUU|]i6MT_I(ꈕɯXWMTc  DDocChN}4 )dt^e]̋#EXaꆢXE R`3(C5v|9ace/V>Z>zi0%AV!S+R w!,Չ_|q]h/s_.3_v7%BM0`^?F&/M!V-5KT-qDI\27u;D#^룰nX2/qS3CvU </uC;cZ[u}A!e.1~vZ?Umv$MyIT8_glT )\c{߷&=N%W}ˤ}Y֣=<%N`DJl+:"-vJ0BVթ8͝e}Q7[R̆Re $Maܾ+䷭uezg.5`"H $qscZf t.Z4墣1pepRƐ눚qcqNo H?޲6 $?}hQe mJ,q 0i-lm1^&؁4#jX"2WSg4Ԯ<@+Xώn*#q@_HR|F343<BdYJeD{w4\ݵ5t&7-x.4҃,⨮ٛI͙Z,]SYLOK F5&g73q(H_LPۜCb)<4kOS|6 #~{"}mEԢDŽTvd&*1-ΛZfGCpcW)PǗI.xHBfF>)GglK<+e/tR=3_]}S8pQ>vBxl}=D!Mx | rEoXr6  g`q@wNB\VՃ/ M譑~ G)ٷy&w^ª7a)q`iF) %CI'ZR=0mmneho1BOS ޯb(suB> '< f*rpQ8M m)}pY|ʃƑ*ߙy 7;Iz{·W7u3U)rEf`)V P^O5b ];ѩ #T^a%BuMҍ;[#|Ս+L2OP8u FU-\2HAfS 589al֑]|}iӛٮ*< -g$bVm.{̓` @qr"ڙ_ŽQO'x!qvnGUY}j<VE*5V<j9>O6؛旄8Yݶ(jǞR0擆ƏotA'3.\eEtbwJ$fߡ5b}ȝSp9c95ģd3ns\Uu/Uk'd lF!o YkoKfd'e ,>~C;i x_"P*M!6ՌގZ,L [m7fȊH~nbpuAW] M!+!Җ$3Fp❖xvS.l| Oͬj3 $a85QAz2 jӟEpbpQ4rNŕL}_#~Ǟ&}^uÑؙ)"8|ǖ\V-@{ވ77B{-hWX.Q _*XͰ]K2J?kQ YP ڤyȷq{rr,nx 1n)&JUEw@km.?Q]3JwayҲ20(V0Q϶ɪOmJ*JZs ~e8/D 3_19{@<ְb.]eJ'MN1(^2ECVEz%:/<lpb}߰*]Db/X8[bG"׶Y͐ Rp0 ID;<>Wx+7VhyT2í]ݝCEXn`}b.]y, 6O,{C硈GQ$H3K-gm2!]ۈ#>`󠰝܃1|)T; i b6!~PԞJdcI Sњ#9PThoҢQN2ǯyfW漍Y0*'!{zi|)VygK&qZ'mR79$TCؐOBJ~tuWNOwhc }GI<琧FV`H7YMfj_hWw8 }t |M$6-O3@[?p~Xw!GW6J i7kKK>^=q{ Roxw A}O|_gV⯳X4ȉhaOl Y -7TmZS(8ҫ2@rlj ۱%!pZyw V%gĀg7TKKeyFx)jeavgiNY2mj|>J_˾6%dἻ1#ҊOnw8=ݪhTía_)y,~0aT03U,d=TlC™A+hW?;]>K%9(Sx}7dO,w#0\&~H É?NV?DuMJ%]I`7RYmܱJ͎aGTx!YFƢ;,Q}a$ ~:(h3:8 Pͮ`VD@r{Z´59=jQ ~EU;95Pd*]8z%z}!C_qi8^ĢWZZ^WH;(P#6;K 1XZnsqjM-wԯCK&KY\,GfƍN\F X#G(RX9`"3e6b%Kk=yQդonQ,I0T!~H=&-βchQΗl]STZP?Sx,}l흍^s?Ife4۾" ?;X݇ҍٻv(g[`nLbr6?ÆKJՒ\19ۏV}yHhI:kqcu3,<&j*ԏ9E,xIC =g=8„3ׯj0C=MO0Me15,2N7}zpZ{E;>b{Hj-ɺCP)aK]dPN 2;uչ篰SQk(js@ʁr^؋o#ơY_Lz,n^~HO0X .#; T\t%}0vXw/j'$uR%):N3SǺ:)S.#{=P/ab#5.3ңCMT[i۹A\,CvETjCĻX TgëҴJ)_0GڠTw]WH%ta/%ըIv<+)G{Bd\|'svn{U!{s ";d!FCϯ=^@`z6'?f3-o-G4& YBp=DХas<ڲ 3)Qs'SfNGںuB3\D69TRj[Xm{a2?pYGG=l ;:ժ)N: GVvBDDCfD)bl6pGұB"Yd'[I$V[0b "ɨa9oi 0~f%t[y"#_A YSڃCF)ruI|W)HGDn|l;.jqР_LLU$qRPWOF>;z}kOJ!9N7q~&q95&cZߏgGDUKi}Apԅ *8 !Mq_ Fj 5%JGG8 dI}?3j@Vܔ}̥/mP'"c!# C̆!_wU`qaI@'}5Ā]I`%Ja4 h?=^JKaijΑSk( 4'-Naq~1vFcW@kX  8xJ/ҭ-Fl `59 F]6HM@j&pI[vyH"4)$B=&jxw_l5,->+mI}deH:巀byZ6dĆ No6e RXF/V(Soጞ]lZ 2 ;.d ѝp-!skZ c^VyT0"3e%DV^us&L7qQYXGJ$=nR x]M 82 &  xOQ:Lߔ_u"RFB/|DZ\,|ZD`NATKUT=)C_Z*Uy:)莁)%{ X{a>] #m/@MĚwhcq$$'%;wVe+յ7ؗMDMGG|Q '،#+ Y\A(ujKQ7rޚt [sQ /=s>KvQJ1Ũ(YZ )S{OʮI{"u:gR;?CǂEl&!DjgSiąXྃzech jo,SmwnuW̑Pn~б^FoLHd@g` fZAH[z r5"=.2KY"E' <5%߆hMN@a0ntUj)vڂR:8mJLj2j_9k/ho~*hHfWuXv+%>=RpСV((#h= \NhEݵw Dace˷OXn\DogvC#i?wg0*s|UwK0Ϲ&: ScR'XShN\&y DRSmA:A-oL\hمn̺L8h#qFyiXysyO4cgFMяW8=M?b$;]|kw {}2βA,JS%'&lQHՙ|< /k!`/a7|D$= 6C0.nvQHպ;Ф>QyMe˲&zLu.ܖXwyz˄ }yU?\Ub=ԵQ|=unS BI% 2hOGhQ HV͍8^,KK8 = bHh|5I2:.͠M>o`YHB{둹2" 1%ǖȆ`܌C4T {-#? iPg)/'/2 DT|5,N T[;Θ.sѽGy!HM|.pyrz]%J\VhbwYw?B:BbDH\\\P;NNHeSrUnZzc(xBr5* d^J_\F+hï,8}o`<х| X.7M0ɉ^,יo珨zM:4:)ޓ6 Hz2P&EN;7Ņ-uhJ]P, $$uIG_JypxeYYKocvދO Z*U iU$F=0Ό p7 $mY,):tÅ*a6dHc gdZRhNhXrn[Pr^IUM [GȔ7 ^NAջ1=щG.5w6 :l%L7JT 7o \;uOO#-T1RPz ra>aOO`~xVv)a( ^+6ig*JrrY[x~IUHǙ̇s3ꗐHmjw'4@&v`x 'lH) 7o[bصFe),r mV-*ig<@]ƞ<׍k@Kug{0h$t֤dA@:Sw8BvGkf{K$FFݻ(9Hoj%._;$|C E,Oÿ&Ĩρ;Ydm$ V MK7ԑ_Qk!uUYl8hϔ1?uzxwDlc0 :ok@!cA&Qvbg-qKz<3g!.]06Z̑$9Qż kMrrUGuMKΘ'Ru\I#b鄟ʭDXѳDu۾6QU"K*17.bv`'vE^io\ҧ0 _ɔd?G.[ShAqw7ts'Rάq}r Ji9mhy~41$c[|z~?<˙e+{E\J+cϟ*G{ׄ=H{QHh&Owԅْ~s }N>+ /Ǒ΂ ).$a}"0{yd9zw%'ԍH;5P28+uIEfz-F}Zݜ$t9tN sIdޮ֦MpێԈO S\`rR)ҦGος:{c:*?e;SzNl1f0]tL2Ķ])*5e:f`G `U7U)1o3a6 >QQqqaPZE5CI~ri0RauE⽱raSC~r@A4&[W`\9s$>[{t87[V=ݡ tEp5wo7AՁ׾g 5yux.1M ]G"#uMᷤktIoQVݱzm($ j 6"~\:_4#*/Jێ>ci2Pˍu؛JZyV0z#%~'c+˱u{~/q%Rèf)gS9{xߥOo[hxsۿXwTVfCs,zNL}s]!ur?N"g gL;-rjSmfRp qg Zm|Z)oA4]8|]? K,KƯ؃Ojq]x$v&:*d EFpOdb^+?!^ʉdfvCɍ[U>4sX(c t>bvM8d ~0JzB 1&WWg&uB:%8E@R`NjY% fIY:Bqݨ`yD * 6ı$`-v/u##uѬR7&̅|[ B'j!#L Ґ l{}W, Ѵ Clui~̧&%hRP.\&ńΆa2pLWFM_%Wy8O" Z Wh;}||\//?En֬oH{\i&UI2M}؇g2 Dp.h^;C綜{n{sK[7O0,Gm/ 08$lї'̶<9ee,foM!f=qt* hs/o8;k_yͺL Wg<q֌,,w Oh̄ od}hi(?>bHǬ9b`$q$ۦJ.'D~QH]i~kIpopKɳ_(yޜnhg$Cۤ++ӑD49ee n7J2Ӥvm}GhaBP£98DH3 F8sVw7-/Ng8s I'Xˉ~vyχ h۫v_y,n9h. 8tlHLQ]%k+"K͉,igCTIs!ݦJl-CHL>v7\OwRÄwM͹7i=iC K*F@6KptBڵna7$7] CCq+'U8^ /(/˖/ 0cJ e;DZ;'AwlR*i`w0 8a⭀"Ym uwieQ=^JlbCrhC+=!hd6A##ק-h&mL<ܽs;MpO@A=盦n_|ywHI#|`U_Ƚo(i`^R>,u},^9$чHAm9~:K%yPmMm" ZfEÛ,ᒖQ$a(PTH}iЈ,hOl ~k};]A;kY8ҍ z$Ŋ w7?Ga+dvʠ>4,`P /ꆛB' A.+bIN^]dU`fe4B'߬W'_~JV\͵}mn.+\)7l@.=/lx&}l67tP i;I2W|-ٮV-V m<&'iWĭ5XN0L9ȁSg%j֜= X/s`L)?UE  Y szb87W8rcz|Q2ms >2n遙уxnwTxwje&KpUN%XxX!Gj [n /Gzh~ی}lsߥ,ξܓ/Bw 8t؞?lE!+5I*!k4r*P9$\M"S:!["8¢½rG?UwҵhebA$i5`"rCL̐/xᴎcdSg$(Dp8 'bylO{/}7n`^}EW_ǡZՐ,@ 7w'LR vX" %T`o FMl@.Xkנ"{! ecó5YBo}˿ZTvv'6'a,WwbxmؑVD*nD|pqK'<+m}=E֙*}mJ;J39NBJ4ѣ<1H_cZz*Q06`^X\1؟`&g0Hl@; "[xx{=|Yh-<$i>~K|mh_vaD$jI[l4-[hZpt+4ԍUU ވ2?]بu}) P'kTItx3*8G/)ߝ Omܫ= 2?wmt_Kv?TUD2C9j fT<p1'8 BY DWSbq'ek%qkr__25hɤ'ElRlCK"k3 gaZZ <[4+=(|i54w\W9ιxn E{CL8<&BU~qm~:eУkLYL*W,qrQxժק Dڙ7x; CRVa [VH}"мDVq2dwX/+<|#H0>޲)#|X<'U&Ap#h 9y mWԷsYHxNz܏&{R|AZqޠTo',ԝ'"?8#;aQo[(*b,(I #Pw&nDi^sv ZN%a8Y[5;B}*)S_6&&V7Tir,P4f?\ ]"noUM,^ɂ[)Hy #3F pښ$KG يGLe:]or қGWjda\X^3yy{M!6(JzL3.2N^׺lxnMٖ9}ȇ)va0ofhd>r$xdFP$9~_Pé|ZVxwKA k ^ 4B6.wHVWPA D+(9$%{\bK Z@O Oq9#)1p hW_,${J/S'uՄ3yE"sJ0 W+*6jt27^rJ;Jk}\}q ;Cw-f~}H/_eW}T9ׄMĥlJ#Wp׸F̽ű|,)_-,0kru"./C2Wr]=fVj:,u d]NoXDN^/K[) _]po=N*h釁a,־;kʈ-hnKܰ-(B0$_Sδ (ttxo*U|JYsiN(,<rup*NUT1u9NC?>*%[)|&$ch7gj2d"@8ؤ<խm* *uDOcZCNfe\uYW!8dK_w3j@E\/RpWQЀf2~eDTvy4J`e2koug` q*KnQ=moP/?Ʌ;edxVSھ;w2ufM+pJSDV>N'J24lT9yՒWΆPQA݌to3?rcyKO^?D4Dd5/Įܕ=KS65 a~.x16[ ~ӫ\jŰ /Dw#y$J+5^{^~1q1GhBOWaaut푋ubc$RTIhㄊxA?'.x^5( >|KKAvSQs.;s' ڹӱEsUP‡nigӾv̦Z(?U^6RZ9ujcNB7 SxQNlK 4.\;󬤳&$d43)EՠGY]=ugXH8_]SoA} qNE(<]9f!KADLhnh?I[RqK\Teձy ݈E6RITENJN\ 8qͩ4"UPK va6|M.R}&GiKzIx -6M> t@}zqmI?W> /eEZə]}WyH 8zoVǘ,&ִfBb8A &N.;Թ]G:b#&){c__K'zuw%jkz|氁JҰz}b#:k^h.YCz<- Ma@NҽP<.JS!HVAX߰ Ak~$wFJ]ǐ]:PJ_'j:)b8J_q<-*Y.?!q=wvUNtL ˼gY&_Yb]}or R=㱥XyjNtV)k{|Q1x c)&_k!_Dq3Bf4EqڐkqĚzLk,O[?+)VΖ:dD%KQ+@Qn)?kf\H~6orǪ,MS[=#LH 6< _k(O E_9m\]C)hXaC[IN,Pưr)9^*rXo`h}\zF*ױZ2S+jSӃvlXW=21.>Ic@FSǡI Dv ݀wgB&_P~OjJ^ 'z81)5^.-igNsޮ}fv nӴ 5gH Y>rxS~H<ѰF^0N6:je3J}J8)#}[I}HU&݈7+9V="]IV VGa~'*>u}#36M^1jHmrm~SA kXa+D萬;eqپKdcҨN!؆ k%Q#ng{xN=ąwu`?gY;DĦۀ C;?u(rqfR% 0;|߽ ł~ODb=|x x=93/ ںWmTw?ԷsԡtYV"+^ɛ`J:F \So /ڱ̧ѭnex"ӒyC&Lo> P"gOcj&!p ѩF4haNyDwLa X\Xg``Erh!PnKo:sW+޾0-S$z֜*&ZuyI) (Md⠟̄=ůʸkV{7y1y  ։obӶ5 lȤHe6y1d/u2:u08bV84B9q%eo }Z'.;WgpNUZ[1~s/ZYHHQxShJcqR=4;vVXFT:VyA^ԝGT;Du<7sYA g3Ho|b4/cyNq8>~ohk36ӑm,C\fbx$ 5\=ח^x =M/Oe*Z7^!B|G9 rD,oQO"|֨zpy2DC5\vvXI#631AAJq`,G ur#͘TlCxDYdlDgϠ;?59>ż'TjOZc`mkjUiT *[|LBI^ܼZN#;FDW `pl㗨OYķHKuR w 暺kl`h.jWdYQ+=' LuٓEqI= GN ֊;IcVef\|9ՑXs1& u(^-:iIxg*W}j_e ^@? 5$#Ǻř#7_ޞ]Jo~Í?˥LŨ D&`I#:BQrƑֵ?Gm V?CidઍGg;flU9)p&^Z3@߀qp!11QJS>4IJ$d:O5cM \rxwɸSr }nH2䡷?s3xvtCÒ]("9#Wwl ZDe^>m♍P=Kd@4pnNW9lx{L.VFitD4uJ]pBnWʶn~z19sY/|uC̀otS_P_!Y]OS96b,mTmhB:? G#OCHɓ D%t ks͏ߓ NHM;V/&q v$ԙ%Ip1[8:\mh2"PD?5VxKȘ._e;6noS`̣&T;;ef̚r!5.%FDyc# 7zk$@>@9A,w8̖2,Q xf*5 Zt_aٔeO[ O&e!G𪧭*PْA.PX,hg#o˟Q댍N _,Ël|V#"R -~h^c1{-MѰ $x{qrrV>)RDpc=6U8Sl dwUgg%XrBhcx <!L~w^%>v:lNQ(PPS`v͹He:Ԟ5)3I>t2_on2iڻ,J[QVO UOi[f" `-W䊮m{pj( xuU QtH;t($}eO{5,u[p@@g5hzgwE "xM.gQ`g`0L#Π4y)٪bQEF=UNoPU$7\azp"\CK4OoJiPJ/ixӘ.ZȬRw݆?|PY0k?R :vs',sDž:|wyLɌO8L鹝p-K+o# HT y7ޯiWK5'`d+N9(qfB1׾X*λ+h[YˍW|w H^~,JNJ_Bm W,NP*d7uP|],h71rF;#߇]њr,|M{&|I23 O^1[8:gN)t_y܈Ry,MiL⪔:+A)sI.^1ᑀ5W$UfN{^%.bzmgy-Ld67pЍO'}la>@UIVg>֨mǤcKL]?}'%k~MQy4H]i\Mj&6Ĩۮoi2x\Y;rU}i-]29gخIG pW v  (T!#z 1 |&. px*[/Pfy:˳㿤IlDp2n1s19MЫ p|SH3U]#@q.&ÝJ[~>plHG?I X=jv4U@e [) _pjp>/ecWQUfJ=q `@;Vɛ̸r9f>ļ[G_6nmgsr Isrf~@<`V) KҽX>c"gPyKd-kjqK%d݄nZNb0J@$KJ&J^ĠF^!,V|מW<1c8̈́ZBM95ۙݥn¹{n.{ÏB/ֻs>7iB$9;A3R"Ŧ+^ɪ{:i浴j X|=v1O-Mv$Vpo#YI)|I"g4nYIۊO"%? dS= sM%Ӂ^D'dzbJ&-:[fnJY=LA2"kI `UU`<!G봵^nsEľ~ ȧ5U#c[YZ-#z?ЀvP4=cB#!8\+Nj[UҐޓށ,[W5O׮:L ²V);3m"Q;!bnrV#z}]㾁7F /lۤ)G+$$N/4#0baPS%+j՞G$NƠXb EAaKut a楽M!Ldz8).nkA\lyT rQzh+kWzWtic׌C<Yb:S&ѪjC1BIR`>IJS/dZNwoqrM a%}(Eq{M6rBj )8c,vzgKbA$H|!yU X Y -RΤў-"n'q#CkA s7:wDQQ(cOLL *C،!ս`ΪBb8UgRֳݚ z5];҄`sʾ*۪V|EB!.m`Uab&'s;Ul ` V.3NxY\?ɽ{ဃ%EM͏ ~8FnmӃ|<'@;0\I`3maE(޼՝X;6gNu@4V0Ih]%mܫ8V>0J6.1?Nm9BҨs'cT(HѶ#4Awmgs'RdxpeH&S ?Cr<Ngcm4nLoUCo_܃_w WK_xFuR:gFv_?k[ H4 5 W1i _i='d|0IYW\(:r`C{Col^`u+SzDv Ϊ#lMπT"7֓?+o}djQsiv[*:wVi=|gׯ8,٠/B'/q\.X|]=ѕyŞ/i{f5Ыfc45 @<7tX !c4>ӭ`<Ħm2x3ߠUjsxE\ Z;K2&z3V}ANTаT WRmA?n.e4"_w$E k4Ɔmlcd:sҗ-/ooJ.7e$-dMc#0A2Hd /HT 1FI'AEHfm_$?| |KhܮE؃]05 ZlW<ĵT%q _z WMLS»u oƷO/̥*!^%f<~ĕJ0UQj}J oGJKl[o$db1Ebwg 8aH'I=UY̜ SjxK %KnXh}m7COpxkX^t Bq,Z$7쩖<> O;y~KI@[ w}ۭ!&CVRaL f@6$xv\IE 8BP-u:, *z;@4?/(׈8GE Ex32(n[eI$p4@I[F"*1eZW;GadZF6'ndGBqKӍk.ױH{/X^#%n&x5ߓVf"ti*IȲ6ƞ&O֏zR5) kW"77승 I>p,ƶ+6~Zo4>HٹdOFNEa_'8V!{$Q,=n-?:VPG̕WkS {1c8Uyj'(NSn:E( W:.vk{!#f?Pei!cOI{U^.ŨrZMq ?nyN7OB~uݱ_|icRIRa:h๕%}lqCslmC=ڃgp- ԏ /dT'M4M(Yb>H@# &`K㲞&>-kZV\ ˨饺̡]B‘tqBFĪC($2gX՜gŃŷ+ 巿..!"9OnZrM\ p]qgsaRyW. ͔1v"xe>~ڏo"{_Gƕ~1JbJArJR?9[Ȍ(=Q*2ݰi6G8sPW2lNU^LTD ܺ.*Atu+>Ξ{wJoIB̨T#>bZH?|:|ĕ"ڢĹ-@cK(4_jH=-?7~H&,HGחUNvJD{adD;B0.%Ӱϯlچn=$E$%Ұc3~;- Ig s翋%r&iuxW߆15ę t! 3A4F1bF5vva^Q0Q 'V7d\&\Eޑtܷ5*1zn_Mp,_gӝL?0)hWrJK4(eNSqTݶ=1Q"giZa[eV>=miMґ}'LRnN4e ,so[C换s;NUEqa?y1e\ vO9՗fҧFB,k4&Dj7^Wr!wرs΋Gi{`!KݦF@rl9I6țX$LYSm2$z9vF)[kUwo9٥\gI+dz! }zJwLxXuzW{ns^ŵ7n_Bxe( ٶnQ]Pˋ2_v3NqGWhoGdo/Yv3lLPUdc4&߈ДJqPڹMJf.:L{=}x+Zq;?C~-h o;VKQh@-ve]*D&л3}ӽ}3?i,(0oUj:2ZT-IxĽ[IJt{JQ"PN&N4h$7ъ̬@m8)ޙyڶcANnH\ą0Ň)I5{sC#D_nU@'Kis-N*'emᅠv^H?rsvR/ȤVg1`rHx);!yqQQ3*:h;4Y!9{2A ¨)uڈܦ[KZqsHGG=p08Nӱa!u=>ݪQ#5G{2t̅FBcjҎ=aHŹ } = Iz!6Ϯ8wmaXf+iQŸ(́*I?aH. ^"jw0b^nA^Y&0>%n!!{6Y.iv6 >ieXӿP>m)Z 7&zQd0bcɧ,ܖC#vQEL8:O=fOq aN==Ҳ;9SVAG.^i*+~tDE{֓{`<儿T= 5怠|U'yPU[?r7N=!#Ug"t. 0s֎f]$!PAPXcs8K, _ÂحrgxMx5HQLv I=6 k~L,od}rur MTX5FՉf!\+>̒uS;'d =!X*6 'G̺IF*z|rpڴHθ h<䭉/oSJUɅ؉ʯ2[? g6DkIlAG]wIýwU9 ~&K \U:(JBʟfnaALdr{?phe٫qCDŽ ݜ~iԹw1?/3֋[T8d ۚlWZ(jD ñb((^&O rỐqIWU4RquY]4ʯwC"  \lKY"ShU⾻-4ƿSm'/.pF;yK E>5a!+1 E!2B^@ sƿ-Uœh ERPZR*?m3 ;i6}MR-mf)@C]1TGsܤ|$.=nZA5H^ Wy;:py ǔ@ƻ!ɲeߌ#wca|MŘ>*W*"c0m ~ɑ`%?SC~U~#QaIu6Ʌ}*xlD xg@Y<2,|fAZdA|Ix]g:(M+O!=jLjq)u'BH/Gesz8C6\6PT7()~}j,vl!dĪ6֧bHػ)T79MBBӱN=%bbv(sSJ~8dh{EYync%)gk |#r POH;kBd))A.uW{!#3Z&dt-Ӈl I0Xe-Ȳli ۷I&`2O:%ȺBɭ-Gnc3*daCH2}i}ID.},w*35!bH2yPsmW K=rqսKpQBuJᕜ~8?z+6b' _J9oJo!f4[q?Ps^%]ֹWm￁8j+Y *3B6W/u&yj¤]Mgg!i2?ATE/dKZs4j*ɋS3ne`xygHdS3%Id69}Q@+|ۚs $6&M-Rw>L1uЩ6v`P6$JR= *T# d+S@{w^ҵ}m0.Z^rK;!=.L̛݇iѤڅ+`쉼 d:!jk$^swGL;Ӌ " wdݰ+X #Y |@ VvrZo1' FEfpS'2sq)Lr!Mt"b]UZV1 -gi9 Z/y@T1ޟϖ&?G/*Qf~I 7|$㧕2Ia"a1,CfkOȽؓYmED*Q$3K%yf+Y3bˣZQ%Y? Q5_m `$Ҧj,=h ET+c1ӞV|:^h(l±('$C\UbI):Pve,Tdr( oߦvVw+jWzOcU_\`M/cOΡK`Yf`X.:OYmIYg|Psl8]1}b=_d؛T<bnP@ O |d/<(\sbͷfȑ߫[w`48*[&DZPK`̣մMV"vK!f-JG4`"jufw5Btܙ!!IgTmeDGKՙ'b&>>!L,YآR3<;e=XKUd% й484ػ I^QY~3IN*ёyųQJMvBI,hbsqB6Evfhk } =A&myG\/M%۸ -7ٯb Qz3foI Nl`(Џm/4s}VRSfW.o !T3>@. GL!x#?5|u 8~wq< OyjQ"xYSYol Y744S lzUt3"a\H=p%6NO+J}L֙C(>ĵ/,Z62q0Z;T/l%VqEZ:m\Ϲk>~ jLD~[݀%OZo =*g%"2f9(Jq^/jz-8Ľ\q"z7DtݽVA.3$,Y(W35ݞOzjSDXJxA սo;Kw($5$MO3 Q3f"/#JZ8+Y?ҷ#;T~+7v~Kϓ\eʖqxF|{j<;Π-uN3?6hŞd:p2z+m WX̍ZzAsBatWNIO$_X+0,=&u `eGԧE,%QmuIR\^뫨90|~Y(bVz&-0kH׃y$*_7C?{g1QoÑw‹3&}0+qu*+1a1*mo80 0>>R@uoEWJvY嚃 V U`| :KqRVPO1rN+4qOKmkLJqs(qɕÂY۴#6D=i6J5Qy6f=]1O)}aD՘鰗CM|i$&*E9`$V(볟#"x?V}%x&.Tas1}k8vq?فL? Y!Y4i@^ɓٸ{e~f$QjS'{1îזj+sDoq?]Adj25} qD#hȓu`ۼm=ơOWyd>ۓwp]xslsnp{9洆(*zH,&.oh 8b#BC㧛҆댃-J:4^MCH6%qaa f!j[-0*!3Z Q"4Zk0a2c@ Wr7a"O+{pw}@k4"elw@a"|w~*bwR]{ݧlPoBag4 P I{. BrKHw6pfTuLƾu9%uj-F dkߝ1Picԟx+@FkG5H&&T_N}4 rE4-SsL(PW²)*y /yI "Bra0-}K3d)}$ßA`N|MVĈG fU$)܎.+",!r|'H8S&>Tw#7)clʜڠIN'-oSEZ:UOCZSaFgF؍cN9OuY=FM; Nӝ3}KfD߽}Nz$8`H`%͂8uKˊ2Vb!sZڙ+`[.6 /*H)Z6A!хٳu]Su=4I:`;nDe u=~u@hzxGblpx̳B^!eZhN*+|娍O·2 -ϣ0#S8 _3'12 .]zu_+Ȉc"6W-789loF\J]VGj%KյG9RSc"d*:U<pGFw{Ky*ᗩCFd-oer?\XQ?,UiF\= a2-rL=ʳJ3#$MZ.4r ٤w:"5}AB;gb3R0/@иra ȱFRMv`8/ $)AaAQI@Qߏ)6*k^)*#u뤹SD+BQyǤh = [_9 04rfI;nR~4Dh < .~J['®6Kbm:=}ze a\`# R9U!n*Y?ɒs><}Yvfh%@2!a](CRrNqgG_j\?.KbWL?ۃ +kuT+y ]8OıhVԁGQhA%m"~ 1@˧%xv"Z>x* 2t\ƈb97?γ|6.| *ܤ!z1&?U8`p-<2}HeW܉𫣊yvN/Cح1}}`ϚQ鲲'2&SLc0}#x+o|/5Vf_J 9i)Cl%8vn?y)oQc+Bt-0ibm΋Bf:Oؠ䕕-G#^r۴hВHtCP uʇOh}R6Z Ԝ 77N 'q z:-XuDA K[ 9~!C#rr'G\ث pKSnX!pО6O5x340 p@ i|hSND콋XM< sDD>|w4*:y%)eLIT/}?Yss#O,ΌJHVSi͜1h;#GW9&qvpY";6៩ɻBnrCH"u)bW*(Q:߫|1ilMWPR7ӥwR %*;^fwL /$H]VQV1$3~aNH,AjbKrDMaǜUo5ůwE֮$/dd+t@ue?` N_u0dħKOx"/ϹYG7Ꜽbu;uTƁUidkf"8n_^j'=4Cqʣ1j}Qz-.k¼!^A)y6.s{z~~ PHEapȄ.dܿ +E-k 棄'~MBA/ˢXFL莟 ʰmlYli@PwJmLWt_1 YS|[+-cdw<6VxuwL'wx:JYD=vM00MItW-` *$Z$9p k.b0 ]. a:%/ܿ]pLW8naf-/E)RQ^2Qiw2 A20+m0N+nHF ?ֻ{ZKg:d07tX_]T`# ԜLP)&IqnBvqy.0%Hlp ʏ I-iePXyO{`(nUݨ-'x%m^ASؾG x/zX)F=27c S:kG}>q&XPA&u uz d/1Z%=Et1-wp7l'D]:3eLZyEkt #׆@]K3Xcl[GiRk4LʲE)3Oy CU.mMsc*~0*T%jq`59Ld.ez̛[CSG9S3(޼2fTTGm3Ns'CIm PY'u-p4C\ PTcܠD ǜ7[rɕ;4NC<&mDXXV#+n.P()4TLs ?zӲr"^Q=MF߾`_ -ا57dZ9/GD d GsM/R)CZKI&R'ޜcxV>؏N^N%p,#kN-A>37UBU~-x} 穥XW!! j!5FE/vY9A`y8Taȣ_D@.Ȗ1ˑ]s-RsvE,q;L^et^"B#XiRtS2Ì9OHReVd^F7u #NädĤ7' [ R=K-nGh:(A7Ś'scpO"P|[PqAaT 5-R5/WΨ"oas5\zn6n 3irĨDI^~zbX,3j;9Yq0})۶UZXq) a LSӾ^􂞖| "=gZlO3.U8;LħZceZ\b|{9Em҈]HL o}(^uN%V}5&s# 7(-_dc 6P'3MloWjJ!K]79D.בJ"3\΍=lBTMvSfR E4iuȮ,{#Ńa"ZRj6i` NWprϨ@CDW{)t< ġ>Pq0FL<)>w#+4|%#]Z)9rxz =jmy-*^)ΐ)%aϧ ^i1<l8.m.E4=dx@s|Azm%%K<["<9EҨ(%>ZĎHqQJ)k JZt- rP܀)Lxw`c:f= BkX9a끟;wOpf;LNt}lm%E`+?7be"[4df`2x;^ӛpnj(a.Rݹo,~ CU6zPG_&8f] ˽ g}hA\~q^kWkv6D\gq,^&K\_?㳬nS,b/A28"7hn {CDTu9}~%Za\Pp@7կ|x]Exk8 _FLP3~֘C}v,%z,N^J܎ZaéV 8w\2-&Jna#oUkKGTT2W:3ЇF-y3 -n2IS{ )j"cL(ݭ^](+zCoHe9.ʭdlUV8Lͻ3AqPk*1bKJoAA\r*n3}w{Ho4XIi`2&Ql{/TK9n_ Sփ3:pL?"xK1$L%9\  i9R%@*2{헿.AyPlԀ?X;9pE{6;PU^"i׼yO]Qe=T>hNwtlzMC_+r+-* )y%]ɦܒi WuVJRuda@ :NLåJT93fdymvj0x|zY#j\䗹4JON֠([l޴˸ivd.'pTU'~lj]3͂@Pe< I[459ڒEmHj}czjlRJ⛨^]a/Qw8;rS_iOF) Wn iY7kB:Ƙ?-(|uW AD~ơA=ԝ#?? Og L >?y =\٦v;*yTl Gn●_MK:|%n͐zOaݸt1tGfv Xvk W mwOIFÛ΂I>Aꭜ3"`b~n|Gx~Q h.s mNFWM7$,/zy4[ >ff,L }JZa~W-e@hRue fm>΋=ZU2+s/v9S3vawvK`?PɧN+oOԥtL\fXϪMT81'(P$V4>L5zzA!B0EV-T|,=e}}\yW=kރ )%5h ӘSC @y~wv4ωXSJ+PM ;t\.@.J#G15/! Oreu$ 5QVTTdŎlnU %c`0A(VNZg7Ꚃm4{S]pKTe Ři\lVqֲs$si>P1Fpf\F6SFqo@K2Uqғ󠗡%ݏC#D̮d{zOsZ "Z lof"*{)n}wd^IV_:[Bn<+T9b!DJ:J-  )Z YALj\\F(D1/ۥ]= pXf|];F1S9@7@p^Ci/$43 ):kヘPm iF )3m4ItCpRW2yԄ'-{2JoJ{z:bp$o۝B1eILwm`ߴP9qI;Ft2\t{x۟׺9PoR*L^py*NYVAO*c4p(7P<ҕ҂/DMJJS 9g1UY\,)0PƖ!dvb V\coVx%eVv2}oƬ֙n%ݱ~`LUWY'RNB7!e)Ϻ)yyKƣrdJ=IṊ7(W~36\&t V*6 sƣx`OO#\tk=W3e`ݍx-vwFbB{7 goɣL;A-tx~Z, ȿ0+U Xvdx%[U,م -nj;].3Dtw,[p(H"oy&,IWY{H]ਲ਼S`T~9X%T{Jg8 BW3%jo)? o! y!F''.5y|Ld2jzxǦ3C ?{*n\ie 5n^>r$8N.">[O p`Aje(wB<[L4*[{N6sRqx7~3TChPGvX7 ՇF[=`ƪђ⹙\4U^a1L@}v4q:.>dW+"/e7#G+p?n/74G]9dsSMN]kԐ5sw= RT-PdN˻zGTHWO+/+r !W׹A}r9^lͶ.Ƽo3)U?4e(﮻GYϵ?Ƿ1nOYsԢ[^O~%ݞnAS!A# K8.f[d3uF±.Wƺ% 1k)KeVkh;Cֽt٬U&*!i1p>gҐ1$<|SÐC܈7zd {Sw`shtPJQAzxE[ R(>DJND:%n y= X\Dj] ͣ,ݩN!1;V~:<ggg =R2  3Vt^.̕z"#>[?lf#숒S 7ˣRᳰ.CPsUr]NGxOmD;^|J\Gdeȋ"?I?2|Yy59_4/szjXdR5NoQE}~WbSܳ盇Tp7 mk#^xF.tC;M -rP<'`rBH ~O` yoa-([Ng)޸o f Y劗-Sx~uuwΏ d @EWU_}JmA⎮R}J% .C LV5W}eQ%[F>:Qpzh|*J㸣8s{*"Rj$!V$nIW1V qMڛ2S{*ݳcu{ҕ`h} 8VIC։/fSZfۊAǗǪЩ׋ї-oXMbzM;(QWHvW>5X:2 1OЅ(jTEnfٵS5_ugM[JǧGc[j=?=N,#{4kbJO w*w4!qV黔hvAЃ6dJ.$*gLg@{TmaFf0va5h,/a\DOCK"7"03IEjJc7!Z 2)_b[ꩉ <x(ߑ*rNĮ*4 nTcП WXTOuκhz>OQ1o'GxKOI$E'`{wu3 ȅ[ʟpK> V̓0ʖ+ED]~/0bݾƆ+B* ?3TqiuN?uM]W1¢OkgJXMT|pry<#_k0!}]4)M.ޠMOcV8+U&E*o9t@l#ČD^SjGU&XPUoAȷK/ȷ͌R7fyh23ToSH@حQoH+isKt2򝙱t83C8w..Ex)l 5D:׫sA {/hgv7d1!{Ŕbz !QYk u7C8- ?0A ,Yđ#ۤ WNo@܋<_IY- wkbW 7ٶP~^!P)%ĺsj* ӤC1*hML6YA0a8q0 n}S2t`'u*{):Im ҀΛA>}+m}Yt7z %r+u2s+,>@w9A`;|+*m,0nyT-JM.Q/v%;WʘE]u`ad:ꊋ?'fv<׹,RqU#8=҉]h#Z?J Pa*HeQhxw/HDx)FY9".@h0J x[x\\Ejb ϸl@w|4h6[j5mBr xOe̖0ao^  p."( ,ν╶O1mE"@'Jȇ(v1&k![HBmyFZG vԦcDL HRrNr/F*U{T^Kgn]#߶Zn'/i4bgfO<6SJ!&;MZց]Qy[F&%, 'rܳxU=P}JsR0Vxנ1 W 'tZB~RrZK§mߦVBU۲$Rj4yuaf4Xmq9.^!ec9elL쮭\NOfJiT3 F&"lռF5+'_JtvA/p!ז?GUfNxP AAk @i iC̓Cfm oÒUBfs'nK('zoznJ HIjI ̽bxxOu8];D䥊UZ o`R/bXD_3I=R QZqq;,425m>Dyg{.gYQҡt٫-9<]#gŠ maWΪY xޅ`24L^Zv%JI^9|[2\CC}#_հ)8C&< -K@"[[<æ%+Ēڨ_ZRGt(t|wVQez2lo$@^ [UĠ$!GTYRUh٣k8U њc$)(VR*En7RMM;k_8.RH|N-4A@tx,O=SM\f+,_nsF4LP՜0Ɉ4c{^b7 ?nуZPŋ#h80D$rub#R@Fʀc)Ai_:7b.1X#{GQ8ܢ|} ݁DɆ"S69}1]6X`v),Pf E;FMrрM1w^9 ȐfIX>ͲLLLW.O͡0N'r0Z u9 PA6܎gjyESqhŹ,׼U>%C3c5:|&X8 9#~lLBbi7ߣ{y+ܤrl6E[ ", x.ST%+Ƭ/h)?̱-jVoM-O0c4ӵe-Y~B@N؟jnH;q2lIyb5Su7=!$ob;R6P PS W78Nxx*zbj|+*dqLGPHPcuVN.%G^fͺhS;M~>~)D9U CD&ނ~!*8 xĨ$P܌ 7ߍt1h${#6} 'iR[:X0/jmү(Ҋ80#D,A. L6Q4=ve µye6hMD"'FD}6sL_QmRxy3: A\7|Q%21ɚ [t y9Z*G߇/@kb# SBЍ7n#pW\lk5.x4=߽DɈOv2? [T3eN;!\xwΩkG q 'Ԕ`~&@n72l|C'pZ={#)rKua o`.sݪ;:x*qvwM@; :X?o,Q\ū||HgI7 ^xS)XnشWZ 4-.:Ik<&ip- 5$RgY:j@.t𴩽 uY3}f<4P(ːkXX-we3`!G0Sp{ Y ZgƟ~. fH 1$}p.H)n) Vv.Jeq7vp q}펪֕ ١3M{殫8_E_AJ*s/%R顇"NqP['=.Cf[b.T.IdNc|^" 6)Sik;>CQ < ֻ+7hwݪ"j< <fn=_s lR~,֙Zu5GaZl^BWr1Mԫo;%00 qf|)dXQK'RYYR}~]D2s򜸧&c`)۫4aՉ;@:(xR嶳dݮ^ V i5?Jqoo^[24\$3ܞb%Ĵ)(2(l_˭ԹF0¾mL 'B{H&Oޕ U^ Muo.>! hKj ޮPA43#3@4ILYu.4$CY jΔf\W^wrslʼAD%K0.tإzF;uMShQ ygAQ^`cQ'1D3a0*rȐji :pʹ+3~IF ?FYU;$op8 \}#8򮪶q&+u22gsŀGV#1(2Aez>jC-굢qQ$-ͅ(B3Cd`tOP^}lh?[SYU'u<r_QضZ o$zU&Q caY%4'UXa*Ygij«Ok.I+^꟩h )]{㜁MJW ̥zpܭwV[IoΜCbm+.p+S&Lr۪6k)~ւ{=o LV\ܿq͐?.oO;5;~^Z5'掓%Bȹ_L?X*^~8KiL{=3tHl6F;vr71߭5jM8TaU=HVEt6Ɗ5 l堥\ .◜ƚ?\aL_\$ : yjj`jCL ̷rP5/Ƽ~ofl WI΢tN{5%vQ |'ˀ8"izm*̢cx`hAkν1"a6 d"U]41t96\P_Κ2%d8@o# ;e_輦\AME B]ݙ<& 28 JqNR߃鼻7{odD 0E Ac% ֹl,dTsJh8= P1Oi=,ZcnV:;0/O7m_rk#MfͦabG-=LO~#kDxL,-'F 3޺5dXģ.rP_sr xHb})1)p:8x/wЬH j+FI.Vbpʳ졟ᴴW K?pYvy| ab_8B"C!Rp^he\Y2S{dghLVeݒz~~=]KCpCbM6q%E)GD⍜E{{ys_ַ,Qt{yKC+ LS'+^.1>uWW)Mb R CM gGgqLdT9NYذ4+y}-Fsjx Si EW'ZL gc{:m̘QƲD=7ԋVU8ز8qɱ,{F!SPJ(%F^.MQ}EDiRv1s'3x:'[C U|; -&̟؞͚ |u%'T, ":G#/iQԥA#)O2>U(6j#lIM8=)xRUjKbAP?JUIR`Rf¾}ּhIeG6ussJÜRuooxe+x!޶:y1*[д:q~"GHό`{2Hf!X8z9x 鎇|&c\c9bu(7_X5!!w孷S"ryV҄P}"ש˞[P]b6ByW,4ٶ.]mcoyA HVTM)YvG=ǘ+6LaoSV-ZUeTtptrUiv|Zl.992@W 2X SF#[P4 CWPt:c0rhc]b˅!G0J' rO%DŽZKe-Dines-\@xH.5e StQ7TǗM%G& M6hN.[ kYS&HџxK@G3LA1 &F*΁}#J:L=/\r 8߶$Sh5Z Vp< @wϠՐ-0LjFvr}Vuq UyԦL0&fFEck-Y` eb NTeG:ysM):;$XGtX?P? WDrj& y']ִM_\wPC\5BN.r|nBqs;g;az$u|ΕIu{:8ټ7 pi_!Wb7cG LKZۑn@TIq阂{&4jie&@LyteLdq ;c$&!WJmDc}@$}-fQ\B Ws=77dO}}h̐L°2ΰaIc K Wp͈j `p:ݍDcOKT*^5̭Qr_w]V.޹98݊`9d"A蘅:N:C9Q~VH]~vtEpZ\}oۡ"xo#u#+ A/:ّqśZ Gaanfq f{&Gy1K\jd_U G%=EXWcc96K^UM@iPo{UG4Dَ~gxzy*' YD&(XUF+: :5Zm~׶]"6v %SS#m8iKBGdĭwkGñ2ŝIJ_<ѩ @=#"/pC|;2*+_G ؞:.;Qr GJٹ.?M v#NL^ܘC\rJ?0&Dx&X,^W_r/,D.&hh8( h1RnYj2 1_$7ٞZCvC%<hhOIJr^?5wtO(~Y7xZqȺѺYOnX|l"&rJyT9NeWژ_S] ?ͳ5a;}D$Jq[|qr|e9ePobN mI\yBQ=6β6l2m(AO u5'`!g&؄F$Wܺ<-;P7q`ub,ݢ_u53ǓA2 е 3w8oI;HU "$:>rK o(O扷n2cg$ءgqN+jYu7($h1%nAm Ȩ~v6KG/0G@Z,rXѥMuAmU]FK zs6iA=@gC8vw(GZzU;$RF~ `ƃ .`G|`* jm˸)Si}= X~%?y跮 ]8k1 Qơ. _wWrJU+.ݖ4SssYWY }@'$=q0m5 Δ\ƫ =OH}k&1Ҫ"Tk+_{ 4/ &Kao,rmmxF I^L)br:ݑ{[#c09Q; <6Ը^Ms'C*|0T2fJKݑAxp FQ@0K8[=K6{B2 u8֌ˋ vNpw)!W6=x!1^-ioggK tL\Ma}Ch\{l|C9 $DA zAB_.'1wHy-ߨ([oH~mg7Q# NH;Rdzd >&t68N}R! Y"' wT7bfv%YV8aB$|;T]pfAK#Zk$1)IMx$Kү3ldg$]0$3 G]nHuj;%wdG.E DA1-霓}*n.|2" M=t6jX[ /u3m|uuQyG>:(q®&>޺YE\۳j3TTFFud9mcI8 GDCz2gNڌמ6.&q 2uKLKcZFR5?؃DLnk^~ KKmU.pS~f4mV3p{eЛ Dy,9N]SVYbQ/}qeDΪ_BsIԆXPj4>>̱z#@'lM$xٺj/z >7\G;Nk <-xk%8fyUgP^,zKݚG&;|֌M3 ¿OM/Ǹt:)n!TiC^H'pkjP&79)kPBxPh^GA1hiRj<D5sxmY;:ZSݷ1ʞn-I0&_;JDNcdy$ s 4v#e)ɻ? H锜kz=d|ԉOJպ`_@vϋ P{iYfaYx5F D:h!~< Covʼn~Ԍߩi{7qi3b"y%,vޚi)䦿NU J, |en{}}o u3bn@Wx.<3ř20ok7u Laa1@D71iW۹j:zh%\ 9ɹ: jFJ7H~#`%޿UUV^gZP]s~1>_#Y= pH=Ǭ8G7VY] *Uk-t[s*BbG7Xh#38|Á"gm$IHY{D|%0E }bOL]񦫎 U"7:-h =>2?/u~k+".UG^X~\ւ"9WSc;ta'o{GVW1M ̛$r|*~!4jnh`5˴0ا5BÓ]lVd _D@AG#q;BM,if0桮:A;h~t c:,:6Rvv2kX|} MAy)* u|.ؾyh5镢~u@b'\8 1H3 ,b\ U4>.i$B^`7 |Z Pܹy 'wcO!3~Cј"BCpVA 3WG&n}/!РT/KUe|SIYW0](MdE)4yJBVyft#sM*HKsXOt&-sK4 ]<,DLT$u :ӗ)EdI|Y-o-@$ufLE}eԡ9A", } Fnèrŵ Pu{=/ xyceJskM=B_ ߊ/! T755) +L>~4Tu }AϏ!? miBU p]ËzVNJ׽7l`:q#Z]*ԍW4fvO(di`nNY .`s*l;6"'?L]6}?;2\pKdדKpυ:s硚{obA_ zfwi>{RvAn/:+ ?Em-BBm!a%HH.AʄBo4Kal9Zl9f\p(`ס^JԢV\ tetKux,:./Dpߕ%-c :{tAU@hl,|  >]\&jՍÌuM]}' =1|BgQ v8/ڮ/aS3 47ɖҋ+՜,/Ax{0qN\1X@EUL &Y"YZןW V?YJHs4Љȇ14jw~ m@zV}:ۓ$x_FXVYLi $pǬdˍUҠt 1m{fgY/;yEXUL1`_&OjxeF,y,7].; !LH(K۩.#Ygk9z' %P.4[tMrʺ Ig؄5-i%ĖBYUޝ"X I-*/PͪأZ`~v@O {8U+vbK}QI;Vfbup\Cg??j[Exۣ|c$\aDM~8%Nd# V@;D^̧pPI\am=Vhŀu8'+0aOEEٶFwrf|L:19^8Ǚ/yYZmjTŖc TIJj5o ] tG5 <<;Y%M$woqۻ x*rpa67Aes,9)/[.Iy'%M)8:<C:?aY(>\51.׹ҍݥXOa~p/%|pENrzjI㇙`y (%]qbr n2F٩m&۱AhCGG@CC/&XY{[]w;6\On+qр!Ӝm0{e&|19 5-\YP9Xfy 2J7 C$.ܜSSd 8#C:wkvc !P; xzA%0pm-ROJ#ZD/%[@Ѳ7yGD.wk GqhtSodR@ʛ.s r/Hճ7(_X% =eI~#"aD(\ShT_ÓNŞqz1+83Q|ۨ њdݪPl\ b!Dҫjm6v[O) b XF}*xfL]R/eah2Y͕[s1:qԳZ @`$EVCQTz FPUǭԶ P"0-X1xNЙbn2OG%^ƦmU]E!,ا8F)5g5fɔU\Uz]|?YTU?,g%xmvs'80icSzķ^N0О}:pI.ah.fe.hS=(?T)2v%K a%]R< $lޖ;Ri;,|}XxmGehi8!iig1{=?KPL9DHIg4 }= |}߀CN az9%|-dMav~'[tK L:r~9M}TQͥbDvxlYCIzeERx)O-X= y?3+Vn{SE9.nz/O0uƴ3=wPuy;^ubvQX(L"N=?zVb܊7gfOf|m<(Y^NGFB[\pH}6|M2e']o ˱jDK',Y9BfXN@MBj~%4UF_(b 9qv~\;I܋o:9E+m Vkhy‚83/x*|C,;j+>09I҉pN.yewueTgdӝzn_ P*ݶ'_^q&}1hsd 0W(Be :EwwE-ZWx-#k a!JnziXS>w(u R.wC(+@ T$b(K3Щ4qnrUp8LTl7k.\gl`9WFp݉xvțivUs@9Kퟂ^ROɱO)hAN#.o(`Щ[Af :AIN?_f™]QlYCL`ƳzRhiz][4Wk?^zzoI͚ffdwp˚/D"e+R^G(X\8Fg0?< DϘKJWfZdj<1+ikh!%HfM`HC:qZsꖛkfn h|#z>^WR|Zu Mk֋> ,mG]5Q1srQlwD!T|ùlƗdS7;ƚ`Y[zXMS>aM]~?rK 5_sO!ژPUL@̯y֔("CI-dDril`Uல+XK+kB2YMhN#w99=`F>g#7^R[Q⠼޽燍v0X(UгO?6~D{z +]ԆU,pfú6ɼ]ןD#a,^򵒛 {c̋๸&@.S3@lR[ R]t ӱr[[ADu`r:4ʦc+4QC}:Ā7`TAE~6Bl5/Ȏ}ܺr_mOcC-3䦛"tz36vj"ZCؘ\jeUe}&zrqy$v,U@gPD>ώ0]Lp,ք>@ZWYFw:qogA{޵R1D>eE3.p簙B(j8v55K߈\^y,9Xހ&5e SiɕKW~MǪuMӃ!gk1)/ZoLU ;nR,FWC\om` XQ iyhdzV!1 Azi] - bZkVz $ =ys3O@7eMFEyK?oHI("~ĺ?L7ċ(m/12BDW팢"sΘ=^V?fRqˉިsd>;zh9fΟUk#w& %mV ]MH/[Uaodxbʲ˭G>A7<$WΩ1+㏶!9\wu. u2;k}rxRAHäf9EbE _;>bָ䭻|Ѿ\*Q nl@g:JkȄiэ! bd@I ीM2B Ƨ;d8o̲G hG[M>"(\,< n`Tvj\d[ H>fG )*m`ݣ (Hzܧ2O!4 ~@fa'$UO=&(Zl+mUnsyߩKҜ>8oB><x_653wҢR>,+_Xf f]h'&)UAxգJv!; $!9vܭ7Rh\[P<ԯ d?1ˏkRi6 n\#şh@pw2eau6Ae쾖ND@EofT9]BьHj\*:8]Zfo^jj4>-UCYH.qg]O1` Yxd X!|.Or@t[cOAӓM6ϚM皱ޠ}"e8` jv<[V+ά)4;gok5'Y΂}$BT3- 73o'Rl:C8Md6$e(zGݖqkܪ|Y1 ֏)E_.]?l5iCs0~(e>%55Y=~yZ(kAf|_n@yBz4詔7A0l~h7z^,Jgf0a WG9*u[5X,JBc!IبVTCEF B%*  $9l@@^߃ټU)!m C\g.11ҀjX[ Fԑ Pz_917b+ u"iOE6q أK qbW.SY]BR^KqŒʺѠ J>!y > lgc& E`&Z2:g{)C˶Ic\s>u{gftl\]"plM:t+LtM?f'FkrR >R G(nDVnv,q 7]vzLoU.գg|8f|b]SgRW 8wI&Nu Zqٷ lX 1cЖh2;~Q@?NgJ6Ev/9`{N<K {e 4פYӞ&Gϭ9eQ捐ѥ9EZ G#HM8ut) BgC*-sTb]a bO"7ܧ>-ex oB*D%jF{fa =;,s4cS5vo,qKڗi 패$` #ag)||gċ8~7.[_w6w_晲Es`M")w0mjbGc !Akس0#T;\"Y[-]P/{߅t G#C1͝Ă5i4c}لw##9)!I,ZJnk3o%[ԀJ[rZnaw&GЧEȷze̘;!tof4U͗Ub*ln&j`ޏl E0gK[LBouiV0fxc\̨T }Tdi62+ µm%Z6 HQ@.ƨF+|@%S WRNpաUB S몇.HLWxZ*2pQX4n|RY8žz@f ,a M2AC "nOSze$_pש"Gc-π _Z,;"}/]ew[aot @6MyVR9>i70ݸE͔ڴSnz0Zg+| bI五H1h*$5&KBİįDCKTt!CD+WW9~ɶWJ{Ƴxs"+S"ϢQlN)@H`%mltag]*[VSy @z[F<|W5+y—jE JRiD/Xуuz̘ a $0uSĽHBu: ik2UIh78ʬx- u(CG,>CmjVKO { JDYÌw@Cz1_F+wE'okr\~Ta}̤ێGH(.M z蟜ΫFd&k[JK֋֨T3ڨ;b2_T`XJx~;sk[rJwk #Y9x.66ut0`ه@,Β|LYYQw}!JG=݇x5~5Vc& g4jd]9*/.7\؁6ܼrHywn43m5wwK󨟾,FSɊ??T>vω{+ g18QȚ ΪqPGޣcJ0W> r`9DƵNT_Q@NxLG.h]QIROnТֹ!c^)`$}1Ev(NJ3Ro5V*D6+z^:3Rv\l{k Qz7>_#6* Oܰ%l\v:`Wp}Nh%~d2 mq.X{$Yy^t,sy;<XQfN0:l ob&ǃuY*K3h9j8_].ECL zmHݟ ՉXmcD"}8ZMP*47O=azqU/F0vjǫvx&7P}WY 4+G=N, W M7oF0ʾP.'A`*vJaiSLb5^զ̊A{l:PcI>ᐃAj,̺L}$ֺqU tb#޼ /H٬ݶ:]?`*wxqXM٤&8=xLg(yvsvmI5RԣYuOѠM-.^NVuT+ M Zk QؐzAZ q@58@U%݆<3 RuBCq" CQᖙK[f VJ1$ҶL'N;2Р>]I>W4lmmfomNN4T>ڕԌSn AE)Df.wnV3)s U7q.<`1o joi-COk`f@#{E)MeH2n ,A^At~M~L"i+_NKFZ}7ҊӐp> dMUtۜ\7_DѧmXYl.?/ dTo0"zeN*+⪑tqn1r$zQ*O\OG|5(ܵ; hF\͕F^5`_61$PN52LIAظs ؔ?~x[~sƥ!bVSؒEFл৮3ᤰCeN5Zp!Y䆳LA@E`q].2C<'o"MfJa#URkJU0ˆ{[ϗɮ RPe* ,Zt*GMXT!)q ="9(h7ԾQ`&p[`1a6#ad;Ey}W[7FB{ Ľ"L|S2=羂,ͪFE80^c6@:iXuks嘼2~;)P J\}i(t gjKA<ET,ϏTPy3VtB'9*ܓkx>4Xu0ku*,iq|ɋrׅ+8BJc`M Jd{U$LD̰UT^hֶ9V\VL`|T` r:wuƯ#aJ1\w7<.>!W՞ٕ'͐D9L|XRvp:s("Ԅ;-: +|JX>Xt0*A[(A/4۟(gC} \value{ Returns the updated plotting list. } \note{ Once a 3D plot has been generated, a new device can be opened and \code{plotdev} used to plot also on this device. \code{plotdev} and \code{plot(getplist())} are the same. In an extension package, \code{plot3Drgl}, a similar function, \code{plotrgl}, plots the graphs to the device opened with \code{rgl}. This allows interactive zooming, rotating, etc... } \examples{ # save plotting parameters pm <- par("mfrow") pmar <- par("mar") ## ======================================================================== ## The volcano ## ======================================================================== par(mfrow = c(2, 2), mar = c(2, 2, 2, 2)) # The volcano at lower resolution x <- seq(1, nrow(volcano), by = 2) y <- seq(1, ncol(volcano), by = 2) V <- volcano[x,y] persp3D(z = V) # rotate plotdev(theta = 0) # light and transparence plotdev(lighting = TRUE, lphi = 90, alpha = 0.6) # zoom plotdev(xlim = c(0.2, 0.6), ylim = c(0.2, 0.6), phi = 60) ## ======================================================================== ## Two spheres ## ======================================================================== par(mfrow = c(1, 1), mar = c(0, 0, 0, 0)) # create a sphere M <- mesh(seq(0, 2*pi, length.out = 30), seq(0, pi, length.out = 30)) u <- M$x ; v <- M$y x <- cos(u)*sin(v) y <- sin(u)*sin(v) z <- cos(v) surf3D(x = 2*x, y = 2*y, z = 2*z, colvar = NULL, lighting = TRUE, #plot = FALSE, facets = NA, col = "blue", lwd = 5) surf3D(x, y, z, colvar = NULL, lighting = TRUE, col = "red", add = TRUE) names(getplist()) # plot with different view: plotdev(phi = 0) \dontrun{ # will plot same 3-D graph to pdf pdf(file = "save.pdf") plotdev() dev.off() } ## ======================================================================== ## Two spheres and two planes ## ======================================================================== par(mar = c(2, 2, 2, 2)) # equation of a sphere M <- mesh(seq(0, 2*pi, length.out = 100), - seq(0, pi, length.out = 100)) u <- M$x ; v <- M$y x <- cos(u)*sin(v) y <- sin(u)*sin(v) z <- cos(v) surf3D(x, y, z, colvar = z, theta = 45, phi = 20, bty = "b", xlim = c(-1.5, 1.5), ylim = c(-1, 2), zlim = c(-1.5, 1.5), plot = FALSE) # add a second sphere, shifted 1 unit to the right on y-axis; # no facets drawn for this sphere surf3D (x, y+1, z, colvar = z, add = TRUE, facets = FALSE, plot = FALSE) # define a plane at z = 0 Nx <- 100 Ny <- 100 x <- seq(-1.5, 1.5, length.out = Nx) y <- seq(-1, 2, length.out = Ny) image3D (x = x, y = y, z = 0, add = TRUE, colvar = NULL, col = "blue", facets = TRUE, plot = FALSE) # another, small plane at y = 0 - here x and y have to be matrices! x <- seq(-1., 1., length.out = 50) z <- seq(-1., 1., length.out = 50) image3D (x = x, y = 0, z = z, colvar = NULL, add = TRUE, col = NA, border = "blue", facets = TRUE, plot = TRUE) \dontrun{ # rotate for (angle in seq(0, 360, by = 10)) plotdev(theta = angle) } ## ======================================================================== ## Zooming, rescaling, lighting,... ## ======================================================================== par(mfrow = c(2, 2)) # The volcano x <- seq(1, nrow(volcano), by = 2) y <- seq(1, ncol(volcano), by = 2) V <- volcano[x,y] # plot the volcano persp3D (x, y, z = V, colvar = V, theta = 10, phi = 20, box = FALSE, scale = FALSE, expand = 0.3, clim = range(V), plot = FALSE) # add a plane (image) at z = 170; jetcolored, transparant: only border image3D(x, y, z = 170, add = TRUE, clim = range(V), colvar = V, facets = NA, plot = FALSE, colkey = FALSE) # add a contour (image) at z = 170; jetcolored, contour3D(x, y, z = 170, add = TRUE, clim = range(V), colvar = V, plot = FALSE, colkey = FALSE) # plot it - plot(getplist()) # same as plotdev() # plot but with different expansion plotdev(expand = 1) # other perspective, and shading plotdev(d = 2, r = 10, shade = 0.3) # zoom and rotate plotdev(xlim = c(10, 30), ylim = c(20, 30), phi = 50) ## ======================================================================== ## Using setplist ## ======================================================================== polygon3D(runif(3), runif(3), runif(3)) # retrieve plotting list plist <- getplist() names(plist) plist$poly # change copy of plotting list plist$poly$col <- "red" # update internal plotting list setplist(plist) # plot updated list plotdev() ## ======================================================================== ## Using selectplist ## ======================================================================== polygon3D(runif(10), runif(10), runif(10), col = "red", alpha = 0.2, plot = FALSE, ticktype = "detailed", xlim = c(0,1), ylim = c(0, 1), zlim = c(0, 1)) polygon3D(runif(10)*0.5, runif(10), runif(10), col = "yellow", alpha = 0.2, plot = FALSE, add = TRUE) polygon3D(runif(10)*0.5+0.5, runif(10), runif(10), col = "green", alpha = 0.2, plot = FALSE, add = TRUE) points3D(runif(10), runif(10), runif(10), col = "blue", add = TRUE, plot = FALSE) segments3D(x0 = runif(10), y0 = runif(10), z0 = runif(10), x1 = runif(10), y1 = runif(10), z1 = runif(10), colvar = 1:10, add = TRUE, lwd = 3) # retrieve plotting list plist <- getplist() # selection function SS <- function (x, y, z) { sel <- rep(TRUE, length.out = length(x)) sel[x < 0.5] <- FALSE return(sel) } # The whole polygon will be removed or kept. plot(x = selectplist(plist, SS), xlim = c(0, 1), ylim = c(0, 1), zlim = c(0, 1)) # restore plotting parameters par(mfrow = pm) par(mar = pmar) } \keyword{ hplot } plot3D/man/legendplot.Rd0000644000176200001440000003106114051400604014611 0ustar liggesusers\name{plots with legend or colorkeys} \alias{legendplot} \alias{legendmatplot} \alias{legendhist} \alias{legendpairs} \alias{legend.plt} \alias{legend.oma} \alias{colorkeyplot} \alias{colorkeymatplot} \alias{colorkeyhist} \alias{colorkeypairs} \alias{colorkey.plt} \alias{colorkey.oma} \alias{createKey} \title{ Plots with legend or colorkeys outside of the plotting region } \description{ \code{legendplot}, \code{legendmatplot}, \code{legendhist} and \code{legendpairs} create plots with a legend adjacent to it, using R's default plotting functions plot, matplot, hist and pairs. \code{colorkeyplot}, \code{colorkeymatplot}, \code{colorkeyhist} and \code{colorkeypairs} create a plot with a colorkey adjacent to it. \code{createKey} creates suitable colors for the color variables. \code{legend.plt} and \code{colorkey.plt} are general functions that might also work with other plotting methods, and that add a legend or color key by changing the \code{plt} parameter. \code{legend.oma} and \code{colorkey.oma} are general functions that might also work with other plotting methods, and that add a legend or color key by changing the \code{oma} parameter. } \usage{ legendplot (..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) legendmatplot (..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) legendhist (..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) legendpairs (..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) legend.plt (method = "plot", ..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) legend.oma (method = "pairs", ..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) colorkeyplot (..., colorkey = list(), colorkey.side = 4) colorkeymatplot (..., colorkey = list(), colorkey.side = 4) colorkeyhist (..., colorkey = list(), colorkey.side = 4) colorkeypairs (..., colorkey = list(), colorkey.side = 4) colorkey.plt (method = "plot",..., colorkey = list(), colorkey.side = 4) colorkey.oma (method = "pairs",..., colorkey = list(), colorkey.side = 4) createKey (x, clim = NULL, col = NULL, NAcol = "black") } \arguments{ \item{method }{A plotting method to which to add the legend or colorkey, such as \link{plot}, \code{matplot}, \code{boxplot}, ... Note that not all of R's plotting functions can be used. } \item{... }{Any argument passed to \link{plot}, \link{matplot}, \link{hist} or any other \code{method}. } \item{colorkey.side, legend.side }{On which side of the plot (1=bottom, 2=left, 3=top, 4=right) to put the legend or color key. } \item{legend.cex }{The expansion factor of the space around the legend. } \item{legend.pars }{A list that determines the size of the legend and of the main plotting region, as returned by any of the legend plotting functions. It should contain two vectors, one that sets the size of the plotting region called \code{plt.main} and one that sets the size of the legend, called \code{plt.legend}. The format of these vectors is as the \link{par}ameter \code{"plt"}. See last example. } \item{colorkey }{A list with arguments passed to function \link{colkey}. } \item{legend }{A list with arguments passed to function \link{legend}. } \item{x }{The variable for which the color key has to be created. } \item{col }{Colors to be used for the color key. If \code{col} is \code{NULL}, then a red-yellow-blue colorscheme (\code{jet.col}) will be used. } \item{clim }{The range of the color values, used in the color key. } \item{NAcol }{Color to be used for \code{NA} values. } } \author{Karline Soetaert } \value{ The legend plotting functions return as \code{invisible}, a \code{list} that contains the plotting parameters for the regions of the legend and of the main plotting region, elements called \code{plt.legend} and \code{plt.main}. For the \code{pairs} method, the list returned contains the size of the outer margin instead, i.e. the \code{oma} parameter. } \note{The method that changes the oma parameter (based on legend.oma or colorkey.oma) is not optimal, as plot.new is called several times in this function. This means you will need to "hit return to see next plot" several times before you see the actual figure. } \examples{ # save plotting parameters pm <- par(mfrow = c(2, 2)) pmar <- par(mar = c(5.1, 4.1, 4.1, 2.1)) # ============================================================================ # Colorkey and legend added to simple plot # ============================================================================ par(mfrow = c(2,1)) x <- seq(0, 2*pi, length.out = 30) y <- sin(x) # Note: this forgets the names of the x and y-variables. colorkeyplot(x = x, y = y, col = createKey(y), pch = 18, main = "colorkeyplot with 'plot'", colorkey = list(clim = range(y))) abline (v = 4) abline (h = 0.4) legendplot(x = x, y = y, col = c("red", "blue")[(y > 0)+1], main = "legendplot with 'plot'", pch = 18, xlab = "x", ylab = "y", legend = list(col = c("red","blue"), pch = 18, legend = c(">0", "<0"))) abline (v = pi) abline (h = 0) par(mfrow = c(1,1)) legendplot(x = x, y = y, col = c("red", "blue")[(y > 0)+1], main = "legendplot with 'plot'", pch = 18, legend.side = 1, las = 1, legend = list(col = c("red","blue"), pch = 18, horiz = TRUE, legend = c(">0", "<0"))) abline (v = pi) abline (h = 0) # We do not label the y-axis, so the legend can be a # closer to the axis (legend.cex) par(mfrow = c(1,1), mar = c(4,2,4,2)) legendplot(x = x, y = y, col = c("red", "blue")[(y > 0)+1], main = "legendplot with 'plot'", pch = 18, legend.side = 2, legend.cex = 0.5, ylab = "", legend = list(col = c("red","blue"), pch = 18, horiz = FALSE, legend = c(">0", "<0"))) # Here we have a title with two lines, so the legend is put further away # Also the legend is put near the bottom here. legendplot(x = x, y = y, col = c("red", "blue")[(y > 0)+1], main = "legendplot with 'plot'", pch = 18, legend.side = 2, legend.cex = 2, ylab = c("axis","on two lines"), legend = list(col = c("red","blue"), pch = 18, x = "bottomleft", horiz = FALSE, legend = c(">0", "<0"))) # This works as ordinary legend function (except for the labeling of the axes) par(mfrow = c(1,1), mar = c(4,4,2,2)) legendplot(x = x, y = y, col = c("red", "blue")[(y > 0)+1], main = "legendplot with 'plot'", pch = 18, legend.side = 0, legend = list(col = c("red","blue"), pch = 18, x = "right", horiz = TRUE, legend = c(">0", "<0"))) ## ============================================================================= ## ... added to a more complex plot ## ============================================================================= legend.plt(method = "points2D", x = x, y = y, colvar = y, pch = c(18, 20)[(y > 0)+1], cex = 2, colkey = list(side = 1, dist = -0.25, length = 0.4, shift = -0.15), main = "legendplot with 'points2D'", legend = list(pch = c(18, 20), pt.cex = 2, horiz = FALSE, legend = c(">0", "<0"))) # to use the image function with a color key - easier to do with image2D... colorkey.plt(method = "image", x = 1:nrow(volcano), y = 1:ncol(volcano), z = volcano, col = jet.col(100), main = "colorkeyplot with 'image'", colorkey = list(col = jet.col(100), clim = range(volcano), clab = "m")) ## ============================================================================= ## with matplot ## ============================================================================= # this is not a very instructive figure! lon <- Hypsometry$x # Longitude iy <- seq(10, 180, by = 10) # Index to latitudes where we want to see data lat <- Hypsometry$y[iy] # corresponding latitudes Col <- createKey(iy) colorkeymatplot(main = "matplot with color key", xlab = "longitude", ylab = "heigh, m", x = lon, y = Hypsometry$z[,iy], col = Col, type = "l", colorkey = list(clim = range(lat), clab = "latitude")) n <- 100 colorkey.plt(method = "pie", x = rep(1, n), labels = "", col = rainbow(n), border = NA, main = "colorkeyplot with 'pie'", colorkey = list(col = rainbow(n), clim = c(1,n))) ## ============================================================================= ## A complex figure, consisting of overlays (based on example(boxplot)) ## ============================================================================= plotit <- function(){ boxplot(len ~ dose, data = ToothGrowth, boxwex = 0.25, at = 1:3 - 0.2, subset = supp == "VC", col = "yellow", main = "Guinea Pigs' Tooth Growth", xlab = "Vitamin C dose mg", ylab = "tooth length", xlim = c(0.5, 3.5), ylim = c(0, 35), yaxs = "i") boxplot(len ~ dose, data = ToothGrowth, add = TRUE, boxwex = 0.25, at = 1:3 + 0.2, subset = supp == "OJ", col = "orange") } legend.plt(method = "plotit", legend = list(legend = c("Ascorbic acid", "Orange juice"), fill = c("yellow", "orange"))) # All in one - putting legend on other side.. pm <- par(mar = c(4,3,4,2)) legend.plt(formula = len ~ dose:supp, data = ToothGrowth, boxwex = 0.5, col = c("orange", "yellow"), main = "Guinea Pigs' Tooth Growth", xlab = "Vitamin C dose mg", ylab = "tooth length", sep = ":", lex.order = TRUE, ylim = c(0, 35), yaxs = "i", method = "boxplot", legend.side = 2, legend = list(legend = c("Ascorbic acid", "Orange juice"), fill = c("yellow", "orange"))) par(mar = pm) ## ============================================================================= ## Nesting.. ## ============================================================================= Fun1 <- function() legend.plt(x = 0, method = "plot", type = "n", xlab = "", ylab = "", axes = FALSE, frame.plot = TRUE, legend = list(legend = c("this can", "also be used", "to write text", "next to a plot"))) X <- legend.plt(method = "Fun1", legend.side = 1, legend = list(legend = c("but also to put text", "below a plot"), horiz = TRUE, x = "left", box.col = "grey")) print(X) P <- par(plt = X$plt.legend, new = TRUE) plot.new() legend("right", legend = "second legend") par (plt = X$plt.main, new = TRUE) plot.new() legend("left", legend = "another legend") ## ============================================================================= ## Pairs - note: this is not optimal ## ============================================================================= legendpairs(iris, legend = list(legend = levels(iris$Species), cex = 0.5, col = 1:3, pch = 1), legend.side = 4, col = (1:3)[iris$Species]) legendpairs( iris[1:4], main = "Anderson's Iris Data -- 3 species", pch = 21, bg = c("red", "green3", "blue")[unclass(iris$Species)], legend.side = 1, legend = list(levels(iris$Species), pt.bg = c("red", "green3", "blue"), pch = 21, title = "Species", horiz = TRUE)) # reset plotting parameters par(mfrow = pm) par(mar = pmar) ## Pairs with a color key colorkeypairs(swiss[,c(1,4,5)], pch = 18, cex = 2, col = createKey(swiss[,2]), colorkey=list(clim = range(swiss[,2]), clab = "Agriculture")) ## ============================================================================= ## Aligning plots ## ============================================================================= par(mfrow = c(2,1)) AA <- legendplot(1:10, runif(10), xlab = "x", ylab = "y", pch= 18, cex = 2, col = 1:10, legend = list(col = 1:10, legend = 11111:11120, pch = 18, pt.cex = 2)) legendplot(1:10, runif(10), xlab = "x", ylab = "y", pch= 18, cex = 2, col = 1:10, legend.pars = AA, # use par settings of previous plot legend = list(plot=FALSE)) } \keyword{ hplot } plot3D/man/perspbox.Rd0000644000176200001440000001524112222502010014310 0ustar liggesusers\name{Perspective box} \alias{perspbox} \title{ Creates an empty perspective box, ready for adding objects } \description{ \code{perspbox} draws a box and labels, and makes space for a colorkey (if any). } \usage{ perspbox (x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, bty = c("b", "b2", "f", "g", "bl", "bl2", "u", "n"), ..., col.axis = "black", col.panel = NULL, lwd.panel = 1, col.grid = NULL, lwd.grid = 1, phi = 40, theta = 40, col = NULL, colkey = NULL, plot = TRUE) } \arguments{ \item{x, y }{Vectors with x and y values. It is sufficient to pass the ranges of the x- and y-values, as they will not be drawn. If \code{z} is a matrix, it is required that \code{length(x) = nrow(z)} and \code{length(y) = ncol(z)}. } \item{z }{Matrix or vector with z-values. If \code{z} is a matrix, it is sufficient to pass a diagonal matrix with the range of the z-values, as they will not be drawn. } \item{bty }{The type of the box; only effective if the \link{persp} argument \code{box} equals \code{TRUE} (the default). Unless \code{bty} is equal to \code{"u"} then the arguments \code{col.axis, col.panel, lwd.panel, col.grid, lwd.grid} will be ignored. \code{"f"} is the full box, the default as from \link{persp}, \code{"b"} has only the back panels visible, when \code{"b2"} has back panels and grid lines, \code{"g"} has grey background with white gridlines, \code{"bl"} has a black background, \code{"bl2"} has a black background with grey lines. \code{"u"} means that the user will specify the arguments \code{col.axis, col.panel, lwd.panel, col.grid, lwd.grid} manually. \code{"n"} means that no box will be drawn. This is the same as setting \code{box = FALSE}. } \item{col.axis, col.panel, col.grid }{The color of the axis line, of the axis panel or of the grid lines. Only used if \code{bty = "u"}. } \item{lwd.panel, lwd.grid }{The width of the panel border or of the grid lines. Only used if \code{bty = "u"}. } \item{theta, phi }{The angles defining the viewing direction. \code{theta} gives the azimuthal direction and \code{phi} the colatitude. see \link{persp}. } \item{col }{Colors to be used for coloring the \code{colvar} variable. Here only used for assessing if a color key should be drawn. } \item{colkey }{A logical, \code{NULL} (default), or a \code{list} with parameters for the color key (legend). List parameters should be one of \code{side, plot, length, width, dist, shift, addlines, col.clab, cex.clab, side.clab, line.clab, adj.clab, font.clab} and the axis parameters \code{at, labels, tick, line, pos, outer, font, lty, lwd, lwd.ticks, col.box, col.axis, col.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las}. The defaults for the parameters are \code{side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL}) See \link{colkey}. The default is to draw the color key on side = 4, i.e. in the right margin. If \code{colkey} = \code{NULL} then a color key will be added only if \code{col} is a vector. Setting \code{colkey = list(plot = FALSE)} will create room for the color key without drawing it. if \code{colkey = FALSE}, no color key legend will be added. } \item{plot }{Logical. If \code{TRUE} (default), a plot is created, otherwise the viewing transformation matrix is returned (as invisible). } \item{\dots}{additional arguments passed to \link{persp}. The following \link{persp} arguments can be specified: \code{xlim, ylim, zlim, xlab, ylab, zlab, main, sub, r, d, scale, expand, box, axes, nticks, ticktype}. Arguments \code{scale} and \code{expand} affect the size of the axes. The arguments after \dots must be matched exactly. } } \value{ Function \code{perspbox} returns the viewing transformation matrix. See \link{trans3D}. } \seealso{ \link{persp3D}, \link{scatter2D}, \link{surf3D} for examples where box types different than the default are used. \link{Hypsometry} for an example where colored axis-panels are added to a figure started with \code{perspbox}. } \author{Karline Soetaert } \details{ The arguments \code{xlim}, \code{ylim}, \code{zlim} only affect the axes. All objects will be plotted, including those that fall out of these ranges. To select objects only within the axis limits, use \link{plotdev}. The predefined box types \code{bty} are defined as follows: ``f'': all panels are shown and transparent, also the \link{persp} default. ``b'': only backward panels shown. ``b2'': as ``b'' with \code{col.grid = "grey"}. ``g'': only backward panels shown; \code{col.panel = grey(0.95)}, \code{col.axis = "grey"}, \code{lwd.grid = 2} and \code{col.grid = "white"}. ``bl'': only backward panels shown; \code{col.panel = "black"}, \code{col.axis = "grey"}, \code{lwd.grid = 2} and \code{col.grid = "white"}. ``n'': no box is drawn. } \examples{ # save plotting parameters pm <- par("mfrow") pmar <- par("mar") ## ======================================================================== ## The 4 predefined box types ## ======================================================================== par(mfrow = c(2, 2), mar = c(1, 1, 1, 1)) # box type with only backward panels perspbox(z = volcano, bty = "b", ticktype = "detailed", d = 2, main = "bty = 'b'") # box as in 'persp' perspbox(z = volcano, bty = "f", ticktype = "detailed", d = 2, main = "bty = 'f'") # back panels with gridlines, detailed axes perspbox(z = volcano, bty = "b2", ticktype = "detailed", d = 2, main = "bty = 'b2'") # ggplot-type, simple axes perspbox(z = volcano, bty = "g", d = 2, main = "bty = 'g'") ## ======================================================================== ## A user-defined box ## ======================================================================== par(mfrow = c(1, 1)) perspbox(z = diag(2), bty = "u", ticktype = "detailed", col.panel = "gold", col.axis = "white", scale = FALSE, expand = 0.4, col.grid = "grey", main = "user-defined") # restore plotting parameters par(mfrow = pm) par(mar = pmar) } \keyword{ hplot } plot3D/man/ImageOcean.Rd0000644000176200001440000000720712220002040014435 0ustar liggesusers\name{2-D data set} \docType{data} \alias{ImageOcean} \alias{Hypsometry} \title{The earths hypsometry (land elevation) and the ocean's bathymetry} \description{ \code{Hypsometry} is a relatively crude data set of the earths land elevation (positive) and ocean depth (negative), at 1 dg intervals. \code{ImageOcean} plots the ocean's bathymetry. } \usage{ ImageOcean (...) Hypsometry } \arguments{ \item{\dots}{ arguments passed to function \link{image2D}. } } \format{ A list with the bathymetry (depth) and hypsometry (altitude) of the world. It contains: \describe{ \item{x}{the latitude,} \item{y}{the longitude,} \item{z}{the height (m).} } } \author{Karline Soetaert } \examples{ # save plotting parameters pm <- par("mfrow") mar <- par("mar") ## ======================================================================= ## Images of the hypsometry ## ======================================================================= par(mfrow = c(2, 2)) image2D(Hypsometry, asp = TRUE, xlab = expression(degree*E), ylab = expression(degree*N), contour = TRUE) # remove ocean zz <- Hypsometry$z zz[zz < 0] <- NA image2D(zz, x = Hypsometry$x, y = Hypsometry$y, NAcol = "black") ## ======================================================================= ## A short version for plotting the Ocean's bathymetry ## ======================================================================= ImageOcean(asp = TRUE, contour = TRUE) ImageOcean(col = "white", contour = list(levels = seq(-6000, 0, by = 2000))) ## ======================================================================= ## A complex image of part of the ocean ## ======================================================================= # elaborate version par(mfrow = c(1, 1), mar = c(2, 2, 2, 2)) ii <- which(Hypsometry$x > -50 & Hypsometry$x < -20) jj <- which(Hypsometry$y > 10 & Hypsometry$y < 40) # Draw empty persp box zlim <- c(-10000, 0) pmat <- perspbox(z = Hypsometry$z[ii, jj], xlab = "longitude", ylab = "latitude", zlab = "depth", expand = 0.5, d = 2, zlim = zlim, phi = 20, theta = 30, colkey = list(side = 1)) # A function that makes a black panel with grey edge: panelfunc <- function(x, y, z) { XY <- trans3D(x, y, z, pmat = pmat) polygon(XY$x, XY$y, col = "black", border = "grey") } # left panel panelfunc(x = c(0, 0, 0, 0), y = c(0, 0, 1, 1), z = c(zlim[1], zlim[2], zlim[2], zlim[1])) # back panel panelfunc(x = c(0, 0, 1, 1), y = c(1, 1, 1, 1), z = c(zlim[1], zlim[2], zlim[2], zlim[1])) # bottom panel panelfunc(x = c(0, 0, 1, 1), y = c(0, 1, 1, 0), z = c(zlim[1], zlim[1], zlim[1], zlim[1])) # Actual bathymetry, 2 times increased resolution, with contours persp3D(z = Hypsometry$z[ii,jj], add = TRUE, resfac = 2, contour = list(col = "grey", side = c("zmin", "z")), zlim = zlim, clab = "depth, m", colkey = list(side = 1, length = 0.5, dist = -0.1)) # shorter alternative for same plot, higher resolution \dontrun{ persp3D(z = Hypsometry$z[ii,jj], resfac = 4, contour = list(col = "grey", side = c("zmin", "z")), zlim = zlim, clab = "depth, m", bty = "bl2", xlab = "longitude", ylab = "latitude", zlab = "depth", expand = 0.5, d = 2, phi = 20, theta = 30, colkey = list(side = 1, length = 0.5, dist = -0.1)) } # reset plotting parameters par(mfrow = pm) par(mar = mar) } \seealso{ \link{image2D}, for the image function that visualises the bathymetry } \details{ Hypsometry is based on dataset \code{Bathymetry} from the R-package \code{marelac}. } \keyword{hplot} plot3D/man/arrows3D.Rd0000644000176200001440000003753412512732734014207 0ustar liggesusers\name{3-D arrows, segments, polygons, boxes, rectangles} \alias{arrows3D} \alias{segments3D} \alias{box3D} \alias{border3D} \alias{rect3D} \alias{polygon3D} \alias{arrows2D} \alias{segments2D} \alias{rect2D} \alias{polygon2D} \title{ Plots arrows, segments, points, lines, polygons, rectangles and boxes in a 3D perspective plot or in 2D. } \description{ Functions \code{arrows3D} and \code{segments3D} draw arrows and line segments between pairs of points. Functions \code{box3D} and \code{border3D} draw boxes between pairs of points. \code{polygon3D} draws polygons; \code{rect3D} draws rectangles. The 2D functions \code{arrows2D}, \code{segments2D}, \code{rect2D} and \code{polygon2D} are included for their side effect of having a color key. } \usage{ arrows3D (x0, y0, z0, x1 = x0, y1 = y0, z1 = z0, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", type = "triangle", add = FALSE, plot = TRUE) segments3D (x0, y0, z0, x1 = x0, y1 = y0, z1 = z0, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) box3D (x0, y0, z0, x1, y1, z1, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) border3D(x0, y0, z0, x1, y1, z1, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) rect3D (x0, y0, z0, x1 = NULL, y1 = NULL, z1 = NULL, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) polygon3D (x, y, z, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) arrows2D (x0, y0, x1 = x0, y1 = y0, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, type = "triangle", add = FALSE, plot = TRUE) segments2D (x0, y0, x1 = x0, y1 = y0, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, add = FALSE, plot = TRUE) rect2D (x0, y0, x1 = x0, y1 = y0, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, add = FALSE, plot = TRUE) polygon2D (x, y, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, clim = NULL, clab = NULL, add = FALSE, plot = TRUE) } \arguments{ \item{x0, y0, z0 }{coordinates of points \emph{from} which to draw. } \item{x1, y1, z1 }{coordinates of points \emph{to} which to draw. For \code{arrows3D} and \code{segments3D}, at least one must be supplied. For \code{rect3D} exactly one must be \code{NULL}. } \item{x, y, z }{coordinates of the vertices of the polygon. The polygon will be closed by joining the last point to the first point. The coordinates can contain missing values (\code{NA}). These \code{NA} values break the polygon into several complete polygons. } \item{colvar }{The variable used for coloring. It need not be present, but if specified, it should be a vector of dimension equal to the coordinates or to the number of polygons. Values of \code{NULL}, \code{NA}, or \code{FALSE} will toggle off coloration according to \code{colvar}. } \item{theta, phi }{the angles defining the viewing direction. \code{theta} gives the azimuthal direction and \code{phi} the colatitude. See \link{persp}. } \item{col }{Color palette to be used for coloring the arrows or segments as specified by the \code{colvar} variable. If \code{col} is \code{NULL} and \code{colvar} is specified, then a red-yellow-blue colorscheme (\link{jet.col}) will be used. If \code{col} is \code{NULL} and \code{colvar} is not specified, then \code{col} will be "black". } \item{NAcol }{Colors to be used for \code{colvar} values that are \code{NA}. } \item{breaks }{a set of finite numeric breakpoints for the colors; must have one more breakpoint than color and be in increasing order. Unsorted vectors will be sorted, with a warning. } \item{colkey }{A logical, \code{NULL} (default), or a \code{list} with parameters for the color key (legend). List parameters should be one of \code{side, plot, length, width, dist, shift, addlines, col.clab, cex.clab, side.clab, line.clab, adj.clab, font.clab} and the axis parameters \code{at, labels, tick, line, pos, outer, font, lty, lwd, lwd.ticks, col.box, col.axis, col.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las}. The defaults for the parameters are \code{side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL}) See \link{colkey}. The default is to draw the color key on side = 4, i.e. in the right margin. If \code{colkey} = \code{NULL} then a color key will be added only if \code{col} is a vector. Setting \code{colkey = list(plot = FALSE)} will create room for the color key without drawing it. if \code{colkey = FALSE}, no color key legend will be added. } \item{border }{The color of the lines drawn around the surface facets. The default, \code{NA}, will disable the drawing of borders. } \item{facets }{If \code{TRUE}, then \code{col} denotes the color of the surface facets. If \code{FALSE}, then the surface facets are colored ``white'' and the \code{border} (if \code{NA}) will be colored as specified by \code{col}. If \code{NA} then the facets will be transparent. It is usually faster to draw with \code{facets = FALSE}. } \item{panel.first }{A \code{function} to be evaluated after the plot axes are set up but before any plotting takes place. This can be useful e.g. for drawing background grids or scatterplot smooths. The function should have as argument the transformation matrix, e.g. it should be defined as \code{function(pmat)}. See example of \link{persp3D} and last example of \link{voxel3D}. } \item{clab }{Only if \code{colkey} is not \code{NULL} or \code{FALSE}, the label to be written on top of the color key. The label will be written at the same level as the main title. To lower it, \code{clab} can be made a vector, with the first values empty strings. } \item{clim }{Only if \code{colvar} is specified, the range of the color variable, used for the color key. Values of \code{colvar} that extend the range will be put to \code{NA}. } \item{bty }{The type of the perspective box, the default draws only the back panels. Only effective if the \link{persp} argument (\code{box}) equals \code{TRUE} (this is the default). See \link{perspbox}. } \item{type }{The type of the arrow head, one of \code{"simple"} (which uses R-function \link{arrows}), \code{"curved"} or \code{"triangle"} and \code{"cone"}. The latter two are the same in \code{plot3D} (but differ in package \code{plot3Drgl}). } \item{add }{Logical. If \code{TRUE}, then the arrows, segments, ... will be added to the current plot. If \code{FALSE} a new plot is started. } \item{plot }{Logical. If \code{TRUE} (default), a plot is created, otherwise the viewing transformation matrix is returned (as invisible). } \item{\dots}{additional arguments passed to the plotting methods. The following \link{persp} arguments can be specified: \code{xlim, ylim, zlim, xlab, ylab, zlab, main, sub, r, d, scale, expand, box, axes, nticks, ticktype}. The arguments \code{xlim}, \code{ylim}, \code{zlim} only affect the axes for 3D plots. All objects will be plotted, including those that fall out of these ranges. To select objects only within the axis limits, use \link{plotdev}. \code{shade} and \code{lighting} arguments will have no effect. \code{alpha} can be given a value inbetween 0 and 1 to make colors transparent. In addition, the \link{perspbox} arguments \code{col.axis, col.panel, lwd.panel, col.grid, lwd.grid} can also be given a value. For \code{arrows3D}, the following \link{arrows} arguments can be specified: \code{length, code, angle}. For \code{polygon3D}, the following \link{polygon} arguments can be specified: \code{border}. For all the functions, arguments \code{lty, lwd} can be specified. The arguments after \dots must be matched exactly. } } \value{ Returns the viewing transformation matrix. See \link{trans3D}. } \seealso{ \link{arrows} for the 2-D arrows function on which \code{arrows3D} is based. \link{segments} for the 2-D arrows function on which \code{segments3D} is based. } \examples{ # save plotting parameters pm <- par("mfrow") ## ======================================================================== ## arrows, points, segments, box ## ======================================================================== # Create a grid of x, y, and z values xx <- yy <- seq(-0.8, 0.8, by = 0.2) zz <- seq(-0.8, 0.8, by = 0.8) M <- mesh(xx, yy, zz) x0 <- M$x; y0 <- M$y; z0 <- M$z x1 <- x0 + 0.1 Col <- c("red", "blue", "green") arrows3D(x0, y0, z0, x1 = x1, colvar = z0, lwd = 2, d = 2, clab = "z-value", col = Col, length = 0.1, xlim = c(-0.8, 0.8), ylim = c(-0.8, 0.8), main = "arrows3D, points3D, segments3D, border3D") # add starting point of arrows points3D(x0, y0, z0, add = TRUE, colvar = z0, colkey = FALSE, pch = ".", cex = 3, col = Col) # use segments to add section x0 <- c(-0.8, 0.8, 0.8, -0.8) x1 <- c( 0.8, 0.8, -0.8, -0.8) y0 <- c(-0.8, -0.8, 0.8, -0.8) y1 <- c(-0.8, 0.8, 0.8, 0.8) z0 <- c(0., 0., 0., 0.) segments3D(x0, y0, z0, x1, y1, z1 = z0, add = TRUE, col = "black", lwd = 2) # add a box border3D(-0.8, -0.8, -0.8, 0.8, 0.8, 0.8, col = "orange", add = TRUE, lwd = 3) ## ======================================================================== ## boxes, cubes ## ======================================================================== # borders are boxes without facets border3D(x0 = seq(-0.8, -0.1, by = 0.1), y0 = seq(-0.8, -0.1, by = 0.1), z0 = seq(-0.8, -0.1, by = 0.1), x1 = seq(0.8, 0.1, by = -0.1), y1 = seq(0.8, 0.1, by = -0.1), z1 = seq(0.8, 0.1, by = -0.1), col = gg.col(8), lty = 2, lwd = c(1, 4), phi = 20, main = "border3D") box3D(x0 = -0.8, y0 = -0.8, z0 = -0.8, x1 = 0.8, y1 = 0.8, z1 = 0.8, border = "black", lwd = 2, col = gg.col(1, alpha = 0.8), main = "box3D") box3D(x0 = seq(-0.8, -0.1, by = 0.1), y0 = seq(-0.8, -0.1, by = 0.1), z0 = seq(-0.8, -0.1, by = 0.1), x1 = seq(0.8, 0.1, by = -0.1), y1 = seq(0.8, 0.1, by = -0.1), z1 = seq(0.8, 0.1, by = -0.1), col = rainbow(n = 8, alpha = 0.1), border = "black", lwd = 2, phi = 20) # here the perspective does not always work # use alpha.col to set the transparency of a vector of colors box3D(x0 = runif(3), y0 = runif(3), z0 = runif(3), x1 = runif(3), y1 = runif(3), z1 = runif(3), col = c("red", "lightblue", "orange"), alpha = 0.5, border = "black", lwd = 2) ## ======================================================================== ## rectangles ## ======================================================================== # at constant 'z' rect3D(x0 = seq(-0.8, -0.1, by = 0.1), y0 = seq(-0.8, -0.1, by = 0.1), z0 = seq(-0.8, -0.1, by = 0.1), x1 = seq(0.8, 0.1, by = -0.1), y1 = seq(0.8, 0.1, by = -0.1), col = gg.col(8), border = "black", bty = "g", lwd = 2, phi = 20, main = "rect3D") # constant y and with transparent facets rect3D(x0 = 0, y0 = 0, z0 = 0, x1 = 1, z1 = 5, ylim = c(0, 1), facets = NA, border = "red", bty = "g", lwd = 2, phi = 20) # add rect at constant z, with colored facet rect3D(x0 = 0, y0 = 0, z0 = 0, x1 = 1, y1 = 1, border = "red", add = TRUE) ## ======================================================================== ## arrows added to a persp plot ## ======================================================================== x <- y <- seq(-10, 10, length = 30) z <- outer(x, y, FUN = function(x,y) x^2 + y^2) persp3D(x, y, z, theta = 30, phi = 30, col = "lightblue", ltheta = 120, shade = 0.75, ticktype = "detailed", xlab = "X", ylab = "Y", zlab = "x^2+y^2" ) # Points where to put the arrows x <- y <- seq(-10, 10, len = 6) X0 <- outer(x, y, FUN = function (x,y) x) Y0 <- outer(x, y, FUN = function (x,y) y) Z0 <- outer(x, y, FUN = function (x,y) x^2 + y^2) X1 <- X0 + 1 Y1 <- Y0 + 1 Z1 <- Z0 + 10 arrows3D(X0, Y0, Z0, X1, Y1, Z1, lwd = 2, add = TRUE, type = "curved", col = "red") segments3D(X0, Y0, Z0, X0, Y0, rep(0, length(X0)), lwd = 2, add = TRUE, col = "green") ## ======================================================================== ## polygon3D ## ======================================================================== x <- runif(10) y <- runif(10) z <- runif(10) polygon3D(x, y, z) # several polygons, separated by NAs x <- runif(39) y <- runif(39) z <- runif(39) ii <- seq(4, 36, by = 4) x[ii] <- y[ii] <- z[ii] <- NA # transparent colors (alpha) polygon3D(x, y, z, border = "black", lwd = 3, col = gg.col(length(ii) + 1, alpha = 0.8), main = "polygon3D") ## ======================================================================== ## 2D examples, with color key ## ======================================================================== arrows2D(x0 = runif(10), y0 = runif(10), x1 = runif(10), y1 = runif(10), colvar = 1:10, code = 3, main = "arrows2D, segments2D") segments2D(x0 = runif(10), y0 = runif(10), x1 = runif(10), y1 = runif(10), colvar = 1:10, lwd = 2, add = TRUE, colkey = FALSE) # transparency rect2D(x0 = runif(10), y0 = runif(10), x1 = runif(10), y1 = runif(10), colvar = 1:10, alpha = 0.4, lwd = 2, main = "rect2D") ## ======================================================================== ## polygon2D ## ======================================================================== x <- runif(10) y <- runif(10) polygon2D(x, y) # same as polygon # several polygons, separated by NAs x <- runif(59) y <- runif(59) ii <- seq(5, 55, by = 5) x[ii] <- y[ii] <- NA # transparent colors (alpha) polygon2D(x, y, border = "black", lwd = 3, colvar = 1:(length(ii) + 1), col = gg.col(), alpha = 0.2, main = "polygon2D") # restore plotting parameters par(mfrow = pm) } \keyword{ hplot } plot3D/man/Image.Rd0000644000176200001440000004274714047142074013524 0ustar liggesusers\name{2D image and contour plots} \alias{image2D} \alias{contour2D} \alias{image2D.matrix} \alias{image2D.array} \alias{image2D.list} \title{ Extended image and contour plots for 2-D (and 3-D) data. } \description{ \code{image2D} extends R's \link{image} function. Input can be a matrix (2-D) or an array (3-D) or a list. \code{contour2D} extends R's \link{contour} function. } \usage{ image2D (z, ...) contour2D (z, x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), ..., col = NULL, NAcol = NULL, colkey = NULL, resfac = 1, clab = NULL, add = FALSE, plot = TRUE) \method{image2D}{matrix}(z, x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), colvar = z, ..., col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, contour = FALSE, colkey = NULL, resfac = 1, clab = NULL, lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, theta = 0, rasterImage = FALSE, add = FALSE, plot = TRUE) \method{image2D}{array}(z, margin = c(1, 2), subset, ask = NULL, ...) \method{image2D}{list}(z, ...) } \arguments{ \item{z }{Matrix (2-D) or array (3-D) or a list with matrices or arrays, with z-values. By default \code{colvar} is equal to \code{z}, hence \code{z} also defines the variable used to color the \link{image}. Only when \code{shade} or \code{lighting} is toggled on does it make sense to use \code{z} different from \code{colvar}. } \item{x, y }{Vectors or matrix with x and y values. If a vector \code{x} should be of length equal to \code{nrow(z)} and \code{y} should be of length equal to \code{ncol(z)}. If a matrix (only for \code{image2D}), they should have the same dimension as \code{z} or be of dimension = \code{dim(z)+1}. } \item{colvar }{Only used when \code{shade} or \code{lighting} is toggled on. The variable used to color the image. } \item{col }{Color palette to be used for the \link{image} function or for the contours. See details. } \item{NAcol }{Color to be used for \code{NA} values of \code{z}; for \code{image2D}, the default is ``white'', for \code{contour2D}, the default is to do nothing. } \item{breaks }{a set of finite numeric breakpoints for the colors; must have one more breakpoint than color and be in increasing order. Unsorted vectors will be sorted, with a warning. } \item{contour }{If \code{TRUE}, then a \link{contour} plot will be added to the image plot, unless \code{x, y} are a matrix. Also allowed is to pass a \code{list} with arguments for the \link{contour} function. } \item{colkey }{A logical, \code{NULL} (default), or a \code{list} with parameters for the color key (legend). List parameters should be one of \code{side, plot, length, width, dist, shift, addlines, col.clab, cex.clab, side.clab, line.clab, adj.clab, font.clab} and the axis parameters \code{at, labels, tick, line, pos, outer, font, lty, lwd, lwd.ticks, col.box, col.axis, col.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las}. The defaults for the parameters are \code{side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL}) See \link{colkey}. The default is to draw the color key on side = 4, i.e. in the right margin. If \code{colkey} = \code{NULL} then a color key will be added only if \code{col} is a vector. Setting \code{colkey = list(plot = FALSE)} will create room for the color key without drawing it. if \code{colkey = FALSE}, no color key legend will be added. } \item{clab }{Only if \code{colkey} is not \code{NULL} or \code{FALSE}, the label to be written on top of the color key. The label will be written at the same level as the main title. To lower it, \code{clab} can be made a vector, with the first values empty strings. } \item{resfac }{Resolution factor, one value or a vector of two numbers, for the x and y- values respectively. A value > 1 will increase the resolution. For instance, if \code{resfac} equals \code{3} then for each adjacent pair of x- and y-values, z will be interpolated to two intermediary points. This uses simple linear interpolation. If \code{resfac} is one number then the resolution will be increased similarly in x and y-direction. } \item{lighting }{If not \code{FALSE} the facets will be illuminated, and colors may appear more bright. To switch on lighting, the argument \code{lighting} should be either set to \code{TRUE} (using default settings) or it can be a list with specifications of one of the following: \code{ambient, diffuse, specular, exponent, sr} and \code{alpha}. Will overrule \code{shade} not equal to \code{NA}. See examples in \link{jet.col}. } \item{shade }{the degree of shading of the surface facets. Values of shade close to one yield shading similar to a point light source model and values close to zero produce no shading. Values in the range 0.5 to 0.75 provide an approximation to daylight illumination. See \link{persp}. } \item{ltheta, lphi }{if finite values are specified for \code{ltheta} and \code{lphi}, the surface is shaded as though it was being illuminated from the direction specified by azimuth \code{ltheta} and colatitude \code{lphi}. See \link{persp}. } \item{theta }{The angle defining the azimuthal direction. Implemented for consistency with the other functions based on \link{persp}. } \item{border }{The color of the lines drawn around the surface facets. The default, \code{NA}, will disable the drawing of borders. } \item{facets }{If \code{TRUE}, then \code{col} denotes the color of the surface facets. If \code{FALSE}, then the surface facets are colored ``white'' and the \code{border} will be colored as specified by \code{col}. If \code{NA} then the facets will be transparent. It is usually faster to draw with \code{facets = FALSE}. } \item{rasterImage }{If \code{TRUE}, the function \link{rasterImage} will be used for plotting rather than \link{image} or \link{polygon}. This requires the \code{x} and \code{y} to be a vector with equally spaced elements. Note that by default, \link{rasterImage} linearly interpolates the image, so it will appear smoother. } \item{add }{Logical. If \code{TRUE}, then the points will be added to the current plot. If \code{FALSE} a new plot is started. } \item{plot }{Logical. If \code{TRUE} (default), a plot is created, otherwise (for 3D plots) the viewing transformation matrix is returned (as invisible). } \item{margin }{A vector giving the subscripts which the \code{image} function will be applied over. The image function will loop over the index that is not in \code{margin}. For instance, \code{c(1, 2)}, indicates to plot rows(x) and columns(y) and to loop over index \code{3}; \code{c(2, 1)} will do the same but the image will be transposed. \code{margin} should be a vector with two numbers inbetween \code{1}, and \code{3}. } \item{ask }{A logical; if \code{TRUE}, the user is asked before each plot, if \code{NULL} the user is only asked if more than one page of plots is necessary and the current graphics device is set interactive, see \link{par}(ask) and \link{dev.interactive}. } \item{subset }{Either a logical expression indicating over which elements to loop, or a vector or integers denoting the indices of the elements over which to loop. Missing values are taken as \code{FALSE}. } \item{\dots}{additional arguments passed to the plotting methods \link{image}, \link{rasterImage}, \link{polygon} and \link{contour}. \code{alpha} can be given a value inbetween 0 and 1 to make colors transparent. The arguments after \dots must be matched exactly. } } \details{ \code{image2D} is an extension to the default \link{image} plot that has the possibility to add a color key and contourlines, and to increase the resolution in order to make smoother images. It also uses a different color scheme, it can deal with decreasing x- and y- values and x and y can be a matrix. In the latter case, the image will be drawn as a set of \link{polygon}s; if \code{x} and \code{y} are a vector, either R-function \link{image} or \link{rasterImage} will be used. \code{image2D.array} and \code{image2D.list} are versions that accept a 3 dimensional array respectively a list with z-matrices as their first argument to produce multiple plots. For argument \code{col} of the \code{image2D} function, both \code{NA} and \code{NULL} are allowed, in which case the color will be white, and no color key will be drawn. To set the ranges of the z-variable, both arguments \code{zlim} (as in \link{image}) and \code{clim} (as in the other \code{plot3D} functions) are accepted. Upon returning from the \code{image2D} and \code{contour2D} functions, the figure coordinates are defined by the main figure (excluding the color key). Thus, one can safely add other plotting elements. } \note{ The first argument, \code{z} generally determines the color variable. For consistency with the other functions, another variable, \code{colvar} is also defined and set by default equal to \code{z}. \code{colvar} will only be used if \code{shade} or \code{lighting} are toggled on. In this case, \code{z} will be used to define the shading (orientation of each facet), while \code{colvar} will define the color. When \code{x} and \code{y} is a vector, the function uses R-function \link{image}. This means that the x- and y- axis will extend the x- and y- values with half a grid cell. In contrast, when \code{x} and \code{y} are a matrix, the axis will not extend the x- or y- values. See first example. } \value{ Returns nothing. } \author{Karline Soetaert } \seealso{ \link{jet.col}, \link{ImageOcean}, \link{Oxsat}, \link{persp3D}, \link{scatter2D} for other examples where \code{image2D} is used. \link{image} and \link{contour} for the original R functions. \code{plot.image} from the fields package. } \examples{ # save plotting parameters pm <- par("mfrow") ## ======================================================================= ## Difference between x or y a vector/matrix and rasterImage ## ======================================================================= par(mfrow = c(2, 2)) x <- y <- 1:3 z <- matrix (nrow = 3, ncol = 3, data = 1:9) image2D(z, x, y, border = "black") image2D(z, x, y, rasterImage = TRUE, border = "black") image2D(z, x = matrix(nrow = 3, ncol = 3, data = rep(x, times = 3)), y, border = "black") image2D(z, x, y, border = "black", theta = 45) ## ======================================================================= ## shading, light, adding contours, points and lines ## ======================================================================= par(mfrow = c(2, 2)) nr <- nrow(volcano) nc <- ncol(volcano) image2D(volcano, x = 1:nr, y = 1:nc, lighting = TRUE, main = "volcano", clab = "height, m") abline(v = seq(10, 80, by = 10)) abline(h = seq(10, 60, by = 10)) points(50, 30, pch = 3, cex = 5, lwd = 3, col = "white") image2D(z = volcano, x = 1:nr, y = 1:nc, lwd = 2, shade = 0.2, main = "volcano", clab = "height, m") image2D(volcano, x = 1:nr, y = 1:nc, contour = TRUE, shade = 0.5, lphi = 0, col = "lightblue", main = "volcano") breaks <- seq(90, 200, by = 10) image2D(volcano, x = 1:nr, y = 1:nc, col = jet.col(length(breaks)-1), main = "volcano", clab = "height, m", breaks = breaks) ## ======================================================================= ## Contour plots ## ======================================================================= par(mfrow = c(2, 2)) V <- volcano - 150 # default, no color key contour2D(z = V, colkey = FALSE, lwd = 2) # imposed levels contour2D(z = V, lwd = 2, levels = seq(-40, 40, by = 20)) # negative levels dashed contour2D(z = V, col = "black", lwd = 2, levels = seq(0, 40, by = 20)) contour2D(z = V, col = "black", lwd = 2, lty = 2, levels = seq(-40, -20, by = 20), add = TRUE) # no labels, imposed number of levels, colorkey contour2D(z = V, lwd = 2, nlevels = 20, drawlabels = FALSE, colkey = list(at = seq(-40, 40, by = 20))) ## ======================================================================= ## A large data set, input is an array ## ======================================================================= par(mfrow = c(1, 1)) image2D(z = Oxsat$val[, , 1], x = Oxsat$lon, y = Oxsat$lat, main = "surface oxygen saturation data 2005", NAcol = "black", clab = c("","","\%")) # images at first 9 depths - use subset to select them image2D(z = Oxsat$val, subset = 1:9, x = Oxsat$lon, y = Oxsat$lat, margin = c(1, 2), NAcol = "black", xlab = "longitude", ylab = "latitude", zlim = c(0, 115), main = paste("depth ", Oxsat$depth[1:9], " m"), mfrow = c(3, 3)) # images at latitude - depth section - increase resolution z <- Oxsat$val[, Oxsat$lat > - 5 & Oxsat$lat < 5, ] image2D(z = z, x = Oxsat$lon, y = Oxsat$depth, margin = c(1, 3), NAcol = "black", resfac = 3, ylim = c(5000, 0)) # show position of transects image2D(z = Oxsat$val[ , ,1], x = Oxsat$lon, y = Oxsat$lat, NAcol = "black") abline(h = Oxsat$lat[Oxsat$lat > - 5 & Oxsat$lat < 5]) ## ======================================================================= ## Image of a list of matrices ## ======================================================================= listvolcano <- list(volcano = volcano, logvolcano = log(volcano)) image2D(listvolcano, x = 1:nr, y = 1:nc, contour = TRUE, main = c("volcano", "log(volcano)"), clab = list("height, m", "log(m)"), zlim = list(c(80, 200), c(4.4, 5.5))) ## ======================================================================= ## Image of a list of arrays ## ======================================================================= \dontrun{ # crude conversion from oxsat to oxygen listoxygen <- list(Oxsat$val, Oxsat$val/100 * 360) image2D(z = listoxygen, x = Oxsat$lon, y = Oxsat$lat, margin = c(1, 2), NAcol = "black", main = c("Oxygen saturation ", " Oxygen concentration"), mtext = paste("depth ", Oxsat$depth, " m") ) } ## ======================================================================= ## 'x', 'y' and 'z' are matrices ## ======================================================================= par(mfrow = c(2, 1)) # tilted x- and y-coordinates of 'volcano' volcx <- matrix(nrow = 87, ncol = 61, data = rep(1:87, times=61)) volcx <- volcx + matrix(nrow = 87, ncol = 61, byrow = TRUE, data = rep(seq(0., 15, length.out=61), times=87)) volcy <- matrix(ncol = 87, nrow = 61, data = rep(1:61, times=87)) volcy <- t(volcy + matrix(ncol = 87, nrow = 61, byrow = TRUE, data = rep(seq(0., 25, length.out=87), times=61))) image2D(volcano, x = volcx, y = volcy) # x and y can also be of dimension dim(z)+1: \dontrun{ # tilted x- and y-coordinates of 'volcano' volcx <- matrix(nrow = 88, ncol = 62, data = rep(1:88, times=62)) volcx <- volcx + matrix(nrow = 88, ncol = 62, byrow = TRUE, data = rep(seq(0., 15, length.out=62), times=88)) volcy <- matrix(ncol = 88, nrow = 62, data = rep(1:62, times=88)) volcy <- t(volcy + matrix(ncol = 88, nrow = 62, byrow = TRUE, data = rep(seq(0., 25, length.out=88), times=62))) image2D(volcano, x = volcx, y = volcy) } # use of panel function image2D(volcano, x = volcx, y = volcy, NAcol = "black", panel.first = substitute(box(col = "lightgrey", lwd = 30))) ## ======================================================================= ## Image with NAs and logs ## ======================================================================= par(mfrow = c(2, 2)) # normal volcano image2D(volcano, clab = c("height", "m")) # logarithmic z-axis image2D(volcano, log = "z", clab = c("height", "m"), main = "log='z'") # Including NAs VOLC <- volcano - 110 VOLC [VOLC <= 0] <- NA image2D(VOLC, main = "including NAs and rescaled") # both image2D(VOLC, NAcol = "black", log = "z", zlim = c(1, 100), main = "NAs and log = 'z'") ## ======================================================================= ## Image with contour specification (alpha sets the transparency) ## ======================================================================= par(mfrow = c(1, 1)) image2D(volcano, shade = 0.2, rasterImage = TRUE, contour = list(col = "white", labcex = 0.8, lwd = 3, alpha = 0.5)) # same: \dontrun{ image2D(z = volcano, shade = 0.2, rasterImage = TRUE) contour2D(z = volcano, col = "white", labcex = 0.8, lwd = 3, alpha = 0.5, add = TRUE) } # reset plotting parameters par(mfrow = pm) } \keyword{ hplot } plot3D/man/trans3D.Rd0000644000176200001440000000365612117616117014014 0ustar liggesusers\name{trans3D} \alias{trans3D} \title{ Transformation of 3D elements } \description{ \code{trans3D} is the \code{plot3D} equivalent of \link{trans3d}, that projects 3-D elements to 2 dimensions. } \usage{ trans3D (x, y, z, pmat) } \arguments{ \item{x, y, z }{Vectors, matrices, arrays, with x, y and z-values. } \item{pmat }{A 4 x 4 viewing transformation matrix, suitable for projecting the 3D coordinates (x,y,z) into the 2D plane using homogeneous 4D coordinates (x,y,z,t); such matrices are returned by any of the 3-D plotting functions from package \code{plot3D} and by \link{persp}(). } } \value{ A list with two components: \itemize{ \item{x, y }{the projected 2-D coordinates of the 3-D input \code{x, y, z}} } In contrast to \link{trans3d}, \code{trans3D} the returned values x and y will be of the same class and dimensions as the input x and y. If inputted \code{x, y, z} are matrices or arrays, so will the projected coordinates be. } \seealso{ \link{scatter3D}, \link{slice3D}, \link{surf3D}. } \author{Karline Soetaert } \examples{ ## ======================================================================== ## 3-D mesh ## ======================================================================== x <- y <- z <- c(-1 , 0, 1) # plot a 3-D mesh (M <- mesh(x, y, z)) # plot result pmat <- scatter3D(M$x, M$y, M$z, pch = "+", cex = 3, colkey = FALSE) # add line XY <- trans3D(x = c(-1, 1), y = c(-1, 1), z = c(-1, 1), pmat = pmat) lines(XY, lwd = 2, col = "blue") ## ======================================================================== ## Example 2 ## ======================================================================== pmat <- perspbox (z = diag(2)) XY <- trans3D(x = runif(30), y = runif(30), z = runif(30), pmat = pmat) polygon(XY, col = "darkblue") } \keyword{ hplot } plot3D/man/contour3D.Rd0000644000176200001440000001761512222502007014343 0ustar liggesusers\name{3-D contours} \alias{contour3D} \title{ Contours in 3-D plots. } \description{ \code{contour3D} adds a \link{contour} in a 3-D plot. } \usage{ contour3D (x = NULL, y = NULL, z = NULL, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", dDepth = 1e-1, addbox = TRUE, add = FALSE, plot = TRUE) } \arguments{ \item{x, y, z }{Matrix (2-D), vector, or one value containing the values where the image is to be plotted. At least one of them should be one number, as this will determine where the image is plotted, parallel to the (y-z) plane (x one number), to the (x-z) plane (y one number) or to the (z-y) plane (z one number). If two are vectors, the first vector should be of length equal to \code{nrow(colvar)} and the second should be of length equal to \code{ncol(colvar)}. } \item{colvar }{The variable used for coloring. Values of \code{colvar} equal to \code{NULL}, \code{NA}, or \code{FALSE} will toggle off coloration according to \code{colvar}. This gives good results only if \code{border} is given a color, or when \code{shade} is >0 (see \link{persp}). } \item{col }{Color palette to be used for the \code{colvar} variable. If \code{col} is \code{NULL} and \code{colvar} is specified, then a red-yellow-blue colorscheme (\link{jet.col}) will be used. If \code{col} is \code{NULL} and \code{colvar} is not specified, then \code{col} will be "black". } \item{colkey }{A logical, \code{NULL} (default), or a \code{list} with parameters for the color key (legend). List parameters should be one of \code{side, plot, length, width, dist, shift, addlines, col.clab, cex.clab, side.clab, line.clab, adj.clab, font.clab} and the axis parameters \code{at, labels, tick, line, pos, outer, font, lty, lwd, lwd.ticks, col.box, col.axis, col.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las}. The defaults for the parameters are \code{side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL}) See \link{colkey}. The default is to draw the color key on side = 4, i.e. in the right margin. If \code{colkey} = \code{NULL} then a color key will be added only if \code{col} is a vector. Setting \code{colkey = list(plot = FALSE)} will create room for the color key without drawing it. if \code{colkey = FALSE}, no color key legend will be added. } \item{clab }{Only if \code{colkey = TRUE}, the label to be written on top of the color key. The label will be written at the same level as the main title. to lower it, \code{clab} can be made a vector, with the first values empty strings. } \item{clim }{Only if \code{colvar} is specified, the range of the color variable, used for the color key. Values of \code{colvar} that extend the range will be put to \code{NA}. } \item{theta, phi }{The angles defining the viewing direction. \code{theta} gives the azimuthal direction and \code{phi} the colatitude. see \link{persp}. } \item{panel.first }{A \code{function} to be evaluated after the plot axes are set up but before any plotting takes place. This can be useful for drawing background grids or scatterplot smooths. The function should have as argument the transformation matrix, e.g. it should be defined as \code{function(pmat)}. See example of \link{persp3D} and last example of \link{voxel3D}. } \item{bty }{The type of the box, the default only drawing background panels. Only effective if the \link{persp} argument (\code{box}) equals \code{TRUE} (this is the default). See \link{perspbox}. } \item{dDepth }{When a contour is added on an image, the image polygons may hide some contour segments. To avoid that, the viewing depth of the segments can be artificially decreased with the factor \code{dDepth} times the \link{persp} argument \code{expand} (usually = 1), to make them appear in front of the polygons. Too large values of \code{dDepth} may create visible artifacts. } \item{addbox }{If \code{TRUE} will draw a box around the plot. } \item{add }{Logical. If \code{TRUE}, then the contours will be added to the current plot. If \code{FALSE} a new plot is started. } \item{plot }{Logical. If \code{TRUE} (default), a plot is created, otherwise the viewing transformation matrix is returned (as invisible). } \item{\dots}{additional arguments passed to the plotting methods. The following \link{persp} arguments can be specified: \code{xlim, ylim, zlim, xlab, ylab, zlab, main, sub, r, d, scale, expand, box, axes, nticks, ticktype}. The arguments \code{xlim}, \code{ylim}, \code{zlim} only affect the axes. All objects will be plotted, including those that fall out of these ranges. To select objects only within the axis limits, use \link{plotdev}. In addition, the \link{perspbox} arguments \code{col.axis, col.panel, lwd.panel, col.grid, lwd.grid} can also be given a value. The arguments \code{lty, lwd} can also be specified. \code{shade} and \code{lighting} arguments will have no effect. \code{alpha} can be given a value inbetween 0 and 1 to make colors transparent. The arguments after \dots must be matched exactly. } } \value{ Returns the viewing transformation matrix. See \link{trans3D}. } \seealso{ \link{contour} for R's 2-D contour function. } \author{Karline Soetaert } \examples{ # save plotting parameters pm <- par("mfrow") ## ======================================================================= ## Contours ## ======================================================================= par (mfrow = c(2, 2)) r <- 1:nrow(volcano) c <- 1:ncol(volcano) contour3D(x = r, y = c, z = 100, colvar = volcano, zlim = c(0, 150), clab = c("height", "m")) contour3D(x = 100, y = r, z = c, colvar = volcano, clab = c("height", "m")) contour3D(z = volcano, colvar = volcano, lwd = 2, nlevels = 20, clab = c("height", "m"), colkey = FALSE) contour3D(y = volcano, colvar = volcano, lwd = 2, nlevels = 10, clab = c("height", "m")) ## ======================================================================= ## Composite images and contours in 3D ## ======================================================================= persp3D(z = volcano, zlim = c(90, 300), col = "white", shade = 0.1, d = 2, plot = FALSE) contour3D(z = volcano, colvar = volcano, lwd = 2, add = TRUE, nlevels = 20, clab = c("height", "m"), plot = FALSE, colkey = list(at = seq(90, 190, length.out = 5))) contour3D(z = 300, colvar = volcano, lwd = 2, col = "grey", add = TRUE, nlevels = 5) ## ======================================================================= ## the viewing depth of contours (dDepth) ## ======================================================================= # too low persp3D(z = volcano, col = "white", shade = 0.1, plot = FALSE) contour3D(z = volcano, colvar = volcano, lwd = 2, add = TRUE, dDepth = 0, col = "black") # default persp3D(z = volcano, col = "white", shade = 0.1, plot = FALSE) contour3D(z = volcano, colvar = volcano, lwd = 2, add = TRUE, dDepth = 0.1, col = "black") # too high persp3D(z = volcano, col = "white", shade = 0.1, plot = FALSE) contour3D(z = volcano, colvar = volcano, lwd = 1, add = TRUE, dDepth = 0.5, col = "black") # reset plotting parameters par(mfrow = pm) } \keyword{ hplot } plot3D/man/colors.Rd0000644000176200001440000001533612602425355013776 0ustar liggesusers\name{Colors} \alias{jet.col} \alias{jet2.col} \alias{gg.col} \alias{gg2.col} \alias{ramp.col} \alias{alpha.col} \title{ Colors, shading, lighting. } \description{ \code{jet.col} generates the matlab-type colors. \code{jet2.col} is similar but lacks the deep blue colors \code{gg.col} and \code{gg2.col} generate gg-plot-like colors. \code{ramp.col} creates color schemes by interpolation. \code{alpha.col} creates transparent colors. } \usage{ jet.col (n = 100, alpha = 1) jet2.col (n = 100, alpha = 1) gg.col (n = 100, alpha = 1) gg2.col (n = 100, alpha = 1) ramp.col (col = c("grey", "black"), n = 100, alpha = 1) alpha.col (col = "grey", alpha = 0.5) } \arguments{ \item{n }{Number of colors to generate. } \item{alpha }{Value in the range [0, 1] for alpha transparency channel (0 means transparent and 1 means opaque). Transparency defined in the color palette is overruled when \code{lighting} or \code{shading} is switched on. To combine transparency with lighting or shading, pass argument {alpha} to the plotting functions directly. } \item{col }{Colors to interpolate, change. } } \value{ A list with colors. } \seealso{ \link{colorRamp} and \link{colorRampPalette} for comparable (and more elaborate) R-functions. } \author{Karline Soetaert } \references{ The gg-plot type of colors \code{gg.plot} is a color-blind friendly palette from \code{http://wiki.stdout.org/rcookbook/Graphs}. } \details{ In addition to the color functions described here, colors can also be adapted by shading and lighting, or made transparent. Shading will be overruled if lighting is not \code{FALSE}. To make colors transparent, use argument \code{alpha}, with a value inbetween 0 and 1. To switch on shading, the argument \code{shade} should be given a value inbetween 0 and 1. To switch on lighting, the argument \code{lighting} should be either set to \code{TRUE} (in which case default settings will be used) or should be a list with specifications of one of the following: \code{ambient, diffuse, specular, exponent, sr} and \code{alpha}. The defaults are: \code{ambient = 0.3, diffuse = 0.6, specular = 1., exponent = 20, sr = 0, alpha = 1} Lighting is defined as the sum of ambient, diffuse and specular light. If \code{N} is the normal vector on the facets (3-values, x-, y-, z direction) and \code{I} is the light vector, then \code{col = (ambient + Id + sr * Is) * col + (1 - sr) * Is}, where \code{Is = specular * abs(Light) ^ exponent}, \code{Id = diffuse * Light} and \code{Light = sum(N*I)}. The lighting algorithm is very simple, i.e. it is flat shading, no interpolation. Toggling on lighting or shading also requires the input of the angles of the light source, as \code{ltheta} and \code{lphi}, whose defaults are: \code{ltheta = -135, lphi = 0}. This usually works well for shading, but may not be optimal for lighting. } \examples{ # save plotting parameters pm <- par("mfrow") pmar <- par("mar") ## ======================================================================= ## Transparency and various color schemes ## ======================================================================= par(mfrow = c(3, 3)) for (alph in c(0.25, 0.75)) image2D(volcano, alpha = alph, main = paste("jet.col, alpha = ", alph)) image2D(volcano, main = "jet.col") image2D(volcano, col = jet2.col(100), main = "jet2.col") image2D(volcano, col = gg.col(100), main = "gg.col") image2D(volcano, col = gg2.col(100), main = "gg2.col") image2D(volcano, col = rainbow(100), main = "rainbow") image2D(volcano, col = terrain.colors(100), main = "terrain.colors") image2D(volcano, col = ramp.col(c("blue", "yellow", "green", "red")), main = "ramp.col") ## ======================================================================= ## Shading, lighting - one color ## ======================================================================= # create grid matrices X <- seq(0, pi, length.out = 50) Y <- seq(0, 2*pi, length.out = 50) M <- mesh(X, Y) phi <- M$x theta <- M$y # x, y and z grids x <- sin(phi) * cos(theta) y <- cos(phi) z <- sin(phi) * sin(theta) # these are the defaults p <- list(ambient = 0.3, diffuse = 0.6, specular = 1., exponent = 20, sr = 0, alpha = 1) par(mfrow = c(3, 3), mar = c(0, 0, 0, 0)) Col <- "red" surf3D(x, y, z, box = FALSE, col = Col, shade = 0.9) surf3D(x, y, z, box = FALSE, col = Col, lighting = TRUE) surf3D(x, y, z, box = FALSE, col = Col, lighting = list(ambient = 0)) surf3D(x, y, z, box = FALSE, col = Col, lighting = list(diffuse = 0)) surf3D(x, y, z, box = FALSE, col = Col, lighting = list(diffuse = 1)) surf3D(x, y, z, box = FALSE, col = Col, lighting = list(specular = 0)) surf3D(x, y, z, box = FALSE, col = Col, lighting = list(exponent = 5)) surf3D(x, y, z, box = FALSE, col = Col, lighting = list(exponent = 50)) surf3D(x, y, z, box = FALSE, col = Col, lighting = list(sr = 1)) ## ======================================================================= ## Shading, lighting with default colors ## ======================================================================= x <- seq(-pi, pi, len = 100) y <- seq(-pi, pi, len = 100) grid <- mesh(x, y) z <- with(grid, cos(x) * sin(y)) cv <- with(grid, -cos(y) * sin(x)) # lphi = 180, ltheta = -130 - good for shade # lphi = 90, ltheta = 0 - good for lighting par(mfrow = c(2, 2)) persp3D(z = z, x = x, y = y, colvar = cv, zlim = c(-3, 3), colkey = FALSE) persp3D(z = z, x = x, y = y, colvar = cv, zlim = c(-3, 3), lighting = TRUE, colkey = FALSE) persp3D(z = z, x = x, y = y, colvar = cv, zlim = c(-3, 3), shade = 0.25, colkey = FALSE) persp3D(z = z, x = x, y = y, colvar = cv, zlim = c(-3, 3), lighting = TRUE, lphi = 90, ltheta = 0, colkey = FALSE) ## ======================================================================= ## transparency of a vector of colors ## ======================================================================= par(mfrow = c(1, 1)) x <- runif(19) y <- runif(19) z <- runif(19) # split into 5 sections (polygons) ii <- seq(4, 19, by = 4) x[ii] <- y[ii] <- z[ii] <- NA polygon3D(x, y, z, border = "black", lwd = 2, col = alpha.col(c("red", "lightblue", "yellow", "green", "black"), alpha = 0.4)) # the same, now passing alpha as an argument to polygon3D: \dontrun{ polygon3D(x, y, z, border = "black", lwd = 2, col = c("red", "lightblue", "yellow", "green", "black"), alpha = 0.4) } # reset plotting parameters par(mfrow = pm) par(mar = pmar) } \keyword{ hplot } plot3D/man/scatter.Rd0000644000176200001440000005417214051156060014135 0ustar liggesusers\name{Scatter plots} \alias{scatter3D} \alias{text3D} \alias{points3D} \alias{lines3D} \alias{scatter2D} \alias{points2D} \alias{lines2D} \alias{text2D} \title{ Colored scatter plots and text in 2-D and 3-D } \description{ \code{scatter2D and scatter3D} plot a (2- or 3 dimensional) dataset with a color variable as points or lines. \code{text3D} plot a 3-D dataset with a color variable as text labels. \code{points3D} is shorthand for \code{\link{scatter3D}(..., type = "p")} \code{lines3D} is shorthand for \code{\link{scatter3D}(..., type = "l")} \code{points2D} is shorthand for \code{scatter2D(..., type = "p")} \code{lines2D} is shorthand for \code{scatter2D(..., type = "l")} The 2D functions are included for their side effect of having a color key. } \usage{ scatter3D (x, y, z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", CI = NULL, surf = NULL, add = FALSE, plot = TRUE) text3D (x, y, z, labels, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) points3D (x, y, z, ...) lines3D (x, y, z, ...) scatter2D (x, y, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, CI = NULL, add = FALSE, plot = TRUE) lines2D(x, y, ...) points2D(x, y, ...) text2D (x, y, labels, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, add = FALSE, plot = TRUE) } \arguments{ \item{x, y, z }{Vectors with x, y and z-values of the points to be plotted. They should be of equal length, and the same length as \code{colvar} (if present). } \item{colvar }{The variable used for coloring. For \code{scatter3D}, it need not be present, but if specified, it should be a vector of equal length as (\code{x, y, z}). } \item{theta, phi }{the angles defining the viewing direction. \code{theta} gives the azimuthal direction and \code{phi} the colatitude. see \link{persp}. } \item{col }{Color palette to be used for coloring the \code{colvar} variable. If \code{col} is \code{NULL} and \code{colvar} is specified, then a red-yellow-blue colorscheme (\link{jet.col}) will be used. If \code{col} is \code{NULL} and \code{colvar} is not specified, then \code{col} will be "black". } \item{NAcol }{Colors to be used for \code{colvar} values that are \code{NA}. } \item{breaks }{a set of finite numeric breakpoints for the colors; must have one more breakpoint than color and be in increasing order. Unsorted vectors will be sorted, with a warning. } \item{colkey }{A logical, \code{NULL} (default), or a \code{list} with parameters for the color key (legend). List parameters should be one of \code{side, plot, length, width, dist, shift, addlines, col.clab, cex.clab, side.clab, line.clab, adj.clab, font.clab} and the axis parameters \code{at, labels, tick, line, pos, outer, font, lty, lwd, lwd.ticks, col.box, col.axis, col.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las}. The defaults for the parameters are \code{side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL}) See \link{colkey}. The default is to draw the color key on side = 4, i.e. in the right margin. If \code{colkey} = \code{NULL} then a color key will be added only if \code{col} is a vector. Setting \code{colkey = list(plot = FALSE)} will create room for the color key without drawing it. if \code{colkey = FALSE}, no color key legend will be added. } \item{CI }{A \code{list} with parameters and values for the confidence intervals or \code{NULL}. If a list it should contain at least the item \code{x}, \code{y} or \code{z} (latter for \code{scatter3D}). These should be 2-columned matrices, defining the left/right intervals. Other parameters should be one of (with defaults): \code{alen = 0.01, lty = par("lty"), lwd = par("lwd"), col = NULL}, to set the length of the arrow head, the line type and width, and the color. If \code{col} is \code{NULL}, then the colors as specified by \code{colvar} are used. See examples. } \item{panel.first }{A \code{function} to be evaluated after the plot axes are set up but before any plotting takes place. This can be useful for drawing background grids or scatterplot smooths. The function should have as argument the transformation matrix, e.g. it should be defined as \code{function(pmat)}. See example of \link{persp3D} and last example of \link{voxel3D}. } \item{clab }{Only if \code{colkey} is not \code{NULL} or \code{FALSE}, the label to be written on top of the color key. The label will be written at the same level as the main title. To lower it, \code{clab} can be made a vector, with the first values empty strings. } \item{clim }{Only if \code{colvar} is specified, the range of the color variable, used for the color key. Values of \code{colvar} that extend the range will be put to \code{NA}. } \item{bty }{The type of the box, the default draws only the back panels. Only effective if the \link{persp} argument (\code{box}) equals \code{TRUE} (this is the default). See \link{perspbox}. Note: the \code{bty = "g", "b2", "bl"} can also be specified for \code{scatter2D} (if \code{add = FALSE}). } \item{labels }{The text to be written. A vector of length equal to length of x, y, z. } \item{surf }{If not \code{NULL}, a list specifying a (fitted) surface to be added on the scatterplot. The list should include at least \code{x}, \code{y}, \code{z}, defining the surface, and optional: \code{colvar, col, NAcol, border, facets, lwd, resfac, clim, ltheta, lphi, shade, lighting, fit}. Note that the default is that \code{colvar} is not specified which will set \code{colvar = z}. The argument \code{fit} should give the fitted z-values, in the same order as the z-values of the scatter points, for instance produced by \code{predict}. When present, this will produce droplines from points to the fitted surface. } \item{add }{Logical. If \code{TRUE}, then the points will be added to the current plot. If \code{FALSE} a new plot is started. } \item{plot }{Logical. If \code{TRUE} (default), a plot is created, otherwise (for 3D plots) the viewing transformation matrix is returned (as invisible). } \item{\dots}{additional arguments passed to the plotting methods. The following \link{persp} arguments can be specified: \code{xlim, ylim, zlim, xlab, ylab, zlab, main, sub, r, d, scale, expand, box, axes, nticks, ticktype}. The arguments \code{xlim}, \code{ylim}, \code{zlim} only affect the axes for 3D plots. All objects will be plotted, including those that fall out of these ranges. To select objects only within the axis limits, use \link{plotdev}. In addition, the \link{perspbox} arguments \code{col.axis, col.panel, lwd.panel, col.grid, lwd.grid} can also be given a value. \code{shade} and \code{lighting} arguments will have no effect. \code{alpha} can be given a value inbetween 0 and 1 to make colors transparent. For all functions, the arguments \code{lty, lwd} can be specified; \code{type} can be specified for all except \code{text3D}. In case \code{type = "p"} or \code{"b"}, then \code{pch, cex, bg} can also be specified. The arguments after \dots must be matched exactly. } } \value{ Function \code{scatter3D} returns the viewing transformation matrix. See \link{trans3D}. } \note{ For \code{scatter2D} and \code{scatter3D} the plottypes that are supported are: \code{type = "p"}, \code{type = "l"}, \code{type = "h"}, \code{type = "o"}. For \code{type = "b"}, \code{type = "o"} is used instead. } \seealso{ \link{persp} for the function on which this implementation is based. \link{mesh}, \link{trans3D}, \code{slice3D}, for other examples of \code{scatter2D} or \code{scatter3D}. \link{plotdev} for zooming, rescaling, rotating a plot. package \code{scatterplot3D} for an implementation of scatterplots that is not based on \code{persp}. } \author{Karline Soetaert } \examples{ # save plotting parameters pm <- par("mfrow") ## ======================================================================= ## A sphere ## ======================================================================= par(mfrow = c(1, 1)) M <- mesh(seq(0, 2*pi, length.out = 100), seq(0, pi, length.out = 100)) u <- M$x ; v <- M$y x <- cos(u)*sin(v) y <- sin(u)*sin(v) z <- cos(v) # full panels of box are drawn (bty = "f") scatter3D(x, y, z, pch = ".", col = "red", bty = "f", cex = 2, colkey = FALSE) ## ======================================================================= ## Different types ## ======================================================================= par (mfrow = c(2, 2)) z <- seq(0, 10, 0.2) x <- cos(z) y <- sin(z)*z # greyish background for the boxtype (bty = "g") scatter3D(x, y, z, phi = 0, bty = "g", pch = 20, cex = 2, ticktype = "detailed") # add another point scatter3D(x = 0, y = 0, z = 0, add = TRUE, colkey = FALSE, pch = 18, cex = 3, col = "black") # add text text3D(x = cos(1:10), y = (sin(1:10)*(1:10) - 1), z = 1:10, colkey = FALSE, add = TRUE, labels = LETTERS[1:10], col = c("black", "red")) # line plot scatter3D(x, y, z, phi = 0, bty = "g", type = "l", ticktype = "detailed", lwd = 4) # points and lines scatter3D(x, y, z, phi = 0, bty = "g", type = "b", ticktype = "detailed", pch = 20, cex = c(0.5, 1, 1.5)) # vertical lines scatter3D(x, y, z, phi = 0, bty = "g", type = "h", ticktype = "detailed") ## ======================================================================= ## With confidence interval ## ======================================================================= x <- runif(20) y <- runif(20) z <- runif(20) par(mfrow = c(1, 1)) CI <- list(z = matrix(nrow = length(x), ncol = 2, data = rep(0.05, times = 2*length(x)))) # greyish background for the boxtype (bty = "g") scatter3D(x, y, z, phi = 0, bty = "g", CI = CI, col = gg.col(100), pch = 18, cex = 2, ticktype = "detailed", xlim = c(0, 1), ylim = c(0, 1), zlim = c(0, 1)) # add new set of points x <- runif(20) y <- runif(20) z <- runif(20) CI2 <- list(x = matrix(nrow = length(x), ncol = 2, data = rep(0.05, 2*length(x))), z = matrix(nrow = length(x), ncol = 2, data = rep(0.05, 2*length(x)))) scatter3D(x, y, z, CI = CI2, add = TRUE, col = "red", pch = 16) ## ======================================================================= ## With a surface ## ======================================================================= par(mfrow = c(1, 1)) # surface = volcano M <- mesh(1:nrow(volcano), 1:ncol(volcano)) # 100 points above volcano N <- 100 xs <- runif(N) * 87 ys <- runif(N) * 61 zs <- runif(N)*50 + 154 # scatter + surface scatter3D(xs, ys, zs, ticktype = "detailed", pch = 16, bty = "f", xlim = c(1, 87), ylim = c(1,61), zlim = c(94, 215), surf = list(x = M$x, y = M$y, z = volcano, NAcol = "grey", shade = 0.1)) ## ======================================================================= ## A surface and CI ## ======================================================================= par(mfrow = c(1, 1)) M <- mesh(seq(0, 2*pi, length = 30), (1:30)/100) z <- with (M, sin(x) + y) # points 'sampled' N <- 30 xs <- runif(N) * 2*pi ys <- runif(N) * 0.3 zs <- sin(xs) + ys + rnorm(N)*0.3 CI <- list(z = matrix(nrow = length(xs), data = rep(0.3, 2*length(xs))), lwd = 3) # facets = NA makes a transparent surface; borders are black scatter3D(xs, ys, zs, ticktype = "detailed", pch = 16, xlim = c(0, 2*pi), ylim = c(0, 0.3), zlim = c(-1.5, 1.5), CI = CI, theta = 20, phi = 30, cex = 2, surf = list(x = M$x, y = M$y, z = z, border = "black", facets = NA) ) ## ======================================================================= ## droplines till the fitted surface ## ======================================================================= with (mtcars, { # linear regression fit <- lm(mpg ~ wt + disp) # predict values on regular xy grid wt.pred <- seq(1.5, 5.5, length.out = 30) disp.pred <- seq(71, 472, length.out = 30) xy <- expand.grid(wt = wt.pred, disp = disp.pred) mpg.pred <- matrix (nrow = 30, ncol = 30, data = predict(fit, newdata = data.frame(xy), interval = "prediction")[,1]) # fitted points for droplines to surface fitpoints <- predict(fit) scatter3D(z = mpg, x = wt, y = disp, pch = 18, cex = 2, theta = 20, phi = 20, ticktype = "detailed", xlab = "wt", ylab = "disp", zlab = "mpg", surf = list(x = wt.pred, y = disp.pred, z = mpg.pred, facets = NA, fit = fitpoints), main = "mtcars") }) ## ======================================================================= ## Two ways to make a scatter 3D of quakes data set ## ======================================================================= par(mfrow = c(1, 1)) # first way, use vertical spikes (type = "h") with(quakes, scatter3D(x = long, y = lat, z = -depth, colvar = mag, pch = 16, cex = 1.5, xlab = "longitude", ylab = "latitude", zlab = "depth, km", clab = c("Richter","Magnitude"), main = "Earthquakes off Fiji", ticktype = "detailed", type = "h", theta = 10, d = 2, colkey = list(length = 0.5, width = 0.5, cex.clab = 0.75)) ) # second way: add dots on bottom and left panel # before the scatters are drawn, # add small dots on basal plane and on the depth plane panelfirst <- function(pmat) { zmin <- min(-quakes$depth) XY <- trans3D(quakes$long, quakes$lat, z = rep(zmin, nrow(quakes)), pmat = pmat) scatter2D(XY$x, XY$y, colvar = quakes$mag, pch = ".", cex = 2, add = TRUE, colkey = FALSE) xmin <- min(quakes$long) XY <- trans3D(x = rep(xmin, nrow(quakes)), y = quakes$lat, z = -quakes$depth, pmat = pmat) scatter2D(XY$x, XY$y, colvar = quakes$mag, pch = ".", cex = 2, add = TRUE, colkey = FALSE) } with(quakes, scatter3D(x = long, y = lat, z = -depth, colvar = mag, pch = 16, cex = 1.5, xlab = "longitude", ylab = "latitude", zlab = "depth, km", clab = c("Richter","Magnitude"), main = "Earthquakes off Fiji", ticktype = "detailed", panel.first = panelfirst, theta = 10, d = 2, colkey = list(length = 0.5, width = 0.5, cex.clab = 0.75)) ) ## ======================================================================= ## text3D and scatter3D ## ======================================================================= with(USArrests, text3D(Murder, Assault, Rape, colvar = UrbanPop, col = gg.col(100), theta = 60, phi = 20, xlab = "Murder", ylab = "Assault", zlab = "Rape", main = "USA arrests", labels = rownames(USArrests), cex = 0.6, bty = "g", ticktype = "detailed", d = 2, clab = c("Urban","Pop"), adj = 0.5, font = 2)) with(USArrests, scatter3D(Murder, Assault, Rape - 1, colvar = UrbanPop, col = gg.col(100), type = "h", pch = ".", add = TRUE)) ## ======================================================================= ## zoom near origin ## ======================================================================= # display axis ranges getplist()[c("xlim","ylim","zlim")] # choose suitable ranges plotdev(xlim = c(0, 10), ylim = c(40, 150), zlim = c(7, 25)) ## ======================================================================= ## text3D to label x- and y axis ## ======================================================================= par(mfrow = c(1, 1)) hist3D (x = 1:5, y = 1:4, z = VADeaths, bty = "g", phi = 20, theta = -60, xlab = "", ylab = "", zlab = "", main = "VADeaths", col = "#0072B2", border = "black", shade = 0.8, ticktype = "detailed", space = 0.15, d = 2, cex.axis = 1e-9) text3D(x = 1:5, y = rep(0.5, 5), z = rep(3, 5), labels = rownames(VADeaths), add = TRUE, adj = 0) text3D(x = rep(1, 4), y = 1:4, z = rep(0, 4), labels = colnames(VADeaths), add = TRUE, adj = 1) ## ======================================================================= ## Scatter2D; bty can also be set = to one of the perspbox alernatives ## ======================================================================= par(mfrow = c(2, 2)) x <- seq(0, 2*pi, length.out = 30) scatter2D(x, sin(x), colvar = cos(x), pch = 16, ylab = "sin", clab = "cos", cex = 1.5) # other box types: scatter2D(x, sin(x), colvar = cos(x), type = "l", lwd = 4, bty = "g") scatter2D(x, sin(x), colvar = cos(x), type = "b", lwd = 2, bty = "b2") # transparent colors and spikes scatter2D(x, sin(x), colvar = cos(x), type = "h", lwd = 4, alpha = 0.5) ## ======================================================================= ## mesh examples and scatter2D ## ======================================================================= par(mfrow = c(1, 2)) x <- seq(-1, 1, by = 0.1) y <- seq(-2, 2, by = 0.2) grid <- mesh(x, y) z <- with(grid, cos(x) * sin(y)) image2D(z, x = x, y = y) points(grid) scatter2D(grid$x, grid$y, colvar = z, pch = 20, cex = 2) ## ======================================================================= ## scatter plot with confidence intervals ## ======================================================================= par(mfrow = c(2, 2)) x <- sort(rnorm(10)) y <- runif(10) cv <- sqrt(x^2 + y^2) CI <- list(lwd = 2) CI$x <- matrix (nrow = length(x), ncol = 2, data = rep(0.25, 2*length(x))) scatter2D(x, y, colvar = cv, pch = 16, cex = 2, CI = CI) scatter2D(x, y, colvar = cv, pch = 16, cex = 2, CI = CI, type = "b") CI$y <- matrix (nrow = length(x), ncol = 2, data = rep(0.05, 2*length(x))) CI$col <- "black" scatter2D(x, y, colvar = cv, pch = 16, cex = 2, CI = CI) CI$y[c(2,4,8,10), ] <- NA # Some points have no CI CI$x[c(2,4,8,10), ] <- NA # Some points have no CI CI$alen <- 0.02 # increase arrow head scatter2D(x, y, colvar = cv, pch = 16, cex = 2, CI = CI) ## ======================================================================= ## Scatter on an image ## ======================================================================= par(mfrow = c(1, 1)) # image of oxygen saturation oxlim <- range(Oxsat$val[,,1], na.rm = TRUE) image2D(z = Oxsat$val[,,1], x = Oxsat$lon, y = Oxsat$lat, contour = TRUE, xlab = "longitude", ylab = "latitude", main = "Oxygen saturation", clim = oxlim, clab = "\%") # (imaginary) measurements at 5 sites lon <- c( 11.2, 6.0, 0.9, -4, -8.8) lat <- c(-19.7,-14.45,-9.1,-3.8, -1.5) O2sat <- c( 90, 95, 92, 85, 100) # add to image; use same zrange; avoid adding a color key scatter2D(colvar = O2sat, x = lon, y = lat, clim = oxlim, pch = 16, add = TRUE, cex = 2, colkey = FALSE) ## ======================================================================= ## Scatter on a contourplot ## ======================================================================= par(mfrow = c(1, 1)) # room for colorkey by setting colkey = list(plot = FALSE) # contour plot of the ocean's bathymetry Depth <- Hypsometry$z Depth[Depth > 0] <- NA contour2D(z = Depth, x = Hypsometry$x, y = Hypsometry$y, xlab = "longitude", ylab = "latitude", col = "black", NAcol = "grey", levels = seq(-6000, 0, by = 2000), main = "Oxygen saturation along ship track", colkey = list(plot = FALSE)) # add data to image; with a color key scatter2D(colvar = O2sat, x = lon, y = lat, pch = 16, add = TRUE, cex = 2, clab = "\%") ## ======================================================================= ## scatter2D for time-series plots ## ======================================================================= # Plotting sunspot 'anomalies' sunspot <- data.frame(year = time(sunspot.month), anom = sunspot.month - mean(sunspot.month)) # long-term moving average of anomaly ff <- 100 sunspot$ma <- filter(sunspot$anom, rep(1/ff, ff), sides = 2) with (sunspot, lines2D(year, anom, colvar = anom > 0, col = c("pink", "lightblue"), main = "sunspot anomaly", type = "h", colkey = FALSE, las = 1, xlab = "year", ylab = "")) lines2D(sunspot$year, sunspot$ma, add = TRUE) # The same #with (sunspot, plot(year, anom, # col = c("pink", "lightblue")[(anom > 0) + 1], # main = "sunspot", type = "h", las = 1)) # but this does not work due to NAs... # lines(sunspot$year, sunspot$ma) ## ======================================================================= ## text2D ## ======================================================================= with(USArrests, text2D(x = Murder, y = Assault + 5, colvar = Rape, xlab = "Murder", ylab = "Assault", clab = "Rape", main = "USA arrests", labels = rownames(USArrests), cex = 0.6, adj = 0.5, font = 2)) with(USArrests, scatter2D(x = Murder, y = Assault, colvar = Rape, pch = 16, add = TRUE, colkey = FALSE)) # reset plotting parameters par(mfrow = pm) } \keyword{ hplot } plot3D/man/slice3D.Rd0000644000176200001440000004415614051377513013767 0ustar liggesusers\name{3-D volume visualisation} \alias{slice3D} \alias{slicecont3D} \alias{isosurf3D} \alias{triangle3D} \alias{voxel3D} \alias{createisosurf} \alias{createvoxel} \title{ Functions for plotting 3-D volumetric data. } \description{ \code{slice3D} plots a 3-D dataset with a color variable as slices or on surfaces. \code{slicecont3D} plots a 3-D dataset with a color variable as contours on slices. \code{isosurf3D} plots isosurfaces from a 3-D dataset. \code{voxel3D} plots isosurfaces as scatterpoints. \code{createisosurf} create the isosurfaces (triangulations) from volumetric data. Its output can be plotted with \code{triangle3D}. \code{createvoxel} creates voxels (x, y, z) points from volumetric data. Its output can be plotted with \link{scatter3D}. } \usage{ slice3D (x, y, z, colvar, ..., phi = 40, theta = 40, xs = min(x), ys = max(y), zs = min(z), col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, add = FALSE, plot = TRUE) slicecont3D (x, y, z, colvar, ..., phi = 40, theta = 40, xs = NULL, ys = NULL, zs = NULL, level = NULL, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", dDepth = 0, add = FALSE, plot = TRUE) isosurf3D (x, y, z, colvar, ..., phi = 40, theta = 40, level = mean(colvar, na.rm = TRUE), isofunc = createisosurf, col = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = 0.5, ltheta = -135, lphi = 0, add = FALSE, plot = TRUE) voxel3D (x, y, z, colvar, ..., phi = 40, theta = 40, level = mean(colvar, na.rm = TRUE), eps = 0.01, operator = "=", col = NULL, NAcol = "white", breaks = NULL, colkey = FALSE, panel.first = NULL, bty = "b", add = FALSE, plot = TRUE) triangle3D (tri, colvar = NULL, ..., phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, lighting = FALSE, shade = 0.5, ltheta = -135, lphi = 0, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) createisosurf (x, y, z, colvar, level = mean(colvar, na.rm = TRUE)) createvoxel (x, y, z, colvar, level = mean(colvar, na.rm = TRUE), eps = 0.01, operator = "=") } \arguments{ \item{x, y, z }{Vectors with x, y and z-values. They should be of length equal to the first, second and third dimension of \code{colvar} respectively. } \item{colvar }{The variable used for coloring. It should be an array of dimension equal to \code{c(length(x), length(y), length(z))}. For \code{triangle3D}, \code{colvar} should be of length = nrow(\code{tri}) / 3. It must be present. } \item{tri }{A three-columned matrix (x, y, z) with triangle coordinates. A triangle is defined by three consecutive rows. } \item{isofunc }{A function defined as \code{function(x, y, z, colvar, level)}, and that returns the three-columned matrix with triangle coordinates. The default, \code{createisosurf} uses function \link{computeContour3d} from package \code{misc3d}. } \item{theta, phi }{the angles defining the viewing direction. \code{theta} gives the azimuthal direction and \code{phi} the colatitude. see \link{persp}. } \item{col }{Colors to be used for coloring the \code{colvar} variable. If \code{col} is \code{NULL} then a red-yellow-blue colorscheme (\link{jet.col}) will be used. } \item{NAcol }{Colors to be used for \code{colvar} values that are \code{NA}. } \item{breaks }{a set of finite numeric breakpoints for the colors; must have one more breakpoint than color and be in increasing order. Unsorted vectors will be sorted, with a warning. } \item{border }{The color of the lines drawn around the surface facets. The default, \code{NA}, will disable the drawing of borders. } \item{facets }{If \code{TRUE}, then \code{col} denotes the color of the surface facets. If \code{FALSE}, then the surface facets are colored ``white'' and the \code{border} (if \code{NA}) will be colored as specified by \code{col}. If \code{NA} then the facets will be transparent. It is usually faster to draw with \code{facets = FALSE}. } \item{colkey }{A logical, \code{NULL} (default), or a \code{list} with parameters for the color key (legend). List parameters should be one of \code{side, plot, length, width, dist, shift, addlines, col.clab, cex.clab, side.clab, line.clab, adj.clab, font.clab} and the axis parameters \code{at, labels, tick, line, pos, outer, font, lty, lwd, lwd.ticks, col.box, col.axis, col.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las}. The defaults for the parameters are \code{side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL}) See \link{colkey}. The default is to draw the color key on side = 4, i.e. in the right margin. If \code{colkey} = \code{NULL} then a color key will be added only if \code{col} is a vector. Setting \code{colkey = list(plot = FALSE)} will create room for the color key without drawing it. if \code{colkey = FALSE}, no color key legend will be added. } \item{panel.first }{A \code{function} to be evaluated after the plot axes are set up but before any plotting takes place. This can be useful for drawing background grids or scatterplot smooths. The function should have as argument the transformation matrix, e.g. it should be defined as \code{function(pmat)}. See last example and example of \link{persp3D}. } \item{clab }{Only if \code{colkey} is not \code{NULL} or \code{FALSE}, the label to be written on top of the color key. The label will be written at the same level as the main title. To lower it, \code{clab} can be made a vector, with the first values empty strings. } \item{clim }{Only if \code{colvar} is specified, the range of the color variable, used for the color key. Values of \code{colvar} that extend the range will be put to \code{NA}. } \item{xs, ys, zs }{Vectors or matrices. Vectors specify the positions in x, y or z where the slices (planes) are to be drawn. The values of \code{colvar} will be projected on these slices. Matrices specify a surface on which the \code{colvar} will be projected. } \item{level }{The level(s) at which the \code{contour} will be generated or the isosurfaces generated. There can be more than one level, but for \code{slicecont3D} too many will give a crowded view, and one is often best. For \code{isosurf3D}, the use of multiple values may need transparent colors to visualise. For \code{voxel3D}, \code{level} should either be one number (if \code{operator} equals \code{'=', '<', '>'}) or two numbers (for \code{operator = '<>'}). } \item{lighting }{If not \code{FALSE} the facets will be illuminated, and colors may appear more bright. To switch on lighting, the argument \code{lighting} should be either set to \code{TRUE} (using default settings) or it can be a list with specifications of one of the following: \code{ambient, diffuse, specular, exponent, sr} and \code{alpha}. Will overrule \code{shade} not equal to \code{NA}. See examples in \link{jet.col}. } \item{shade }{the degree of shading of the surface facets. Values of shade close to one yield shading similar to a point light source model and values close to zero produce no shading. Values in the range 0.5 to 0.75 provide an approximation to daylight illumination. See \link{persp}. } \item{ltheta, lphi }{if finite values are specified for \code{ltheta} and \code{lphi}, the surface is shaded as though it was being illuminated from the direction specified by azimuth \code{ltheta} and colatitude \code{lphi}. See \link{persp}. } \item{bty }{The type of the box, the default only draws background panels. Only effective if the \link{persp} argument (\code{box}) equals \code{TRUE} (this is the default). See \link{perspbox}. } \item{eps }{The voxel precision, only used when \code{operator = "="}. A point is selected if it closer than \code{eps*diff(range(colvar))} to the required level. } \item{operator }{One of '=', '<', '>', '<>' for selection of points `equal' (within precision), larger or smaller than the required level or to be within an interval. } \item{dDepth }{When a contour is added on an image, the image polygons may hide some contour segments. To avoid that, the viewing depth of the segments can be artificially decreased with the factor \code{dDepth} times the \link{persp} argument \code{expand} (usually = 1), to make them appear in front of the polygons. Too large values of \code{dDepth} may create visible artifacts. See \link{contour3D}. } \item{add }{Logical. If \code{TRUE}, then the slices, voxels or surfaces will be added to the current plot. If \code{FALSE} a new plot is started. } \item{plot }{Logical. If \code{TRUE} (default), a plot is created, otherwise the viewing transformation matrix is returned (as invisible). } \item{\dots}{additional arguments passed to the plotting methods. The following \link{persp} arguments can be specified: \code{xlim, ylim, zlim, xlab, ylab, zlab, main, sub, r, d, scale, expand, box, axes, nticks, ticktype}. The arguments \code{xlim}, \code{ylim}, \code{zlim} only affect the axes. All objects will be plotted, including those that fall out of these ranges. To select objects only within the axis limits, use \link{plotdev}. In addition, the \link{perspbox} arguments \code{col.axis, col.panel, lwd.panel, col.grid, lwd.grid} can also be given a value. \code{alpha} can be given a value inbetween 0 and 1 to make colors transparent. For all functions, the arguments \code{lty, lwd} can be specified. The arguments after \dots must be matched exactly. } } \note{ The \code{isosurf3D} function uses function \code{computeContour3d}, from package \code{misc3d}, which is based on the marching cubes algorithm. Please cite the package \code{misc3d} (Feng & Tierney, 2008) when using \code{isosurf3D}. For \code{voxel3D}, coloring is always according to the z-variable. A more flexible coloration can be achieved by using \code{createvoxel}, followed by \link{scatter3D}. See examples. } \value{ The plotting functions return the viewing transformation matrix, See \link{trans3D}. Function \code{createisosurf} returns a three-columned matrix (x, y, z) with triangle coordinates. One triangle is defined by three consecutive rows. It can be plotted with \code{triangle3D}. Function \code{createvoxel} returns a list with the elements \code{x, y, z} defining the points that are at a distance of less than \code{eps*diff(range(colvar))} from the required \code{level}. Its output can be plotted with \link{scatter3D}. } \seealso{ \link{Oxsat} for another example of \code{slice3D}. \link{plotdev} for zooming, rescaling, rotating a plot. } \author{Karline Soetaert } \examples{ # save plotting parameters pm <- par("mfrow") pmar <- par("mar") ## ======================================================================= ## Simple slice3D examples ## ======================================================================= par(mfrow = c(2, 2)) x <- y <- z <- seq(-1, 1, by = 0.1) grid <- mesh(x, y, z) colvar <- with(grid, x*exp(-x^2 - y^2 - z^2)) # default is just the panels slice3D (x, y, z, colvar = colvar, theta = 60) # contour slices slicecont3D (x, y, z, ys = seq(-1, 1, by = 0.5), colvar = colvar, theta = 60, border = "black") slice3D (x, y, z, xs = c(-1, -0.5, 0.5), ys = c(-1, 0, 1), zs = c(-1, 0), colvar = colvar, theta = 60, phi = 40) ## ======================================================================= ## coloring on a surface ## ======================================================================= XY <- mesh(x, y) ZZ <- XY$x*XY$y slice3D (x, y, z, xs = XY$x, ys = XY$y, zs = ZZ, colvar = colvar, lighting = TRUE, lphi = 90, ltheta = 0) ## ======================================================================= ## Specifying transparent colors ## ======================================================================= par(mfrow = c(1, 1)) x <- y <- z <- seq(-4, 4, by = 0.2) M <- mesh(x, y, z) R <- with (M, sqrt(x^2 + y^2 + z^2)) p <- sin(2*R) /(R+1e-3) \dontrun{ # This is very slow - alpha = 0.5 makes it transparent slice3D(x, y, z, colvar = p, col = jet.col(alpha = 0.5), xs = 0, ys = c(-4, 0, 4), zs = NULL, d = 2) } slice3D(x, y, z, colvar = p, d = 2, theta = 60, border = "black", xs = c(-4, 0), ys = c(-4, 0, 4), zs = c(-4, 0)) ## ======================================================================= ## A section along a transect ## ======================================================================= data(Oxsat) Ox <- Oxsat$val[, Oxsat$lat > - 5 & Oxsat$lat < 5, ] slice3D(x = Oxsat$lon, z = -Oxsat$depth, y = 1:5, colvar = Ox, ys = 1:5, zs = NULL, NAcol = "black", expand = 0.4, theta = 45, phi = 45) ## ======================================================================= ## isosurf3D example - rather slow ## ======================================================================= par(mfrow = c(2, 2), mar = c(2, 2, 2, 2)) x <- y <- z <- seq(-2, 2, length.out = 15) xyz <- mesh(x, y, z) F <- with(xyz, log(x^2 + y^2 + z^2 + 10*(x^2 + y^2) * (y^2 + z^2) ^2)) # use shading for level = 1 - show triangulation with border isosurf3D(x, y, z, F, level = 1, shade = 0.9, col = "yellow", border = "orange") # lighting for level - 2 isosurf3D(x, y, z, F, level = 2, lighting = TRUE, lphi = 0, ltheta = 0, col = "blue", shade = NA) # three levels, transparency added isosurf3D(x, y, z, F, level = seq(0, 4, by = 2), col = c("red", "blue", "yellow"), clab = "F", alpha = 0.2, theta = 0, lighting = TRUE) # transparency can also be added afterwards with plotdev() \dontrun{ isosurf3D(x, y, z, F, level = seq(0, 4, by = 2), col = c("red", "blue", "yellow"), shade = NA, plot = FALSE, clab = "F") plotdev(lighting = TRUE, alpha = 0.2, theta = 0) } # use of creatisosurf iso <- createisosurf(x, y, z, F, level = 2) head(iso) triangle3D(iso, col = "green", shade = 0.3) \dontrun{ # higher resolution x <- y <- z <- seq(-2, 2, length.out = 50) xyz <- mesh(x, y, z) F <- with(xyz, log(x^2 + y^2 + z^2 + 10*(x^2 + y^2) * (y^2 + z^2) ^2)) # three levels isosurf3D(x, y, z, F, level = seq(0, 4, by = 2), col = c("red", "blue", "yellow"), shade = NA, plot = FALSE, clab = "F") plotdev(lighting = TRUE, alpha = 0.2, theta = 0) } ## ======================================================================= ## voxel3D example ## ======================================================================= par(mfrow = c(2, 2), mar = c(2, 2, 2, 2)) # fast but needs high resolution grid x <- y <- z <- seq(-2, 2, length.out = 70) xyz <- mesh(x, y, z) F <- with(xyz, log(x^2 + y^2 + z^2 + 10*(x^2 + y^2) * (y^2 + z^2) ^2)) voxel3D(x, y, z, F, level = 4, pch = ".", cex = 5) ## ======================================================================= ## rotation ## ======================================================================= plotdev(theta = 45, phi = 0) plotdev(theta = 90, phi = 10) # same using createvoxel - more flexible for coloring vox <- createvoxel(x, y, z, F, level = 4) scatter3D(vox$x, vox$y, vox$z, colvar = vox$y, bty = "g", colkey = FALSE) ## ======================================================================= ## voxel3D to show hypox sites ## ======================================================================= par(mfrow = c(1, 1), mar = c(2, 2, 2, 2)) Hypox <- createvoxel(Oxsat$lon, Oxsat$lat, Oxsat$depth[1:19], Oxsat$val[,,1:19], level = 40, operator = "<") panel <- function(pmat) { # an image at the bottom Nx <- length(Oxsat$lon) Ny <- length(Oxsat$lat) M <- mesh(Oxsat$lon, Oxsat$lat) xy <- trans3D(pmat = pmat, x = as.vector(M$x), y = as.vector(M$y), z = rep(-1000, length.out = Nx*Ny)) x <- matrix(nrow = Nx, ncol = Ny, data = xy$x) y <- matrix(nrow = Nx, ncol = Ny, data = xy$y) Bat <- Oxsat$val[,,1]; Bat[!is.na(Bat)] <- 1 image2D(x = x, y = y, z = Bat, NAcol = "black", col = "grey", add = TRUE, colkey = FALSE) } scatter3D(Hypox$x, Hypox$y, -Hypox$z, colvar = Hypox$cv, panel.first = panel, pch = ".", bty = "b", theta = 30, phi = 20, ticktype = "detailed", zlim = c(-1000,0), xlim = range(Oxsat$lon), ylim = range(Oxsat$lat) ) # restore plotting parameters par(mfrow = pm) par(mar = pmar) } \references{ Lorensen, W.E. and Cline, H.E., Marching Cubes: a high resolution 3D surface reconstruction algorithm, Computer Graphics, Vol. 21, No. 4, pp 163-169 (Proc. of SIGGRAPH), 1987. Dai Feng, Luke Tierney, Computing and Displaying Isosurfaces in R, Journal of Statistical Software 28(1), 2008. URL \url{https://www.jstatsoft.org/v28/i01/}. } \keyword{ hplot } plot3D/man/persp3D.Rd0000644000176200001440000005530114047143075014012 0ustar liggesusers\name{3-D perspectives} \alias{persp3D} \alias{ribbon3D} \alias{hist3D} \title{ Perspective plots, 3-D ribbons and 3-D histograms. } \description{ \code{persp3D} extends R's \link{persp} function. \code{ribbon3D} is similar to \code{persp3D} but has ribbon-like colored surfaces. \code{hist3D} generates 3-D histograms. } \usage{ persp3D (x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, resfac = 1, image = FALSE, contour = FALSE, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, inttype = 1, curtain = FALSE, add = FALSE, plot = TRUE) ribbon3D (x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, resfac = 1, image = FALSE, contour = FALSE, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, space = 0.4, along = "x", curtain = FALSE, add = FALSE, plot = TRUE) hist3D (x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, image = FALSE, contour = FALSE, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, space = 0, opaque.top = FALSE, zmin = NULL, add = FALSE, plot = TRUE) } \arguments{ \item{z }{Matrix (2-D) containing the values to be plotted as a \link{persp} plot. } \item{x, y }{Vectors or matrices with x and y values. If a vector, \code{x} should be of length equal to \code{nrow(z)} and \code{y} should be equal to \code{ncol(z)}. If a matrix (only for \code{persp3D}), \code{x} and \code{y} should have the same dimension as \code{z}. } \item{colvar }{The variable used for coloring. If present, it should have the same dimension as \code{z}. Values of \code{NULL}, \code{NA}, or \code{FALSE} will toggle off coloration according to \code{colvar}. This gives good results only if \code{border} is given a color, or when \code{shade} is > 0 or \code{lighting} is \code{TRUE}). } \item{col }{Color palette to be used for the \code{colvar} variable. If \code{col} is \code{NULL} and \code{colvar} is specified, then a red-yellow-blue colorscheme (\link{jet.col}) will be used. If \code{col} is \code{NULL} and \code{colvar} is not specified, then \code{col} will be \code{grey}. Finally, to mimic the behavior of \link{persp}, set \code{colvar} = \code{NULL} and make \code{col} a matrix of colors with (nrow(z)-1) rows and (ncol(z)-1) columns. } \item{NAcol }{Color to be used for \code{NA} values of \code{colvar}; default is ``white''. } \item{breaks }{a set of finite numeric breakpoints for the colors; must have one more breakpoint than color and be in increasing order. Unsorted vectors will be sorted, with a warning. } \item{colkey }{A logical, \code{NULL} (default), or a \code{list} with parameters for the color key (legend). List parameters should be one of \code{side, plot, length, width, dist, shift, addlines, col.clab, cex.clab, side.clab, line.clab, adj.clab, font.clab} and the axis parameters \code{at, labels, tick, line, pos, outer, font, lty, lwd, lwd.ticks, col.box, col.axis, col.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las}. The defaults for the parameters are \code{side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL}) See \link{colkey}. The default is to draw the color key on side = 4, i.e. in the right margin. If \code{colkey} = \code{NULL} then a color key will be added only if \code{col} is a vector. Setting \code{colkey = list(plot = FALSE)} will create room for the color key without drawing it. if \code{colkey = FALSE}, no color key legend will be added. } \item{clab }{Only if \code{colkey = TRUE}, the label to be written on top of the color key. The label will be written at the same level as the main title. to lower it, \code{clab} can be made a vector, with the first values empty strings. } \item{clim }{Only if \code{colvar} is specified, the range of the color variable, used for the color key. Values of \code{colvar} that extend the range will be put to \code{NA}. } \item{resfac }{Resolution factor, one value or a vector of two numbers, for the x and y- values respectively. A value > 1 will increase the resolution. For instance, if \code{resfac} equals \code{3} then for each adjacent pair of x- and y-values, z will be interpolated to two intermediary points. This uses simple linear interpolation. If \code{resfac} is one number then the resolution will be increased similarly in x and y-direction. } \item{theta, phi }{The angles defining the viewing direction. \code{theta} gives the azimuthal direction and \code{phi} the colatitude. see \link{persp}. } \item{border }{The color of the lines drawn around the surface facets. The default, \code{NA}, will disable the drawing of borders. } \item{facets }{If \code{TRUE}, then \code{col} denotes the color of the surface facets. If \code{FALSE}, then the surface facets are colored ``white'' and the \code{border} (if \code{NA}) will be colored as specified by \code{col}. If \code{NA} then the facets will be transparent. It is usually faster to draw with \code{facets = FALSE}. } \item{image }{If \code{TRUE}, an image will be plotted at the bottom. Also allowed is to pass a \code{list} with arguments for the \link{image2D} function. An optional parameter to this \code{list} is the \code{side} where the image should be plotted. Allowed values for \code{side} are a z-value, or \code{side = "zmin", "zmax"}, for positioning at bottom or top respectively. The default is to put the image at the bottom. } \item{contour }{If \code{TRUE}, a \link{contour} will be plotted at the bottom. Also allowed is to pass a \code{list} with arguments for the \link{contour} function. An optional parameter to this \code{list} is the \code{side} where the image should be plotted. Allowed values for \code{side} are a z-value, or \code{side = "zmin", "zmax"}, for positioning at bottom or top respectively. The default is to put the image at the bottom. } \item{panel.first }{A \code{function} to be evaluated after the plot axes are set up (and if applicable, images or contours drawn) but before any plotting takes place. This can be useful for drawing background grids or scatterplot smooths. The function should have as argument the transformation matrix (pmat), e.g. it should be defined as \code{function(pmat)}. See example. } \item{along }{The direction along which the ribbons are drawn, one of "x", "y" or "xy", for ribbons parallel to the x- y- or both axes. In the latter case, the figure looks like a net. } \item{curtain }{If \code{TRUE}, the ribbon or persp edges will be draped till the bottom. } \item{space }{The amount of space (as a fraction of the average bar/ribbon width) left between bars/ribbons. A value inbetween [0, 0.9] (\code{hist3D}) or [0.1, 0.9] (\code{ribbon3D}). Either one number, or a two-valued vector, for the x- and y- direction. } \item{bty }{The type of the box, the default only drawing background panels. Only effective if the \link{persp} argument (\code{box}) equals \code{TRUE} (this is the default). See \link{perspbox}. } \item{lighting }{If not \code{FALSE} the facets will be illuminated, and colors may appear more bright. To switch on lighting, the argument \code{lighting} should be either set to \code{TRUE} (using default settings) or it can be a list with specifications of one of the following: \code{ambient, diffuse, specular, exponent, sr} and \code{alpha}. Will overrule \code{shade} not equal to \code{NA}. See examples in \link{jet.col}. } \item{shade }{the degree of shading of the surface facets. Values of shade close to one yield shading similar to a point light source model and values close to zero produce no shading. Values in the range 0.5 to 0.75 provide an approximation to daylight illumination. See \link{persp}. } \item{ltheta, lphi }{if finite values are specified for \code{ltheta} and \code{lphi}, the surface is shaded as though it was being illuminated from the direction specified by azimuth \code{ltheta} and colatitude \code{lphi}. See \link{persp}. } \item{inttype }{The interpolation type to create the polygons, either averaging the \code{colvar} (\code{inttype = 1, 3} or extending the \code{x, y, z} values (\code{inttype = 2}) - see details. } \item{opaque.top }{Only used when \code{alpha} is set (transparency): if \code{TRUE} then the top of the bars is opaque. } \item{zmin }{The base of the histogram ; if \code{NULL} then it extends to the minimum of the z-axis. Note: this was added from version 1.1.1 on; before that it was assumed that the base of the histogram was at z=0. } \item{add }{Logical. If \code{TRUE}, then the surfaces will be added to the current plot. If \code{FALSE} a new plot is started. } \item{plot }{Logical. If \code{TRUE} (default), a plot is created, otherwise the viewing transformation matrix is returned (as invisible). } \item{\dots}{additional arguments passed to the plotting methods. The following \link{persp} arguments can be specified: \code{xlim, ylim, zlim, xlab, ylab, zlab, main, sub, r, d, scale, expand, box, axes, nticks, ticktype}. The arguments \code{xlim}, \code{ylim}, \code{zlim} only affect the axes. All objects will be plotted, including those that fall out of these ranges. To select objects only within the axis limits, use \link{plotdev}. In addition, the \link{perspbox} arguments \code{col.axis, col.panel, lwd.panel, col.grid, lwd.grid} can also be given a value. \code{alpha} can be given a value inbetween 0 and 1 to make colors transparent. For all functions, the arguments \code{lty, lwd} can be specified; this is only effective is \code{border} is not \code{NA}. The arguments after \dots must be matched exactly. } } \details{ \code{persp3D} is an extension to the default \link{persp} plot that has the possibility to add a color key, to increase the resolution in order to make smoother images, to toggle on or off facet coloration, ... The perspective plots are drawn as filled polygons. Each polygon is defined by 4 corners and a color, defined in its centre. When facets are colored, there are three interpolation schemes as set by \code{inttype}. The default (\code{inttype = 1}) is similar to R's function \code{persp}, and assumes that the \code{z}-values define the points on the corners of each polygon. In case a \code{colvar} is defined, its values are to be recalculated to the middle of each polygon, i.e. the color values need to be of size (nx-1)(ny-1), and averages are taken from the original data (nx and ny are number of x and y points). This will make the colors (and/or shading) smoother. When \code{inttype = 1} then \code{NA} values in \code{colvar} will be used as such during the averaging. This will tend to make the \code{NA} region larger. An alternative is to set \code{inttype = 3}, which is similar to \code{inttype = 1} except for the \code{NA} values, which will be removed during the averaging. This will tend to make the \code{NA} region smaller. By setting \code{inttype = 2}, a second interpolation scheme is selected. This is mainly of use in case a \code{colvar} is defined, and it is not desirable that the colors are smoothened. In this scheme, it is assumed that the \code{z} values and \code{colvar} values are both defined in the centre of the polygons. To color the facets the x, y, z grid is extended (to a (nx+1)(ny+1) grid), while \code{colvar} is used as such. This will make the z-values (topography) smoother than the original data. This type of interpolation may be preferable for color variables that have \code{NA} values, as taking averages tends to increase the \code{NA} region. } \note{ To make a \code{contour} to appear on top of an image, i.e. when \code{side = "z"}, the viewing depth of the contour segments is artificially decreased. In some cases this may produce slight artifacts. The viewing depth can be adjusted with argument \code{dDepth}, e.g. \code{persp3D(z = volcano, contour = list(side = "z", dDepth = 0.))} Parts of this help page come from the help pages of the R-core function \link{persp}. } \value{ Returns, as invisible, the viewing transformation matrix. See \link{trans3D}. } \seealso{ \link{persp} for the function on which this is based. \link{Hypsometry} for an example where axis-panels are colored. \link{scatter3D} for a combination of a persp surface and data points. \link{text3D} for annotating axes (hist3D). \link{plotdev} for zooming, rescaling, rotating a plot. } \author{Karline Soetaert } \references{ The \link{persp} function on which this implementation is based: Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988) The New S Language. Wadsworth & Brooks/Cole. } \examples{ # save plotting parameters pm <- par("mfrow") ## ======================================================================= ## Ribbon, persp, color keys, facets ## ======================================================================= par(mfrow = c(2, 2)) # simple, no scaling, use breaks to set colors persp3D(z = volcano, main = "volcano", clab = c("height", "m"), breaks = seq(80,200, by = 10)) # keep ratios between x- and y (scale = FALSE) # change ratio between x- and z (expand) persp3D(z = volcano, x = 1: nrow(volcano), y = 1:ncol(volcano), expand = 0.3, main = "volcano", facets = FALSE, scale = FALSE, clab = "height, m", colkey = list(side = 1, length = 0.5)) # ribbon, in x--direction V <- volcano[, seq(1, ncol(volcano), by = 3)] # lower resolution ribbon3D(z = V, colkey = list(width = 0.5, length = 0.5, cex.axis = 0.8, side = 2), clab = "m") # ribbon, in y-direction Vy <- volcano[seq(1, nrow(volcano), by = 3), ] ribbon3D(z = Vy, expand = 0.3, space = 0.3, along = "y", colkey = list(width = 0.5, length = 0.5, cex.axis = 0.8)) ## ======================================================================= ## Several ways to visualise 3-D data ## ======================================================================= x <- seq(-pi, pi, by = 0.2) y <- seq(-pi, pi, by = 0.3) grid <- mesh(x, y) z <- with(grid, cos(x) * sin(y)) par(mfrow = c(2,2)) persp3D(z = z, x = x, y = y) persp3D(z = z, x = x, y = y, facets = FALSE, curtain = TRUE) # ribbons in two directions and larger spaces ribbon3D(z = z, x = x, y = y, along = "xy", space = 0.3) hist3D(z = z, x = x, y = y, border = "black") ## ======================================================================= ## Contours and images added ## ======================================================================= par(mfrow = c(2, 2)) x <- seq(1, nrow(volcano), by = 3) y <- seq(1, ncol(volcano), by = 3) Volcano <- volcano [x, y] ribbon3D(z = Volcano, contour = TRUE, zlim= c(-100, 200), image = TRUE) persp3D(z = Volcano, contour = TRUE, zlim= c(-200, 200), image = FALSE) persp3D(z = Volcano, x = x, y = y, scale = FALSE, contour = list(nlevels = 20, col = "red"), zlim = c(-200, 200), expand = 0.2, image = list(col = grey (seq(0, 1, length.out = 100)))) persp3D(z = Volcano, contour = list(side = c("zmin", "z", "350")), zlim = c(-100, 400), phi = 20, image = list(side = 350)) ## ======================================================================= ## Use of inttype ## ======================================================================= par(mfrow = c(2, 2)) persp3D(z = Volcano, shade = 0.5, colkey = FALSE) persp3D(z = Volcano, inttype = 2, shade = 0.5, colkey = FALSE) x <- y <- seq(0, 2*pi, length.out = 10) z <- with (mesh(x, y), cos(x) *sin(y)) + runif(100) cv <- matrix(nrow = 10, ncol = 10, 0.5*runif(100)) persp3D(x, y, z, colvar = cv) # takes averages of z persp3D(x, y, z, colvar = cv, inttype = 2) # takes averages of colvar ## ======================================================================= ## Use of inttype with NAs ## ======================================================================= par(mfrow = c(2, 2)) VV <- V2 <- volcano[10:15, 10:15] V2[3:4, 3:4] <- NA V2[4, 5] <- NA image2D(V2, border = "black") # shows true NA region # averages of V2, including NAs, NA region larger persp3D(z = VV, colvar = V2, inttype = 1, theta = 0, phi = 20, border = "black", main = "inttype = 1") # extension of VV; NAs unaffected persp3D(z = VV, colvar = V2, inttype = 2, theta = 0, phi = 20, border = "black", main = "inttype = 2") # average of V2, ignoring NA; NA region smaller persp3D(z = VV, colvar = V2, inttype = 3, theta = 0, phi = 20, border = "black", main = "inttype = 3") ## ======================================================================= ## Use of panel.first ## ======================================================================= par(mfrow = c(1, 1)) # A function that is called after the axes were drawn panelfirst <- function(trans) { zticks <- seq(100, 180, by = 20) len <- length(zticks) XY0 <- trans3D(x = rep(1, len), y = rep(1, len), z = zticks, pmat = trans) XY1 <- trans3D(x = rep(1, len), y = rep(61, len), z = zticks, pmat = trans) segments(XY0$x, XY0$y, XY1$x, XY1$y, lty = 2) rm <- rowMeans(volcano) XY <- trans3D(x = 1:87, y = rep(ncol(volcano), 87), z = rm, pmat = trans) lines(XY, col = "blue", lwd = 2) } persp3D(z = volcano, x = 1:87, y = 1: 61, scale = FALSE, theta = 10, expand = 0.2, panel.first = panelfirst, colkey = FALSE) ## ======================================================================= ## with / without colvar / facets ## ======================================================================= par(mfrow = c(2, 2)) persp3D(z = volcano, shade = 0.3, col = gg.col(100)) # shiny colors - set lphi for more brightness persp3D(z = volcano, lighting = TRUE, lphi = 90) persp3D(z = volcano, col = "lightblue", colvar = NULL, shade = 0.3, bty = "b2") # this also works: # persp3D(z = volcano, col = "grey", shade = 0.3) # tilted x- and y-coordinates of 'volcano' volcx <- matrix(nrow = 87, ncol = 61, data = rep(1:87, times=61)) volcx <- volcx + matrix(nrow = 87, ncol = 61, byrow = TRUE, data = rep(seq(0., 15, length.out=61), times=87)) volcy <- matrix(ncol = 87, nrow = 61, data = rep(1:61, times=87)) volcy <- t(volcy + matrix(ncol = 87, nrow = 61, byrow = TRUE, data = rep(seq(0., 15, length.out=87), times=61))) persp3D(volcano, x = volcx, y = volcy, phi = 80) ## ======================================================================= ## Several persps on one plot ## ======================================================================= par(mfrow = c(1, 1)) clim <- range(volcano) persp3D(z = volcano, zlim = c(100, 600), clim = clim, box = FALSE, plot = FALSE) persp3D(z = volcano + 200, clim = clim, colvar = volcano, add = TRUE, colkey = FALSE, plot = FALSE) persp3D(z = volcano + 400, clim = clim, colvar = volcano, add = TRUE, colkey = FALSE) # plot = TRUE by default ## ======================================================================= ## hist3D ## ======================================================================= par(mfrow = c(2, 2)) VV <- volcano[seq(1, 87, 15), seq(1, 61, 15)] hist3D(z = VV, scale = FALSE, expand = 0.01, border = "black") # transparent colors hist3D(z = VV, scale = FALSE, expand = 0.01, alpha = 0.5, opaque.top = TRUE, border = "black") hist3D(z = VV, scale = FALSE, expand = 0.01, facets = FALSE, lwd = 2) hist3D(z = VV, scale = FALSE, expand = 0.01, facets = NA) ## ======================================================================= ## hist3D and ribbon3D with greyish background, rotated, rescaled,... ## ======================================================================= par(mfrow = c(2, 2)) hist3D(z = VV, scale = FALSE, expand = 0.01, bty = "g", phi = 20, col = "#0072B2", border = "black", shade = 0.2, ltheta = 90, space = 0.3, ticktype = "detailed", d = 2) # extending the ranges plotdev(xlim = c(-0.2, 1.2), ylim = c(-0.2, 1.2), theta = 45) ribbon3D(z = VV, scale = FALSE, expand = 0.01, bty = "g", phi = 20, col = "lightblue", border = "black", shade = 0.2, ltheta = 90, space = 0.3, ticktype = "detailed", d = 2, curtain = TRUE) ribbon3D(z = VV, scale = FALSE, expand = 0.01, bty = "g", phi = 20, zlim = c(95,183), col = "lightblue", lighting = TRUE, ltheta = 50, along = "y", space = 0.7, ticktype = "detailed", d = 2, curtain = TRUE) ## ======================================================================= ## hist3D for a 1-D data set ## ======================================================================= par(mfrow = c(2, 1)) x <- rchisq(1000, df = 4) hs <- hist(x, breaks = 15) hist3D(x = hs$mids, y = 1, z = matrix(ncol = 1, data = hs$density), bty = "g", ylim = c(0., 2.0), scale = FALSE, expand = 20, border = "black", col = "white", shade = 0.3, space = 0.1, theta = 20, phi = 20, main = "3-D perspective") # reset plotting parameters par(mfrow = pm) } \keyword{ hplot } plot3D/man/image3D.Rd0000644000176200001440000002122612516631623013742 0ustar liggesusers\name{images in 3D frame} \alias{image3D} \title{ Images in 3-D plots. } \description{ \code{image3D} adds an image in a 3-D plot. } \usage{ image3D (x = NULL, y = NULL, z = NULL, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, resfac = 1, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", inttype = 1, add = FALSE, plot = TRUE) } \arguments{ \item{x, y, z }{Matrix (2-D), vector, or one value containing the values where the image is to be plotted. At least one of them should be one number, as this will determine where the image is plotted, parallel to the (y-z) plane (x one number), to the (x-z) plane (y one number) or to the (z-y) plane (z one number). If two are vectors, the first vector should be of length equal to \code{nrow(colvar)} and the second should be of length equal to \code{ncol(colvar)}. } \item{colvar }{The variable used for coloring. } \item{col }{Color palette to be used for the \code{colvar} variable. } \item{NAcol }{Color to be used for \code{NA} values of \code{colvar}; default is ``white''. } \item{breaks }{a set of finite numeric breakpoints for the colors; must have one more breakpoint than color and be in increasing order. Unsorted vectors will be sorted, with a warning. } \item{colkey }{A logical, \code{NULL} (default), or a \code{list} with parameters for the color key (legend). List parameters should be one of \code{side, plot, length, width, dist, shift, addlines, col.clab, cex.clab, side.clab, line.clab, adj.clab, font.clab} and the axis parameters \code{at, labels, tick, line, pos, outer, font, lty, lwd, lwd.ticks, col.box, col.axis, col.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las}. The defaults for the parameters are \code{side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL}) See \link{colkey}. The default is to draw the color key on side = 4, i.e. in the right margin. If \code{colkey} = \code{NULL} then a color key will be added only if \code{col} is a vector. Setting \code{colkey = list(plot = FALSE)} will create room for the color key without drawing it. if \code{colkey = FALSE}, no color key legend will be added. } \item{clab }{Only if \code{colkey = TRUE}, the label to be written on top of the color key. The label will be written at the same level as the main title. to lower it, \code{clab} can be made a vector, with the first values empty strings. } \item{clim }{Only if \code{colvar} is specified, the range of the color variable, used for the color key. Values of \code{colvar} that extend the range will be put to \code{NA}. } \item{resfac }{Resolution factor, one value or a vector of two numbers, for the x and y- values respectively. A value > 1 will increase the resolution. For instance, if \code{resfac} equals \code{3} then for each adjacent pair of x- and y-values, z will be interpolated to two intermediary points. This uses simple linear interpolation. If \code{resfac} is one number then the resolution will be increased similarly in x and y-direction. } \item{theta, phi }{The angles defining the viewing direction. \code{theta} gives the azimuthal direction and \code{phi} the colatitude. see \link{persp}. } \item{border }{The color of the lines drawn around the surface facets. The default, \code{NA}, will disable the drawing of borders. } \item{facets }{If \code{TRUE}, then \code{col} denotes the color of the surface facets. If \code{FALSE}, then the surface facets are colored ``white'' and the \code{border} (if \code{NA}) will be colored as specified by \code{col}. If \code{NA} then the facets will be transparent. It is usually faster to draw with \code{facets = FALSE}. } \item{panel.first }{A \code{function} to be evaluated after the plot axes are set up (and if applicable, images or contours drawn) but before any plotting takes place. This can be useful for drawing background grids or scatterplot smooths. The function should have as argument the transformation matrix, e.g. it should be defined as \code{function(pmat)}. See example of \link{persp3D} and last example of \link{voxel3D}. } \item{bty }{The type of the box, the default only drawing background panels. Only effective if the \link{persp} argument (\code{box}) equals \code{TRUE} (this is the default). See \link{perspbox}. } \item{inttype }{The interpolation type to create the polygons, either taking the mean of the \code{colvar} variable (\code{inttype = 1, 3} or extending the \code{x, y, z} values (\code{inttype = 2}). Values \code{1, 3} differ in how they treat \code{NA}s in the \code{colvar} variable. For \code{inttype = 3}, \code{NA}s are removed before taking averages; this will tend to make the \code{NA} region smaller. \code{NA}s are included when \code{inttype = 1}. This will tend to make the \code{NA} region larger. see details and an example in \link{persp3D}. } \item{add }{Logical. If \code{TRUE}, then the image will be added to the current plot. If \code{FALSE} a new plot is started. } \item{plot }{Logical. If \code{TRUE} (default), a plot is created, otherwise the viewing transformation matrix is returned (as invisible). } \item{\dots}{additional arguments passed to the plotting methods. The following \link{persp} arguments can be specified: \code{xlim, ylim, zlim, xlab, ylab, zlab, main, sub, r, d, scale, expand, box, axes, nticks, ticktype}. The arguments \code{xlim}, \code{ylim}, \code{zlim} only affect the axes. All objects will be plotted, including those that fall out of these ranges. To select objects only within the axis limits, use \link{plotdev}. In addition, the \link{perspbox} arguments \code{col.axis, col.panel, lwd.panel, col.grid, lwd.grid} can also be given a value. \code{shade} and \code{lighting} arguments will have no effect. \code{alpha} can be given a value inbetween 0 and 1 to make colors transparent. Also the arguments \code{lty, lwd} can be specified (when \code{border} is not \code{NA}). The arguments after \dots must be matched exactly. } } \details{ \code{image3D} calls the \link{surf3D} function. The x, y, and z values are expanded as a matrix. } \value{ Returns the viewing transformation matrix. See \link{trans3D}. } \seealso{ \link{surf3D} for the function on which \code{image3D} is based. \link{image2D} for \code{plot3D}s 2-D image function. } \author{Karline Soetaert } \examples{ # save plotting parameters pm <- par("mfrow") ## ======================================================================= ## images in x, y, z plane ## ======================================================================= par(mfrow = c(2, 2)) # images in x, y, z plane # We use colkey = list(plot = FALSE) to create room for a color key image3D(y = seq(0, 1, 0.1), z = seq(0, 1, 0.1), x = 0.5, col = "blue", xlim = c(0,1), colkey = list(plot = FALSE)) image3D(x = seq(0, 1, 0.1), z = seq(0, 1, 0.1), y = 0.5, add = TRUE, col = "red", alpha = 0.2) # alpha makes it transparent image3D(x = seq(0, 1, 0.1), y = seq(0, 1, 0.1), z = 0.5, add = TRUE, col = "green") colkey(col = c("green", "red", "blue"), clim = c(0.5, 3.5), at = 1:3, labels = c("z", "y", "x"), add = TRUE) # image3D(z = 100, colvar = volcano, zlim = c(0, 150), clab = c("height", "m")) # image3D( x = 0.5, colvar = volcano, xlim = c(0, 1), ylim = c(0, 1), zlim = c(0, 1)) image3D( y = 0.5, colvar = volcano, add = TRUE) # image3D( z = 1, colvar = volcano, x = seq(0, 1, length.out = nrow(volcano)), y = seq(0, 1, length.out = ncol(volcano)), xlim = c(0, 2), ylim = c(0, 2), zlim = c(0, 2)) image3D(y = 2, colvar = volcano, add = TRUE, shade = 0.2, x = seq(0, 1, length.out = nrow(volcano)), z = seq(1, 2, length.out = ncol(volcano))) image3D(x = 2, colvar = NULL, col = "orange", add = TRUE, y = seq(0, 1, length.out = nrow(volcano)), z = seq(1, 2, length.out = ncol(volcano))) # reset plotting parameters par(mfrow = pm) } \keyword{ hplot } plot3D/man/Oxsat.Rd0000644000176200001440000000636314047142607013574 0ustar liggesusers\name{3-D data set} \docType{data} \alias{Oxsat} \title{ Yearly averaged oxygen saturation from the NODC World Ocean Atlas 2005. } \description{ Percentage Oxygen Saturation from the NODC World Ocean Atlas 2005 (WOA05). The values are gridded in 2dg * 2dg longitude - latitude sets, and there are 33 depth intervals. } \usage{ data(Oxsat) } \format{ list with \itemize{ \item \code{lon}, the longitude (dg E), at 2 dg resolution, 180 values. \item \code{lat}, the latitude (dg N), at 2 dg resolution, 90 values. \item \code{depth}, the water depth (m), 33 values. \item \code{val}, the saturation value (\%). \code{val} is an array of dimension (180, 90, 33), (lon, lat, depth). \item \code{name}, the long name of the variable. \item \code{units}, the units of measurement. } } \details{ The ``objectively analyzed climatology'' has been used to extract these data. The original data were averaged over the 4 seasons, and converted to half the resolution for latitude and longitude. The longitude was converted to the European view, i.e. the original data from (0, 360) was changed to (-180, 180). } \author{ Karline Soetaert } \examples{ # save plotting parameters pm <- par("mfrow") ## ======================================================================== ## plot all surface data ## ======================================================================== par(mfrow = c(1, 1)) image2D(z = Oxsat$val[ , , 1], x = Oxsat$lon, y = Oxsat$lat, main = "surface oxygen saturation (\%) for 2005") ## ======================================================================== ## plot a selection of latitude-depth profiles; input is an array ## ======================================================================== lon <- Oxsat$lon image2D (z = Oxsat$val, margin = c(2, 3), x = Oxsat$lat, y = Oxsat$depth, subset = (lon > 18 & lon < 23), ylim = c(5500, 0), NAcol = "black", zlim = c(0, 110), xlab = "latitude", ylab = "depth, m") ImageOcean() abline ( v = lon[lon > 18 & lon < 23]) ## ======================================================================== ## plot with slices ## ======================================================================== par(mfrow = c(1, 1)) ii <- which (Oxsat$lon > -90 & Oxsat$lon < 90) jj <- which (Oxsat$lat > 0 & Oxsat$lat < 90) xs <- Oxsat$lon[ii[length(ii)]] # E boundary ys <- Oxsat$lat[jj[1]] # S boundary slice3D(colvar = Oxsat$val[ii,jj,], x = Oxsat$lon[ii], y = Oxsat$lat[jj], z = -Oxsat$depth, NAcol = "black", xs = xs, ys = ys, zs = 0, theta = 35, phi = 50, colkey = list(length = 0.5), expand = 0.5, ticktype = "detailed", clab = "\%", main = "Oxygen saturation", xlab = "longitude", ylab = "latitude", zlab = "depth") # restore plotting parameters par(mfrow = pm) } \references{ \url{https://www.nodc.noaa.gov} \url{https://www.nodc.noaa.gov/OC5/WOA05/woa05nc.html} Originally made available by CSIRO: Mark A. Collier and Paul J. Durack, 2005. CSIRO netCDF version of the NODC World Ocean Atlas 2005. CSIRO Marine and Atmospheric Research Paper 015. December 2006 } \seealso{ \link{image2D} for plotting. } \keyword{datasets} plot3D/man/colorkey.Rd0000644000176200001440000002176512516645551014335 0ustar liggesusers\name{Color key legend} \alias{colkey} \title{ Plots a color legend } \description{ \code{colkey} plots a color legend, either to an existing plot or starting a new plot. } \usage{ colkey (col = NULL, clim, clab = NULL, clog = FALSE, add = FALSE, cex.clab = NULL, col.clab = NULL, side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL, side = 4, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, breaks = NULL, at = NULL, labels = TRUE, tick = TRUE, line = NA, pos = NA, outer = FALSE, font = NA, lty = 1, lwd = 1, lwd.ticks = 1, col.axis = NULL, col.ticks = NULL, col.box = NULL, hadj = NA, padj = NA, cex.axis = par("cex.axis"), mgp = NULL, tck = NULL, tcl = NULL, las = NULL) } \arguments{ \item{col }{Colors to be used for the color key. If \code{col} is \code{NULL}, then a red-yellow-blue colorscheme (\code{jet.col}) will be used. } \item{clim }{The range of the color values, used in the color key. } \item{clab }{The label to be written on top of the color key. The label will be written at the same level as the main title. To lower it, either \code{clab} can be made a vector, with the first values empty strings. Alternatively, it can be lowered by argument \code{line.clab}. } \item{clog }{If \code{TRUE}, then values of the color key will be log transformed. } \item{add }{If \code{TRUE}, the color key will be added to the current plot and positioned in the margin. If \code{FALSE} a new plot will be started and the color key will be positioned in the centre. } \item{cex.clab }{The size of the label written on top of the color key; default = same as axis labels. } \item{col.clab }{The color of the label written on top of the color key; default = same as main title. } \item{side.clab }{The side of the label written on top of the color key; default = same as main title, i.e. side = 3. Values of 1, 2, 4 will put the colorkey label at bottom, left and right of the key respectively. } \item{line.clab }{The numer of lines in the margin where the colorkey title is to be drawn. If unspecified, it is at line.clab =1.75. } \item{adj.clab }{The adjustment of the colorkey title, a number inbetween 0 (left) to 1 (right). The default is to put it central. } \item{font.clab }{The font of the colorkey title, a number inbetween 0 (left) to 1 (right). The default is to put it central. } \item{side }{Where to put the color key. 1 = bottom, 2 = left, 3 = top, 4 = right. } \item{length }{Relative length of the color key; 1 = same length as the axis. } \item{width }{Relative width of the color key. } \item{dist }{Distance of the color key to the margin. Positive values are further into the margin, negative values cause the color key to be positioned closer to or within the main plot. Reasonable range is [-0.5, 0.05]. } \item{shift }{Shift relative to the centre. Positive values are upward when side = 2 or 4, and to the right for side = 1 or 3. It does not make sense to use this argument if \code{length = 1}. Reasonable range is [-0.2, 0.2]. } \item{addlines }{If \code{TRUE}, will draw lines inbetween the colors. } \item{breaks }{a set of finite numeric breakpoints for the colors; must have one more breakpoint than color and be in increasing order. Unsorted vectors will be sorted, with a warning. } \item{at, labels, tick, line, pos, outer, font, lty, lwd }{Additional parameters as from the \link{axis} command. } \item{lwd.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las }{Additional parameters as from the \link{axis} command. } \item{col.box, col.axis, col.ticks }{Additional parameters to set the color of the color legend framing \code{box}, the axis label and the axis ticks. } } \author{Karline Soetaert } \examples{ # save plotting parameters pm <- par(mfrow = c(2, 2)) pmar <- par(mar = c(5.1, 4.1, 4.1, 2.1)) ## ======================================================================= ## colorkey as argument of a plot3D function ## ======================================================================= # default, colkey = NULL: adds colkey because multiple colors image2D(z = volcano) # default, colkey = NULL: no colkey because only one color image2D(z = volcano, col = "grey", shade = 0.2, contour = TRUE) # colkey = FALSE: no color key, no extra space foreseen image2D(z = volcano, colkey = FALSE) # colkey = list(plot = FALSE): no color key, extra space foreseen image2D(z = volcano, colkey = list(plot = FALSE, side = 3)) colkey (side = 3, add = TRUE, clim = range(volcano)) ## ======================================================================= ## colorkey in new plot ## ======================================================================= colkey(side = 1, clim = c(0, 1), add = FALSE, clab = "z", col.clab = "red", adj.clab = 0) colkey(side = 2, clim = c(0, 1), clab = "z", length = 0.5, width = 0.5) colkey(side = 3, clim = c(0, 1), lwd = 3, clab = c("a","b","c","d"), line.clab = 5) colkey(side = 4, clim = c(1e-6, 1), clog = TRUE, clab = "a very long title in bold and close to the key", line.clab = 1, side.clab = 2, font.clab = 2) ## ======================================================================= ## colorkey added to existing plot ## ======================================================================= par(mfrow = c(1, 1)) image2D(volcano, xlab = "", clab = "m", colkey = list(side = 1, length = 0.5, width = 0.5, line.clab = 1)) colkey(side = 3, clim = range(volcano), add = TRUE) # 'dist' to put colkey within the image # 'shift' to position colkey to the right or upward par(mfrow = c(1, 1)) image2D(volcano, colkey = FALSE) colkey(clim = range(volcano), dist = -0.15, shift = 0.2, side = 3, add = TRUE, clab = "key 1", col.clab = "white", length = 0.5, width = 0.5, col.axis = "white", col.ticks = "white", cex.axis = 0.8) colkey(clim = range(volcano), dist = -0.1, shift = -0.2, side = 4, add = TRUE, clab = "key 2", col.clab = "white", length = 0.3, width = 0.5, col.axis = "white", col.ticks = "white", col.box = "red", cex.axis = 0.8) colkey(clim = range(volcano), dist = -0.3, side = 1, add = TRUE, clab = "key 3", col.clab = "white", length = 0.3, width = 0.5, col.axis = "white", col.ticks = "white", at = c(100, 140, 180), labels = c("a", "b", "c"), font = 2) colkey(clim = range(volcano), dist = -0.3, shift = -0.2, side = 2, add = TRUE, clab = "key 4", col.clab = "white", length = 0.3, width = 0.5, col.axis = "white", col.ticks = "white", col.box = "red", cex.axis = 0.8, las = 3) ## ======================================================================= ## colorkey in other plots ## ======================================================================= par(mfrow = c(1, 1)) par(mar = par("mar") + c(0, 0, -2, 0)) image2D(volcano, clab = "height, m", colkey = list(dist = -0.15, shift = 0.2, side = 3, length = 0.5, width = 0.5, line.clab = 2.5, cex.clab = 2, col.clab = "white", col.axis = "white", col.ticks = "white", cex.axis = 0.8)) ## ======================================================================= ## Several color keys in composite plot ## ======================================================================= persp3D(z = volcano, zlim = c(-60, 200), phi = 20, bty = "b", colkey = list(length = 0.2, width = 0.4, shift = 0.15, cex.axis = 0.8, cex.clab = 0.85), lighting = TRUE, lphi = 90, clab = c("height","m"), plot = FALSE) # create gradient in x-direction Vx <- volcano[-1, ] - volcano[-nrow(volcano), ] # add as image with own color key, at bottom image3D(z = -60, colvar = Vx/10, add = TRUE, colkey = list(length = 0.2, width = 0.4, shift = -0.15, cex.axis = 0.8, cex.clab = 0.85), clab = c("gradient","m/m"), plot = TRUE) ## ======================================================================= ## categorical colors; use addlines = TRUE to separate colors ## ======================================================================= with(iris, scatter3D(x = Sepal.Length, y = Sepal.Width, z = Petal.Length, colvar = as.integer(Species), col = c("orange", "green", "lightblue"), pch = 16, cex = 2, clim = c(1, 3), ticktype = "detailed", phi = 20, xlab = "Sepal Length", ylab = "Sepal Width", zlab = "Petal Length", main = "iris", colkey = list(at = c(1.33, 2, 2.66), side = 1, addlines = TRUE, length = 0.5, width = 0.5, labels = c("setosa", "versicolor", "virginica") ))) # reset plotting parameters par(mfrow = pm) par(mar = pmar) } \keyword{ hplot } plot3D/man/mesh.Rd0000644000176200001440000000304212046673770013430 0ustar liggesusers\name{Mesh generation} \alias{mesh} \title{ Rectangular grids. } \description{ \code{mesh} creates a rectangular full 2-D or 3-D grid. } \usage{ mesh (x, y, z = NULL) } \arguments{ \item{x, y, z }{Vectors with x, y and z-values. They can be of arbitrary length. } } \value{ Function \code{mesh} returns a \code{list} with the expanded x- y- and z arrays (in case \code{z} is not \code{NULL}) or matrices (in case \code{z = NULL}). The dimensions of these list elements are the same and equal to \code{c(length(x), length(y), length(z))}. } \seealso{ \link{persp3D}, \link{arrows3D}, \link{slice3D}, \link{surf3D} for other examples that use \code{mesh}. } \author{Karline Soetaert } \examples{ ## ======================================================================== ## 2-D mesh ## ======================================================================== x <- c(-1 , 0, 1) y <- 1 : 4 # 2-D mesh (M <- mesh(x, y)) # calculate with this mesh V <- with (M, x/2 * sin(y)) # same as: V2 <- outer(x, y, FUN = function(x, y) x/2*sin(y)) ## ======================================================================== ## 3-D mesh ## ======================================================================== x <- y <- z <- c(-1 , 0, 1) # 3-D mesh (M <- mesh(x, y, z)) # calculate with 3-D mesh V <- with (M, x/2 * sin(y) *sqrt(z+2)) # plot result scatter3D(M$x, M$y, M$z, V, pch = "+", cex = 3, colkey = FALSE) } \keyword{ hplot } plot3D/man/surf3D.Rd0000644000176200001440000003305714047142074013642 0ustar liggesusers\name{3-D surfaces} \alias{surf3D} \alias{spheresurf3D} \title{ Functions for plotting 3 dimensional shapes } \description{ \code{surf3D} plots a surface in 3-D with a color variable. \code{spheresurf3D} plots a colored image on a sphere. } \usage{ surf3D (x, y, z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "n", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, inttype = 1, add = FALSE, plot = TRUE) spheresurf3D (colvar = matrix(nrow = 50, ncol = 50, data = 1:50, byrow = TRUE), ..., phi = 0, theta = 0, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, contour = FALSE, colkey = NULL, resfac = 1, panel.first = NULL, clim = NULL, clab = NULL, bty = "n", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, inttype = 1, full = FALSE, add = FALSE, plot = TRUE) } \arguments{ \item{x, y, z }{Matrices with x, y and z-values that define the surfaces to be colored. They should be of the same dimension as \code{colvar}. } \item{colvar }{The variable used for coloring. If a matrix, it should be of the same dimension as \code{x, y, z}. Values of \code{NULL}, \code{NA}, or \code{FALSE} will toggle off coloration according to \code{colvar}. This gives good results only if \code{border} is given a color or a shade is used. } \item{theta, phi }{the angles defining the viewing direction. \code{theta} gives the azimuthal direction and \code{phi} the colatitude. see \link{persp}. } \item{col }{Color palette to be used for coloring the \code{colvar} variable. If \code{col} is \code{NULL} and \code{colvar} is specified, then a red-yellow-blue colorscheme (\link{jet.col}) will be used. If \code{col} is \code{NULL} and \code{colvar} is not specified, then \code{col} will be "grey". } \item{NAcol }{Colors to be used for \code{colvar} values that are \code{NA}. } \item{breaks }{a set of finite numeric breakpoints for the colors; must have one more breakpoint than color and be in increasing order. Unsorted vectors will be sorted, with a warning. } \item{border }{The color of the lines drawn around the surface facets. The default, \code{NA}, will disable the drawing of borders. } \item{facets }{If \code{TRUE}, then \code{col} denotes the color of the surface facets. If \code{FALSE}, then the surface facets are colored ``white'' and the \code{border} (if \code{NA}) will be colored as specified by \code{col}. If \code{NA} then the facets will be transparent. It is usually faster to draw with \code{facets = FALSE}. } \item{contour }{If \code{TRUE}, then a \link{contour} plot will be added to the image plot, unless \code{x, y} are a matrix. Also allowed is to pass a \code{list} with arguments for the \link{contour} function. } \item{colkey }{A logical, \code{NULL} (default), or a \code{list} with parameters for the color key (legend). List parameters should be one of \code{side, plot, length, width, dist, shift, addlines, col.clab, cex.clab, side.clab, line.clab, adj.clab, font.clab} and the axis parameters \code{at, labels, tick, line, pos, outer, font, lty, lwd, lwd.ticks, col.box, col.axis, col.ticks, hadj, padj, cex.axis, mgp, tck, tcl, las}. The defaults for the parameters are \code{side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL}) See \link{colkey}. The default is to draw the color key on side = 4, i.e. in the right margin. If \code{colkey} = \code{NULL} then a color key will be added only if \code{col} is a vector. Setting \code{colkey = list(plot = FALSE)} will create room for the color key without drawing it. if \code{colkey = FALSE}, no color key legend will be added. } \item{resfac }{Resolution factor, one value or a vector of two numbers, for the x and y- values respectively. A value > 1 will increase the resolution. For instance, if \code{resfac} equals \code{3} then for each adjacent pair of x- and y-values, z will be interpolated to two intermediary points. This uses simple linear interpolation. If \code{resfac} is one number then the resolution will be increased similarly in x and y-direction. } \item{panel.first }{A \code{function} to be evaluated after the plot axes are set up but before any plotting takes place. This can be useful for drawing background grids or scatterplot smooths. The function should have as argument the transformation matrix, e.g. it should be defined as \code{function(pmat)}. See example of \link{persp3D} and last example of \link{voxel3D}. } \item{clab }{Only if \code{colkey} is not \code{NULL} or \code{FALSE}, the label to be written on top of the color key. The label will be written at the same level as the main title. To lower it, \code{clab} can be made a vector, with the first values empty strings. } \item{clim }{Only if \code{colvar} is specified, the range of the color variable, used for the color key. Values of \code{colvar} that extend the range will be put to \code{NA}. } \item{bty }{The type of the box, the default is to draw no box. Set \code{bty = "f"} or \code{bty = "b"} if you want a full box or the backpanel. See \link{perspbox}. } \item{lighting }{If not \code{FALSE} the facets will be illuminated, and colors may appear more bright. To switch on lighting, the argument \code{lighting} should be either set to \code{TRUE} (using default settings) or it can be a list with specifications of one of the following: \code{ambient, diffuse, specular, exponent, sr} and \code{alpha}. Will overrule \code{shade} not equal to \code{NA}. See examples in \link{jet.col}. } \item{shade }{the degree of shading of the surface facets. Values of shade close to one yield shading similar to a point light source model and values close to zero produce no shading. Values in the range 0.5 to 0.75 provide an approximation to daylight illumination. See \link{persp}. } \item{ltheta, lphi }{if finite values are specified for \code{ltheta} and \code{lphi}, the surface is shaded as though it was being illuminated from the direction specified by azimuth \code{ltheta} and colatitude \code{lphi}. See \link{persp}. } \item{inttype }{The interpolation type to create the polygons, either taking the mean of the \code{colvar} variable (\code{inttype = 1, 3} or extending the \code{x, y, z} values (\code{inttype = 2}). Values \code{1, 3} differ in how they treat \code{NA}s in the \code{colvar} variable. For \code{inttype = 3}, \code{NA}s are removed before taking averages; this will tend to make the \code{NA} region smaller. \code{NA}s are included when \code{inttype = 1}. This will tend to make the \code{NA} region larger. See details and an example in \link{persp3D}. } \item{full }{Logical. If \code{TRUE}, the full sphere will be drawn, including the invisible part. If \code{FALSE} only the visible half will be drawn (faster). } \item{add }{Logical. If \code{TRUE}, then the surfaces will be added to the current plot. If \code{FALSE} a new plot is started. } \item{plot }{Logical. If \code{TRUE} (default), a plot is created, otherwise the viewing transformation matrix is returned (as invisible). } \item{\dots}{Additional arguments passed to the plotting methods. The following \link{persp} arguments can be specified: \code{xlim, ylim, zlim, xlab, ylab, zlab, main, sub, r, d, scale, expand, box, axes, nticks, ticktype}. The arguments \code{xlim}, \code{ylim}, \code{zlim} only affect the axes. All objects will be plotted, including those that fall out of these ranges. To select objects only within the axis limits, use \link{plotdev}. In addition, the \link{perspbox} arguments \code{col.axis, col.panel, lwd.panel, col.grid, lwd.grid} can also be given a value. The arguments after \dots must be matched exactly. } } \value{ Returns the viewing transformation matrix, See \link{trans3D}. } \seealso{ \link{persp} for the function on which this implementation is based. \link{jet.col}, \link{plotdev} for other examples of \code{surf3D}. \link{plotdev} for zooming, rescaling, rotating a plot. } \author{Karline Soetaert } \details{ Function \code{spheresurf3D} is a projection on a sphere with radius 1. This means that the x- y- and z- axes range from [-1, 1]. } \examples{ # save plotting parameters pm <- par("mfrow") pmar <- par("mar") par(mar = c(1, 1, 1, 1)) ## ======================================================================= ## A three-dimensional shape ## (ala http://docs.enthought.com/mayavi/mayavi/mlab.html) ## ======================================================================= par(mfrow = c(2, 2)) # create grid matrices X <- seq(0, pi, length.out = 50) Y <- seq(0, 2*pi, length.out = 50) M <- mesh(X, Y) phi <- M$x theta <- M$y # x, y and z grids r <- sin(4*phi)^3 + cos(2*phi)^3 + sin(6*theta)^2 + cos(6*theta)^4 x <- r * sin(phi) * cos(theta) y <- r * cos(phi) z <- r * sin(phi) * sin(theta) # full colored image surf3D(x, y, z, colvar = y, colkey = FALSE, shade = 0.5, box = FALSE, theta = 60) # same, but just facets surf3D(x, y, z, colvar = y, colkey = FALSE, box = FALSE, theta = 60, facets = FALSE) # with colors and border, AND increasing the size # (by reducing the x- y and z- ranges surf3D(x, y, z, colvar = y, colkey = FALSE, box = FALSE, theta = 60, border = "black", xlim = range(x)*0.8, ylim = range(y)*0.8, zlim = range(z)*0.8) # Now with one color and shading surf3D(x, y, z, box = FALSE, theta = 60, col = "lightblue", shade = 0.9) \dontrun{ # rotation for (angle in seq(0, 360, by = 10)) plotdev(theta = angle) } ## ======================================================================= ## Several other shapes ## http://xahlee.info/surface/gallery.html ## ======================================================================= par(mfrow = c(2, 2)) # Shape 1 M <- mesh(seq(0, 6*pi, length.out = 50), seq(pi/3, pi, length.out = 50)) u <- M$x ; v <- M$y x <- u/2 * sin(v) * cos(u) y <- u/2 * sin(v) * sin(u) z <- u/2 * cos(v) surf3D(x, y, z, colvar = z, colkey = FALSE, box = FALSE, phi = 50) # Shape 2: add border M <- mesh(seq(0, 2*pi, length.out = 50), seq(0, 2*pi, length.out = 50)) u <- M$x ; v <- M$y x <- sin(u) y <- sin(v) z <- sin(u + v) surf3D(x, y, z, colvar = z, border = "black", colkey = FALSE) # shape 3: uses same mesh, other perspective (d >1) x <- (3 + cos(v/2)*sin(u) - sin(v/2)*sin(2*u))*cos(v) y <- (3 + cos(v/2)*sin(u) - sin(v/2)*sin(2*u))*sin(v) z <- sin(v/2)*sin(u) + cos(v/2)*sin(2*u) surf3D(x, y, z, colvar = z, colkey = FALSE, d = 2, facets = FALSE) # shape 4: more complex colvar M <- mesh(seq(-13.2, 13.2, length.out = 50), seq(-37.4, 37.4, length.out = 50)) u <- M$x ; v <- M$y b <- 0.4; r <- 1 - b^2; w <- sqrt(r) D <- b*((w*cosh(b*u))^2 + (b*sin(w*v))^2) x <- -u + (2*r*cosh(b*u)*sinh(b*u)) / D y <- (2*w*cosh(b*u)*(-(w*cos(v)*cos(w*v)) - sin(v)*sin(w*v))) / D z <- (2*w*cosh(b*u)*(-(w*sin(v)*cos(w*v)) + cos(v)*sin(w*v))) / D surf3D(x, y, z, colvar = sqrt(x + 8.3), colkey = FALSE, theta = 10, border = "black", box = FALSE) box() ## ======================================================================= ## A sphere, with box type with grid lines ## ======================================================================= par(mar = c(2, 2, 2, 2)) par(mfrow = c(1, 1)) M <- mesh(seq(0, 2*pi, length.out = 50), seq(0, pi, length.out = 50)) u <- M$x ; v <- M$y x <- cos(u)*sin(v) y <- sin(u)*sin(v) z <- cos(v) colvar <- sin(u*6) * sin(v*6) surf3D(y, x, z, colvar = colvar, phi = 0, bty = "b2", lighting = TRUE, ltheta = 40) ## ======================================================================= ## Function spheresurf3D ## ======================================================================= par(mfrow = c(2, 2)) spheresurf3D() # true ranges are [-1, 1]; set limits to [-0.8, 0.8] to make larger plots lim <- c(-0.8, 0.8) spheresurf3D(colkey = FALSE, xlim = lim, ylim = lim, zlim = lim) spheresurf3D(bty = "b", ticktype = "detailed", phi = 50) spheresurf3D(colvar = matrix(nrow = 30, ncol = 30, data = runif(900))) ## ======================================================================= ## Images on a sphere ## ======================================================================= par(mfrow = c(1, 1), mar = c(1, 1, 1, 3)) AA <- Hypsometry$z; AA[AA<=0] <- NA lim <- c(-0.8, 0.8) # log transformation of color variable spheresurf3D(AA, NAcol = "black", theta = 90, phi = 30, box = FALSE, xlim = lim, ylim = lim, zlim = lim, log = "c") # restore plotting parameters par(mfrow = pm) par(mar = pmar) } \keyword{ hplot } plot3D/man/plot3D.Rd0000644000176200001440000000624112512724464013640 0ustar liggesusers\name{plot3D-package} \alias{plot3D-package} \alias{plot3D} \docType{package} \title{ Plotting multi-dimensional data. } \description{ Functions for visualising 2-D and 3-D data. Many of the functions are extensions of R's \link{persp} or \link{image} function. Other packages that provide visualisation of 3-D data (and which might be better suited) are: \code{rgl, scatterplot3D, misc3D}. } \author{ Karline Soetaert } \note{ This package is dedicated to Carlo. } \references{ \url{http://www.rforscience.com/rpackages/visualisation/oceanview/} \url{http://www.rforscience.com/rpackages/visualisation/plot3d/} } \seealso{ Functions that are based on the \link{persp} function: \itemize{ \item \link{persp3D}: an extended version of persp. \item \link{ribbon3D}: a perspective plot as ribbons. \item \link{hist3D}: 3-D histograms. \item \link{scatter3D}, \link{points3D}, \link{lines3D}: colored points, lines, ... in 3-D. \item \link{slice3D}, \link{slicecont3D}: slices from a full 3-D data set. \item \link{isosurf3D}: isosurfaces from a full 3-D data set as triangles. \item \link{voxel3D}: isosurfaces from a full 3-D data set as points. \item \link{surf3D}, \link{spheresurf3D}: 3-D shapes or surfaces. \item \link{arrows3D}: arrows in 3-D. \item \link{segments3D}: line segments in 3-D. \item \link{polygon3D}: 3-D polygons. \item \link{box3D}, \link{border3D}, \link{rect3D}: boxes and rectangles in 3-D. \item \link{text3D}: labels in 3-D. } Functions defined on the \link{image} function: \itemize{ \item \link{image2D}, for an image function to visualise 2-D or 3-D data. \item \link{ImageOcean}: an image of the ocean's bathymetry. } Other plotting functions: \itemize{ \item \link{contour2D}, for a contour function to visualise 2-D data and that have a color key. \item \link{scatter2D}: colored points, lines, ... in 2-D. \item \link{text2D}, \link{arrows2D}, \link{segments2D}, \link{rect2D}, \link{polygon2D} for other 2D functions that have a color key. } Colors and colorkey: \itemize{ \item \link{colkey}: adds a color legend. \item \link{jet.col}, \link{ramp.col}, \link{gg.col}, \code{alpha.col}: suitable colors, shade and lighting. } Utility functions: \itemize{ \item \link{mesh}: to generate rectangular (x, y) or (x, y, z) meshes. } Data sets: \itemize{ \item \link{Oxsat}: 3-D data set with the ocean's oxygen saturation values. \item \link{Hypsometry}: 2-D data set with the worlds elevation and ocean's bathymetry. } } \note{ Some of the functions based on \code{persp} will not work properly for all values of \code{phi} (which turns the plots upside-down). This is because an assumption is made as to how the perspective plots are viewed. } \examples{ # run all examples \dontrun{ example(persp3D) example(surf3D) example(slice3D) example(scatter3D) example(segments3D) example(image2D) example(image3D) example(contour3D) example(colkey) example(jet.col) example(perspbox) example(mesh) example(trans3D) example(plot.plist) example(ImageOcean) example(Oxsat) } } \keyword{ package }plot3D/DESCRIPTION0000644000176200001440000000110214052217320013113 0ustar liggesusersPackage: plot3D Version: 1.4 Title: Plotting Multi-Dimensional Data Author: Karline Soetaert Maintainer: Karline Soetaert Depends: R (>= 2.15) Imports: misc3d, stats, graphics, grDevices, methods Description: Functions for viewing 2-D and 3-D data, including perspective plots, slice plots, surface plots, scatter plots, etc. Includes data sets from oceanography. License: GPL (>= 3.0) LazyData: yes NeedsCompilation: no Packaged: 2021-05-20 06:28:24 UTC; karlines Repository: CRAN Date/Publication: 2021-05-22 15:10:08 UTC plot3D/vignettes/0000755000176200001440000000000014051400610013416 5ustar liggesusersplot3D/vignettes/volcano.pdf0000644000176200001440000140236014051144675015600 0ustar liggesusers%PDF-1.5 % 1 0 obj << /Type /ObjStm /Length 3089 /Filter /FlateDecode /N 52 /First 397 >> stream xiw{Ŧ.X)QeHIl D$, @Pc6Mۗ>J!Hd&VߋHv;338aD'E :Dh18"Mln86#|5@4nfthDsM-h&‚qpus1<5b8'e1ub8!qtx2l#poAkZ"l$:VJ4"̈lj har]@k Z-brML\7mA 04bY,xСlb:p/e XIlBpc1bk uj:(Spb Љm Wn%nM\X1lMЇݤ^vEޗ&ܤ'%oGMr玜bL-1>I5=7 pM<25[k \cHWEEZ+=]Ȗ(nt9u7}췣s>V!@5ƶGn eЊ:I q Aܫ'd il󁟜#C4b4 f&Fu.'`T0ll qԍ%9l E) [u,SMpu>)WO]Ta@&&̌˜Ɣ`2g(چV|@f2u:B>sB5m<[ի^3M+>6hr1)y #m69<},H% ,%{%1G? !0F%`ܩeY^le h9Stt. uI]C6GԧP?8VJEKt4CF4O ivC/&4iŞGv!= R!̷&f f2ϑc 烶cn7Uw3E3t؄ _ :xJ#@ 7ÜӋZ,`t ڸo=o~L3F?\e}JK{ HSW2;D,XMD 4TV8f0KgJWc@?f˥ hoCAjļb#mO)&}act%bc-xbw9/n1wYؘ_zxsy}}b .mԷd>  >J;2_COlnnݓ>"1#zIp50ꗍv{z]}>n:ݽ/p"=(;ԃ%QmӚܛy y3$Aj؄=?Xޥo`NJ{ۯa^\š\<^<2䍦n::} i,ތY-]&Om]A^Nټ۱A*F*ZU9\閾 vX:-+/ ϋy{ҭmW+9ryzqNi9X<;%: \" 쬤4l„F=1^׉ RyHbJ2M!l$Yw.HX4R7 5jB@*)S P[?-M D6H$2_ 8-ԷT:9~[V/p3V/F+s\݇1l,[_[.1L6cvԽ ᠈cl*f/g@++WWImj>7ʯ2$kS\(ν}ݺyþUpnwͻ=43%czޘ3f5h/R/f7J*՛Vo-o/w݇[޸W޼9G3G3խRu{vf6V[zA_omr,o]k?*~ܫ4j3\oE݃xylIvtm=>8~rp$>:>|}LJ}|'5Ͳrܓ>wKFCW@SBi񇬡(EXkh`pL@Z)d9b"s@LDL@vrg{0h!NY1G,DLD<,tEZ%!z9#rp׍#Gc|~҇_@_"Ծz|FN[]Nn~:RmVΩ=/+W!ϨoL G5~OTwBuߨk?I.=6rO}{^Nk=9P7zoKIwc%KKR\JЍbvk$EJKB~Ѕ(n7ۃߨ/*\Q7pCU-tto| ITURPRp/ Sܶ !o`:DX Ĥ5脊NB*)I2`*0H N1{2YV |@Gx"`_}B~2endstream endobj 54 0 obj << /Subtype /XML /Type /Metadata /Length 1654 >> stream GPL Ghostscript 9.50 volcano, 3D plots, 2D plots, R 2021-05-19T10:18:04+02:00 2021-05-19T10:18:04+02:00 LaTeX with hyperref package Fifty ways to draw a volcano using package plot3DKarline Soetaert endstream endobj 55 0 obj << /Type /ObjStm /Length 2886 /Filter /FlateDecode /N 52 /First 413 >> stream xYU}+(V>n $cdDǘAqkIwg2#ߒUDVQ!KP\\f qVDpsNUuW?ƌ~uֽsխ  L*ϔ P,BwY wASø \ q3 ,agBB@0a4D+(&}@3)d!p,!K03%8gz Wp><mh [t0p 6`\|ϥ̂` GFB'#`R4gH&Е;9 PHm0۷y]e4ϼG΀S>#4ߺl%w=#:u\Lyq|rk:vϑhuYJYn;=lpDa / Ҹ:5ypTݕaDNb+-6V֘coCjK2#]kq|WF;@ FT-Isi#:[Cmç *Uzu!O G;{pXu8,3,8;qpLDW7F0CGvaDɁkX+8́`5n\GπrOVz:=3sFQfhhT?n&Ѧh;uVzmc ,~R0N߫knA6XZi!d? BRE&D $7vǛ"/umFːƒ6K`KţF+kxp5tk sn@1 [sQuVkKOᱨ:yvȮƣѨ ˨KNo1]h=|o¾lpBL)U^`M!D!M~p!?Ė&y8Gj(XˣQREK=-{+k+5굼 hEysEY<*;|Yf$hB=O^x܃X=tg]rOUa~kFkȾa!3x0u1 01g>pzWp=6wK_'gou_pI}Gr'Ww՘Sgz ' ǽyXl(BSSVmX2('AkWN;\e<8 tF aOA% fJVD)BC2;j&EH}zh#%DJdP'r ܷ`a6{Z8^t\4t=2N5; in^pa-Zo$nL@sѲ~@*/pV *JQ _V*ῥ`B~)HI]%ܛ Aㄋ aJbLRD2^%| $GDY+_bζӡVEZ׀VAVTS*wqǝwy7݃{wjjs.Rkm?$%{?333k>z܉'N/ϟ>}zqq̙3O/--=cqirHϩl4.Es5vpB[__|j|O< RWVdq@3(׊|/S¯P/[(d bH;@Y+VLO=<̳>{/?/K/odޭ|+_}_ʕ+_z7x3[oy{\\v>GU~Gw'4vvg;U~7>1=??գ/⫯:|onV7o~քj)(S =BKx8"aBJxA)pU PqyW* (ȷTC[-Ꮔ 'ÖV .oeSTm񷟑]l /˭1r}~OF  #N McI &44@$w11' ,aGYdFhpűRXLV) SD# M ʁ @9 %"!"bc!&1%)rdUFZ2_%:|4Zs9.@kHК$2B4%Xe?8Q"V, QA+-T0㡌w'OB p!xD!Y:lT1'K_؇cZ Aі:`QAVa?e1ه#_)2O>&Lʣ"qqKyD"ײLi1چo> stream xY[o[~8p_ tyHHjh(,ZH3trzg|)ihݣ2(iA.^ViuphFC~sh9G 5<_C0vdu)E*0AMNcjB,2 `kz:##;M Lrk<#1?Jy"~zV­nn뚱mv+N}br1.I@(mS cy#]ĈF֞? VyyPzsNzN,l`,F^9':@NiPm!Ogbu~KM-wae0T#/B7U Ա٣"ѯr^q`B3{<F=A"x-ClPv|SpJ믚!J0AMhL1Sxqv-/2#ƕ Cq\m\փ8?0>`~zB*4OOK9Oaۉ#b'%[a.dT|P)8qj9&bäAd2u!1[D5CC=Y !9`sL-c=ֲeZdbҀ"4NdD0X/P<A Cëk`CD !Lo'~2 m 1D~}EWE\>l{ظ*SeBNs{Y:M7۫`wO0D7]أI)$l1bOxSU-5$?=k*lWxUċʥ ΎŋŨE3e/k~_.B+&e35J`eFBm3cmk1yӷ"Lp@BB}eSIK@5=6-D,)0^.{"7kޖ܍ Lht\Ǒ8;m=]@f[&m ]$Ƃ4[h;X({w&e+~ueySE-eWmúGEz+xWcѶ s5Vu]y@Lu ]5"f o9VE?& Wپ;y̶j iV- _i_{uKTcD lw}wC^5UN?)W,I.5-}J( C瑞c^rEhhZ?D X.="|ɥrI^m& z5+]u(8\8*ߧ؂~UċP{QxU"E|$XM1/-9Оc'j7jU~֤Ijn~&GeY}xc1Yj,FM7@8v*콬Ż7?)9W8?T'uZâHՌaoxVes挱i9;oAYa/eևendstream endobj 109 0 obj << /Filter /FlateDecode /Length 791 >> stream xMO1+VsmzZTzIMPz 3i!hPZ'wgعh?w>R6g"n2W¶#< <[*sU)˝u\mQ!Bbad+m k!>ʺ86h;$AtQkPpm*JVy-U*O45W1"^&nf|lC BJiRf~*+2Ph)/,ØEkqrlvʀ'H<^Vi.Diph ˀ6+׾s pO\qRs0_e{Hf{8SxMb4A(т/`pv7+3+$%Ic; ;H iaHl Y1 TUljvNH/{!KZfqvEf.d;{2Ge*uF476)dC@.ֶ N<۷.d8Sw{=Ccz7Ksi ^ 8j`d*A}1 אYEӌ}. 4zFFw+/t2y.ݥ\"u);D7> pw=?,>EJ-9+A}[ \endstream endobj 110 0 obj << /Filter /FlateDecode /Length 867 >> stream xW=s@+4NLtGAA( VIffh\iݞ\ߓ[eٺR&u):/s>H- -I3$,f#\NvypA~;s3n^6Oby0j8BKvD5wdײ.Ϟ"|wyy:uR\LAo663ήP.o;Vo 4 "l cs rY,KS}i/]ܓ4Se_i+,[75{zՠC@[^ Ab%65\bt-ѥrbU9ϱnI 7&IY-oNl‚RkF5!ϊ.M;Q7 ipQo۾g)_!|I%4t9& ٜ#ϧڎe)z>*'endstream endobj 111 0 obj << /Filter /FlateDecode /Length 829 >> stream xXMo1XE]@^Z%I$M-Yoq! T+̎=fuJFyɚ?-- V?-_C7ehRAՖz޴8!o*[A&UͨkrXeN@ōО ZJ /ZXʸsFwR捐 kgRdb0xtm^AVH VMLʈ)^RSgLyBtWXBZ%Mr 5쬂'qHCY,q x٨rnZD O~_>RsJr*M yh l{=0mQFQkoP2L,mh(5\E "> stream xUMOA Xq|H*m/CBHE$Az&< $$JT{c߳WyPzD=*x^& "ʺ;6Ge[ϣu7s U+v޴ed^tF6iZ5bxѴs!L cֱ5xVl8lưe! 0?>AzͽPDwRt? kTri!`Ч}}t~'Kս6)bm+N^J"~Xۘ}`6!CL!d\TDEuw?"J"-QB1")? &cWqHf. HghExJ(!9&Em[4NRMGҾWfsiBۻE^lJb(;t8DUtIb;LH6+8ܯ/> stream xX TS־1$SB[op-VQ(*(A@&eFfd!:v^VVݗ.oz_',s};2ƪ#XE^3^!"_'nwHfТGuj-×q f2Yx%|W|DP@`3qA}|C}AQoFE;}zll4ioM??"5<,PN+:?-?"ai Z<&geov?k<l6㵙^y 3Y͌aܙfL`1 $Ɠb1S Y,a\2f93Yb^gV1n33 c^bxf83c왗Wd4<ܯ3jbBl`_pVXo0i@\́]akrPcb=~lizI+jm,{퍄eiINvЅk# \Zp>:)16!8Cn&%⤘VA;:%w9rTA fQ[Q&I- Ad~B~P~*򩫚3|Mt+8s)r@,>ByʌuA?p"^(✛~3 hTƦ[p{|zu}jq "WI]4go& <,98[q[={07L/$j@Gd̙yp$Hpo9AתGBf>gp1RMy*j}*?CJnsl@Pū=0<IAI.a:Ⱦ!qc-d,z(ގZnMŽٵׄ3>аqޑ sƽ[ߙvv9Z>ܴ9s0_aa4pX%Z/4=G+2@7|Z5Z<"Vj:zm}呞p?$!y:.'Y=T?)"<P(tKhPݽaX\3gȪ (4k8};t܂t@H~qFxiѤخEsxsl썺fMK,,i5zƎ0X-G`8gHA|iA kcsRaBn~AK}qYvWj5, Y>M՚=łX}rj;K^#3rWvF ]JS!Ԛ!I**#TMcG۽V\ [K® 0"U }i&)s)4a16~6~rӯџyYm 5jb]{hV$>5/.5~%ʃ*V^ }6eitYqb1WYt"kDLHIhfh0@ ehڸ9SPz W>jecE)E-ae3DWuKuՕ5]Υ-x%S&}D忶]rB~x6ڢ6hƷD腻|hدʧãt }P 'wW'Bf^ڽby7WΫ Gsڪ[Z(&g#g{Qԇ)ݓT1Tbo x|Qؠ i{ h@b'"'0nUQ@kbY-|Kqby(wov+* ,5}ʪM>jߘE#{kIHoGjO\| mluSBd[?\p׿^Q"xׯnuAJ;œRʱcp]pݲ\goO=P3bp%(WTYiqU) 2cedG(P;f rOF&nBΨxKgNhMݽ?etveqzM^1$&Vܰ3k1ӮIlB9<-~HA#v}c%1[t@?.5]C\~7qU)n}9xZgPu/,fdgfS +xf3)pVV@dWAiXϥBUzG4 ʠOV RsrsSIu6wѷͮM fҼkUZ!:ȠRܔdG|zIELG`p|Yli1֨|RM3+nwߡ-4yippgiJ n1=ff W4YǩLRl_p/DFJl hѾ";/E>Jm=1-C3)ENW(.xȡUJhI+l$ֵuB#䙀{ .j %i.{Җ)GCƗ:d_`?tQr,N001sx, k d=|''#!䮻\"*b5} VK;@8 w\CCP ;h_g2lnO>*M%8d$.T6"u"G=j90Md4RG[OK^(I +Mؒ)ւwJAki{TJjM!P()kC St1dЎUe R)=R۶qGͳt8=۽3ժރ!1E6q1qs?h:[uCimp4F3Wv^h2̟Oʖ)4 t@IȀؕve""f&9t0o##9$ZŇ @!@2qo!"OW+|; PB7ؘ5.WR35*9!ݝp3` J :etN-CK׹ۊEoҨkşw|=Id~IW_bc+xRăێwoP.{W@=co`sbrxڝ:›8K$xϛq=vG-%zJ5K"N!1Bs\ۮ;l[r)  XJ0qITFSW[;o]][* 5NnIG yك#H?UI_gwOdEG v Mu綾7~ުO| @_(D!_"sqSt {F!4=1N>1qթt6Dt7⶚%RZQ6@rhc:96 $endstream endobj 114 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 833 >> stream x5klSug;=Z;.n P\f̘$8kڝ=u6Zu-Kw:H$F 8BHBDB ^Ձ~1Q`u|y~/C EaeM;MѭEz #+.#V~e3X0䯯ػazC&.U*﬐쵵*VNGP]סGjW:ݲ\ۼqc___T R[uImr@&UzTWV.MTeԪ=N=z6 Kca(1yd-jcf|.dЊhec`͖[蓴:׈vUJη_H`u`D~vSY}V@PC˹] ŋwm;n8wh-tqpK qLLar̩#AKv-jh<)9rLk/\ˢo,~]daw~{ jjӢ`=IZI 8BPwaByD6l Wأ,pSdns/x;רH8t[w=9/ '`Ǣ EA_|ԗa6Xj5G,|anGG{ 8~2#0GtLyWn,hkP p{;A ?|n3> _f?%|7 'Z\1Lh9xRߓB$GOP6-CL?ߤendstream endobj 115 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 5789 >> stream xXyTS׺?9NSA V[g+N:<2$@/ ca  sZoVlZZVws{;AwuZ,B{~߷-(+KBdi(K}`mdo{ @Fv¡h`9XXF%/ 84aiB|"T%a!RO0oPfm߱tY(t՞hbvCMACOrwơm#mD1oM&Vˎe߻;/z.h^W752?qOe_xK!84CH81ndsυ_Ui#rg|d<0 Fpzv$ @ؾM|rHk^_N'qP֛ D0l, ؆dz~vm!85H=@h OKm^݋}$BjqVq hJ5a/ʍaRA}Dd;+GaF4⏫h"~,&RrqHZ~te\&hJxT‘饭o 2yu|k#,%!{[gsb.PL|&sVS%c+F= )m⪌B<]0&voiߴB60$EFC6|LǏ0Z ~&V&'Q$n^kVK qBBq}!(%$ڨ@8xC$G_ ya0]V& !#7#ҷwE􄱰Ѵl+PpnۤǒrP%NùvQ}zDՇڦ۵yY8n2*O+ {E (P![]f6tNMVQ ܜ!3˾Qcz֛;#7 E! jv`t(>^)+ pȯ8/w]RWUSZ^UW7v8=]KڦXX0 r+x0sF^&Wv&aѓxLt~,ĢhQNΩF:BD  *Ko_J*Oڡt&&Wi"+XVVX*LMKhs 벒s!>ěQ}5t#T*zdV8hQ0Jb쨬26` QE"o$BIxr4vO6m=喛PRpUU.0k7ع~rU jUY٫Rmj!7ߏˑ%' W1tFO/X17?=mDu67|VngDߎ ϰP,;v .fn@_|왜J8 M>U`7*]Bnwj&R[քyΌt(>L h)]u `)%>J+./%tqW m[uS] o"\5UqS)Ӓ>*;,@ eST~n<蚪򒺯Sx'z=O:  pr%:uu/0"~ˌ#hau`-Z KlnU bvfY q}Ϡd(!>!ČBD23D dތB13*K8:?CvUm6bo >C=tVؓ&QBvKwPRu0EqH{BQ`iҍ{q䜱xQ5s&1dOkEP*RU(*azppkh>9ګ| Ve=OrԪl`Cv%j2aƿ9/5\ܳ-l-|%\Y+f w yGzq Z=@x,*&j"Q$(KѤ%+)J#U'i9WD]*v8x)AY OBjO3n쉦ih9Z&ȝ$'< RA{@;_e?Zy6 }d6/>A;;Ţc .q> zntKz±і(HjH^ (k4PCd?\5?OdVv].W,qooxt5 ѴE4#JX ^->-~gutܮɂD$R:$`{yGæ2"ˮ =AY` \9}_է5!Ҵ*=X{ԅK#di5g"./o! ^v,f\[}_;} }sܳ8o:r3T*)Re:cӌsN- w&]cDOSRk|uy4ۗ8.­?jR奀op5OjM~6j1B~ YE7N&;JRC- (1v;=HcaYE h)u  C  p^ 8F~^B`^ fY(p?ezhx}E-HBVV37GnX\ ZUms SXVة4iY d\sU3PE"VKe<$BtB~/g'ruFg? F &K $, tn&ST?fv[6\eݫw=T 6Y40i~m*0y[E- ?-w{[7\vXrg.NeIU5q%x( BM ZGdkW`:nL|< _LV6Qp*3n!Ay|T*@ȅ=K&\Z6bk*CCBC+jk++k )n;š;(玀߅nCߺ\ .8bԠiXزp׵R5 n1`a!Wx _es .@,Εزya!p_!l !` 蚍m$ P{04ng3 PN:Y<ɑ 2O?U? ?hGE~rnW~7ڞx<MK4 qNs{$t`EOx%-UU)JP)N7ёΟlio2ia ZLlhZHǾ)s/N| / j /0WHn8;. 1r} W;6rF꘤\!TJU>F#eC &ݼb#[Nl3sp#0AŝGI"ǫ ;#[I0Uz{p^}q] ax$"Ģr,}yO4W,D=+w[N ߱k 䂼(~ ceW`+mUq~!.ni^nZ5X\.6,L/c"x7Rmq‚.($ia i#!ɛcp4L錊۾(9TBb>!iCUmp'ލuK?%ůZ߸u.~/MsI<~nڸj[]H/ׇ8~+_!_$;>;̌d51![g-4Sn?֔ՏCZ:D1n6ksm9%ƨ"i|Hӻ)߆Ha>cvĺvK>wQQendstream endobj 116 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 5775 >> stream xYiXS>1xP|=J*8yN((3$$ ;caCTZm8UQ[;\گ>6}o'A}?~׻w-}<gɺ-kne 7ǍýOGD ^a_eǰsq!Ca`xp2K"O5kDGb#ׅDŇ_#bR2_8{ (z)1DiQ˅ )%Ԕ(:ad( ŋvw&.MZ&Z*-=1L !{apb/1/GhB@!^"b ~yW,s/;o''鷛P>||ꀆ쁏_hxow 8D1=lۆ߈y#2G3ͧʑG^:F~A~~!cDŽ0fW:yKZcW%'@29t}Iq8(leS7%!{WNHq"8,uiLq,zG[ZO5PC$:i"?u(qA7\_y¡;N"$ a##po ]7 0@/&ʹY<Z;]iN0܅3@.HPhsJ '(t~#x5nz|7!alQ!U(-ED_@ $QO:!rAN8x`u>g4;$4 DC/V~ Ap `+9nWw?~{Ix0,o rv)GK Ӓ8(m])I쉿uġ52YwnK89dw&QKB p /þ ooMHb% nE0U q4IG7 b^7){O gwKp^pUa$/n;OgU W*%l⚍[W]a; G|u&ȧD6UYT/U40FpIu"f}Y1jWtxwcɣ@g*>/3wʬ&kĢ|FLz muC/c_?&U U6y@ʵ kU09:y06p4JAaj/u]!MVD>FmC= lt]?ʋ=%{ u[͠j1Ny;f=!= ( Cwޔ1*<M|&G(,Ppy;p,8 iygbpm<ɯuqb͗G-@o.8j/: T2%E)VwpTB\z8s=Y@!K/kj&{ s/H$Sgat~/ /rNHr"#YTHy*gG KB }ViOTfDjm55M[>o=ozcHV@OaO0x݃+]T6"e3HYZDn {"p/pi'/1UUj`mz79sb=KC $P8UnH@)Z8wc#QC\qOnҥׂ`-Yw "(] rAzɜvPjrgu'Sx!`^Mb+j7gjLPk(Viҵ*v4Zsaˣw;Le jp;DL/he:;:=)g^ ތ;zjC lp3Y!ʭ-vPn|"h}Gku4]ד-HIS8,I{|grh2N1OPcaeE'ot٘*?9= ]20X錾3Dq lI7JYHJpYX9xvٺDP^:u+A hzJ;uAULd,dT:!+VIx*>yEnr&%*,u/fB %NbNZ[JO\ѪihnN]xdc<)\RRꩺt͠dS)rNl MY_Q`oGܼ\Ak`9r en jFFZқ!7pT |KDӳ4m~uϝcZ5SN&22SIo{3_߮ZʏJf-[#p)]5Wj^H59;8N8"6$%/jz\. Б?uD&qWHbdp0#7` {B71["_w>Hpo.]UgIwgjc?et]Wۀz HV[ZyӻyyiJmCX+0|E km,{2A{W l 2;ᢏ>脡<7tN,U U,>{TW52Id3fhnN Ϗ&biS'G[*6#Er$L.Բkg8M02 '̥ ]iz6='lh?ZY~mM@=|}5"}64*#Ug3,j1;{a]Z[n#V:zO6nJd*EYUal0ʨbP7LeR$[A4yƑnm%5 s{5ڹ;Ψ+z<גpHQ8m›u41ѮL媌u5jRC9p|D_NA_Ŷx'æFc {p |jsOJAv~xpO2O r5/z]< +]΢Q,qQា4(}[owWT&W`)#D;QT@B`9O9 ˿@`/t֗6?Qݮe+Sá6 A UmPHsL?V+j%,Ϫ*20&|:kFА^y1k3 G^ Gíp=zU׿@{M&u %8NX[dT]ׂqɞ( h:MUE8afR2[*c[q@e+SPduA:p-G+.?WNrg"/ORȔ*F, ]D)֦i@<%+ȲkifwLR grѣj=.>7!_o=عzQuVMDiVړ_Z8DŲ< s!Y*AA(r!N h$%.U`)"٘UFmӬ}a@ 4$4m"Jp"!sCBn*U#Ld%Zد?4XH*Vm~Κe;Zju.1p&fo$O@qdo}!(W')S*!w/fy\ GmC)驕9R'7F ,P\6]R`)TMfY2OaP7 ϐ)d@fܤQoy?Te2Pab)fח]ϸ>y+mrv,?8 4:|HY,~s$+2+2 9)Czr>endstream endobj 117 0 obj << /Filter /FlateDecode /Length 1250 >> stream xVn6Ϣߠ%Uddm@"6ɢu8)گ﹤F\( Wsj$ Oo+n!Jm_7kXX>颌Y/!Gyx뻨mYZ.RʓشKW| $F9QK5vI_v:mx4 )&0c# ГQB(߮q\L#Y i,slz"VX%8=+S䥛s LJM ު(v7%T:tJ:R9&})RjM}`>)6DAԛN9э5u1v$u̝=w]Ӧ v iT$%E/tu%ˈ_5z\rh8?#S|[7.Ƕ`ת2nTX=uWeeߖ,p7=w9!܎-0)jTxۂՑ{ vq]76{7 x-|6cO[rLF\֦DqwH->XIuzsy R8>xT4`QypxA_Z7C\ŋLL9"穋gL猉ibD&f Y%w:}+r - +/ q=kP9;+Y̪uϫ%xBi85ccqK8YZJvd6[0QJμ0U}U51Bm s2?.E4{ V&YdAZO)VvcRS0qFWҢp.|qCfc6`I.0&) &*Z2U]Yc^V#EGӂL?Pϭ%~ܞNN<9>Fpw݄Asy4Цb %|>!oh?B~HՉu.}>$ +].% v.5'@ x<) aӻa,h>^^}-=j\*"yb_7Gol 'ϰzZ~endstream endobj 118 0 obj << /Filter /FlateDecode /Length 494 >> stream xSr@ ,Bp eFIvRhEv<lRE .pXZ E.мBݟlͩrl왠wT[m5(?4@]Ӱ JWa D ?> stream x}Vit![LV Ec(eI9%P7)pB`l K^%ےY̼]ɒlK"pl&@;$M’BҞtM\~tds#{yڟN4)ľt6j EH%2usYRUT|u7nXڵ3(+UK3wk|);RjOdk֬YZ]VYU5*mq>eZYT'_̜)t2MN]V,%bQiYy*&xHS^M/{K~KLdψ-Vb "4) 50 cz(uT3MMTxMm=z*)Q@fsnͻo\hmSr?{o*U\ v)w%nKfFw-wyOG = jusQ%<[' Yt6_!u ]벷 n=2.abC-y[Ȥڅm I'rG51[4@ꬡ`ଳ"?vnm;r A]|/<շVobw04˱FɧPw6biS[=(\7yv],*6yd  Tӧ >%bqZ*#%z+o} W>m(Kj׶{ҾDO.ލyY)oxX4:TG;戡}ZEm-r+~2<Ѹئ-kjE)Hz>>/!{EcIOy_KֿKQbJ*3iJJ{ `\}0\jg k`!OͫLxG RE^Sk$|ץ"6ƉTzpB> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKXX" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( lnGP )=P ]E%Nɷ~Nw9϶+캎O6{tw5EU(@QEQEQLHFHʟQFG""OkeYW䍜@UIިCec߃]5dCeRH5jj+Cec߃@Kw?nHl玥7ZPO$6_R]/ֵTҶ_ًvܘalg>5BnOHl玥7G$6_R]ZWFMؑ_l?Rh5"Tr35]d_m?!: Kw?nźUYzG$Yk'b :qPEKb$6_R]/ֵ2!: Kw?n º֡|ϳjsAz<QroA\/ ԿWsZ#VW[5itw3PY@-*[+֎,oAG!HEX/?)蔩UY{UW[gdF# N_FoX/ofwõtFEPP_cp֊F%= \2!oa~R{ nrח~eD ֚"#y-02G~,բ|86Ba 1GLGn=#k NQrn~/2s]g2ϥ ?fr@H}KFtc 2O7o4c>_~uOӐ$mPb8A8g9ϡ~ Tw8PА1]SK v"y*KN_RƍtN.01YfXo`e#eջ$켵 Z8`G˜1]۰%Ġ~;\USKջX2[ E++=ɆYUgo94)f)̉/ +G wf'XiAœ,TBre֞\m-éX.ez[+S~_;2evK Ҁ[$I 5U.4`fYm!yW>vsP_Azdk)Srw3gx{Kn"L34?g"Cն N?F+fmzGdm>Qy ڌ= IܷU4ہqj>YQ>[K=J3{պJOYLu>6VӼK Jc>ERWg\:1%wg/Fv>n4h_@~6cb7cLvh"eBA>=+𞻤`h֟ږ?i$?hM(۷9xt{hyG-qK2IlM͟άVWŸ)>ar}OVR*B,$m>hc}۳d=ڭI}w>Cz >W)[,ʪAnv3ViEA|epcc~tjOErW][Na栅'X7卬>| vy3Gٷ|%X|F?uOE]`k_FW51<-3Fh"eBA>=+ҴۘΓ\}@aypn~vWY 0^]}#ʑۨWQCx R{1j*:E$d2Xptݝc8E2MZl.K,/R=!EKإ&V6Z,JZfx3t^4k4O TbЎAmHgҬa9Y#Ea fjs:ލmiko4r3ȼF9Vr*ǎ$up )j搖P:隱_C_Sg95 y=MLq,{OtaU'_ ΫJRqciIO. F׀>\U[k u(; #~_lQ"qK[c%̝̌>tT^&FF0$mlΌ}ֲhߠTkmOQ${2x?Ġ?ϵXe-lavKv1=~URw<`P#;j/,1!\8?0q^ E'?C]*QW}暿̭/mW6- A&pHz? 6i%'NKNQnl[n\pƃ.JGMtf}ļl$ I9Ҫq^voӲw]8mykVoKv.VeךNz*`KtbG=8؊D$'Y#u !A+@xuWх}zx3| עKLش,żvkQr^^}|ך;T'Ŀ:֬:Ҙ눳Z((/VԲHB Y2j:Eo.ckĥݜ`-A#?7L[0ymU3'+$vȬ> зѬ{VU N ;_/٘RQ"m͜1t" 2WjysjжnFN3ܼ$ַO-b2|wЈr6؃_ҽhۺꝟc.ZvOB-?Oo'uK[R"u1+),|M[ޫH0Eѷ'^ҙ[Iq6ǞfFRE~UQikvӵEX6,2~Iut7Mײk4Q8}ɧ,͜EmVFTt_z\F-Khuqi-2G+sڵZEwm dFR2pԧh?ϪWtv/?)nKk@9?*Ӯ4i/@F6cbc\;|n0O =W{%kkKHRf]'U'VV.kO1b?\{-NxRXYȊea%Bi b,G`g?.[[:jw(E:: ~5=/aF=x56jfIcro]\G? H]#EHYs*z;ď89׮|K.rWb{bnw%3_ETT$Tp>%Pϸn1ںl}NYzg\T:|1yQFu,Q\$wA1 c+x Mr牭~L7˰$X1w޹%Eb[˙'O4}So+!"'>MyƜU?RХJZG `׽q:;RA+ۏ5){lZzk#Ęx_][w紏[xs1lX_Ǖ;(T=,PMѭ\<']Y[hتڝfB[wy(+.gF#@ 檑].jOX |ҽkd{+*L3#6_Ŭ9Z>G?bיTθzN=d?uWF?ZKW<'5~~O~6s1_5fN]:j*+#ReN@R#aI.r7 A Wq5-ͦ-nf2Rێ3lsElQEQE2h'dY"J8`x 3C"Mndѕa=q>)m&bгwzs3ONKĢ='QMo iѸg#s:WLu˳c2yR{K|;yo3!_CՇ :1:Ҙ'ТtwfKKb?oÖRjvkxom<ؕEc x=qⰫ5#'?C+aEPEPY>%t?g1֜Grx.~RdPs+L0PWlC3jR{?NJSǵe{kDLs%X\EAWeܦ* mn'U|/{ qcq%%R^LJA2x⼬2Zn>X􋎖ktb鶱[Ā-y$#'2sW{gg7z?#~+ >Ñ4m~ZZ־휵U,>,HQGvEʍП^*FGCCP 0(\0a[lKK=W}:5Q)vF%!d#NVr>IjwUIfJi!,A2@=3w9(9jߛR Hw#.A3]j=n 23ߚ>FPK u\3TTS:yǩ-֨ÑRE̫_b&+o]!'k8N@F|%F6o#rLY<#ߌNJlCHw "ç6N15AÑ}-\D $u#8S;VM~:zܮ/K_C_SP_#Q<3oվie'UgO&7.ۏ3zv^3UlbV<55A;XOFY"c\?9ij*G6{RDž1|a$ ߪF=x56jfIcro]\Gշ H]#öHYs*z'WvYjuwL!ӚVF:u^}K丸[@k SC!^ckB D6*JC43\ȣMn%r#}pw_+մـ<FeRqiGb%FdO?5I韧lZ۰vE C3ֲo{v9M]*R#jh[E4DGqV>oJWF95Q"M߉HTS}jÌ 1zG\huZF'ƹ[g _]ƭ 'j3!uJ kA# 1U ˤ1jg=OᱏiZ1#ݦc٭U[W3? ȫ׌-k:ݱkO hOE]`k_`㊯.~ӛjEa;$V]Df,K}8ǩX Xt9 $YX#{2c3mT7|ڤ24:$2@%O#0ErZݶlڎrуp`H$U)I tK<:jY$_C_Sakk:+Ǎ&W gF=}*ܠؙDZׇGbNf<7C߅9\Mqgט<#;@EunNNp6mukk?tpF>&x[iPkz\}OX^XbA*Gz[j@n3&"0<x8#Se*MtݴIn.+«eb0P9_?.VIIivB cG_jTIFM{.MΜdX<,X$7qE`yi 풕gv8vI$/#*(X )].y殥8ΤiUo5gԛ^LPف![qBLTP=VْF# OMߣ]~ubOȳ[NƂHȣ vi w@;"xV^"G{3PɄ-whAjt ?_Bx7x6/=:_B QZRC$"_Lx#[vq"s،px=EAK[X]eQ,9YvWK~R}s ޣoo U_7}w^[[^hEqye 13kxATtM IZ{M(DrWf8>qүxAK%)-nեkשM4j(MOd02;8N@ɑ$h*}FAb[-Q.^0w  6 9a8VOYLu43qF(Oa\淮Zj3֛cz ݭk򓄂{9w GB1F*o>!x]"Lcs` :Զ-!dI?~tt%YLk?a_+\Or?4>DGj7lA*11? 8mDiwS,{("ࠏR3ӏ:LҴMQau)SL#nmI| j)?k 7ē^=:hd[ \w#lǵfnOM|JFz7Dj$i?]mO ѵk]t[伺 FW;u#̐.(sӤsF sL o@DiI uvZb$''ҷUKS-nn`I$< ΒqI?UݍUff16̜U˃HvZ BOV'tfum"g{l(p2Eh$e|?J$(ag$?U'Y NK;@ep^<ʷԓ>+n2C.9,#>uFnO>e&ד$w6wF,<i\H?ʛdGt n}+6Ě+GJiuZwnZ5K JcO'K JcGS\'^\{U*:t97xֵO" 5ϛ}} 1gbn=خs]"65H`K[ O5Ц̵VOa ssڷh}n}ihL$N#D̤P S2 ErZݶlڎrуp`H$U)I tK<:jY$|KWCns>!kE/,g-p͉PsW .[d׽SJYqnC/8_pޯ6[/.+m%F?\7ƣt7s)[Õ茍Q،LzNkv1>ڼ?̇߱ռ9ga=O[Ԡ`)1#k'q&=A>^ߗsU͌{VhƜm#|wo֬ii7 sZeێj}g;y[GV7$wDADɻz,T|^3{PfS~oz-p޵ÑҹR.)vp1_帵Z |TUg!{ \\ڛ&'TdlI<łQB9c 5uዋ_IͥÈ?2ۂ0:uF&yGm߳s(^. H.|=vdn}ފ:P_cp֊F%= Rz[^]g֮i<7Zh"䷒7P=(_C_SX- }l,,>^u5_Ŀ:֧8ItWV8{ ?ٗ/!aid$b\z=OC[&eMۇq6[^ho7ß6?Kwk[H P3wu8ê?h7ũEwsLhۅ@8xM]mKdpaӟoO,1\ƻqL6Ĉ>Զ j ()a^գk}lϫsZ7ߏU]4* rq+vHE'+YTғk?٭p>alt ^kT}2;UHV08E=V]6eV#>]mo+H\vy:(nDc4%Àd) P3UN}ҹ>G49 %ʴdE8"^S$O6\i/AI)F'Q-n)id^[V' Ksg>G;Nsd#vyyy$$~5/L!_ZΥ%+q唑b@?1Z ⷾ(pIL? G6֖W_1ǾX^ܠv<>)lEc:ҘZ|K Jc8Mj( ( i=ȍJzn̶=u;HDQ$o%H9B|K Jcj/?)!Mủs<fFU,b=92T92JYylsX$lW`βw&* BGS__Jpʟ4yY6⦺k~Lޗ"eHބd# ~1j;K44X ZS`Ubk3,\u9t?_Jz-e's[rWt?MhpXu$GQխuk: nN]sb%JUK?5M@Z[OeiC.Zc=p޽+@(0$#>\nŸm( jW?,!_ߩϗE+%$dA\Ot^%t?g1 5C99y:n7 >_~͋7}jnEd0m=29 7?4?_ O?|1Fyߦ}WM\M]X&xs3\yڹ :`GTRx7t٫5ҝmG]W i=ȍJzz[^]g֮i<7Zh"䷒7P=(|N#QRB>nƽwoLT_&*t>oAK+vZU]\Bv1۽|'P{Txos(I^\17/1}iT(cm_aŧIb҆*qGn"޹oNeBkScz3W4c!bcn/ݚ9'U 4F-Q|ƮkF]#ы_o5#ݦdzԡ5hOt~WF?Zc.3UxOE]`k_!Z6M9pq*ѭE2Yc'WXE,@IACoo;L^rwB*NrEQ_ϙۦߍP( d,1<)bK@9'sO9oY8[ ^.#< 5VOYLu@:iW~FH:¤g{T6ȒI&HF>ޣrKڶ+._sc5?h__HZ7m`8+^#oEŠ((M"!}5kz͵ݭ1|֘2Oq|K Jc j5x`_&Dd8*6r0~Vn- )e `X*zFr_άff!6*YN2$ᗧ+{fXyE9AA),EeU'oY vhı`r8-:z>=;JdkjjrÞ}3}>9m?.h[IJ7jv;D1cQՏqav%'Q֛jגtȉ-Ï-[ ^46'yhOKƫYj7fN۫`Nqipj=RYd׺E38SDqn]U?ڻx_wV&چŵUegަ/wn~p.#Q;TiY c8y!̣bn83# WW_בZoKm~oX%Mˁ-KΖ/$0<O{؊cWMG*#S[y6@~Cפ*Fx4}_*V6Ӿ%F,nKEΛvn#>]y1TR*8rO-M[QTu) X"@Cj)o 4Μ*J._#KPj3#XdܷkD`mzW-+vdX^~eNk<1;kyf/fc cSW h.61譎S:X5OB~u/a+[; VIEwu d#7C43qF(Oa\ߙm{jvu*HKy+ us߫d7=wH9lq\#3bT'1n"FFxzd/ܟjo/-7ֻ'ty7v"f )WϛsZnRGڹByNgiݨ-$|u/J6=n[_?#%6T۷};H*"2G޹5 eGWE5M9%jר^L[~ ?7ݙ?V8?Wl]_k^.FO֞&s72+Ω>{7:PZȿ<ָkw7>[2?A\q)xW]+VRc_.F\~?RZ3r[jTGAz~~>KYXA? 5ϛ}} 1gbn=د=_Q|zUѿ ALtaViJ]A :zi\T{y"޸qr899Ew9Ȭ.SHkoL"yx;; cj+!!A$$Zol結lTk}Jw:k3FfsZ5.]^[Mo1Kk3k>f2"E=7(Pr0ϯ5 On^kG6#I#*2GdgqZBkV׳[jR@]lADB)TMUwfR։-0Q ($OC]= 0$ m<}jCpLδqpHY#)2n\>9ҩ~Av)vf'!xjNg"TSZ=V9mB_kimfIUryvY&FN^Y!,p9sQ]iIJMr<Q[cx铜pj坲YkbFnʵH6]Zqc7Z\~|inY9#$gH7xr=Nn*PIp3z6^ۚ"ܖvI&S$ _C_SE^HESv/%Dl֢+aEPHrIm{H`lgqܣ3}9W{g='b.]^[Mo1Kk3k>f2 [\"c/2& G;T"Mb+`˸g{֔+ΐiq-4vɲ)h;yS[SY؅l>DH7$Uqx5KI=?엱D>`t^+gQN7(˛tT+xHSozksb޲ F"~֕֊Yf Ҭٍ+K1Y%8oOL Fo#Jzl+{-7l(UQ`N^ jPZoĆ Y0T9oh6W2Yrs3,k}O崓aɕT]g׏֡4-B4l3<օJpMܢtԟKk;D/b۸>ư/V:$\ ve ܾsӚhiwṰm-9tm(V *Wї6?f$cٱyc8Z0 bxc$D7\=,F㿵 wH/%q/, ?Whu+)zW[l1F7lzdPQP_X%hDǢ8?'Փ\p\@֭g(0Hq|a>^tic'gXK;P9$¨G3;DGJ^^/|c1]6Κ˨C2yow]P$'SsR[u2oIᇡJ% LYln%ݤ!,RVT°,umgڊo|o޸mMa {yaz&;<wry1uUucqrXA SIRò^BeH$/ֺ(Pjor3+|2U) A{V <ڵΤa 8fy!򮚘"J҄Q+(Vp9 dO 3?ڗ .YmK?rf}VRi2ڗ .gZ5ݩ[ ouÈqzS"8TH$OԒI4( ( n S":#+%h{"1@R yK*~n^ BխU&eoFB e! jEs:frLkCNmS M,ǟZz{j_4㕦GHȊ#nr pO G綥K9Y4˫I)$o;N㩮 QE ,qFQ`(a@YmK?rCejwV:MFwk$Q]52h'dY"J8`x 3?ڗ .YmK?rgSI+IRi!TZYmK?r(hYmHS2= BiԿis+> mZR0iw3Et(iUm@c2}N@)kT6YZkn!55;T AIyi % r90 pjz)/m{v1ûo\HbAҖ* ,nC܈ħ|p?:OT59Kk˿2"MDTW#WEB*jmc-^mޛ x÷uq=RHieNc QE ,qFQ`(aN3~,sCGM9M=JhH]BAuҙ4Q2,H]d0<GqUj?dt?H_[\7.*){I3Wܿu6Q um&cȬ9nj+ 9*o.Ybe *+`0 =>W*sK ?.o.^ ЭtⵕR}oD2>»Zc:+4m *pFG#M֧?c?st^,7]-{Za7DI+i..9;C+cʩҮ 6wis7Su?F+dr/@Ħ&9!ynۏ9Ja3*QLU@>Ic0Oh[q8 ٴ qIڠ` z aER(((D7sZVSܣE)LțpN:jήp\K-wRc66`9jӺhg8tc B3n4; HF9G' :_0hsYM3R\~>5&j7݀ܤjU T`TWv4v\B&9P:tCskI'^8 yz`6[ <n .̉4GD'*Ĝ=ϦN3RhRt!T+;G#N=2jK;;kD6vDvB?AOC#K,#meVA294ǵnൖd $@1O<1\BKkeaAM((R088{ @dxJk[q$J,  v`W/IHq#Hyh6ьSN 0 ACHpjA4)hs VbV۸O'<⨼.ӬnLIƝX~lJڷb+kKxcƑĪ }-ZnemyQާM@\ΏO';J5o/߲[.?f:cv3G@dJnܹb  \S{45]VgSD֫ja%*dn^vJS"r@>d^͝Q\:ax ;-QEQEQEW3*8&[S I)Us$[rl tVCq52O|0Z /5obN˝:9#$`D$>tc>j,M899uhScD55TDUT`:)QEQEQEQEQEڴR{DҖTp1A_/ڦygo388/2O+v2c q zӾkwh~`njO%ʌkeQD0J_l[$gmWIUbӬY+;xIJ \,J79 xt$-'M3j?hJC5A}Nqm[VG1HUHppO>X]QC70:d] 駪<1W +xLmqNg*>NH҃1wcm:c)8'r{Z9_`6S1wd_#l+aO\qD)"<|RynӮ?'ϱϰTV86dhjEP̿ٷ9_Cl~*%򼿷?d{t냽x>֋06UV ۙgTN"N |'<x(*f>wFӮ>f\G[#Qg +L]6:Ӯ>WlaO;z|Uncl+0ˁ=hjēZ\^oS̓vp6'?18)Slj+DP2*d͹8$lp#EV$^+e{eY.Gڶ,SfU1@1QKz}-Gq7)i7ECis7VY#lH8<55 ( (/tkEr#c7d4R̶=u;HDQ$o%H9XAET5+]"K|hH E`f* M\h_'?$ 7I o5tu4W/ o2zjo"cW_.?`kf(5w:z+ 7Rf(5h[/$ 7G,_ Io&GSEr|/A34MsW? oXiQ/4,qbpJ㩤%sΖԼgiW^޴wz yBЊشw 񬑶ܤdz٭IQED'2NeHE>$R_\$rp8o8{;;VP-;DGJ$^{o5?5+=+rO~G=wk "'yԩjN;%hɼ톃u&I3>BI#U费3b{»m?N hfBW= >b[GI+s/2xOL23Ҳ%aku;wep $2t5ӄ#^7M~&N娬i067O[?c:ޫKl%zתЅeE4ԲRsQꮎ4RJ堭/ ϣ1k6/#>_Ůj×K-TS*ZOǿD]߄o ʾ>y3Gٷ|Sw!˅tTW/,p;A(* =_\ψ/t 3;p\ʸnyv:+=b%mʼn@% c'n1ս@ Hbq*Tf]ČVN "O%yysؑߑڶh|^b&gˇvyMw1|[U)m#-G?R)wyi&~^/`qӎft?xt>Ugڒ+q{DAK}S(0uq]\̺"`ap㏟<{u$zcg;C.vF54mOo~_9|1۩gP)IN[7m6ltt۟yO!}7Ӄ eq)6!iѰ88ooְw{ʮ~uщ 3f2Qe8m1ux􀺹MA؝<//vNG=9vPjM+߁o&^oUⓚȕFob֮jEhv'tqT4|TǍ546?~_082]\.rMm # '~fW1b˦1i<_?F_yuogBoe&<Րy_76B~[3/YgN[;4wm$G|?y׊N÷Va'(Q|nZi^}̚L6ΧjS&s}q|Fޣh\ɡnZt|7Q1~igJkF9x~R>ͅ?p1>a9]_ܟ<7vh/GٰN1 3wQCYA?۾NgKQMd2O|?)|ކ_n`2 ͺ\fN3}5vzV~8tԮ70r{=8;/]g' e<.-6ɷۙ 8v.qcx7xU?c]M%ck mHhp#?01|g?ysR~WF?Zֵs>m4ko*$f{] Eʅ}azRnǘKEr> VskOH / `QrO*㞵j=b%mʼn@% c'n1ަJ86I{ 3"E 1,բ|86Ba 1GLG!:E/`-En˙P3אo:ԯzqWd›_Y@SKXzUHp@U}{z՘lrs֊Rx9W'gh%ixcFmыYF-sb/F57xU?cT7xּq~q-#1w=fFϲA~>QmǾq5${xrh>5Eʅ}azW9s i1}&D N$9[]X}I~[qbnP }=gی{P_B6WE)IcdYT$`§/y,n\4l"c[Γks)9ӭ6Y-< `F>V ?(cddsH0bE,p=arwk%ٴfu wymo͜@zӨ' Y| ƿP̀חE9^3DCjW騍nU=:}LJo~G2|3죞Oz,EP@9#ڪYJJĊvP+B#1 ex_5NWx^-2 뇴Wzĸ ؑ:׮'/Ϡ|Ϯ_1Jj|*7q[y;伌A(MT_0rzV6q1 `Zso1^Z5y>S8RHxU&B%ֲ=:H_ʾޕV|k828cP5k60y?)V Fa `A^Qf*bFj gsԍG ]&%ix_F}ыYF-rV wX|F?uOE]`k\=d?uWF?ZzWf_>l53TY 0^]}#ʑۨVyT:E$d2Xptݝc8ZQ@_B6WE)IcdYT$`¹ir :eسl1cb c6AOO~cpauYݬfyD/5ޥŴ+6rGN[&a`QKXz>ÚACyc y{kӧDSIeQlUIHذWRUn#G kp24Xu"4-vZڿd率xao|9VQP>aJVKtp90:z ֳ;{~UF @A½EH_O9y_3|EĖ+#\]:$I(qozȚ_u t~~O'AZqp*!VfOⳗ=$O:+6^~+b@s = k> gsn60]pzs~=5. ^0F&{ZaVŠl~?m.dt*ZE2Zfqy(F99>H/2|GwPj2m7b|8<˨u_6-F#3-w?f&O=F: yۏ#^|ٺ?7'y`1JPk7zbG$^ecHC&7q:0CE|;}VlÁ':0hWV݁П9/7S$p8ϩ$tG|-|*fxMTKvV > o )3:я\|0Ve{mn=̌EK`:qĚ>gF?UfQʧɈO[?toEjk+*Z֭#>4h$`9uS3Hm(Fy8d;~to3mo6˃(X v2K'lunu Ч!;ڨ#/o햛|~2 ǧzqS斫nl.-*|G$fuv׮3on.bV69-B&-y8( Bֲ^YV+o4O( FTqێG},C?U?G.Wn)n>x4 +ea(#̸!q3)##i$P9 _w JXYE;!-R3S={s@p1OJΤ7:vL ?AK?3hZ^3:яwWF?Z%xY8Dc E]oUѿy^U٣O EvLEwikwI2G &7go;}_n;]r̚o|%%L RuO(_&qT("9qO Ҭ68bkؓTtbqOk4w+ bwRTdg֨L};0Z21kx̧uu$Q?<~coJjb5̗">N_B'VN*2LroU͙3ZĿ4&3J9eM82]gҲgҾ S6g3/ ͣ1jW1#6_ũ$>fzA GicA߿bsSU[W3? ȫ׌-kMV!yѹ<9%*8HY`? ";+ dg)sx! PNp8EtGX_vQ,Y9$~G5_bL5-ͦ-nf2Rێ3ls["]7c{ߞ~յLAECxIi:[H#a\߭IHVG򂬂C',9-|^":(E]鰾Dy@99yYc5,@{ Aiw0a]]5 ]).Egd4=ms&ju};ʶljw!7N˓u瞃Ryuֶ7,$G:9c{~ӵ7eU/Et%0>~t Kہ<>?tc>ie0ۂqgs։fw>λNy=xⲨԡ%n<*ɟrX ^U8-mZNON{Z*y &vSP2gWf/-(VRʳ͚bsny,"|mz\Zc9>)_"||]Orƕ>Q=100}ޜ}qfԸ>Y{YBQy:@Lia['op8aß۷LX64knq񑷜sn%SanY1tjO':ykޑcbd6޾6>W'xmwOGzg% ia<0m*ɷ//Y7Iʀx7g63 kg5__ mlᙊ}Ӓv=j?"mPouY8iN|'5~~O~6s1] g)QF2{'w VwUѿygHe$Y\B13VƵ!Źŷ-_JS~6qwujGd;kXŜIo||gpx#DCIo ǖ2=03_fT7uڪJǂƐ"j+5 #RgXG=)cvs 0P//D^UƆ"Vo1ɑcjd(8V"e:A,;ē vHr=zjr]C;$oW3@%dW9|H'džlk'CyO5$$$+B58;rA]Jf3Z-ԬoiQH<ޭqйxaƠ#@Lnj*xO_?=hv"FcCrrr$4M8F9]$ p{לU7~Z@ZiHè$#ɤY堈-v4p Tl11\Mj%J\k[~M* -nlLo1 =3[&դʡqqg7!dfk`z*͞*+-0{qm.B0QX6pq60[kO;avsH+xZK6c4$WKtmߐ} QEaxbXͼ!#Ԃ%\⮤wS1B5BV7 nlϸxl0ݗ?R~#O۪g~}{}T38+V~u,ͨ#>Ht[H(F |#`NsߦzM2`Ae.2_'j6fMѸ:ķr5P/8'j'z֎&rFsv]z/T24=dmn :d`}&hی8]w` 뀲#܂Jȿs3mˣ}qpj{=|S [ G=GZ?AF3tsOŬ1Pq4=Y3\= xj#FԱO Bo߱Fݹs)֪xjUѿ /4wԟ4"73}G$G 1܁X3Gea2l]۬.o!A Ȯ+ "%+1g$[6=Ho I!Źŷ-_JS~6qwuhà7ȗi"Aw8sߵmT:X5OB~t F )59Kk˿2"MDTW#WE>%ș?9+Fv;q6Z"V?5+FYG,Kw_IsO͟aZk5Gc4?3^:} y7s3_Ͼ4Qr0sv>7vc#k[ȷ:o nZT{zpWHTұrM`;8S[z,$4g'z$O4|}kջgf >s'cջWkE!fD40хgyƦ*a"ӗAtĖ*Νֲ|qҜYO_M|*-sQ&NqjQX׊A9|8j+j;箔 jF-,Ҧ>$ZJT%bdzcX??7xֲUkO kxOE]`k_B%jͩ朣֢fڈ9$@ɪ2kqhbpѡ_1]>K( ɉ&p>v wNs+SGK N7 hDlbSо8svח~eD ֚"#y-02G~/"l׶:+# Vbjf6Dyx=iMͽ>kp@/NGcдT.Gjq֥̾v v{S݋6K!p )|f}zi]wo?L1㳝N#QMڥҀG9NG'.Z̷mF@bȹ8AAWƖǝnxn|\}雾yٲ-q{ 5.i+?w:]D2@秠l"q+# *T6061q-aQ}?O~q'tJ2~8r49!soojtH!>cc:{VTW2W1nϜ{n i%K|Y~~G_ZVӺ߻­'mS o_ہ}6_q[LFOE6s6?] 6]|^'%/zUinqw:8 1sz=r 'AKEfIţy£F~sǯ 6}iEPA#KL|n;g8ZE/'`En˙P3^5I,!\ `^/_J1m$\Q;ܔFt& ) R+pcntz7HA,K0Мw.p{c<+#03'"I@?ҺUnpZ#jT#g9G[F!?bb9#ZQ}菥dvzCN2= ǚ ڥ_q`OelUa$QǺe r6N Q{]zƗ ŌVT. i0Ta0`"B<Q{x:7+2Ij4-3&FIn^hATc񝎧*8`:V~6g«[$L^3RY`GX˷$v#|C?($N K{3_Sne#Q=Ln27u;XYΒNylY!wʡJ s1tݕ3ExdUݹ9I>&vmoMs (sa.x U_ psƭH]?G[box{SYIOݳύ݌ t0}OHRPrA5MQΙ`\c  %'b)gc07Z_q*F6ۅܕ$Nr |DΌYXAWWuj֗ F 73BxX̧$3Gw<G̈8< ?#}ѧ/W?.Gv?Z6;} {~jơ99xtn&7^[?n&*XyGzg۶5sI ȫ׌-k%[ַ_iַUѿ \K7SrcZ;Xij }O@&ɮţy£F~sǯ vtVia|_~ιsvx4 N!eYJ*lFG)mcqmoz Vi10qO0rq*F+F=x56jfIcro]\G Is18JZ`Y$$g޹$fc6;L( ])*=e(mOcՠ[jH>B9keyK.2q>[dպVtƓljqo7)At ҍ._7H+^9NXHuNQe:Nܭ 5> lJN:x+T`c3?ַ/;V!!Y~!)3ǫCʾ`ڵxG?Z̸b  ͣ1kړ~^5O'OB?4k <ﳦ݌<. @舫7xּeɼUt4jAj:% Ke1r~d'`uQYEꀙ!k/.#ٷhFv( N!eYJ*lFG+3mfʱsWd''rb x2l 1nW53$im 9a޷w{unc1M%ciomEX>HZEUղ 7["lNޜמH@B?bչo`p>9SOzsz]H0%>S|ESWcn~'{q뜯B2OOsЖ+ˁܿeͼ#n0s"Sԁ7|4n_o4Arl|\O/_R2~˺9nw}󹳰Sm( JCϿ5p;~mQU,9"hGz`Is~}̷vψݻk~MOQϽC;q!uIzd.$ç+]tj5+?sέ ^i'ȑaѩ^7/w,$$m*{l9[0f(>32ėG_',+_8:õ:+=BT$q`1`c' xnzYh~w9t[Ycqʁ8lz[h16`v882>ߏ֖ܬ6 ]\u׵eQ*(E[FҥeL wd򪶶%$brokRRyr" }Ӯ225m|'bK; q*K4/̻m#;hŊ;pY-&x qWŇ=:kY#9nQ{G PIamI'Tp6܍|gq¦wnZk&Ua*Vz>k>lf 3#yR6,?%?ƶdO\oTK˹u+3&~gchx \civ\>'.?F#=5xBiRrv|AA\1ҹ?'F{iz2l?#_UgkQ䮭鯙 #_ =qÒ0 p >-g\K!Ǐp8 4F-}{}ZrOjTW 5O'OB?4k <ﳦ݌<. @舫7x־:tcw0ɼUt4jAj:% Ke1r~d'`uQYEꀙ!k/.#ٷhF(g(E:: ~4=+OEsZ[M1KaHm;+$6pHtT-;DGJ6S͹|zױN#QRF& ,ZS^k9V=GLvL +&x\YM?ioc+m&FҾ_:IUU`y9^1d6Dy[ӟ/XrVb<1D@A9KQ@a^V$}oi;Gq8$J#ZƒEqp# ιmj2F-U.H\gNNGCWkY;t1RqvqbW9i٘~ַbmQO/vGaw] * x3Il #7ֶVLm.XR+eaJ$pI 9|^b&gˇvyMw6iO8'ϧŽks$΃ċ] _޳ڳxH{`2Q ģk#qoj5goDZsZ뿡:[Kt񜛨ʏ's{cڵ>fD9d|3lsקL)yYTò{S%\\}bjyt}u +뷧}#s1xF"΂N/[g{Tv78Bs}ݥ> ;ۛn`AO*ӇyON9I|??pQN{~{]Z1\~ޒS_hz|*Z٦2O?N0~>dNK"l5qyqמQI>u۲XKoΏPYkKR_M*1 q/^8ޒf|C{!kZ[rxy54[&ݭ9(L1`[Ux϶O>XsbƳ1ĺ?S2ZKonE:sgYXA)Egl0>4zUѿ,+qgcu$W9=FoϲA&>>S7Ƕ1J]A :Ǣg :{ygh">bIUrp*Qص,a8ݍۻo8q1X=RE4ӮdZ]o\ θ9ab]M#[3M0" 1::(/w[G pѰElp:L=ZYZ(M+$HX# H9!Yc5,@{ `s?H~ԯg(wqԁw^B MRyŶ8*z kR=aX-D\}`XD2;aW#_3]@E#K{@n,q 4*-N 遏 a ĈD"w?]ݓ<2/xy7gy|˞+_OMw8(c>Vy_yj%[ʅ#(ѻ8n--B2̢1p?1|[:V:ܝ*6xU_vP8gҚڮ۩3‘f$~nH?Qʔҿ;yftm i-mYq]f(ٵFPO]C㝥켶vɏcZV[Is+OрbI` n|c:ԙ?7 98#ΐ}FTy\t9rT[-t1O_R-v3nP˸l#5:iCpXE:6r"'Sk)ŴxFi!TdFsiG-H( v*z܎\5JJ_cUW_9]pxkF]#ыTXxpǸ|Qz ?ben=Vqs~%Fq@/ ȫ׌-koi;Gq8$J#ZƒEqp# ιmj2F-U.H\gNNGCWkY;t1Rqvqbʊu4lvk[6('s#;A}rVWNBgF"ksMGQH,mbX#$g鞽+jhh6,ԩ(N96i:mX2rGl@h"h֞9oŁ-/9㢽w}H Ʃ]O=u c_q$L~^ӎcKމ|^MB9?Yv7dw ʘeCk%*Vf{Jojw*HX8W E3zjoG>smoTF:d#ven7qz7 7ARG<+ꑖ5Pvb݌og.ah 3zȺ$dDhJTwsVT?A+O3hZs+gxo/Z>xAK*Z6?ދE%zUѿɍ0QUele;.Ҩ)9$صEA_}0'z [++Rm! Ԁ3dɨ)VvpY^<d3ץnV}ZNiV0̜"3B FD`IF*p}qs^ ᳰ{Wtؓ31Dc30Ǿ:QX+C&4l׶:*~# A˪G;6ƒ=l7/9?8=8oi33@͵ȞQCerO<{LJ׉If]>Q<z}2u|8Ȩ6ň&{cx>ׯWny6m坖F?%\{tY&d܊?xT,,e'9N>:U< /?wb'cI#8|?P_K$q^"m6ӏI*%:z{XH"W|%ngӎ޵8j>ZRi/˴-XC9?63La(kR˙#Ms\FxNcj 4ɇ`\aSUzs'Z.o>t̷ߺ]iMDiϜ<ZtR|ݧ7~{tKhk=06atǏ42ӧDo#v9>R}{1Ӫ"H<ƜO?9cO$M ~s):UiDc'E>W'w)n#?2D>W?w?$w1Tz4AKp-5b^/'RE6i(8N~Q\?iE7>`߷o\{N7 hDlbSо8OE'ќߙm{jvu*HKy+ us߫5?5+ֽw ھ!g#6:8Ee!YEuT70Gfši:A>ʧp*8O}5=Đ>y6Mȩ޽:ylq\jGIor{j?&?A5^ωtůCȨJ67:?MU1שxOE]`k^Cڧ褯^7x־woaٗr}j(6P [iT WlZm>~S }vǽ=A;XOFY"c\?[++Rm! Ԁ3'7m)Kmލ<" ?zw$@zWWXRj:Eo.ckĥݜ`-A#?7L[SFD`IF*p}qS%?5+ÔxvjҤvKNƤ\:ºfcN731ҢInޕ% zjQ7TVvQIoi,ln$]~V髚S+/h8<_3;ZQkg8+O|:zJ~tO]yJ xy#9'\<[(OevJ~W-1 ?7[B[~*sS}SZ}-\o>Etm-6Ckkv'W |#Jͱn㺁7 QߥrM,7^F)+*aXd rEvW1w9XmMa {yaz&;<wry1uTQEɱmcq_ v5K?ӹF8,lL dq8{Amh#}?[l졒[#Q8'UC^Mh v_P1$c~BYMsK ~]C{-9-&[vZ`JF>³A(l{[[[Pmʬ/?Fx_֥ ).i-ڟْdx=t42l {7g^yĭ(}@HJ$ t?m2//7'Fl^>Q8{ +[_ .E-dKk}ϙlq,=%r yltεYYX[5Lj7EiR6ofv5|x[Mpo.Ԯ8c;>֏-tz'_f1}_WY_~n;2t] B8ڿ3Αwe20O`s+?],HeW9Ѹ;4jI01Qx{^^?ic~/nN:u.hmOy.N/{q't|0?\yOi:x Bi\䁜w?w_ Fib? {*n^_nϵn>lg$xT;WMl.CG{ɝQ @Vb1z Z[-̸|:xJg׽ub ?4_ #d1N{ۮ}Cuo ɾ7e'z)--6Ckkv'=qrM,7^F)+*aXd rEZtrn<l'L+UEU0/y,n\4l"c[Χ/tkEr#c^[ գ{PI7,2Ԏ,pDQgw8 $W/myw[}Z@i(7J$|@("kE,g[c8砯CWڦkem.7r=@G恦]\iOi7ebk˳Ԕ9)rN ܷ-"-9봜{,|<83C?\[M VH8ݎW684rU:N|\un)sE.:`8^*|ۻ,yb}y3 ЇK{ot}}og\p)qK0Nӝff叩UWѳz9!]$L~W-1^y?Mts)%hk%Z=黯Ҵ~_ֽ(|>a'KzV\]r(VSRy&ќ+5?^1m2G \rel}9U^v~>Vs.7"`:[6YZkn!55;T A^ejҔ!o;|n0O =W!-hbcq.%i b.pFN$WiEsstrn<l'L+]U\!E- ζtI{m*;dVBkFO-}< RHvV@u TWPaA{}chmJ)E򌲙]I<xZW2\"{nd%/F-3AA6(Ks(YQ]CFA *<%1I#X ֪}F.f$Qddjnl9@4V'kihQfi ̋L `$ea$Z"G20`ddAX!;6<[JIWXI$s׾*5I CQGP-B?/=3s(GL(P  ?P@#U=zymtKbG_íPӤ{85xk9+J1+mI'ORnɱx]Yܙl׍:$#'?uI_NO-}< RHvV@uՄ.Ks(YQ]CFA )ٿ[ǒC+.cV#,I<{? 85/IHܹ,Q̡eEu ~G#\&YZVɉ[nI<N3o'u`IGN~꒾(Ks(YQ]CFA *<%1I#X ֪ho8iq˘ՈO'j?hJC5A}Nq@r4lѶ$d54UYg'k*pqg} K,QJϹ qTddd?<$%Y"IF{PTpN2:i+IJ O"6Ui#xgEf!#%N8$} =A1=<jZe6op!,JI1$~&@t;Nv{ [Vq0BHd<ih }Qmio q1x8B1Ϲ4WgTP-4(  x {}>(ⶴ8iJ  ՚(ZnemyQާMN@`AoZV֖#T#A <,;!wIDjTBۈcȸAX{}ϭKEAkekfd6eryqǩ8}z(((( 0 AU+Xbq*b$88'sVh-ll̆ ^O.0'OL@`Aa [emK,kRAr t9,-mY #Q@@`AVG1HUHppO>@ X]QC70:dӈ  x @+Xbq*b$88'sKkcidd6[[tTawSV( 0 AU+Xbq*b$88'sVh z}Ane;T}N5f(!m1d\ X,=O>֛kekfd6eryqǩ8}z(((((uq'˕;yKF18=ibX4?j M}7uǵOEV-:bK ģ{ǎN@9TPmL76u98X f@ A+[VG1HUHppO>X]QC70:d+^Ibmtu ==iZđvТF4UqqS@YXB! s |q S?bxcMS@yWZ\{k ջxHnR2= MY>WF?ZֵYQEucqrXA S%Dʲ;Yp###Z3A{vd4}=2n<t$sa`QKXz>Ú$R_\$rp8o8{;;VS$ĺ^gOu!Ln]:TddR*,_ L4MG~ԯ `QŶbe.Sb_m4Mׇ\kG [w`:ȮוS[{SGO ,E]Ś53f 3϶ڼOu>U-U !o&ȹ}6d@X$##Jڑ7eIQ cX oiUXi?cx[gk$:˛(c0pdwֳYvqsV?-A34-A35FJYtWOxu]@#mD;mqUcWkÚ`s_I?އFx^dByX]FWv[ _yf@kO*}FDFLLbDC4bc<=3B M}H8Giϰ剝7'E2`u#=Kǧ(뿅VRBDoP7̝z=?Z%ܙ#h׫\f YPی';Uϱtu]zua'|A'/p`p>e>oQӖI$&ޙ+ Uk5bcwfE{9Fv˒j_yxܾ];5) rFT~\Ɗ uV u qVeƚwEۯ_kO*-5fs0Rۨ>5s ס= Tk pWg2qQ5*cu 1VLj䫪:?AK?3hZq?—-nu~3ci 65}} gbn=Kİ)67x־.VkcZxZ vfEʅ}azW9s i1}&D N$9]9 {X`4gMG #PІ=b%mʼn@% c'n1սYP^q$qlyal vv3j$ol結lT9o5 GHܬM F3L) +'Ŀ:ӚE'E,B)c$kk[xc]0e532?@5Q@W3&5ԮЬJSrA kFMB;e%vyߎ}a 8 @Z˷v0tkDxlq޺-B7R8Ҿ3d,5~G },p:W=KV6R-g@ocsǧ/?9; ~ ѷ`F&QmǾq5ܼ^l|[h'~gxOE]`kZ{hyG1s i1}&D N$9V/R_XjT_y~2vS7ywmh>Ͼ"*GnO@;#[``ngj3V* ^1I,l ꄌROEr6'6u3%gAPcliF U93;DGJK+I'Xmм82A^Y1|,l'֡Nci<.;P\WMƔjqRwmScq\GwZ7l2 ~-!YuÌ85Zbډb^@}j͎F@Nk#P+`LB>UZS\71.-7YPmunytoQI'ť&ctf]«\(YWG8$cNхsN6r=# %YO|0@"D4`61ѝ)xD.݂ 8~?~4 -Sl2|.}p~ tI܅$Q,{NvZMߩZ~G?bei[FыQ[~q~q-#1w=fFϲA~>QmǾq5x3:яwWF?Zѕv=kO A.ѹyc@PO=zJ.|A|46/6h^A)ۀ䟝U=kyzǬ^>-7Ԩd=ڊkwI2G &7go;A 09<:ѣGSKJW<9kyrV-,4S+сk\uZ8M1Xxʓ0oV|NqT< Hη.@ Rg ʔY^vA (.=UC[,cYTwN+6J:?,j hI;cf\FT15tlN3cNZs]hQ0z;~~LN3#6_ŬhxgFmы^~.4GsuX|'H7xְ5OH?^=wHѭ?,~H#~ЛQns +k.yQ&tTW3}G$G 1܁X3Gea2l]۬.o!A ȯH::+kRL[L[ye7n1gw^(0U]rd~"+>moz Vi10qO0rq*F(`t_C_SkVOYLtEPd"#@Yԓ^uG]դnTK7=O5rA.g r `˴V;x=Z[? *E'Zp_4pEaXT5{PP0Du$z`xo,!;c#+I'60z ƾ3߭-;_40Nk:kIrT=PZ9V#kgG|:͋/|ШK|t}Z P.<Ȇϕ#p'm.sznQl`2 ;>d봊3"em?oCMRN)_re9#t 5>8(5#hN70xy8sx8AT }' G+gJiݜ5zj_:x:| I.3/qgo |Emѭ/\q;)r{8N3{Ŀ:X|'H/?)5OH?^\f߁%k3s*Z֮gzZjXG7أn9xQ$c,ǰprzOC'He$Y\B13VƵ!Źŷ-_JS~6qwuh@6* Kp Vӳ[YݬfyD/5ޥŴ+6rGNyjo|/un!v/}\VmxPs 7=? k\ׅly3J| OA^ 9uV7-6P>R9j*(AR;&E[*!RMp^))6Y9wasZN7$xOιmRkۙXȐ+/ BO1ӊ8V{ul{u 38#[S^d+bXw\txmWWE[!b,s>n=y&qcTes[q[Ƥ&!}?REfۼ֮$QZmio4F-X_8yNG?BsgAqhZӑ=3Uq@ ȫ׌-kH|s[?%᫞t R?d?' ~v9J˳G^|iɝ5g)QF2{'w V )XL$v9KP@† bs+8ΎԇSp3~a)Mیm׶96*ĚKIA܌lp:i=ȍJz栎omME=B?dp9aLO,αwsrI=rח~eD ֚"#y-02G~q~:״ W2JCp3Tt8 |08ګdguQ PfѲ[|R+2p33OSF:ZZn Y+ e!!I&yIĠ|ȅy2oT}h_oFskt6 z);ztVqznĝWT4݋:tTo+A>T4o5ee'yʢJ62 Kk(0 SԎBb !_m >֧u`RqhWkQ+< ǿZ! 7!qʓ]I{u+P}WjZ ec&ʷQW<61]#ыKVW#җC*] ?Ӡы]a} $dUm_\'W'"^0赬vƱ<5?toE~c*vNowyZmuI-nOz[W`1aZK4f yc `;c9ڶ n'#,Fα@sQ}S2K6П30}߽Z먡n&9xE)+-"{M. l[0p@C]5dA@WRL(`@3ܞHU?B$= ՟(K2p /^z#dtQHfuCb,pd1ɩĻaorAh@]y<qĔq} M0|r;夳Qi-[lMv]hw]^qҙZ۠ #9''?f#zRlf."L$tہxRtFdNι~t:s[),<~5wZRNZDR16w0*!`j  FrW<pa6n9ՉM~^/!l\{\M"!XAYw8=1`dHNV_6y ?J1ieaKA5J17#i$7*cWH:>gd=v 3=k}A@pzךF<999K+G+ѕkK:p~c7k>P3.7I/^FkG;=2Ŷ0M\HݓeRILq*+tmu\iqͻ@27g>[tE2YYX$h@SYxy#Ui岚4$<D4L@tT2=kzuI_\Zf)R]|K Jc\i~ЫqA޾* ?;Z_8ўxrFPBޤOѷe`2q֗'~[-#BV{W%K/Pz4H޷m 3Gֵ#ЋLrCR{ '8P58 ¼Szw<^Z,in,XG+khTd[i lRDA95m5Ur\ƪvG6.PU:&dǚzU Jh{H~iSqZZmnz(^oiI{]rrpH{zW}~SԊK.92׽-ٖzw@T6?/ )`kio.w3rXZZ!~̴ dsՎ?!:y~GA]/?)UkO kxAX5O'b?kS09yo*Zѹfڈ9$@ɮ{z]eI}7اvg95ҞA{hwkqhbpѡ_1MZQ{%Hē8;f9ێuዋ_IͥÈ?2ۂ0:Eꀙ!k/.#ٷhF괸3sKE2a!,)SAE EsW&}^@yV.b` la TWO@~&%?5oR3iv;8ag O~]2N N=ZE5~chy#@gez2^f5Nb RGЉ8'ܕګ S!KkR\^kŜy*%٬NHnrO\m!UX'D?O+YmB nen7|=q"Q{}̎ROSDZ.hoﭖmQHIO渝GTtE!),J$⥒(0>5׋728Q&B4.c {Y!㷨`G,jw jUHocDVlNSdŗ#$ KAkz?)##o46)c CNh\\,yQQdS 'pһ+O K\[\ۛfԁVt Kd3Ev"_UY r,|v湘Ėz*/"dlRpkۡUJ:V&Űd. Zmn"ݼB@̋GΝ?:}Յsukx6n;C#*BH !|y%S ;馏NVƵ<5?toEb3c\?= HѮ~H$ΛSv3cON]09Տf;Xij }O@&ɮţy£F~sǯ iAj:% Ke1r~d'`ugCP0S>L/ۿg\o9;gZm )*aj4,.6VZ_;s젡'_]<HARa)/ΠWYwdmzoQ2Fz>M,yP[ϿPIS)ևđ |a ڵ"`/l:r}LBk͞"RySW2cU erUG>o134أ_ ӪmJ͠Ļ! NG&t~bGV<&!H"%#|yqA܂S?Cs8'$<\43;T^9&_ŨuMo ˤ1klUkGbP&?I"*Zu~%Fq@/ ȫ׌-kkFԩ88]h֢,+qgcu$V| ӡv/9 pH!T^G'TӢ^ůgIoysq@ͬ\a$*F\KooFDekkț395-T6@#V_V:A hIɣsrx鞔-á1DW)خA=88?J_7Bu)Mſ^4$fU?6:+:Ҙgp<[;kuGZ-=5[k{AL }qk<tIdS@ #skAB^3Rqyh]޷ =MaEnާP$$v3 |e\A$/&vϵei62kZ};W62:N=2t9cSw72ZxO\'z]EkoV.aA.I2}ZMw^EYX/?)˩Bk?"*K Jc7Y]dgqoSͅkUѿY>WF?Z֜ O,ƊYԓ\>̛t6E! ||*TWkY;t1Rqvqb/T󽵍De(1c׍Zj&d0m->g,>a{nsL$R)WG S|Dд/i2+.e@p@CXzYܰ%v$?uG~ԯ_ůg_kBk?"*'"^0赮7Y]dg7xֹ+Fԩ睃Uvj)1<)fv8 ROg :{ygh">bIUrp+M:*Zl|0Tnmݷg8/T=Df(1 땲u,FH}kem4."VTG#8 V[˨Xk,)k{gPFH=zVѬS亅p}=ɴYɛ= veӶm\U NZT\Nh4ЬrGUŎ;ri֓E^o˟18 j%x\{PUeTAM¹V%!}q־+y=έFn=CN)kSq¬^򈮏8>^,WCk";e*sBgcyr_E}L1Z^w$VdbGj"=IVI^½\/53J[.\*8>%3Ũu .޻F3Sxk?bb+>ŽSy~,g ]ko ;>|3O߷lWo/Z>xAK*ZldmiFj>朱\d09hǪ[hfȗUK-A,3ӓQ^Ysu4lvk[6('s#;(QEɤXby1TR"8rOoY8[ ^.#< 5VOYLtEPFn^RQ㎌G87E8}Ev3`z+.>xwfSJ\.۔+y]yD;vw-$"Án1\Z]Ϊ }q1Q׷_xWGgzʸ8[ "IWeIF[ZXszbvZDg|GW |S(o~U? Mw)_],w?X,iV;)Nx%5ι2zgi6u$Jю:ڸͺ~f$㑜}ǮO (d/?)Sy~,g ^_C_Syoec͉Kɜsҷ^ѭ4k6$c?s~{c]\d09 ȫ׌-kZuTt5t#oo$[s3Xg'"X.SHkoL"yx;; cj誾T=Df(1 땲u,FHFy5ӵhrg+ b@?M[Zx:hgSȼʃg "i2(E6"ϧ&'Nq}ȉz^E;/rs~aZ(q,݆ +ne/ږX.2-1ӷnxݝkI iK|9`3 RN.m~҆+N?nygI P(HzO3?w.IhRBt?SORmsqmUԝzenYBnOTo3d4K ͙ղN+G?7`ԭè\jSX ΚcF?!6:V ;qM-pbe<-m9B1e ۠b (ʮ;jNkGBlOxȮya4RfDzKm7@'jvaeÑ?=BYYR?oL`zt-2KۋB@!KqϿ[RɱjWv0|iƩqTR\6{ `3n{ƿ.CCj+n$׀?:]F([+ rD<>}; ;+sT_5qk1g=FoϲA&>>S7Ƕ1:3#cR7x֣a>ч-Z,i*mtW 22A1.s$bRzPnuy tuWu"]M#[3M0" 10ymcqDw6> :v*SN /%([r\X{F}bF3YL\7.<.SL0dynmC~v$Ոn7gkI[ jSugEt.-ItQF0qҐ0q+V<|ǚz;{cO7|!bҟҬ{]wr9*sJ\4MEMT}w ?bskG2ыZ3pV5~#xTz/WF?Z׎I8ƩE%z o/? اn|>q]7Κ˨C2yow]P$'SsR[u2oIᇡJ% LYln%ݤ!,RVT°,umgڊo|o޸땆trn<l'L+UA#&Mŀu*J1V#}sTBw )f+ R89#W5ߤX%hDǢ8?s6\-ͬVzdv{PKy)6r2Ԏ-:/?)9xE)+-"{M. l[0p@C@5Q@Q@Wm$qc#yՊ)y+&m2O۪>1hA*z}k^𽆴3D.9t$t>8dzC4oݯxa%t?g1אF8_)+׼K JcqSJ2bdT'xOE]`kZONѦؾ ٍvݎs޺xxfM)<0>w^SE.e P-q!v@Nyϵ?laQMO7Km4&KI{ABX`˜1jiXHf^ɸ,A33ssUmm]AuT0ymcqj^4lI*Ca<\y ;2yN]~TGZWT;Ʌ[s=}Q{MFvrw]j0Aӫ9@<kubbӐ < Ğ\ѓ==i<ϗvJ]5.b`yldR2s8ZI .]̬7u;p? Bcc=*vvF>p+8RRVF`lYJFcpzEh&ѭ0%!wcqvIf-/7pr Q=ͮڕ-8ZzE+3OݻUws]Lh) 2;8"i[$]K 2\@n|ߟJ]cjE{*Z߉'8>褯RsM}6Aϗ߽F2|Z cΚ˨C2yow]P$'SsR[u2oIᇡJ% LYln%ݤ!,RVT°,umgڊo|o޸mMa {yaz&;<wry1uUY\]:X#i^*zBUۙQsOa #&\{Y߂+;(䷴'sEaw Evbe *+`0 =W9#O|8zstpt&륢qztKK(dv~W-1FQ99?C,Q̡eEu ~GЫT[IÒ=\|;9?/T/:JZؘb|<#5S%9,# :1z Z[-̸|l[Eek l8$P0O=MECm0)QETF#t%|c I}@hWͤlX+Z)(N }qlS%9,# Կis+?:<Zuos$ZK$mpvBA|uS&9xE)(3/QԿis+Zt= )$Rw[Ӹ*L꣇ z{j_4㕧Q¥bEE,X$~O3sbD_;`;EC/V1+JDY䁒>'4gM~nu! q+~xߝYa/--:}pQVReU*G 8ӻu K(RGkhӸ?+̊×z{j_4㕧,Q̡eEu ~G[I4ip_Eh=e=/\Ӛ(HR2#HO.EV]Bw]g yVs.7"`:[SMP[Eek l8$P0O=ME(* 땲u,FHa饊9,# jR[09oW^ o t]tY![H2+ #O]2XBʊ0 22 AqMoج~_xziI,d.Yڦ'R7'[6ONMoS*q-"l|ռ[?"*H^j+ yo{o\ϮwXBʊ0 22 AqO.㱇q [fdcdtӟ맢yw #| [(2~)^dVpV~ ";&Xd9uӾbe *+`0 =>iw #/l%27+>C՛x3BͨY2]Y 9ɸ<]2XBʊ0 22 AqKx+@կ2ˍȹpVͥVVۦ`crNdTPzQE((*<%1I#X ֯@ A+x+y2d`Ljw1$s*i\ʣs\a̔H}>(ⶴ8iJ  ӭll̆ ^O.0'OtWקD)$p;+ u:]yOڥ#YLX͒y9=}+` UL-Ⲷ%5B @9 O4`Ѫqq7u/IH'Nӝ՜a=*-}u{-]$+ƬW$y9W(O F!9oZV֖#T#A 5Ȟkekfd6eryqǩ8}tr<%1I#X ֪}F.f$Qddjnl9[<jZe6op!,JI1$~&ghy[UfȻ t=@ O-}< RHvV@u:v `PV  x nc۬Am*i$i\f5b$^'5 GiB|Hf1 0ϩ8}>(ⶴ8iJ  +(wL:B<%1I#X ֨i=PM5Zel$'t Wb+kKxcƑĪ }&cb]Yܙl׍:$#'?uI_NO-}< RHvV@ulm, s+nʌ.8jr4ޢZ;}Nx-ly$25b2ē'Sη;gWMN`<'d|ݷb+kKxcƑĪ }z}Ane;T}N4uByF\dg2fX.> stream xRr@ W.x )3NtΰˤȲ,+ %.3,-F w_8ݩðrl`LTT }7RhjQ%aAꇟoP3p}O=FFdCB) ƂؔIJc/= #mک'GJ֬^Xa70Y6QBRL/S9[\adÃgl>kf5inF f'%sKʩ$xӜ]o|8>m.!fM߆ϾbiZ?9ŃsTyzOFĶ[]),?mw )YyMqE:yH98Ɯ-Vq]=4]ĕkė/*fj-ja^U endstream endobj 122 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 600 /Subtype /Image /Width 600 /Length 53873 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKXX" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (mFn+}v7vukS~\tzUjzejQ.bYQS袊@QEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQU57P]D2G~G@((((((((((((((() =·CӠ[uh퍱מZF't<גxTv} (х+E_!8&??fvY,gw9,JI=JF(B3}M:((((]rx~E;a"%Tq@VO#4*9}mT6sLsӥoQ\+o +&e>M~tC-:9ݞ@^<🅴'{YD9-Xgk v@@+?xr=$hS?2T¶f_*:+mO̿U)@?[xS_3/G+o +&eOVWLV|4i+H$E s<_ʀ;+mO̿UhZ?֐,1,a7'\HPYɪko+H[zI\Wc:0+ 2NlǛ")۫O$մ"1Fngړin_ y%qsvt#1 X'8灊Z>_5ݔηjbFA9AVՅn.,N2>ER)W@Wvj(!1q#w?881GuN.,bAABcrqE02#b:FOpWr#FuG4ع:NOز8a㓐 j+'ŧ6_{I@^y?nnQWjEcbF?sf56ZƝ) gUbr} @ jQEQEQEQEQEQEVd-]F^ L9B:lCg )^} h%?"vAWVP4s)JUrp2OMgGu/WƑ\fmG ::SZVEU(OʸQ3U?s71L$R^^PAlQY?Ë́:{-f+z#zzG[}ɬo|[?λ>"cEdm5˨ikr:1 zo Nzu @Q@Q@1XzZjXG7أn9x2.Տ4D^?toEaMޤcl-3F;Xij }O@& ckwqnnv @m[k@` $Ҳr1*8x#5\}EmʳG;g|'"^0赭j+'W5M ׇkP+qY:{HGǢT\fU@,m>}>D/7 $Xu5h|l-k,z[]&|򱝄 0?1F68_ XY-i$KM0Z)H6)u;DY%1 y6f h JC▝sj&:^"ʀ\), m ^H5:ePKsCTH89RO#WS}M70LcQ$W2!~:)I Ɓe35Α$yab4c8` 2{eke_nP9E! g<A ( >}S\v# zD~z=kVN^r/1|60aYOR;PQ@ X8RpI' E$b9c]`v4ȫ׌-Z ( ( ( ϺY<۔{ti@FrQ`9GxAxn"`h$xF&a4VocmimMjp`~]rrF܏5[q,t#` *r@|:' ]F{9B:\CgkN(+HVbx^[wFw˳K1S]{Ƹb\cO}Gb9TZVE%,qIۃ$nTqvmW ;FCŋH,}ZрX9&űi5#s >qާ[CZʲJ;؎=p ] G|ʻhR{IY(Ԑ(텦 02}-mr: 8ng.: d09JDeXؐ1n`NqN5wi-o *W6͇2Oʍ+IۂN@4cWzc{!)zg5EQEQEQET/Ld= g,@g$Ҁ-{ks,JͱTuf8FI*5[Y_f8qbHolk\9/3F8Oa(l|hc{`!񃃐b}N=bB3bcrd/Zd1GI(DApr>$ijǑ1To'ӧ\{Ě%qU,kfI#gc=IS­^MO-R"w'լ$S(q =? ʗ9"LrH2B"[g4]wVk/^G<}{ůTI{EfTeU%dUL*쌔hꐕ9KtFGӯ]A,RbAmAE^'*ߛ Z~7@\F=rN$ng(^mdWH>PW{hP}7MkQ@?q}?t _#'Vl+BÑ#: VV]\>`N$sU/ XI 2hY[|p8?,[ShDuOE]`k\k'#W_?toEqazW=,\&kQEyEPEP\ǰʅcfA2ڧp|)zu'I<}ch]rxg-p]ƋQgUG`ju&ha=O3g+PX1CU Y$lEdz ۮSѩ@oWX mGSצig.PrFaxse_W5X<z,iw2BŰB"f'?tH8*Z:][9DA}00~]HXg 3o%ikso=ŝ|[~j]ywr4sA8x`kUlb R5xV4 $7 ƀۮ%'YޕwI"Wְ]D#IF wKM[ * Rhcvel 1dd`qGcdԚ'BtE Nm!f'#Ug֢('j7^̍:_rƱ\[ZS'#*?78: ycyj߷;w)~xK>{ ma?( yo'XPkEvXFh{c;ezdxpM{_IymҳܥONrO?x-(Mk"[)ӗ5Ǥ{g'SԖ< :[y 'ʛ`|c&ƶsKuBH ի8";h<Ҳ'c(<+wJxMN qjX^V^u2Svd}3׬W\YCsz6Y683]4eUEWiWe򋉞<ƇzrFW$, `fMH!? 7 FGf>a׶dw]rH|}CG6{#kQEQEQET7v^kp6ECSW/Y,85HL,;lrT .e`ks'|XأbHpGhVy{"_/d02!8 !Y$tޠ('ℹ lyO|C?){2F9=cڹrQFJWO>-tO}ɍDkfL9p{YrƮi͉J8ָjKKt՛GQVkRRE Xq2YG80˙6{`Ox=*եVVۦ`crNdV}Ot:rݱ^7a$)֠(((6q}͔Ŗ+'(p@`Aǿ5bLY#EF&fA3ڑ<,Ż@?AΫ-VI3BQ' zwo$*m:%RVESր/QEB{BxJI&;HwW4Dž^@OɌ1_Qɯ?O_s0$ |Tf\(A۫Ȳ_J;G\1m%ؖoZq,I"P>4\bR2鏔z0|c'YҒ^_ס8vZE !  Z +'ѧ_@9#YK9y@iog֢+QEQEVg B$Y̨2X ;vz\Q}:ð;COaREP΃ 3O?4au)4GC+ҾM+N;FJGbBQN=Tº+-74g}"(H8}z [P_nfYfIg#d wtI+ܟS@/mZXI18>\m1tdM+\{#hdxc :mc*]9R:c7wז^+̶].kmnI#PхAݑjj6(k ?ɖ]T!rFKet@-;:sj5}qxLC(~Ud:- ԠyF4,7E"u$FA yHm_ͪU6mVEVLFH(Saq$KȺ]L*Yi9&o0)݀ { &7O [HR}Idch]-FM+FIu/#ueY<-jG;'r@$]n${{OtdGP}~a+ԩ@ףӴhO-V}"54qwkZ Kb1;C\)-FA`Ly;Im^m)y% >?h(Wdկ`4ۚcp "IcsF@8`<xEy觇r[T_"k;1t*m1 zT2( oїY:GϪkܺݤaP/cV'j(((i]͔J̄ w0YD1JQ*7*#TbSMm}#M.Lp6[r[)O'?7W\eꨢO+F LWwq a!{x;8:UmvcXxdćNAr [,-֠)f 7t=סkbXǧ^u%$KF>sV"ԬܵZGU<};U65Y1W=Ghܵ MÆ#KbJV2AW$¥?%r9Ws[\_=įU|u_lb~ȪFLG);8o1Ѵ3 Vm3Uqp ci}|;y-.U9ax : /VՄyYP~W$^TqO4)G QWM8)-OXx$X5O )2}z+g[H+OLaF&0%p+٥ZcxQqz_GP5XT/H8<`1]^\㽰|OF;kȼZqZ=#_VO|SĒFvef;dp0t'R_.t>Yt#|1jcxv>]iI;ON\U ! Дgc!'%fzQR&k[xjo 65}} gbn=5O''"^0赬ON]<Տf#ReN@E:dDd[$n}`N$sWx_j^1;[!wU2n W#WE-*`)@e}+7s5^Nmv#)Ckj8X|3cp*vԶ1dq[,1XZf$(1$v]Yi}[HeL:[T4dԑvfJY 9(vUJp`ڭunA0x95eP(lt٣idجH8#;9$Ǭ~6ZΎ3f ݍ #5Ѽ}..0 g %, 竜bN$}26"{Ua n%=C~HV`L>jpyP虲͸* V#EX((lk}'[WF?Z+˳ZWU?toEtՍ<[_5=`(((բm(Ksg2IxZ w?ϾczXexX]dE !{_xM|vdm鏣t5K^L} N=C WEI!ʌVA*N~i0ˀ3Xk-MI-y"4j>f"YRdžXI¶g4T4mh_$}NCI]4l6m#3 6c>qO7b_/7ʻ+x8: !(dZӛIJ2v4LD|I۱nN6 ƺ(xė6]48g3*˜dIՠ?Ϩ[̺|:{Mwp+Ul0K>@!k~ɣY[W/A˶sd>nWd :BsJ`942Oa1L h(!= 4mJF+M3rw`y,H@m;x ėص%vyzMEך~%ٟLK=<[yhM(a/wr9B~A Zj[)fKkvX>GKdgJ[KsJtye[YLM=1®h;ךE3M+ZLϲUW¥'(َg*uΞ6]@$|Yڥo½6q[j,0\m=M\) H+*治{@>I$>=\nSCTuZSjRE`3,9b==?*Q{IY iBCL}* jMxpr%$E?T|8WB]&91 Go'3Sq($ NAF9n&X. WgȠ씀C 0  Vbw;o H8X"?lCutL>NrIYrkЅ%N7gv 3WEԕ&f%iPO p08Gz֧=2A7n^ e\6C9] Z(广@Z4m÷ 4}BlOFL5aB`R=Ƹ]WX4M+|\yC*E-&v跶_jI۝?y ~;եKrnFJq\06e$h~mh(؄..Kqc<[Y??.?}zo4EdOoMƏI b_Zf-јjwgrTROoMƏI -"S5]p=F0u=Փ >A7?'7\@VO$ hAޛqkUkMW,*O px8OoMƏI q;67}Ko9bv#R0kcME{e*t2[$cpH5{s+ˡwxn D}vl97$c'Ѵf-B|xo9UaB"]z-Q@Q@Q@Q@Q@Q@H6#-skB gnنin bFg8_@ ]!H CE&Bn][qq,p-dԖ#([-iN|299 g0 aE<44y'8b7(t21:%t{1仉pOke7ڲHn{7|vm낼?t%e.Go)AȤ|bSh6HhQy([tK}Y޴>plZ_JFbOD@ ?0e2X*\+L p4{E+LqDm~X]',:UNtN*1X[[Mq ~\&!XxqsVhAEPEPEPEPEPEPQ][ EFco?R@ZFa [a3 $MSGO-L4e `BhEbiŶ+e6LE) r6X;*ލ.2p^܀pԎ;0x+5=&+ܲ:șċ iRs\/bSM3ʱ^mjmx$Q#rgk]/G#:RG3rNMv~Ŵsj:m$ m GºY({ך6w̑^z9!>^w_rrW%մ8[k,֖;bNBςUUvl_G39=~]:CM]0i6` ,jO%G'Y7`^`((u.jLu^WF?Zב|ElxTz/WF?Z׭KFcN6sZ($(((dD4L@tT2= 1%DPo$bQw?S[PO51{o d5Ed^n?$zQiZ"ͩ8&  x 3jF=!n/54ZBړp+ KGb8ҷ:e'",P}T-"ME֍8N%B~ON{o d4}^n?`M.M[7q1Dr3 z`u RL 3Afă',X19s@u:/k c'tk:3| 7gc;} k c'tkZ5OV@$L\o<`nXSW {>%غmg`F*t,:z((((((((lcmq IrdXBmِA,s kQ@/ӲXnϓ0\2?NWA^ι$-p6L`[n !TdynygXtoeAsj\# p N1M&t$r0yp`0䳀s89\0]a 'L8˓q嶀d8nnԧWD77E%bK|*0~^JN[QZQEQEQEQEQEQEQEQEQEk ӵui!ayȗ~:n,b خic!q&wB<rXG.^袀 ( ( (<'AǍO_)+<'`hcydWzǬKU p*|=c$.1U@5!x%O 07v3iE (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((()QiԄIchx{^|F:+үS-oRs⡇CӠ[uh퍱מZF't'Ysxe7; dK6ÀINf]rXg*#_SxNZtQEQEQEQEQECuuoeOwt R?d?' ~v9;Xij }O@&8 hiGXks2[2D%s$Tˮ[ Yb} o vv(@4袊(((((niSªd:ϵ.t_!"2;ۀuu5(((ꚜ>.Ԣԯ0r'u$קbY'ޓ,K%,%@I'+ۏD^=wHѭ?,~H#~ЛQnsM% 5v<6A$$Me8;[@ ,ۘ7'ڵ8 +1uwVa0Oy~aM:zcsEPEPE^!%l@zvUY8Q{ Edh_6ˈ~+7r89'ynos-T#?yv&7)BqN@6h%x,jQWP!P~'g_rEB g;ȧ]88cF1GI(DApq&gǑ1Yv,mtin\!)E%eo:4_h\\|185_G>sȲE%8`n%V+JCi+|JzWG^~;BۢDl7p} I9Ҝ>$I\Isb"9'4yzܚʫ*5(91ZS324w P9v=7'=:zPcuJK p\dw~ubuk(%WjLPy:r Ƞ VOUݿ6*nzH; Qb>4Ȯ|?)&Рob2<֢#b:FOpWr#Fu൘i눎cI;l0yt2pn$# 8= kUӳ2|rMc~Uu ci]CM~ \i1xRsӨP" @QDvPK:Ԙu_)AUծQWCtc$Fpqb5Et ep7I6{9 gIХ2{f¾;,92^AV??zygb`[G#\\i_y(}OE]`kZk+*Z֮~ڈY&cP?0h_FheYbD0ی`9z(}nP)QEQEWIw2ĬݕGVcd€,QY? <}t_ō태Au;ۛw]zmgͮ ^ 2څlUÔ#vT<Fp@ܼiFY)Wk QE ,qFQ`(aX5; I vɉ08)ʰ ;"ݮeo:4_h\\|185_G>sȲE%8`n%U{_ ,yZu0܄ X203kv.R ĄdGI2JpWkN\Isb"9'4yzܚʫ*5(91ZS324w P9v=7'=:zPcuJK p\dw~ubuk(%WjLPy:r Ƞ VOUݿ6*nzH; Qb>4Ȯ|?)&Рob2<֢#b:FOpWr#Fu& [[@ב b:.{E$o-+qWl뚂d\֯EvUV\W8 =30{kV@[w)+"+'Sc?wB|"VQEQE VV]\>`N$sU/ XI 2hY[|p8xcbxK뵍QUe#aB=uεxY? ȫ׌-k~zOixO]?4kOK&mۜK7<(nbCm$v'~,lO }v6*w #(G5bvcm$+iLaeon-v^-$OX:muې.3 | 6x`7Кޮy36vaEVEP7w1YZup!6F;T AT5bvcm$+iLaeon-v%/7=FVesס֠:Md"*'"^0赮v-?DU=wHѭ?,~H#~ЛQns󰲾"݈R]:j*+#ReN@R#aI.r7 A Wp5-ͦ-nf2Rێ3lsElQEW/Y,85HL,;lrT *gLYbr{@:5o |hU|XȆd.؇f z+x-HQ}Cə`5 vO 1ns5uQE.mq g\J~akro2y$=M` Dws5.+{"D-%b2^qz.l">es= W)X]V5&.Lk)_A[+O_JηF=W?ϵzG*d,gwe͹w>~FJzJ(2B( I<]Hy¬${kVO}=6hv5O"+[XYbrI% iԏPkzfbà7ȗi"Aw8sߵEQEQY֚DJ{8g4AΫ-VI3BQ' zwo$*m:%RVESֳt6M2\N. yw~"Ƞ9q%F-uq8U>C ۢi3/8<~'ݕ'ʛOuuoٿqqsZQEW?AΫ-VI3BQ' zwִ-'DfU7`؎AFG#97Aߋn.'bE<{ srAdPwI8U۲uAJ=ON^M#t8 VPU*B&*$ n(˜~=|ҝysUmUn^z8א}r֥$c 啑#ت0%<<Bp9PA)IVC&hv,lwwZSU}ɀI$2r92 R02 q^ɢJ@|đ4 FTiTca%+oo)Vr/;J*E4QU7)2pү..s2|O{5Y4<ϕT觑kVMW,@:lϾW5R\ c\xkMַ_i&6|D>c[*Z֮gzͷm_yd<}أۏ|k<9%*8HY`? zV," Rkv2]2@7O>O<2 Wee s?ϛ~69ދk`5袊(55KDeM #qh?T V[w0,(gENA*異I8U۲uAJ=ONgm~,e\AD2 AsK[[-[AWp} c7 LdO) |ҝysR{7hAn(˜~-T`Kyy<9T by?^A4IVC&VѲ+i{!L8Tn`cEll0*hۏ=ڥ?+(1ny5;o.ޞGL+$ TU8ǿ*:tYϱv0"I$qNG=x=e <{R02 q^lOg&&MMT[ҍT[E:O]Elf#hҩPh;'Kj,ckF9dl A 0WF?ZJ65oI᩼'`hUH#'ٝ>͸;(SR]J|'MEEs7yDrJTp7BԚ݌h+dϠ]gAEdfAangyvo}q=@QEQE/J`l.citF:(YB.3`}gJk7wm5ߖHF\*AP0q [g˃%X'8n,5[֖cXhu[6b~'Il\l154K󱮣KO&PyXN~^k9+RcLjJQgC`JF95ei\ GZq60yK~č3ڡ2-ڲco9,DI)_OԌ1s^!"X~dCU_ PIm#Im2ڳvn۸ˬe\_i*kبQقҝ<=%cOOAѸuYпPo=ܑy(1.} F|v2r~cO:XBn$RW88ĜHBelDh K%? nK{_9SY'sN(a{65oI᭯ ȫ׌-kfƻT##+/vs~\VLȣc168MQsƭ 8~aYUd=oo\z 6qq\xB)t0{sTB#?tr?? |TYJlg =+X[S5- /"ڼRep9IMr^,7/Ki<[19`5j-\R+Ġ$㯮+GOw )ѝVF|.~ 2~[ߣD6R[\lY<fc ca`WRi!5,+:Ħ@V}17*݁ ;Gb\ڰx|Jb@@B**-Q"=aI^ 񢯚b`",`!Hn74ԛѯ=+BH}BrFD %}֬ b.-VфCm>J 4 ٱkO vLuO'<|Vѿ?toEjEexOE]`kZq[k&Y[[ : љwFclpP1o-Lj.Thс2a=HJa8?HcVGDlenqs?0 e'irGB~ ~ס}FȜm!B =9}ڼRep9IM[ )V-$GS[7"Wo?@I_\SQdi-?/Cax[H刢ǑWpG\yR[\lY<fc ca`WR68|8TN4sLV}ג<>SՄm弤|T322T_I%4jkXebS +>Cn__7ߞH>;>k=V3Gy-EU1OnVlra~ r8biT/,#)bL\;n3#};&M>QsĻ"\$*yϗW;y3Gٷ|CrymszݏLT,8=(7}a8 >=^ )gjѐL=gی{;k`7@QEQEp!pnv7ALHA%r7y|Ck|OnX(\zAqӨwSLqBf[ATUX'* UGm[VMR,FJ7_ѽr9_yEfݝ3#}-$﹊f Np$e˩\zB)W>wvx6q$ GqXM'5Y vrJp7 R>߻^Jj1uOr[ XQWV2* vsZQI([gtLJ/p&:oTT?3!HS$;w̗v)β+ػe aAp¸jB_ y,=p=ʤt1*Kb.Y ۋ$VYPH.' n#;}ĮT$*_qJ!zOw[L~gy3Gٷ|n"6ML0&QQ\^l|[h'~aɠYqIc{UQ$n݀( 1p'$ =; z@h&Es۳d=ڊޢ(((.hd2*7S~ »3Sq($ NAF9n&HgmXg)0  $I 8v\m,@܌00);M6/ľ Mh#\̲Y#ӯL㆞fnqQ^ѦjOد%XO(M2( `@ǚ9܀pԯku߳Xs#Y͙'$brh''&o^[9-V6 6셍A#] άjS5:#WY[[\Qsw G^a60:Pl[Dn?($1od9kcM]0i6` ,jO%G'Y7`^RUf:RKB gd jz(`QEy'%\gZcE7xּR?ۏD^?toEz ALUjkOM=`/-ń^\[Mtadc}MmQ^Yf.V\1 $1@7sgӢ(((+3Sq($ NAF9n'v.hd2*7S~ 4 (Z G5 T` $ P6G i 6F\E f2rބD<rZ m@(P10I6[g$i!'ˍ0'v* Pw 2\"C2 LR*{= N3ZE}>=Q HBxL%nR2})^7`|VIlݞ}j9wÙ-|܃*2c8iR%x5Or|%c?%>FX'F _b+?5|mdf'fKgi.%%JF-m~]2 z+Ks"r!RvbB料5HBA#:mvUP*OcOstU4NV05',915HǼ +XZE>dF93lAKַnV VU5Fy"(Œf3-c1׭׋]2Gqc͊KɜR^WF?Z֩沼'"^0赭jΣOM=`/-ń^\[Mtadc}MN$CQ[qp0Jil@1wkN((((K +F߃)~0N "2=( . ' lAV<=5ֶβѢࣖݔ*,G]hQ൶ek Y\ȶ'̈#G&PH;b br:ƛg$ =V`m9XXԞJOl3`n^Uj++XܭHbny^BJEV ( (<3+cڧ褯]7xּAǍO_)+<'`hcyd]#?,H鹶'5Ep7WknC@ZHR hUK4.x*c$ʣvZQLB'Ԃ3BVqm{v$;/7VBCoMł Bcʖ+hě߾ bI3z^,](!l ;H'~aEPEP^mSRWׄH8E%z]#?,H鹶'5纫^[k7s - D-*4{A hW9x3Nդu"\[ Hm鸰RXaP7bVT&9׺k@I-n BTۨyq>@P~-;y}Z;]<'ǡ%WGD<0Ut ZA|Aapz+, #,\n֭ιcl%`+aEPEP|ElxTz/WF?Z׏H8E%z {/' أv<>ݫZ fq^:j*+8͔ mׯ}B]2{d`ofT /#-k5X17R(U`\- 3q~ { Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@+ EnckO "@p@Pk1xoIdhtq ֝JpVYr[+KU-6e $DFEb30h H^ g8 <0&3c8ZtQ@Q@Q@Q@Q@Q@Q@Q@Q@Q@x-U=}<.c$V؉AjZTg E$b9c]`v5y?-[o6PD@ h`R ,yٿsgkN.EPEPEPEPEPEPEPEPEPEPBu[3w=El1 E$b9c]`v5Em:Ҝ#Dyrk*3O#Mom(ZLa“@֢_jln[ixd댎άPEP^)wxT3*_)(|'5~~O~6s1] v<6A$$MgxOE]`kZi=o6q̷b fqp >2鶴9Vah›uݝl˛@` $Ҳr1*8x# + :ܼHFq7g>UQH((dO,αwsrI=fmMBW\Gisq^ycYi͝PdU#SzyZEi }I/ }Fx?-Υmӏ,āclrT"y[mq8*;{5]^%Iє3 ˑa S@e>g,vPK:]LPy>)_)AWծQWCtc$Fpqb :oҙ+Z \X~%7c=8MRy=³a_y֢ +'6.l`Γ{d,|vrx6iͽW91#v>FP:cמF5[~/UZq|ZƝ) gUbr} @ hQ@Q@Q@Q@V~oqu]fҋ/|B9Le~e]@ַqܦ7ۣM*3 r=ECk$1iYF)sToJ_ٶͦGvRF$bbo!p1z@VT6uIQpry:(F=6wO\3f+Mw G$};~z gbʼn1SYTUmen S9̖Y$$#-ABc'$Pw)Vg؃,X& kn-Y _Sݒ7=]oFA'^<~?v4QEQE^PE}kJۂMpLubSԭs<ޟsp16wqZ^]ƅAF8$+pMCoi/f97%QHd+#.$`֠(((_a-,7,{s@XI$'T&{qZBz K`8#?un2@/^[XD$bVmWnʣ1 2OaT/cxE9 ZEk{e Zyz4a{AW'^r˺ʻ 8'ր oO͹LoFTg%z/Hb!oijЍS6 ޔ,mL(줌I 6Bc9Nn3!Э=mB6 Т*8ZtQ@`_] NF_1¡T4u99\,ʹ>vebK8ٳO!,Ϳc`R9b$mÚWjj&UX7-ՔQےX bH9$wpGVM:#ّ \rl`[j躥֝s$y{KWHʯC+`,Ggz.jo?mmyn[rvCKO'\FHp=$?5ͅkÔHbET!obqw4mb[k7ncdrؚ»m yC,7a l@Hi.|Om0tzBd3Gr1p =g:IŵyEWAEPUl-5Wְ]D$ч~OV( ?+<=J?{#>;g<hw5шq hTnSNҹ<>&c"ZxB2rFj(((+?_?tm-[g/p oèZSVү,|/P<;n#8ր)xnX+8^+yK@xx$eG8A^i/tlE2ŷek)EAb@K!QEW=䎄.x=xWiwm*iy?\WmȨhdF$@>db@? ܐqf:O?ʀ7-yH^ߙ $ (~~^(m'M3Ư9FqSPEPEPL~$p $dzV`A{kVO}{w$ȧˍ4qgr8 VQEQEQECwmַ h\H5W@I_}{ycb)#Y,85HL,;lrT ^FȗY%fN8{b 7+~5$i/=j*7UA ۴|'_ˌP,b<^M#BG?8va% =9~y?ib 0rOׯ4o^& r1#~]‹شE{ Jaqg?2+t88?ZEzXB~b1qdcLr5Q@Q@dcbxK뵍QUe#aB=u&O0WaR8^@}p q7^3\Vث\[XLtxO]?4kOK&mۜ{ ma?( yo'XPkEzQE_*]#:A:ItK,]Ao'p ^;5Yvo!3n\~m4ۘV6fifR]!"0~eN]#5/ti.>)庿r쎄#vq˲ZR0 ^ Q{!v 8,_-W-pOA`}4}gk6 )}x/7csWR }m ՞6 2*?.a׶dw]rH|}CG6{#kPEPEPEPEP9YڅGmvwpѱ빎Tt`06 >I* 0gߚ|ko]ҥȎ?M!^љC4 cYo#uxj"/#<4e QEdo'K0B~R'x9H eyq>;#"tQJ<NGEKpqdꃄIY{ :OZ@|ܷ_\j7헛Pz ;z~^T2 U$gۊ[4Eh$8qz62 kw*e2F#bNwүI(X 9¨p9>5k]P4|RPcO"(-pΑ6ϮpN{cN;Scu}\y`YC/~@1Ž&ȅP1wZƍkp+#kG?=(??h G(Cr1^GOlOyE ŘN #}e 5˹zb @(+'_~y}JCwX#"1wSOF_3f,z)uWs_GcV/vDG@ׄUѿY>WF?ZֵQEQEQEs՜\AT}F| jGw OOFoNPa \ĒqF}Zl&ޝ*\2@=ld3@57WKN2)8#@QEP n5m^\+Ȫyh$!Kx^mCXCaU$3:# &$6?ˎj_uh\WNHġJH&AZ,uq$[Gq^@B1ͅKFXW'n+?Œ^c',""2Kor?@@"L ~SHS5ݜM k4c#>@A=BXIQ[u# u 0V+m+|Q 3r(Rmt\ɶFs3x<Z{:klW< I.=Jpx"4--6Ckkv'(((*aYʨ*o]PHPn%ɸI2hc*w8ǠĶ>O&&8Q--jnt[uTQ'&+˸<q^hf?)vLOH} umN .vAڀ8)h W8~ܶ*֣w%ü-+'?T exGpuKP1Vb@({"n|mFw8'Vd0'qOWXDg8'bibPvxu??v\t#sʾߛ p VH 38APY_xC^5j+vvCD$>Y:/M֣|ͼYp#55,4˨ac['Ӭk(K4V$H\䐠~(Q@Q@Q@Q@֚DJ{8g5FCh4c-Rwb!nnH,w M#t8 VPU*B(+3eBÑBic'gXK;P9$€9jIiS&#;rGDp*b؀2ۙ`D#I+!Pe'I:Ce,!HLGh9;5Emܱ$ȘZv9nq)B#VHTx@2e99=@,frw(m),[3x,d1ncR20\~p8l_ Q:>R r?-._E䪗 欏˗c7<oH沖Q7)xWkyRlPh;r0SX& 5n;af*_>;:WkwDE^^u.|I"*m[yWg ?`fv(68nf<(IJ1c8'"^0赭SȤ iE:dDd[$n}&77fms۽WΓkg, 9d c9U`vjuu!8D Xfw8s{UipfQHzmŜܠ EfBXܛ/F29 7szXoKoircےHwJy9/7UEy_0RbX ߬s(UmvcXxdćNAr gx\Ddq# T+oqpEqFj&bQTDn7Ip mt1eԯ{Kx-#x:O"q$E@"1[KolmcGk:&tX1%~2E'EK,2ZaEv.bA Y9ȮvV)Mvdpuͮ$8搆Tl ^Aas6ro.u4"ǔHQ‘RHZ2[[{Hx`-$cAcP[i5ϒkxS2ffmL{UF.H]]k}a}:H#Pv_2ߑ[cPgV_41t[QL͵m 䛽r:Cw9P]IjOԶӮc=bCbV"?{'(-iZMM=d 8*|˗۱ 78,ȭgW6G%HXƭ EY[$m~}w!}VWGxr,HaBNӑ&IZl:|j *TG$K3)tJE%/ypUB*+4yUPi8a[$RvU`X'ws0 ?˩KKq=B``)$8~Go.i%6[-)˂3e"14SfFn c"8{W*$hmbayAcI_ƀ6d#ة)ەz\;iݥc\>ء\F88N`ܫJPq6g 'HpU*6%ljyl)ju;O*݅%$ĂB{:(((((tPyvY]leʾORi>4V zuWF?ZֵQEQEQEKuζɾ=R5V엗W)J퍻EQT #ݙcesVhEw7o߷R1?s"NVj2#tkV9^YvdmUyFF H,#VE ,Eg0l.-m"HF ,$n7ny\[ =;FmW(7 Musba &v*2D#rɒZ_@Ҵ궗F 8 *̐"c|Mof"ŌSaq8s]3ވS\jtͦ=IDrc4quTཱིԭu|ƍ%íVqʸBrG2 [V*@'{\/|3K}j6=-ɋ=?9=Fk4O#|叧aYvQ ez׈'YMs#=cڒAs@2-ƚ/&Ư/ wLv<bpҴu&2Bb{cY!8"8V<@mU̴[2enr[3 63MSلms䵸yEcccv(((((((rIO\.ȗ ".fA ~sfNڮ-c42kF`1 ۵K($mҹۻC;i E;;@W@X9cvr@8'/ w[VI"xQm 1ߵTe}gʉ3$^dc'?h 0 B,qO6iyw;.Cxxlǜe5;gwFѶ.@c(e H P (-JcKgYQl_02Y" E A` okXVl xܦy oL-1ohr.ʘX1F$e!F@ˡ$ EC\rUyǰe##P֎MyA'-w6 4D #NL`3jGh+F{hɆ9vK*;:u6 +^^I'{2[;IpY,wp*R7A%m)]. G ȧe܈TپxkΑ1E9$wZ^pUay3yV͜b|ȍ4rg- '#oܭHQmǾq5ܼ^l|[h'~gxOE]`kZOmT,8=(7}a8 >=^ )gjѐL=gی{I'Pj/.-&:0ݎ21>]!ḸbHb%v46o o;5Z\ER((EEM=*\%Ɣk!Cb+ #'S!ieb#p塾.1~p9a I,ܩ-TaH kc2ʍt D2 BLX2${MP>VDvye=o&j9M#@pU(ZGM= HWkrn6#`x';hI!vy0c{X` ? }*Ba7Of(ϒ1WJZtEXEVC ( ( ( ( ( ( (2;rpܕ$Y[6o61>ӧJwn;^ ؤ++ytDs֥I:]^Gi5fi#z;GzQ8?ʀ%dʌY@۞ǎ gxbwŤO򋙱XȁsD."r)*.9mI-=Vb(bi(m8 R:Hp+֓pDL\N@Ec&(ZI"omڟuc9kQ@Q@Q@Q@Q@Q@Q@Q@][ EFco?YFa [a3 $բ2uM>lϲI0BN#K7# :a NU{+]EVc@! ʣnNFku2oV~@|G^~Y8yasm*NhNԚ٤#uh$[yxnU ehqe8C6ecܟ$ XǾG 3 O<r۬F`fkWiA f@LdTd!\ RklZR ]<{knJߴ//H 6 ڠTM]0i6` ,jO%G'Y7`fsNYll,chlpgl ;H'~((x:ƹ_Q\V???toEkVOUѿ@Q@Q@Q@Q@Q@!դ-R/rFYOyޢL0ȂriӧY&ShQ\0Kvd9l  Eih[JsY&8$ɀ_?3[Ҽeʹ̘Q!F_1PpҀ7h^ҋ"x8InN2 +f8btN-k`Weej]ma,,%֫īŔ,jFݎIH!QG5QX /_dN>SW6KaN"p P¸ ""ڬD,6V l"n\6n<vU#KU^O*y2$)ERV f"0 @7pX?KCusmF-2r2Xd.bg-#[X仏Gd7~eyL|ƤDd ꜱ.>R߽t{E+LqDm~X]',:U*Ϣv4[Nzahɀ sptdӵV I!$A؍SwLg=8j+aEPEPEPEPEPEPEPEPEPU/ӲXnϓ0\2?NWAtP{t^KydesHU$n[bsme+EiyI 0+ ]AL0]>]7[Ym|Ő\ڿ&Hf4=u)Q Ql{@?)IfX(-Sƻ2m.\9mp)~(((((((((((׼jCq.-d$6tX),0(V?ZXb\I୐O\,8((((-5wj~[} sﮖH+V_"%dR:{P~n4h_@~6cb7cLvh"eBA>=*" 1L®0T;<{h6.c=[ 7V*Bst5 mc߻92BSOil-V$4+dw9>TDjBK8Ğ@a6o|g. Ӣ)QEQEQEQEUK/)> stream xRr@ W.x )3NtΰˤPdYyXqHɤ qnǀw>7'aw0cGm8}x7B<pMkTawPa+j, >tCY+|PJ~ 6%xFlRo0sH[fv*)9ɑ5+!Vlp 7MT8+PTh=AYpY{ϚY~fOsĒ%Tψaή7>\ngNXN/G_\[JD}ιQs*pxl@'# Dz{b-.q;<䦸 "j> stream x흉ev=0 !JN@㕀xDW$چKlb:JhOQbAQWw{n՞-3;Y;ΧW{ǗwVջU UVZjժUVZjժUVZjժUVZjժUVZjժUVrFB-AAf`i5E<{ZTSă'RQfPsC8bO~r(M|WT[(M]PSp#.=JS)a>4V%WU1j)QBMÉ\mȨ8)⑼9plhr1sLl(__ǑD-}V( 4|b*##[1s\8N]9يMqV#U S⭠ርG (c&q8WrW#Xq=+ TR<.rU@ HWp$P#-׿U2|UG5M<{DL[ _ȑDz{{Goz*)r‘s*#%8.& R9V*#&IABaJ8Y⑐c/ o3Ԯp8Wr$S#)Ƹu^S0GV"U 4Hyт8f86b*jxdI8`iIxَ+}=oJ𼧚'9FK ˜9q 6#%}qD*泧N_!^o*e]E96셋2G6}UG?7]+J$@! ȱaTWqD Ճ_σS˄a9W 訛[X53GNSHlGyr2Shc$:Ȳ|9ZqD bhkàWX@9 ~_)/v{3C=8:8ZdM( K8"W_ /a: 1.?p9Iw (G0t|<Џj&֨qLnd $g_ƑNՏG08pp ݻwWqS,a >b6M, w 98ҪJq±*#  |58H͑9yO?+H&G9B1b~ؑ#tUGz5A<',tcx睃ln±/|9ҫ W:80^1q) H޾*# +={, cc<\@_-Ƞ&G섅8 Ϥ8qco#g[ƑD&GB_M8f c<#U^H mh#nE8818 ȎM6Wq^6 ]6Z񈙰D3<4!l1O i'GőHϿA WS) r#e)Wys$\Tb_61+\.;9C=. eUA|h/F -S8zwG ㍔GH$lt Tth#)TqwR[*mUG2qlh3#Z~cg9A9pR9w(dѣ@U1TcI80H?xq?.#pfGtE  Vہ'|R GpfGt30瘭ṗ<@+)Wys ga!3csG bWp$@9A=x"rVÚ|J+Zs9ccp޽{l6@rU1 Gqv;;{{{n644+Gpf=aA q68ri.ݺS@^ÿڵ PX jx}u|A8 vm*[A^@rp8a2|3wn/Ad?c*/ pf-a<1YoY.#\?|1kC@vaSAN 8s9@x .uI 9A@IQAUQa!S9PA8Յ0n$xn3H$' (t Sz f1aSAbڅ{0OB݌c۶aāA0(l·:ksaկ*q)9%at-  @{`a$g_ƑUdACEoc rbuK9.Ν;!ǫaä82 ԁE ՌǷ 8 Ѧ^F8O_#ʡCyph*#/]σU ☁1γ0Ob y94PnWxBaKMxQ, b@VFp9Tt"˰9f̘9^)B-YA->xQ@@ h7e'S! P|4L8!ţm:X8>^A21讌䛇)WCh8zueC>66 >ŀrVp4$9%O?_qi9t\ >ŀ n!5GC⑏ G׫p W2 ##51GPFc Վ%iB!@m71 c-R+1 `,W7 ="l W(#,:CVNbLM8a|mՐCKW1"yPC,ա9B<* fv&)H 1ƴ t5Ř9NP#Bx:P +#9"A(ɭJ3K.${ hip\s,[&GJqUUS#?_I\@0xYxb\}5hw ۷oG G0)Vys<ғ4\w<׃ܹa@j:Ws@Zd~ᐭ>gG + _N xlݺUMr\9nr`p+ў?RAvb  $ [naG\vv=\~; b0_őaTG-Ȉ%pRȅC4Il#yHi-";D,.q,qır篼$ŧ|8rW9ǃFƸDvxtuY*q!CCAʁ#/` +xp#A~``2}.sAR9V Ն+{ܤۡn8%?2Xc/8;Yڅ_I0 ڵ իHCWyp(4 Oy<O_0_l9*w`(F 2J1 `(pa)hr|e^ 62ȽcZ9 ȅa, t SbDLN(TRq5r%Ơr, RՆ!G1bL.hȿbqcs,B+ RGAƓxeRaqv/0sw8G#WL8aq2Y44bp@ AViUV$ ge<1J3V0ٲa@G1̱q B*׃>3D! [+O[1l1}s\w1ÌceU&MWBBA KAxQqA+xq$뗖qŕHс%r,QWu?Rr4\o+H@19:3 e[})Ui8&Z[ăMlҌ1 ` ́@ lvh#a6߭ģҺ ql=05N=;7 r@[5eDy* #po!(!G@L  IB:5p4PWwRCbcRʁAVp+ Rm"1r4R|M8"J @X9G jy$-4Pz JC +V`5q3*rJ!GH18,6(*yqSh ckF:Q[EqT)aY6+%]ZmYD8Fw7x5fj*n]Q5 O*-Ox\M5 bo^,TWZp=jWgno4K6wO*q$:iK=ۦ_C L9`-Ér]sVUm-)$b }/%k|G*l ?峖x@|Ch|ZrZ#wҖy*(8 }5Q|up'+2pT%;?VcOewo8͞h-sVW}&9 ۱W"9!B_OL^ᾚhܰi 7 {4[G~v4l*45_OLJ➷gА(;SϪ'*Jf#M}"ǟ b`RCM㟱tiUDx&O:6_E-%_}ڌWMVsO*]@Z,:63,Z>e۴$Z9X݆BbP{ {3^{QD7mZ~*iD#oص_f$~-T {.qX}5ai|56(lB18$L=H1^s[;S8쾚05;Bpiss`K:U2m)<K/S5&&y[8gc&8f%AHMcp}4^{<}+9kx+D0ixgCvm8LLDHhKg75x&,fފ};;_%: |E;wo9ѦRr(_M5W[!18fXiA9쩄?Gx;,OA?+G2*C l1t׎J%a 8~tTIf|{y< Z| "a `lB8/g3_%۽Rd L\#Wb-m+@%ѾI}cu@˗s3g"721J~)G_a3=b2MA}%<+eіV |ٷoB/xb&yx?@U+mP!lU xW)1s\8N]?>m`Az%G|_We_ŋG<_Mhb [+Lס<W%/XP^o#Ë}eJʠ+TS{c1s\8˓,uS6Bl)1|eVj0X#k@]>'tXq=+ TR<.ʜ*WZX Tk% m2B\aq|5g  ]`,O+| *6Q>'sX|e6B\Rh' b=݌ǒhbزWSlFl!6(V[zi|Yz{{Goz*)+(טLMhJWDaЮfcs(F _BC TsUnK+0kЫQ*?{h|%yژ(Vbq[*!Wb Dr/q-!O%lN[N ={ FK ˜9q 6W>O\zWc8aE}V G%HaۚϬՠuݞzU.rl eDҳf/[lN6SqBsi8STkpX}6MW(g0 Wޒ-}C~%%9KVFpD"_MHWg+r,@'i*l P@-ZUP_K8|Gyr2Shc?X/m VqXjY+}!iZ_ rms} /90ĸtq&q߱&X2wG$,ϖ#^2t}F|!!DŽ a H8Ni? @v 8W: !$,} B:?b0?+  92X&*hTE?E&{v#+BeJŢ!%LMgq|Cܔ LXr_HX,e >b6M, wHcU))9q[ЌԢo0lp? Kj{r 8XP8u)&q[7Ka\ݧG?1h͈I$G$@Χ~ @Ugq5H_YpZdMO!2Ve#4|T8Q ;"}V;bq(d#MðOr8zR9v =r.qLCsAԟM86l,%͐[ Ha'Sxi8 | #pac߇9 +t}ojmf_xx$*rC_:{,XybY q̛ Hᾊ1K } G%tG$I8 )|Ljod&_)ա+_OXcYgRR81^ UQ>@Jat}!oL*&BqmWSO?ݓ9f c41#&VI}5sx rÜ"wHṾ8^֮W]7GD+]zӅOPu9AꫨO1"3t?ttt̨\;Ya\,ơ,ôXFxCl+}u)嘎9hu8:DgF_z鍿>vLICqɡ-p̎Ł5Y%&_7$_o=KE#r}#Gћ!>Aᓃ9;)Q!(6*HX? ,yc~R@F= !ny rXFe|D7 _8*(ΝA1cC},g a {@٢}.8[a!秀µT ^z 1`^<8,T4|+8Pg]J3S5C iN ?cbE) b@ +~8pؚ18H@4q9ΡnPUv_{rQN)g݊@py jc[öcqCu΅WC]||ۯ!ᘁ9!:;exc[ c acs_rt 蕲G7PrY_|M9T#a19F;w!G A:r¡/o9hA'"aT4O-pk8U2jśW_1Ȼޔ Wxh`t{oOOφ 0ƚ5Bc vC 㗿:`$rA8ڞ 6uVn8t_J+sAdETNy; bk ?ԭHVS%V1!rGAwaeҷO,lB8#2NAcgy0ǵcۑ#MnxRcZwgFc[909+(syr1gy RP@?ZY{VVE% fq#r8lb怏% ౽{^{-ٶmA.jT8"GRs枹q|}Y䰅q)iS㦛 !{aD<(G9|9\q| KXr9Ρjڅ_nWG1,k6Cfq 99; V18`wmݫplJ@FFA^@rp+_IqpXs^Y{Wsrq;qv{  ~08y9#Zs): rd+{:xc 7|\y޵y!])r_Jg8|UWp)W!٘,qM t!_]w8=X},iH1A^/>ҎpV S9PA8@ n$xn3Hİwڒ#18X8,>ʒb 1B={]]_f۶ # 2n8ӒXJ9rH9pL8ڔq0`_1&y98ec9;brg.J'-W 'F@(XRK. /;wBW!GHà+ﻌKs89dcV>< 8M8Yg`6=b6%"Ǔc.8rxȱ$ oWFWpL‘8hA30FyqW[x yM8tc.%ǒd˹W9q98K  [m^ d|<֏d3p,i48Sm^r<"S9nj30}+]%Wdٲ#EH  z׭ϱWqL3+95a1 ahx@-mmӱ?>jtppa +)#ǒFsVr8_|_ M} q( vçpXPa*?F9Кjx0ロcL}\ > mcI`jU8Zt+e_-g(| bpws@_6(1v)Ǖ]-Gb9|FǠ[8r,i</P7l&dÄc^ 9{%PW B1ȃC8&5s|/σJ 1ƴ t5}uwzq:wy!Gk\8|n+drxi…cϞ-u_-[&GJq+/ᆣ/☋1?8+P&M(پ};9QFͱpZy9_ma̝K8ت]se_]9 h-2?ăp([9Z!+W?W- b,E([nU.hs~; ᶮS#Gk,?gXyq9rm@-#]VN{+r퐃$heh-ʏϓ#V`cP<NPCʱp!K| 'jpZa]C^~Z@vq / *+ ǹPCBqK@weO 4"՜8&Aġ#|S]xp8|OZvD.ۊn_2hE8d+qsx񶺋9eW1]I@xa!beipt1sg_]%q,}?+/]PTe-@m`;xAhGWW?E|us@! RT8h@r]M蚣0[8@߃cx૫TB!JqZ6_0;mcy7G{'K+ ڵ իH1rQP㊂Hg2hAXI8fykU8ᰔpL~#8ršt 9 bnJ A}A.Dc),#=pk儃^.X$-dx Ƹx\9K"ȱp,e[-#5Gk9褎 G 7Nq 8@9 0"ı`,[+#-Gk99\p4Vd !^`xǣFÏZR g *C%Pccc|. 5- sÏZVHZjXi8n+= [a'_5#)Gk9RqZqzIPž074!rCX9ɡcc.bDqa&LtR'M 6C/"<+ A|?[Qw;Gk8D"V 60D0V+ Ap N[8Z+!OGa0V@90 + RtbJI{7rVC{ǡ 6jE0 WG|NA}[C?㊊pHCjǔ8kY`_!up_N)u%XS_C$a@aǟ  )kXA8xg!ƺuCAC%XSXg4bZs.(Q8qn,GyluS>0A+ѷǣ,HʱJ+Gilo1 nk,XS)X66 Z@Y 6!k*P8TW|e(URu "@_*Y8TstWCZ9Jm+;V.B뺱z G]9v,Gmhu@6#_pT×8_v,3s l,ā{*`+×96sC03ahĵɥ _m=e=2>6qDZbxƁ ͕t"bHWU csE9p#K㨌u@_ TqEd\Ud,\QR@Pbe,3(ϴ`<vJ0r TsTVr@P󰒶2pTV8Gl%v {XRJ4QmU-;E}Uph-a(DcUD諊CᨬJ*MB|Up@9k+/*(MZVU @l-E8 x@*Ó H3pU9Yb4!GmDhVA1jIm說(UVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjR7Hp-ϛU?&͏s;UZ'''Usb֪*U𙛸h- ʯXHÕR/yIUU*-!>򫓶w쾪Jk 0_U1W3% *WiUE"G嫠_ _VU _!k J _ϗCR,_峖T+|]"|n. ( !sku^(CUFa_jа煴}^yҫB_)2$SIʟRYA7[3^6-[VɶeIֲjiUDx&O:6_-_Z{8CH3^fjRZ, myZPV_b fi0UIUЪUmV򵖧OHϡkWZBʓzA?o9 )l2NհMׯ_q#uAel|E>螃7];#WZѾB]<;ߦk'roBf$~-_ji zAekeK6WCaԛf_m g!OU%SzvU90ҥK#ÚkҖ}e|eNh,&v4O9$_2/C =M @|%gP_dW' ^r}GEhRV%$Gxcl&9ΆKC} Ujӆ GkEj2cLg)Ѡd|GxGM/e0I!Ǯx+b*qڹpD8ڼҼ#0\lwԧ4:J3@=[3VH-vKHgO%v8"ފc+`T8.PшV+g>1GXP[X8|e9_%d#4ð0j->{a؈aA'GMCRgnlB8/g3_E*r'ŷpX|W_VO-jf;#}%q+<roC|:>X ?Ei xO%iWg O+K YCX_ O4` RȲJ}6_Z z{{Goz*)*5WZ 0L25+9-&9D%6Elr`1b"UcժD_Z77phү}CI+c1 ?<9F2pL2ᅽb+E6WRҊ+/$ϲCvWD&q%|e,/2YMTb6X1N 1d,mADξOphmu19( Z'U 8o6׺tV}1.nGzWc*ѯ=4*37uIU|m{9ǛD_0|0zo_VXa O9ZLxF baOV[%^#ę)M-g"+H$0oؐu+=O)3  ̱q#- xH+->ú5Y)|uG_qϛ'<)?->ú5YN|'Ж7FK ˜9q 6JsQdzLa]eX4#'<ķ 쩓+tw!=HpX |xNwXs*e]E96셋2GecDi|E8 +R_E4"}oGWaW$Ҝ  D1$@! ȱa$'Y+i]~%ekt+T~S>NL /2GP~%ek|%8]c ?7mLxJՠWqD*lM_d8N|ZZ mcv3V!R{pGyr2ShcXґa`F_LX@B(_MbhkCK .{!!aceTsq98`g<|ol+i03y4W __.&(_I8@ GqȟW>}4#`,hk ~һ~E}|9|%眄tdhU0+9$'^K+kE(=8 1.?p9Iw Sa?L>>[Bs:2)Jy5eN* bj_T KbVF eOvd1Y˔T_krЯF ǜJ_~5b0?x " |rpN8NS8ݻe_)s 8+eRECK[& 44%_yQ-pXye Ǵibٽpl_ 2&l&,Ssb> XV^H!l4Vc926.8XP8kΊ4NaZgK!2X|tAܶ}UUA isdwyO? D_jNɡ^IoZO&Pc2N0\,~~Sp  80i; WD:+9uU1}0X*ԄǖwF_Epږ eX?8%iw< >}C1ƳYIX!\OaؒCBnð%Sz4Ix_\8z{{<ѿsl*tmi8L2 `UX- aC Ѥ@PAڳgA1,8UЩOuW9̾\]._}ð!〫ԦC0Xyq,@I9@Kq8zqӃ* +j\< !9;$l[f_%7;qbB>TcP<͓8ٛSߙWQd2J[6jXާ5RqwNlrV*8opbq̛'6m }L_WHL7 %^6 ^6jxuL*fa,H+ШYXOQR|e {65AnV-lEۭ\>xMH^:pL'D*[o" |AۤsfPZͷs+K5Cݠ}NzcbsV8C ȁAC ?Q7htv+K 8|C߸a9]<(VyO᠈r7:gaQ{rQN9Ο+1Ԋ8C_% [fSIg p k닰a\M:|σo~Ko6af`sƬNc atl=V Khh90({L|ob|5}raQ6]ϼ)鴁a z&3csG b|}h?$4ԃ'ЇF`ڟZÚ|J4 gn{[ / 9~ ccFqhsOJZG&߃!38wK8FFAr9sx裼8|f/GyqwAg8nfxp{(͛7ڥ-Jvɡ*/}\a׮|VAq68 s8n9H@]뮓@s˹% qdpPl3z m?ȍمHP/mOg@CᐋGWW!Ǔ M%30ğ̍c2,t Sz urd|SAbڅ{0OB݌c۶aāA5Ɏ9tR- Pm<-9rͧvLsFcѦTѵs0&y98L9!\9&get䳺\9\jec@(XR`,aEsN*iwxt4G7sVp`_:и!ogs8TZ&30Gv{1GX"r&FKƁ 6s,g}v/ tWaec*#?_U/>ů&pw}lll8|֢c۪%(#G+1r5b`w}7ǘ@kpç-D}UuR8G.!G߫p W2 ##~GCöh+U5V;#DAqF] bu4A8K96\I(^t>r1@ݴB8 Q1\8"s $j,rYhE8Vqsx4e 9pLzp#>'C8O3rbW⬅01FFֲ 8ƹUB j[ sL攮L Z`l?_甼lv 1w r ţp"WQ 1 Eيe^+P"kՃz'1e~R<0U*jtx8[wJocX8 D!0ƞ_~qw `@k)Dž"իW bW7CWPhxAMnŖr![yw`(F 2J1 `(pa)px_X.9rDܝsf/gA( bnJ 1k- " r #4vQMX>3XN8_-8`Sq bXc9AՄcGWi+eRPn+I:.8)65+/cXI06Vr#GqǓ/4.8 h,808p@H9;W6dg *C\`GְШAV-2YXt`\C1}x  E |*EIpD_p*6QXdq͖- r<1dE!Ulō﹖@[ pC°U%YcG1xxs<8֯_X[qIXi8o7{ /;փP,spGErJ±~iW2l45 CCY@6-8~Xi8D4Vizu!k 811G__+u?)7V*V 6=O7o+(@ s1\gA༹lo~79٪xZ[MlRss +(xׯoК8c%m9 wX9[3Bc`{Xr\8B? `W8MDsf%hMػT AǾ?Hŷ56>Ղ m|l=HyfBic Z9!Ȑd+^K]OG `¿[/Cmn\J{(Y9dhhHUhc8B9Nq(K{qJ`ׄc@+0¸atcA-\Ǥ8UdZJq8`%(,֕"`,s̃d C댶 RSI';+0 Z,}MH gȮ񧂿=m$accݺN *R8$cEp:-@AEpK=uXHk ^d+C7 $r Y6+uS>FW}p@5oUYleT_8j+mR?jY6+%]Zm4"0!k1[%X626S!+=c8M=ˆtjBd:A^|UpfO񕙣L .-}ԳlXWJ-=נJf+UZQ&[·t2-rKϲR>Za=ܶһ62 w>JOv60%ƺ_ۜBI GyWa^I,@7AyfV|TBe'^uBQE !Ӆm =W%|RjeyLeZ"6 1_u#U3?}%qVDkuCiEksBc@lŎ74r*0SVB@V@R94 G9VNȷ)cb04-C8Gi-@U 4el,od+Xbg %4%hQ5[UqPf./>ڪ'uT[0[Y4%R*JRx_nb,f+˭iJ,XDcURp[d,l)xCm%7TVb2oMSn8b*XX`0BM[Uv[m+6Wl@T5 jLcUV`"s6K[A9Vgn,DWP, 'i&>HpԵyTsԪW'pZRBO@¹Vt?OjJ)Rӿ +VUjժUVZjժUVZ])endstream endobj 125 0 obj << /Filter /FlateDecode /Length 428 >> stream xR=s0 +8BYرv薞^(m8 H= @<Ѿٹ(xf?`˄-MK58~@b;lkDQx×!Rˆ\(-KG5p݊`SGEXamQLzmT\r!9+ zÝfS,ѐi*'Z5o!1?*25ex&,v4k2Q* f0 >ƚB ~w95[rc(rϳx4nl9ؿX^{V-i|=/a?|JZ2S\bQJV'I7{(s*byӊEX`;6EHUJ$2dZSZx0Pi lvSw5bיܺKendstream endobj 126 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 600 /Subtype /Image /Width 600 /Length 43688 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKXX" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (M,pDQgw8 $PeYϕ (] 1 22FjN4{C/ԇaBlv:mE$Ǚ+y$qؖlg$p(*T֞q rd_ݣ3Wϙfޭ[JP-̑̉Ԥ8܌.q29SF_U6Pnb̑˕C.q284nRh8W$Au'x #,0Ie^Jmhnw=˲EqK˕'4z(((((((((}Zi̸Lq"Lc;QAfrp&yZ.jxo@Zż3 -cu ɑ292x-SZ{;O;Y&Yɑv_>g}@?zm`6ƹ$I$I$IIB:/A@,[kM- ڮ継vHpN?rqr&U{ MB!Q+n 4a=3ߓ?N%t^קB:$X ?OkQY?kmƭm.|Z{(1!9p$C ( ( ( ( ( ( ( ( ( }Iuۡdc!A<=2jڔ2\Kgz`8#.W6,l{\K2yp38=I$*ZM"hmg1UK 17@;W-&YU[c3ʜUB:/AV/tkE ڮԹHrrs/QY>~qu.ٔz}d䓁^i2ʪՇUaT,QEQEQEQEQEQEQEQEQLX8RpI'>UͰ?v#&pCEmFHx"yv܀;%_dgШnm`h.x_+`d: :m"kܸwOY%K}F&vSc 'BI(N(((((+'V[4X⸈q]B8aN"4.iSªd:E++C&7ؘ }&k]&([IFHԒ#HqchPK:{ƻ&,@VqXZKs>|Nђ}@+&FGmeq7.< *2ĪyhA2WU#1y&O%8F<-1N̕$z%<-)P:61FA椤PVd紒{ ݋ɴ3ќze'< i@?kl+WOdH\['g JP-̑̉Ԥ8܌.q29n_iZym|~x(T9[~ɪǕWp݂.NGc[í7OM#n!<984EPEPEPEPEPEFTQn7a_ax?1 g@,]][@7I+U5?q?Vn |ۅɎ%ǕnH,q`(b@ ("8P0P^X@g!wcgx B:/AZՉ᫘gnؼީG*F ¶7UWj\$P9?Ĺ9RzW _qZ/CˎHi~kuo{i7\[_dТ~aƥk6l.9 Vս =O l8elQ@QEQEQEQEQEUCPkibk՚8W1蠲<)ՓS),s:` Rʗ:0d te ?InO ` :(( zYiWn ǸW\*{pq]59nn%Ep7c~3ݡ8'?ZFRwfM%']?cw[. "c2)<yW/.Cs!hC4-nZeVd{/^EUX-\K@ =r\0>>)n;ٞETQ@2h'dY"J8`x Edb-:M̺ph 09„_"}tE듌1NN^PcuJK p\dw~ub5hM$滊$BQ&WFaRi,GQEQEQY>&KT(((nbCm$v' 7)7Kv.IżKd,['"ZKJ<@۝Zli6i5ʛ~xH' nG'4ETWs}ip3R?E6\HB.3H 7ԧbJ͹X9ɬ+{FTGZ8a3:*gkmG V4;K1FR/ZsoZ\\Q܉r:ԻK'!}zEsZڴ# {(b[6la}2|EC.S9aӀIZ>ܳ}1sV%Dx};Kd )*)LF=6Gc$\B̛Z[v!=84ǬQLT#92c )QEQEVO7^LY>XgrInw ,"ր5((oA `6(Ĩ`(:8豸_M7\]z?[uukN?' jQm>^EPMmћ+?̚i4/>(Rs֬ W272I}uV3ª j֠((Krm+[] Ѳ 08fcJ袊+!H˟19uUx׌lcc?֪;=OW}w}Ir15>$pAʠ> 6Lv4!U#i5p3OA5$ OMٔ?GQ Ŏ^[ҭxn嬼C]I B~ \֡tnR2# ZFܫQOr6*ArT 3xQEQEVO7^LY>ty2PQ@Q@Q@sSg9$VK+w ~ qgkVSXt"rkqoVO{?ML~m,hwj.{0U9\ njdOE]`kZeE,Tdp*ndayxVI 9c|Cs}&|ctPG\3^S ;`F>9竱]#vN1Lv'$&! :WPkm̰~y$ηtJֳ"iK#:DČ3Ӡh^#ajv(==ut>6O43DHlv=MeC,7dyel~43zEؽӭP 9jflQE?toEMl NMFk$:im6#X\@<5Q@Q@0D#HG3O:}x>#o7O_'9R+HuAv 5f5_'׶Y8g뿹t K{E$d}1$O`4ۚ袊F`Y I=ymțP isqe7wce2gv,qҩ\cY޽)wQ}K3^idhIf )c"%_'ճt ~88$Vi7>QfBI#mBgi-J`_=}k-<:dqķdHH'/ro^:qfz_OK(nS"EX5 ( ͤ,]D;ʰ8!^m:k+İ1SG#nؠ${T֪Lz TxWm"n[9R)6J#䚰$Ա<`*%H83Qy娍~Vo$^yJ̽;ې1@$lR<0ޥ8cZv``uV8-D4tMN[Xx*GU=QkQcΟ{*T.c_qi RdS9GQ\Bog>yɍ8עj_FzIf'kZ|K JcjC ( ( (2|WoQ"?ݒ1A4Z $W`1\߁Zlcl%k.hf8o;@e?4=8Zb~bOSLoYd FQk^Zs+z<-nbJՅmxG}[ŷSY!88 LQ3;`ri vkv) q3}> 9#V njyV*ܯ(UÚ/D-R]#o`I=z` F]VO{a=sgGkVNwHWyvo?AEPEPEP\juuxfWYdQ|d-v+9 Q xSk'F7?yd<Q>j-4{Y;TppўFT(=ɯG|#{"y3F~S:)rsw"2V!;sC}Zܪ Q$UHϚ=0=jX!ԓVTHOXtȤPT@>{qXǿJdmNGҲeahoY>|X1MW;PlWHqqo YZ$qF kcL%zԚ=*557 i޻µ;X;?toEkVOUѿ ֢((((}&kMbmV5X;+)F|ݵpPNӱԭ5 \<ȝJIs2#V\ ZIK"ZHXe$!@PHp_<6.M^ ;Lpǟ:gkR${ͷ6C& ;OpƨG n~_z4 X$yIJ=^Ϭe:%`=M_jiQN[_~dhѧ GFpH7д#QuqwQ2˻duB$~[Y3tQE ( ( {cmU=Q2<0X2|+6&Ԟ.gg/Zp$C ]D.gum,$d#AF%HMOxQ䴹f8&D #u;(̴xq:3m햬Z 2 r};dh |^kζ)Hx *OytpA+̄|NX=8=zLB *td]Oi4-N.9zy`>?ⰵ ueUYܬҝQg#ҟo Tdh1%WZ}=9jZO1xjK8|/wWCB\cw'tPH`v=1MYI/=4hޖbWITL=IA^t%_,tϵQcNo4hc1O 1, 9 ye Kv[ a $t0"2#n4 v$ߐ*<|_}욎k cX;2O=_9' g+ޢ*K ( ( ߵiZb{wb+]浨 -uW=ZY&1fI%  [;RM6$yF)$yv˜` RK7ݪ[d2h@ 9~b@Cy_Km!}(xzuk,2ZL7uaXg8#KkXednրg[31 ~5Z!H_*@D Z˖?-HLB M_b$g랴CT`;kP EOk7PAy:Iٟݑޟ~,8h۟`z&)$ЁP\RFyq'cY6V°vT3ت2%]C)Ws+# 'wD?CqDZZ#~t5q5鵓?toEqzm2,N˄ +7}2Wq bM?E*[G9qfՍQE!Q@Q@Q@Q@i s\2rFAn-y2ɳʹv<MG$rUsS&9xE)(u_LvH8=8|JWё2dXZ\@Ɵڶ/2@swq0 V7Rl[O@vsn## 1UʅRX¤*$csr;scaWY^ݘm#VЃЊ]JV *C)F"cW/O~z=7w:t{`dMyn$^ҝJV`~w?}xM{-Re zz+}0\sn-+󃂧]vh; F8 ^h|5“G$i06 ܑ/`19hvج#gipx硩Ɵ> m&wGv;` aCaK$uWZc'+G!b؃BO:lyg Td}$INM$bx?Gu7䘖kh@ r] 騢((((MsL$R)WG S K.[hT]c @9 8R@n@,6LV37o[ՙZM{ =V+U|͋\A_#<@ ս =O l8elQY^%Zqȥ#HW;}yj47dm>f 6B0HQCVCvݶv,I~I NH 5ޜ$3[H7ܯ#Rq c&Lr<njϦH+M` ݩ?L`;Juhfx}3 0coCac3N滼K{e]\(O&濃.5{g$b,qZlp ayb27]]> VnSFaicN]J|<|]-NB9ڸ-;!620$SnnX$zɖʕNLAuo,Q2hC#gG`HuP,1GI(DAp>((((Vג]s l@ keI ^9i]WlzOHmTI;hjk\$ <f{" 0 $YZRwe'د_8 ˓ D[_ک"+i0>t5ZmM*Ȼ1XFl5]!ً5Ǽf#$ .>׌['㓅/,s/\HۢmϨsy25 v8]o rcLyl q6"M_e? z=7w:t{`dMyx_2w)at̑.};ԊK/usֵ.aI-џzszϱb\vJvO(|.vn?9ճh?v;C^-#7G"CD =J/`1HўC@4#%&i¥̙ mW[y c|Iv$үV)?9;@^k^m$dysd|A?,A+5M-=?P1jgIΜ=~Dj0d rw](Ĉ4wX2}_M, >+hFkYI8Q@Q@Q@Q@Q@Q@Ԛ]%I)p$; H䁒Ñ۝2+7'7p]"68)G^9I M+"KpPrMuYbIu#(hdryk2JX:ƞqKunec潴bDFT$(Tm,sĒ$R(dt9  WkZ;$7tnC #^FԤyuCj^3c8I<,XH*޽Ǯskl9.d,z(Ȧ%$(rhnmo¤ty9!+>zsk"T}ZeL펧 X3 lGK7Kڬ 2-q-m% Zʆg\$IxA@r<{i46F3yzfF rxaqW,㲈wv,rvc`jEG٧ؽ\9WwONB0xzyeӄWaut *x'iqA%Q$fF.T }O!QEQEQEQEQEQEV%-noGۑ Ep1\gI(7kwM2\cqȺҞ x 9N۶5#%qpv2ۢ0l#-ؑ&V[lvT38o!`+b+xtmpAAAAڔFKC7v4c$\"H#kg봐活=Sz ʖx9Xn$ė䵭}jk"S6?d= 1cCGb8zwQCð|*)x24x!ӟҭKA %0 lQ>-=,|}u q;,inbg`zpkXқ5bmvy)O2MV2-Fۣ.x&I<$yO棤[j|dsl(%BEMYCDx4ayerg~((((((( =oZ6V[\"/ˆg# rT;uscIv{c/OqU141΁%@0 bfZu컖| &S lnf8uTbk `%9V<t$NZ]7G*V=;cHzg5g\QVM*v]ϧ3o 37qd߸n;@`"j} FZqC; !I o8AZhM\AA۞H*.-둊'f'U؝'$v+8lk2I$II$I$(((((((((((2N+Msa\3+}d6"j{cmU=Q2<0X1KDX/HFU$<oflm:VqDQ ;oW9y_10XGHȊ#nr pO(((((((((((((((((((((((((((((((((((((((((((((((xgkX[{`##y$*dr7d@W?ekOsik8k92/«hVg})g ɚ&M7lpnN7c4z(((((((((((}Iuۡdc!A<=2k*ZM"hmg1UK 17@ ^#%*lp:wVUyS;@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@U{M>!-3m4=q߃P+'} 𚽌~qN;EU$=Cep@'>QZPEdaEmiSKO28r_~t!Ikd 61GI(DApW[=qq.<۽d$$7u_&'F_P*QpCCv.am(\l=A~qu.ٔz}d䓁kQ@쯭2ZL7uaXg8#FJ\ݪK[d g';[*OPjۯ8ԭ~͏$rv֢g)|' 8*j(((((* X@s -t *lb&W|'' >xM^W?v8YXOj?!: kQ@?-Z$g|c >;Guk}"(pE#Y?zНj('v?iX$϶ݱA]qW,U b`ZVdJ֢2o`Կݷf[JI,3W >;ZPO#Z;qa7.i =OZ6eӭ-ee^ q:p?*EQEQEhZg,,=C]ʐ۴RmȪ`4QU46cV[4X⸈q]B8aN"bu?j>td-I"187<օQEV6\ͻˌd':nuFXO-h'jeKd`? qMoa3w7gw=d[b<\F$z<-)P:61FA鈝X#^fW $B6ac( u)1 >=Om꒓QE {J&6Y󡕢o]ІۓyW۬X20p;FI#Zϵ֬'[V[S?x r*[{ "@9olm;Pz[^5@`$'<Edm}`7߾L $wV2(((+2ke{m82"Iop##T8h9%J ouHmesz˽ma+xHwK.Lq.q, GV$ڌֱw$elnNR{Ⲗ>h>fܧnݺ~}?Qb2[>qFIGRi袊C3{yk[;bx p7`PÍJ͌lz\r@K'hj([{{I"p88#)^vWƊD `w @e?ڗ?.m? '݇ޏ'9E\exX]dE !{}QEQEQEfk:sibBbT #; =0O3_?JKVqyiK;OH8#wB:u^[}q/UD?:(Z(+*i6 Q$ [c;s@\բa-늻iw"kidqEtOEP0(((f}I#`I砪@-ndZEv@㨨|Y"^3趭jɱBo,ۈynAVUkL j4jiH$ Kud^1ZQEQEQE V'}$`*=KYW}jI'Gm ?R u}r)ȉ/.s+ko_}+?{n$b8o=xNp8MEPE[Ri3+d :<ӭԻfRz3BTkfW}&n9$Xq]WSOZlbu%ϡ$\ OF bH<ߚдk{y ذ3^.B5($WGF>JYEt'5[* s?&4Š((uK8.-f ZFG nww7{}h/ݒzlXd}s: j( ( (2|MΖyInuƬH#$V1GI(DAprZR+6E<賜;ă>(jCY(*6~~וkym{~zX̳Hߖ9+Fub+YFq*+Y!r9} [ҘʺlcEb[kFlm`OBzX #ʫ'u8z?d!9<B2 N U@}֝A(QEfMFƝ+X\;sr䗏$,0 nKW^GГkZd2|5 Jdj((/?)B:/AGƪ㇊IV=3:ֳr#ƌF07G=@֢(tֶ|vҼvJС. }һO]CybQqZmp$D^x{?ط+̵g1@w߁_#Ԍz"<mpmJIcY#utpYNCЃNwF]mIh^K8i_e >x9j\Ӣ(QEQE|1崒4^UG$r@j/?) ~M ;\ydlqݏ֬/O5úaB=e^v`u4EPEPEP7V4pEyaɍ3OmE;D}d?0:WK PN<WQ\$E/qךmc|އ*t#K`I7~yQobc=(͂((b1wlsY:gﵭfv+@Mgo:EPEPEPimޝ4[sTrO)/).O] @:(Eq.9]q*]ǎ`WGՈx[IFĻn`uWlfiab1XG_Ŝ<Ҵ1I d`ŋ>s̶x#Q<}k~Ѩ,[)33]bQ+W\dR&Z/܋&-]y.Z6A+* ?CjڙniQE%Q@Q@>ty2VdWL.qOZ֠(77{h4TK39z=*:X)bM9B]A#zX%}#`^q[xW[yfN͸@:(6s>H;p PCϺNHv$nr1[%V>K̃ѿlUqnX*we\m;ε&\e2*O>-NIf⧛[i\v+]t{q fT w9p_[\C2Q=GhdoWݸ֭*{{Y :}3V;Tiװ60^[b/##}Y4 (2|K Jcj#4@dޣ0Yo\D$cz|25Y>' yGdGV##(Z((( K}k帴u 1*F  GeeX aH=8udiH`9 tOY r/,~EzyG7Ku8-CwP UD8ˮrO$UbM&}Ƕp9!\:s8 rs֩[֌qu{n,2>`ŸO]y!Pi<#niA%y_VWPC+ Ai> ӱ ۞p{*X_HTπz6(EQ@dwח ̳_\yF$ឤӚX8RpI' E$b9c]`v4EPEPQ-.hCd mzԵ#\=ן6ffzPjuuxfW@R3RB$?eOHJq8~yZ$#`:Z.Kn,}Nq\MI=I'+Wr0kVڠT P.N1^RWEm>0nSV/nY#PF{RXG29'&31|pXd7QFs9#7 XT<?ʵ3\XWGebpd' +pGn*ي)1_I2ێkQX7f3 mN%\֜wE1HZ:kgcӌNEgYWnKb^揅Os%"6Fpv>k^:.#N!#$9ȯ XHF;Vr#ʓkh9֟Ks< V{[[iXl|g u>-Xk?пz֬K8..zH4A7Ƶ"|IY[F%[l )=Zu_M=kQEQEQEVNkFyydЃcFd''kVO>[+i#ê{eY#ݵq,7bo_$C"'LεܼEv鱣 P"5c *G|aJm%vKjr=ۏ^CܷyhsZui?^ɽ؎5m w cTw¬Z!.t"{$%oRM[BW?Z|kD 1+n?Ɏ,F QQ ,qF۹DB°gKg'gzzԖY֮+?{ǨwE24T1ۜ 6[xK+vS28#{&fQRY⿛z#e o =O<ֵdZ/ˋvym610}FQEQEQEr#i5gNY".pXn/ԯq$4]>`-ʹrA ('-tN$ÿ~5.Ee 8k0ʜu5jmvxg9[DsЎ8Ԁ~y}¹Idާ֮=la,]kR ߅e@ [v+ARM$ 8}*LJcXRIWF?ZֵdOE]`kZQEQEW)kkEWoK̴f V+]\/qs <4qn㧧{/8o M;)^T~5wIc ޼T?y)92;kG+fļe=AZu7WJdJ~:,aF?z rAVyOZW-&ҴB矘W[p}TT8D Q*+*Čk@ M5'Qc%qȚA.HUd$LRug&Oʁw>ȊG_»Z}.ͶH\wVAyRU9(`P)"2Jɿt9wXbv@:Փs#V^7_2ޤZ(((j_ZU叙~ܤgպ(ե~ ]jaUmP 7y<3b"%u@h>EI<~l.:V퍵B;VUVބFz v5GϽҸo"nIѢFy\e˽: ʹr R |+SɢSؐӜ qk9Iau)2:A+LJ_ӣ6~jŢ p/'ӶI³S u=)VPNrzsY1þUGJ $v2hJ:ڨK;vgd~R$+2USsZ:^q;nx=ZHϣ:mGo|:w\A9֮sDtXA*JCH7w#)#WGPjQEQEQEdէ׍#ZšDP8蟻_PbʲS*Ur9r[>J֞vȇLhZ'*MV^IW;Xr|ޮj~ 1ﷻa0^D3nMI*0UH@i~7oec9ONqۏ16iYtĩNU@) ;Z2"* TRx.RT?+޻]3ĖEqI\$s~7~qfWvߋ?U X448"HE(*" )QHaEPEP\5jahE:fF'Q6gʋvarxc<,ry>2|a#+Hv{RG 5FCxsykʾ}+9dLќcEllW=o#WT1=0wRبrzTcA'zSy}Aʤ#,1IhGҬDhbHxL2v@'ToZ2 HL@ )2[:0WYLDY\q'g=zq!q!L8޴Zeh&FGmeiA2\A6Pq2+6!g^( ޡ'EPEPEPEPUmZ s=nYa# ',Q@ϓ%HMOxQ䴹f8&D #u;(̵kζ)Hx *4Q2,H]d0<GqXZ\46#0r .Apݬp@2Q{8"!79zqBz}STg)M~1+6LV37o[V,F;ӃynǦ9ԁ[7`ÃHs$_xzj 7Ooj{Wi >[v,B@V)NN3tLJXdzSӾХf 8ڪ9̍ڸ=A#i?dk 7UP:4pr Fw-bc`{;'d(O!_%Y &ĕP$N]ufom/œJ0jJ[\3lrpHX$@v$PjvP(((6YU[z)3 Պ($i#۪[B b@.a!P%в#%1 Y^6GC S# my(!Uڗ0@.NvTUJ&yWlz[gGEW%H8U(I9E$r Y-YaaZf] ̖Nu![`wֺ0,,Z yf끺4?#N QgهR# SNj[F<^!;AZ!㥍_OWK-, NGqkϑ"gS".8kB9gR]0AjY$ϖߌV&/2'SmsKOg;Oo%lZ~sp-⤰bBbj`HH*S#>)xcy<=ϧbFq碮I?J2Wjϟj:uƙd("n0uP69dz LYEʷcH/T>cW s PKqs\1^*7" GF(P((_ٷ}~}30u7wqcI$7#6`+䪂q8sƟ5xM2% 8R(gmubyb6~RrJV5^}l_EKK8V)QWHN1=x6[+hsO!n =EV QV&D^$eez%H$L’>WE6Y0N9s{/_Z7K:Le:՝92cQ>S[eaA^T@jѓ3DF@r~d3sY+0 5)L2#Ol.1oUgjzI' 3LZa]1U·525?4"h^vc$nxβڍvAqԢǮx^\h>?QG]h+6i3~#~UnG~qf W272I}uV3ª jqwFQH(((((3Ti{Ka WPI<3I s#i0T'bbB@h0E%5$gQzLV%Sm=Fޘ ֺݶv,I~I NH XZSo67ivƠyD:߻@,OX#bDYnaP0T|r ^^X)Xǘ򲃖#=09י;J[ Y}ѶypAAyk}jk"S6?d= Rd5c.4nsyaxsAOd:i*[15ðD+I:Np@Zt\M\MؘŶ7OSMbw?Up<Bɝ`+d`tw]NrIVlJ=Mp ^T +~ X%wILd`# 3eBVfVB.Ɂ\m"E0:i$, :qpʃ q 'nx5'f R(iUm@c2}N@)n4TcM{]\]j .}XoQE+Gf5#<{6RO#ԚEQEQEQEQE ^)Z/fd=GøKgP˃O;:WX6zݝ@t-ٖ |)`7oo9 ;楖mb0.yc:U7qA}̍ NzV-v KS#|H"a1khՇ^p* X@5}B ۔*qꡆH8U+ Lwk6uEǕ&d$g]G~-~f+b1nY̝J}6=h>A-7-jF\Vde߿PCFL}IG#̷ZYgMǹڮ}v FtVm2N F叧'W-4V6Z͸1~V)ʊY*$@$,(\I xU~fi~8+kqoquq!-^[qqDQ^ߦ֩^G]S7xֵǴZuEﲇ[0U]A{mͬ,2 /Sbӹ5QHfO#4(oJO~d{myewcsu5Ed=e=/\?WJ8 sFXI$& N[W<{ma#>ϯKMtz 3^6uk 8>׭EͤI궷?@gCEfZj>Svrʆc ?q۟z֝dէ׍j(((43qF(Oa@7-/]r(8 Ey;NbmM7\(0 YXXDcbVmGWnǫ1,rOs@!Ӧ.5YWE%Q080UNsEVN_ZIQB~_qy-IP6gګz72’Z[LJp>uy|n^}ًltR+PAR2ii {cmU=Q2<0Q6aŔ_CbUV,a%J֢3uy[Y[;{'arvZ խ O trelQYaMD_}#6?ݛN(ŻY%K}F&vSc 'BI+N ( ( ( ( ( )K<:jY$Zyg^6vXp?<.z{)`^' F*(teKVE`A e3dg0AUS۲i Ĭ܎ُVcXPEym#E#iҸKr=+Z $p6)::ՇarkwR[ƥ^bemX2R# `M=6YU[z)3 Պ(mVË)⾇{!GOX)cK5o4k:Kgxord |Nq+B)|nT x(j+'7_h}frIE>f4-" Nc$ '8S gh :( ( ( ( &UbXDHTiXsZu|IқXb:(LyZ׶Q_qZՃ=̚}ve5@Q@at3l#8;{nW 㛳-@ -52vG pVl'% F8VԟfU;ySx'5W!-  Fb)\q^[ ?=]]I t`w9O?WxjckVJ3?5u,QH(((&F;nekVMZwxz֠(( :mon7s4q fcAenxSQC,Ψ{r>BG)b[;r= ?L@߉u#Z ( a;ڸl8u*`w=Q8TU*9gdN0z֌r:SUP. ҭZ=F+Sj7,nS?ZV$-}oXcҩڭm8xLҊ((E\c\}1Q kQ@?kmƭm.|Z{(1!9VO/m rN[ukQYv-ŝݯIdH\RO9ʎ}G5@Q@Q@Q5+k{vY0Pp 3 .p sœY7;r= ?L@߉u  ,s:ܣO1JFXĖӢ(N-$rIW%+5ƞ|yϵuՔ s *K dG˸.1.s>~}(膏VN>B=xg j(~hlnF+r۪m;QV񤏲A$lX)V'G>Т((:ҘZ|WoQ"?ݒ1A-jF\Vdը׍j(+5ߴ\|;R@?I.~ɤ]˖R#!Jǀ2+ɵ7n#=?_𪉜H5&.: ʡb}Ed5ʝj3(>,Bރ84~q!qJH2zO(fV 2ĔHۣ znx^l<8x?~u3Zvv7h((+'N}+ɳ;P˻sp5'F_PQ@Q@dE]ggmWo/D&eM t,A gNRO kt>Q?Ȋ}Zxˊ֬NJ,Wo&Fݟ7N3@Q@ώ+`K{/lwʼWy{F9{i `F_=:5Fw9Cp?kc'%'9KZ^dhڏ*ܶʹ#=GZ ʞCSD(coRO7n\gznߍg-) m*qYfڼSBl y@Bȁ=pFjJ+ſ`;XrDA<S]R$$e8JhE ( (2mjF\Vdը׍j((GX%p0EʹmדҀ0n?qjcuUOgGt쫑v)H⮮ (0yݔ<,Cy)ϷS? lqݱ}F |dc0T80i2+Za\s^\i} m<0ND$3u AXETQ@Q@>ty2Vd_a}˹%A$43OZ֠((Ki'Un%9*`duoGX%p0EʹmדҰu?TEW+;<$ HWU\f'\6a9unԔRZ=1ddwVbF@AIP$ ?@hKqޝI@`>ڊlnF*}E::Š((|5 JdjϢ8rKvIdipg<EPEPk( >p,9m_*C9cXޝ-y yY$#`O?U\է׍jɹNoZQE5Q݂NnuUcQO?povQ[>((g+{ʹlORjqG-sVcTW{FdP6j@Zڦ )RD02j$/.<Uof`A9&!N8qYLv8E8yt"M?760AH ǯN3v"̱HPo~T=Wš",sYW8 >Sҷ+tmCR ߘ WTH) (ɶQ_qZՓm#V^62⵨( )ʳD̒+me%Õ껆pr? jQ@7qֵe1eL'(p@fֆy&Ynm YA8Wc7xր5I=j8C_LеvW0^O6l˒펔y\eSOUO"t4 NiQi$\iIZ$mK5Ǧ9==xN-!VB9=k6-̅Gڹ[[kkx q}?1VknyLBrF[6 G aۚFư1v(,(Cs-[ɠH`Q@OE]`kZ VVۦ`crNdTQEQE>e9V0HEmrWpGqֵe1eL'(p@fdWcƇy&Ynm YA8VOUѿ@K1@$p+ c53tzfAdu_5VF5_Aš:ғM1k4#JHG9*GG_JH$d j~nHċ 2gMՏ\weX߃펕?SˍF:*8M ՊZQ@dOE]`kSx[-S}Ai, Z[Eek l8$P0O=MEPEPY>,WY[Vs#V^7_2޵ʿ w:ųciNrz/@7DdGaԟA\%wRrGcg;UE\r^;' Ҫ=g1 <TX`4&>@}j!E|3JlU9=6=T,@'Pdi%tB\Z[D#¥DLg6'ֵ1ܡ\JUbbցI >[\q^A }6Q$fzJe\iljBz}1D(4 (2mjF\Vd߿u{y6{zjw~>~1sQEQEdէ׍_?J~_謈̱39!G0 }Hi.n-u+[}MܛSzQ!7c[[Œ` 7~~5,I9$XZt)n'5og9y s[{95j&2RF4HTkC֜iziӺ(dd;V&j' R{WDG̺@gI3.}K\1P~V;x+ZݰM,C,zmCuh0p(?y_VKeP0TWЎxw\{-J8Í#;΂|WxoQޒAYg֬:ҘM j( ( ( ɹNoZՙE$+"3,w@QL2}HR(ty2U"N`FS\+ B@Ika=I%W)r\ayA*R{ErIZ[ M6jFg9>aզDьJ?J~dz !@*J3UPOzyڙQ4ӣ%t?g1ֵ!Q@Q@Q@?UuJDHQFIgCXQII$V@Tp{k^LPݒ"sׯ4Л} ٵ 6`j2܁~iLf7X#"b(8rqT& ݭWZy #wzݘ_|05}9.?k\,q̑e}x漨AHO5ZyhdaF_` 8kƶ Rz#Zt DDԇ!DǠSMU#/LlzdUݎOu_L[bĮ[*: ;#eXhy-nƋ}2;6̒#Ԛ]\f B瓟^ -͌4G*AA煗EkrX$碰5xڴ̑Fr}#Elv J%T 21@뀑U&#({zWJ+0=؎+u-Js %LeVAJ-I3R(QG]h+ZtoMkPEPEPX33ZkjIYJ0@f wVRR7is$x"u)$y7#˜dd E[}p/kw5%/,i!c_:>eA$:q#m*5]H^6G̛X;z!9Iau)2:A+P6dOi t0͎4|4(hbYSx!81۾e'F誰^ hϽӭdhI?ZޠuR69~U-FMDn8ukk1 D`zP6t:gdW2@_׭]-5tҒ&A#!F)ۣ@A#é`f Iܒo~[}N GTshl,7tlQ H (4 ( ( (0gf&m#[5` GW9p8;JP-̑̉Ԥ8܌.q29nlO5Ԕ%PQ~fRBHlV>`$U>eYzSďydau#ggx92n^v/Vc$Y"C#`yvbjTp0R6^%&_Uif3om^A\DF1/`zZ$PjvME+t>y]I%J'"qc46Z0, |{($#utW?c_m"fqswe? fdFK "(Ż:L?o+`o;ySd[.SDcͅiNZ6~\a'ڣzQLl2ʬͳ&˝Qrv?ʤ V<(8QZRtO,FA<j4-o9D`X)l5vTFk=ID!Z9qGc85DύA5V[Gom c Vv>%PRT\=7 bUa?1+an?J۳q <%EsqXgC׳*z2Ơ*Y89 棡Y422[}.ѢdʤHll~B;B:/AZՉf$-e@XVICM*<6Inz ԚQ@Q@Q@fM,RΖerYBO/` Ns[DLlm.vt'QU\Z[[il!UhdшS$vh'dY"J8`x `?l_e( c$a  V0AYZZF[`޶ -pO kv97| *Bز#%1 Y^6GC S#ӰT)0umXu 0hMǫldJz4ؾFH^0MyWr}Ih2: {U9%F1NJ᭥`v=2=^9Քlٙ}k mHwi8ka'.4hRS\Xld6(l)cĚ!uM}F5&%><$Ww@l;Ydǝ1\np?FNܒI$uX(QEQEQEQEfM,RΖerYBO/` 3?exK&6wa7HrxeUML(HR2# V[;U909 b *_ 0 Aޱn`?l_e( c$a nz4Á>4FF@c$ 桦+%sQ>Qe*GPF+#%1 Y^6GC S#9;Jz7ghAUdmHںZ u t#ҹ8ԉ$kJ4n#E@QGn;:UȡYBJ}*1ѷ}kV-cIIn2Rc,ndB$fP3(Xmi6m6ws訠x=WKum90>i͸ ,N$uWZc'+G!b؃BO:lyg Td}$IɳxD~qo+71,A$ QEIaEPEPEPEPEPK.Rk/;m{#0N9no|1jbH 2];@Dz0H} ' ,ny_jV~_%c988eim/`u]q w'R z֋9k/DX 3#I,ybNk"_ZuF8=?aj -%4'`2y۷NGxB8KLQ(~== ͖9E8> | o?.u.nydv$ `0C]mCsv5rTޛb{dH}X pDBQTD Vg#Ssmo13؈HeT(+ϴj:)bITsI 핖E4=/E,Be.O *HJpp:ĵCu>ds W*79 '=mYZg$ F;FyI ֯7+xb6,Yc9<ݠ(((((55VKRCHw#Z%#(ΙPBedt#ⲯm$Q5ScԬ"`Xq+lsH^H;|l@egEes^S3."Hc H$S=kN.b#21wڠnoS}J7((((((ZUkD .=ć~AR?թ\2Xr:sEw&|PFe<88P9{i$wUaQdUqJNQ@ɷ5I.`E ]~o-p~\I\v+X)nq=̬|׶HvwHЖۡʂ0ʐ exX]dE !{nI#jRZ$(((((((((((((((((((((nm`h.x_+`d:9P2FA㨬ucWW< u V6!X{ۻ1qՊ(((((((((((nm`h.x_+`d:.m`h.x_+`d::v qy?F`o,oXXDcbVmGWnǫ1,rOsV((((((((((((((((((((((((((((((((((((((((((((endstream endobj 127 0 obj << /Filter /FlateDecode /Length 918 >> stream xXIsAϯʩNEA eJ=3RjG-[ɷRpYG.D9-kٽAb|£We[ϣ`Q׽d;hpZzJpClOAeF:e#*uER d:m['Niņmpj|aBb$btJ mNI 7ep4\2Rs'lYi˃sz|.Z%ʊɳ9)69|\yސn8ũVvIs {UձpJ9H m2F5KઁI>2 geYi.cOh `cd67p!p: s`;vanpܦ~S l=!ծ~A *1@ YC 5 SZG@@;""r6 |\0~̣-H; Gc09BvՆ]3Q]Gsq"}3gBIB+P.' Hd1 >4Ku?.Дst|y(f@pHfkƚYunF5U#M=g{Q?MI4ֿŒbaIQyΰc[ڱkcbwE"s]֐3AP6R n)rcP+]1x)pnrפPc,5/쓪 }ԗd#2+f$SR^I'9%)}mg%ߵ,\?*֢zK6&! 葽0"WdC0#/Ix^?Պendstream endobj 128 0 obj << /Filter /FlateDecode /Length 926 >> stream xWr@+T9H̾8p[)o|==v"E3e+i:8Do} f&Z달]*rie%˝qUP&g9{Y`f@pMW.`$Z^9@-4R)[4.R )R+clQ-\=8ڰP)X8lКmiB] []%I{( ([Juhઁ. !!@ "X"]AZH'8dcGT5t)| {Cin<Co]e &d]2sՁK vݾNjQZ{no;S3DMhC?u$6`xOWQ˟jڤ9}وzw1v> stream x[s7~`<s=I;)mif:ӄfq@ vMv:+aco]/I˧fff_I<4ISCd6g͟;B'hv)4m: ΰqrmb;vPZ%R Z(L:8OE9Dj筶LHH῏BeI0uMA6`EqkP%0 5[^ ISġi$a"Ethē3q_a[H|v \PO_:#iF*ZMFd&"%gqin"O]V|B;9R릞B5ɩ-S!&Tc7#8ʆ&$gd#GtjSp7){ %NBTY{8q&ѠDtEª*Ii3F+$.SDC:&WǨ'ı tVdC9KEB/O0cI#nA|Bژ38̆fCgX< Φ9~ ul_6:Iɏ,R7Bf7iPY>܀2Z=Fb=FDυ>2U#H0!xJpJOCCpB?j{wՊ*>K^+rڰ>xJꊋIy 8Ӆñf߻n;1ھtL,d=.Wz!/ `MXxIrJpJ A&ķ9OCfӺцa}.,A*渁]A^ç_& f@) ^cxi% ؇Z= 1CBf^+g_|M9B8TV<$s>A 1xލ!W\y :{i]gv.X4,Nuy}?o3`,nVtzS'DDbybe㰰.Aƙ \O΂UD.cƋ9zui֖'uaÔ)9==#8ȌH8E:/\[1s6UltfVsȪuTUuؖ8}LF%/&DIܬݣ.fKbm* "ذ9R9 4Ng! w361Ӧt4ws`[O#E5 Ѵ$,\cI䲥pM1WJ`yAp,CܑȝP-(V}'+RуK98{ۚ[f{ɉmCHq,$ᘵOq٧)ŕ.g>dYn Cx3bi w]u¤nfӼAzZ4]5ґiT͊m;W3+h | $Ⱥy)2>^vK=u; JĮq~-^vp{/:ՠV<\N78Y) . Q?|TTPpZ ̿tY̟`f-b28_%Xn3/kzp{ۅݺrsA3qsw9N?rvendstream endobj 130 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1071 >> stream x=QoLSw}Ҿ'+ES{:6DA4qD 4(mJb>?4V!) % qɜq&sYHپ{Orr9TdE4?dS1CZKKFH 2p  q?ͼ 7X4`JJFֺjhu)¦[ 33 ;[NkkFYk#BUWe;䷍v{ Ñ5צ[mSG(4lj ZAx!3E˵ߪ7,E1;mvm^ "ʡr]6IERM#ZFAVBĤK $K(KY 4NtqW\Ml`T܄9=\d:O>' Fѧ$` _gɤAJ2ٸH=EUzc M^{@ϓe_蚄Q#wea.^STuv:v y+cURkDZ;7:-^J j>=AvW`RÉMbk?dYhs5}^f$^6k^q=h>fGԭ?µ_lcւixIӗv~u^4VZ ?AKlIZ!ޏ_n0{L`84eLl%\# w7 YWKQ #P7^k,]ߒDua؍.zx~m6_Ũs$Iŕλ!o]cq&Ih_ /tsP\XOJg+Wūc)Q ?߃\=vfxq-,=FWo|ByuSZjl/if?58 ,DAQT _~W@ У s0VRyNdN~ d=qggGs;WÆ` are/}t,; &-^劀GDueTQԿ JEendstream endobj 131 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2836 >> stream xVkTTUڛcPQ ͓FdaxC@.# 3a030}@&%вhuNt*S7q6b+[:g{Ϛ<305;(tO=Y'gb;dȬG^]ǕmmO@"#(a>fD 8'$  \YK }Bc%IX #g(ϓ$W/__7>Y|If^^z&/uP)63ݨ-H*ΐ}BE t!a^B؍9 D~J2WcXE``[mvl*ۉccXmܱG78 6gX1eYt͎ß xܡyvri]2 %q6EAa79*a* )9_[xLKL *9HXx@Ս0_vXT vC"dIpe`0&} xRmvZGz h k^]yn!]8ϳ]f$n[Aϧ z!d|D6uDG#M~j|%&|wbA%ܺ#z'[Nޛ]a6ACʤPjlvدuˆ"s @efKSI5u-6.by'l8lD.O USºK(,;(f5V},'khBW+7.U@v~)TS4E-2Тշhrkr+Q+:٥h+\H|ڹ5/椀b6̔+PQ]bPF6GLu$V\^T9bK~=1*CJ*F,b*'/#k ^?"@Qġ؆ kgDH#&8Ÿ]^)FoK=ۍ\[WJzO4O\n*H" p90MzNs𷳲51:QPs٨µƩ1D()Ӆ|K*L\SAzA&#Y+9?eNݫ/*#E%v̀Ֆ_>ٮ27Ql6۔UY*RGJhr@W(f1Gq֛*$;w'Ѿi؋+KH66moX@H|Řv[]PX.cת^&e[͕[\zՀq?l|23A+R^ WkyMUV$V~vрQagEۑ=Sp}6уaw %ܢ2Ȇ42!^07.#RQҾ! z(Br_tMWƽ\5Ȥ"3!]+$S~CTo*ANnTNߡ>[g[_ 6UA6!Θs=wn F= }ڞ"K9V +fkDfߦyc- s<=.hvmTyU!hȷ;ΡcF/:\o ǫNxyEM\۲n`(z-'?A%m$" bF>sx翄pU9 yW=YdbMSTmTj z-+UAP@yNqs,ṕCý@70lӚYVاI˄ Z}9nh #e9f#%mq~΂ӳq!h 0&ZwU&MY(^(7~W<R@l3j(r޹E;X*J@D),"=o-lڗ~z 9}YTID!Jl] 9crtrGy q?@ N>{ӅE9L(~aJzRP=kܳOi~riGUUTK|xE @ϖԸ$DcU))+Z쭤;bh>Id`V?oџi =fMQFKscEcMh0׷|vUB]!BW&M5{5nWpTLL*<i0ؙ}$ ;$ #L2(IGr_-ԚfZeYFg^$HNMNmhxۗ]Ʃ m_:8=\f+P-nuNod%⿓ Qզ jEd.,gP5Fw+αp2d$ksĮp5֠3I"i"HTgw;I +ȆW;8tms> stream xcd`ab`dddw 641H3a!O/VY~'Y{yyX~#=C{*$fFʢdMCKKs#KԢ<Ē 'G!8?93RA&J_\/1X/(NSG<$C!(8,5E-?D/17UL=土[PZZZ`d{N|q00~Ksp跲ֿ^_n=E'l~];\| pBIOpb1y4^|endstream endobj 133 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2867 >> stream xV TSg~!J|ZZ7DVi(Z R$C .',F@-nu}!X[֩V}s~y x3gIrO~rt$lhOB?A L|P:;Hű[nx⪷(D֥NQG5!J+8c<='A~AZB0! ZmרQAH&#ܣCJH&J}:\>7Hpo+ԣcZ*4~U M8EQOzJTM6*:he\ErAH0zROA|j0Q%dj*EMfR/5CQP)W-'Տ(^ĊrKIC?uZzq)yN#0LCA]3<9Hp]0m7%ۅP)ڄl1 ![mh!-#1-- 1*(%P] |s'O a (UPmք|Z!Sk/ynV6^BO Wr8 C1#±tFq| N_sdzGWZm\;6+`*_F4VeK$u=&0|﴿){N%],?ܑQxCmB*eA@Bb~Icq8ቬ+ Ce>q%Rq -?~v㌑ѕˊ%d~?/a&mkGx *I:", 텯xH?vՊ 0ko<[XmNtfcxΌ|T@63fּ&O1r!5 4B8Gg)?աpK6F Q0Yhsu\} 81?O9aMk6f%216)j taX6Z%EBTXn5Ց'N#PӟNu/)!I2QpLz1wo Zi Ҕ͎}Avn 鍋Hȇ:.1!oVӶM'j#JpeaG3c1%j >(icv a+~&V *S\E%, rN\?wߧ<7aE~(a*}pl宽pp߾Y0I*F k T.m]2`OQ ʰi/$Fe SkBG%.F7w=*nކu_2c63tÑf:4%%_..;*̒>*:3b\i&(B本` b F*3>;l1h:j#sZҷ)2Ou~^T)k?N*[ԙٿ{Z%mX!1.dMPGq>Dݟ,}J;T^dQXm\;2FM ;}Ξn n;حeW{. :r'NXقh%G[̽kWwZxS~E6㦈ԭ(YEfr>.OYSǯ(-JK֩@3 b.Ğ/[[9<it xHĂ2Ȃ : ֖Ep &tq+f%+:Y%)&al3ܶ5z7?nϭjݱ,[LTXz Gث."`'?F5uVܞttȴ΃s'`(-?vC\zP6GTkU]\vOSe)cpؒ\%К y̟ 5cЗmtZVDINu9'BEgVu:ڬXf ggUUe~ {!8C/i2XPUF(5 YYX`3cGiu~|ɛgyek?l}}+ʜvwr:@h2pmPj}NN7Z~׎aO#17mTa;ŷ:J6b&9x38T$,uI(0#N"`JHo25$ŦCR\H mġO>J[&WeA 7~>|+.KRa"Van%$ r7j {HpFNUF []vOeM}Lesʕ\d”GRץqMOH/-3o.ܶkf5``Ӽ&PWp>;"#.ӖN4ʋ-i[ӳ+v7t,8@kj23lg99+?;߸q㙊2Vf"kzr?+ϪfښY 19W(˷.KR;E4W'І";E4ԉq'*R'{b0%'DYfjs:.]..6noӁendstream endobj 134 0 obj << /Filter /FlateDecode /Length 464 >> stream xR=s0 +8BY1f薞^N6q\Is)= x;Ztb|B'v6G۫={{5*k,ގf)V1ю{{0F`ܙp3#D*~#'a.!J2Pv(a&'m0ըH$}8d"Z!f8, fO cCK:ucEHK /-]DEͭ9BmT}qE=DJJ^lV^*LF+`}b6DkWcYqq؄N> /Filter /FlateDecode /Height 600 /Subtype /Image /Width 600 /Length 46478 >> stream x Eymy!bB"*Arj[ ʡ_*VB5@EA(C ! 9;qgw'{go|wfgf0  J@"$ 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$BFAQJY ngID`!$B>~fDH?CH Bώ'D3$BFB~fDHu- $5D}3$BF$B>~fDH?CH g >A!Q#X(?$B>~fDH?CH B3G'I} ~ ꃟ$5D}3$BFQ1!At?3H"$j!$gID`!|Qt4 $5D}3$BF>(:DH g >A__\B+(];\<_>E`5rqTa4E͘*=AƏ}lA":T;&\{(= ܆|'"[ΐ)) &y)C $B" et6'M@\#Ÿ(yG", }\RM]`lϚhƌSQGOm=DkZfIHP %;.}sIj*>GL&g5}VkE;ӧWu(>Н Z"4vRa_2oKClH2aJ"j9-硝&Pazr4 v&eC!$Y{4{|xg:Dհbhn2-] 4nөzCw6Mt ʠD`/4ky[zvhQS] kKބ?^;!l62A">q UUvgGњºnB,/`/RRC^D~(eDXVz|C1U:D-RDC(rW$ћTcE Md@Pw{m1% dODv&PB %{I!P/D6QP[2&%W?҅P!!$2!(Q#x=MyC/u߉O5l`(QdzW#Qg^GſZC `3CD*CMᇨ~V e{/ VNϟ/&GݣnM*I:DюG|\>)Kmʠ5{6-As>|z!ߑ!6WAr XfA(O,BHj =NymJעGUI<(K'Us&•њ}>[1`Dg~pPfxM^-J.^UV 2a"|C3/IZj/BL2X@c2څ"d(bB](!!g0iA@K6xj BBPoJҋГ.s'յ^suA"dP0I~Qtg񿢒I5Lb"Ӆ/Df"Sz/3Eq0Aˇ~ +CmA0 7,- BAEYOX'B?%sڅaEtBByfkfy1b_@Q4{!ŷ 22Y}>!c'q;|TT Lyŗ7 `iDg*Rp= -B@4*)"Լ4>~=&h?CX͠Kl K훨(Un/oI=%oپn4γQT3s7G fIsZD-dYExϫ ~&W~Z0q}/tDhq-A0Tb")/5׫0J:ZHy3DȤr1Ol;H<ʿ [|]e#)M^gk&!K5QB-B@.\'6>1BaS7G_DRG֨XIM!Juji5CPV-Sg P{_FW k v~3~XʗEHxa]^tX-ZCV/gd9t8wBbյ0!*DZdGBaQ隊JASǠY2D'KL'`a! #wa2X|Jԕ$XAjJti"|_≴F7*!6XBX8%`",(%B.EDyu-mF"^@BhU-B."؅F2NXT->MVMW_ /ELh2w,BREx`cH,Bn ."J .u~/ g`5rqU1!^49yj j2LBZ(Ǫ}ߜOa#ZGeVO"|80c,M452DTC Fl "|vMmO"t_#MYpAs\ Ŗyʅ^KB=+'D#\>uP;#+9jp9YH"lp!\4!$\!d9܂l2 2pɣOW^e0r5B3G2L !!)!JWU E5BgѕB͡qD9>B",/BÂwN[O" yپ"'I<ܝAg\/4R(gn ­GgZx#uhU +,$$BIf>*YZÎ c.ƒAIB*cEk ʊߜ3n,OFSsExrg'=LvOe\WG<„ocY\(7H;MH"lE(D}dfAIpV+c-2E&Ӛv?VC3(cGL#Ora BEx词Qydxh.omXlE͞"l -~r' ccABaNNBE,:+£sV̅eɠ^E8qـz@zC&?CԬ1I2L2^.^DH{IAMxU)"d +,N0~8)D}!3,B~RREUt]Z`)2QJssY%rE"k#rJ,ODb)QѨ:Y" P",͈oL"lv?$ !@BS|߹7}0:E xu8(ɸTM(+ǡצZGP=j-NphNK%EB7E%6g]ar}!/)NP)DUtuܖ%BmjMB\X v' 6pX^lA">R/!D&{Fx7>\)Bv#He% ꭭3G.H76z'Q" 7]!wDE;vpJA01K"4NB$bR9ڃ/H澛DƮ:v)_ v`6atP[nDx ,\nuT&CuTlAy ճ!$™p)pSw_ =e $DاO oG)n,Eؒ5 s?B"ٕsLJ !.}J.?WE.[.dd!>1󟌞PR,¨_MeF;c3>s%vQHp;Lo$BmöD%{[B-ƒ#^̟r :dЋ!"-.9x!\-BLa dUPVp`C!JeOQB=_DHfPҢ!֛-B.tp3- =v!0ˠ?wC_]-Bf/٤9|M8߲=GB=^ȕSDx㐩{8ZtC&EhY!ڛm" >FDRE8$n e"AKM5klp)N4[GN^>x0o"Lp}8"(o3(qS! #)[-#':8.c1EԨ\!{0ֽ !sEo c‘/*cj2 !b=s yA㱕sD>(h Vx0VLBO6`A3?ꬦP",O4fpxjS.I}{B~m0+\B-BME!:o5GMwj W,&fB-³ FCC fqφow&Eɶva~jKfA e߻$zA~~j v[F"dVAA{?zcM~?n]q/d{+)pԢ1>ފ Q|{SNpR!W IvaK aRKkO ,B&Btט"JyH\+mx3g杖"!"Rі`pC*a}2]a{Q ̂zb}uZ" f7E^rB sEp[|b֙ණvQѥ. L-+x[xS\֟0t! %B^tnVcEE 4!ȧm5sv2%׻d:++$B! /J! jʉDv^\5):ƒ`|\mG>= WA&m[iCo"(vM:^.TOO;5|7pO3Xi0D'||m`GD- q% Փ sdl a88Mh!gG]Lҵvg]Z41x"EE"dd4V5IF.0v%."p2V,4BZCB2U ;$V˧Ni$98vS?0dJ3 OT*$B[Ce/^-B0!InkGN͊/_0azMc[e9EM.Wʢa b&E-Ȗ[G#!O=^4JpXq%&=Ba.v?SW"dҦ"4c BSW|1_0>fjMKҹV$68%vpkRJu_A9'",8_[P\8=J _ WM|,҅C?e%o (ٞߗZtdoY( 2DxveżeX $rЪ22D8n*,[7vL5DPJa2H"l@qL<es ~Y -ír.8ERx1.n! 2(ERE XÂ]DAH! #C[yDܳNSςWx "\͸7Vv<"؅rWhQ.^9{͑o %qaWC@Ԣ0 EO}"nk7md0J r!0g3H"tr,n'0;L[yo8%Sȅc&iA~~Q!n K!sQ1*#IB!dq_(nEߍAؖ3$VaIN/՗ SEn=Y l†OfB|Jj1~mDP)v~wxbjx$Dogevnp`80)BfAvPI<pa 3JWA4^ӏEXZ9҅GϘ6FU J.W3L C'>dL=mKb!<&BynJ&¸ "4,yE҅BfDD<ŅR kJR]CS^:4~G6Kke"u_RȅkB?!ОaAHV}I %‘暯,_}1,f"L]mg¥Ix^S"ӅI6~kȅRYsے%2maD!D($$E(-h'B}}"g=!xp@*EL!L`o9_߲ /B:p7>.@mC+KsI[g~m!xF)B5Bg !)EQNj BE(”/7xES 0~1ZݯK|"d)¬$fTOQ_hπ\8bȠ|xX {©Eg7y(J㷟?B;Ë@08n:r%B)B۩ZԈ;V\x܅rta!"7g bcatբfLֱ<duL0a"\ݮ}_>)mO[wgK >eX z%BH~./}H!%K 2%?|W0/FPwr9˸ e/5҅Rr5jR-(I0DPϻ` "\Pph*A038ډ0p5 ʠlw nNqgsu? wQ bT)B˂.OE0LڂxBDX 44 p%p\#n7wPK6lV>=M'8Yz҅$BI-Ez^>BD(E!!BP7nKȻO751i"LZ}޽mHsH mp Ѳ%BhM.L6-8a;Qo.[GaǥahO=z‹ÙEWQcx([UBPZ-H2 [Kl66څ)¡gK%-8ాg QIJ T Cɝwg2mg|pHV uκajshT/E([G3\ ҅}p, kRcj C: ۱:,Z4=҂! CdAx'ɺ}eO%k,BHcn|~c7* YT޵gP!>;WIԭQGYD)BF鼫Fe ?CX z,oz3)'M]~j Ĉ6U -f[>]-OaAFBA0`6`qrF,ny,\(F"]UwUh>I7.d"WH!K[/kL=t:KCxAԢԯ2̂ ftKy}hA]]d "dϰ۷_=!C(ONJsr|a 4#vu="xu0bꓶF3E4h؏Dhzj'YDѓYC"Dž)ZJz^P.W.bJ/r {ÃŲ;*[G F(8m_{Ʃ E7g7/4˔PZDʅW~c֣-psP[i)n7~8C؉ȂrEX *84@+4 !_&5',< !Mu+M %r_:pË8%ES4MBףveJDWE /H Buy\"T>6c7wqYRࢹr X"_>)n nЛ6,S.AVd{\--i"ЈދPZ̖R@PS`{s B"8AlY͠]Rn0'ɢ:(dDkjIGD(t-[$7$/$Y)"'.d]J&BBNiJar=pZJ՚$/ sP8 B$B1}FPGaESoB!lYtt^_`;h^RoJ cFQsb!hAwz -nB\h'5 ut+!`" /JlBMFO%uhpZbCgɃ <'E[^g6 )݆H3JႥ1 M<=Eswؒ-=lqO,?Ûť"d< SR ,h4ttӻ2Ocё4|XDx+@45pZuаZXZP `&eТ"c+ӗf!0>ۅBœ"TB&BgVEq>MHZ {!,/2hZxePWL6SyC~asa>p&Bؼa""|zg.[(w/Hk fELN ZcgK,Bhuߊ:+NKlF}b,)6B,BP.| ,V tu  ]d+𴄆]C-y=S+#C^<8boؼc]Z!.dAP"d .† DhU!s"),wLY-fڡ pA~6,s k+`f}v!ne{, )s'Ph?CXj\DSb~P܊6RE D}aS'R]"d9Eaɸ` Q&T B"veM`r4(Z8B3XMI0ء|z˳~3y*cl% qA sUDo16ip h҅Oj-0#EJH`‚7s$3_\ND{q[,DDTD-pPZP!BiA@=n2, B'DЂ]f Qbm`Ei-3AgO`q E(~3G_k.ԽREW o!F AW#4&@\5 EaˎA<iAXg׊9b&B]-Bupr"̰ ؂Xi_ w![rV n,Åa2]*BZGo"2Gnb0:M/R+G"r`‚GgM BGE(=pB>2 ۤ?g{oLW)A#( H=P̲ PMJ/B6B) 4Ul.+B2̧ׯ@F5a2ʅj/0E%ٮjY( %BƮVXuIB -r!>A.\~롰wpP[M+Z&B|%D5eA}j2joiF|TtY\EtQO+NRB9vrJ"|;rgI-GBXv;YJ'PZY_CX1ķ|X"%*.6mT)\ppZ(kN nXDcV{Ƌ"Tl>E8?~qDQ}J<=!/2bACʠEQu<]pUʣҟ~{Mk:3ѸD7E+ us\&BpbeAJ- رY( U)U.̨fpZ8(b"\~|}B"׸C]4)Ÿq-Bim7g4EngnCu`*fwӐfW hZa EʅY"ĽF!ؕh#+!ۗEiEEMp0~Eś-2 Bb‡cR$,ېAYpi;PsP77ݼBQ?)+uaGDȗ-vR'.ӅH+Z#- B}d4~v!:q%BxdT!,% 2 2֯Wga?]"mWD(-C+roI‚l/,fϥKtʅYL:~hϵH3\EDȋLF"!E6 kؽW1яI4Y)SzQL!  d06^#E-ܚ"0^Q"LXo\B&{KP]tdQ] iBuJw}dpuU [!x~p0<5a/ >Y| aA4՟[! >"Eڅ؂]APZPaoj;%BY Wa~QPZQ\fNo zuq- f \8h ӟT0튄:S)!(&EEP…FiOpK-)y1SNZSHpnrjf\. B҂`Y:Ss"|} oF=q-> _3g:Bo\>Ӆ6ըFO(ÅE|v/tpvfJahbf4ӄ贖?g+ÅF=Z%]z%B:J]k؂p@>C$mMW!S mATAr" w8Ye A>l&w].La%Ws̻bCu"LqSD(N$E&\N/ ?S?ytwꅼ!$*?Mq0bGE;|kwcy"A0D7H44n=. ͋0}U!n}c+rjm ( Խ Iu_n)EJL֚ C&BfA^![k&To6U]ߡ' uz Jz.jyDJY9^ e:4Qu7s aML{:GM doYjoMXpÂ" qoS[v0r`C,$ۈ=pa'E5DϷ21<9^<}e'![G6fuPAP"DhY X*6MgX nZ?jP[ )Bw4N+E?_3AZ:gmB/pu ̱Ja$©byEutuP ͂k++dL])AP",( ,JfEA[EֈUmFAa‚ϋk֗Âk:H]Z!ӆ.ٺ#].E8Ui^JC5G#{ DD[QTCx}W^v2|aAeA [.U&cUuDYg2#A"׻"\ڡ;Tq?M/7oPVvY!D{Ȃ+(mGYtaR̜72G%2ۚ +许HBKhV&""˂kkBViA]#Em5VG# hAHsiAOe A?Β:Zcle pS2b&̸~SAG]U "XUo'UQQP Z0uoWq_|pv%*j# gL R+b=a "n%BfAv*BiASvu"ܺ"^EG፴‚ Eh-o 8M3p9\Ziў}]ƻU.L PG\h%-֍ͤשڡva h4{inBBHG"TE'ֺ~1%NTSE88_j ũY|`9>`& B)EfZԛ2DH4wLޗQFQ!!Yͤ-PB8B0Мeu0UڂHFjL"ok3 S;E9>nТ L1o4z.D"`K.,A𧎗ҼjJ+uT[P/; ]5  "\50 Q?eMJu],w}>5~` Dݿ&GKuՈheJ%BhɅ%mڒFʗ?j"I-p8a(~{EL b`Oq&2Mo-=?68Ia҂SΤKjA5eAz<);h6i =hcၣRئ0C /:ǫ=Lo2V{@"L6jN0O cݲ1NϋДgi"|32nDeE|^pΎ[p C0 d띗+kK!vvr/fَKh4L̴`( [!$ZG܅rѽR^a-8={?-"LE.`[p1iF4LxZ"d!0e2x1Ϳ4}^syks2E͘r}]ի(C= .Oa5dL@?z{Y)LxphtIES\XSE5uNH?5B M]k\dAHP[WmaxZREe4X",H0"<2 r<9Q|(D6Gb/n!X.|B<ꔢJa$ ʘ%BشPwnݣQB`XER` ļ U!㍄kDnf "d5eD>Yd ZD4}:\:<r<ַVO Zg]\.NonO)'W'n(Cp!ᦅjM +(*hd /B˂`[bЗ#E[/{g6j a `,E3fr0jloQl>>zPY?Lc]xYe`v.Ex,͉0ּ\B)XWm+raG}F\0|ZHbW%EWp'sK")µj:aA+Ȃ[/IPZtu!D(-:" Mj]jf3D.6#~Y?ͮlc3Ӆka4mD gO&ߔ gD"(aŤIᛢ e!؂%!A0DWA*At8f 6Mg\ZG+.tV .D8[ܮ)4\! Br(hHѕ7&E SE(-ȋ +BÂ`U簠Fw nPZ vR"|O@EMӖ s_DKfʅE8[y#erb< j؅Uj.j}Q…tL*+O{+)fZYCBdA@"d\q&%g6K _d5ZZ/ߑd,=`Yxk+,ֆUD5y!UK|ƨ4 .Vw 2%7j,~4}&W%G"\+S3D(QY)BmAD^z :1<ʤmrf]X1>gx1F)kv{_Wڷ ;%i0LCZ$eƣBh4TO'EYY,* 2ȴ ec+fh@}Lj=Js …Z؅% mc95Xƶ^Q!gZ/N M;w ʍ   "T|T+_ a^:pIϲJd(!D.o\`bCEŽF<8](ĵ|YL[cS,aߢ /}G-P; r!\.MY)2څƘERh0 w ?k† N9El13DNB~ cT$ݡ 2 <H `XQP;9qaUhr@}uQ #k4E st5*<}>x?~DY(Y(N\h$A oP 'BBllY"* %4 2eZ2(M}>Nx 낅B?C\MpMo$g:[ Pۃ߈F:Bs ])M!.\)B)WuiJ.C)[+t0"\"4Ua c]‚D`*7Bh2kVu r!BsP`Rpk)vCOQpyr|ꋯ|. !рF8g/7'BpZ[&y:hͣ P{Ne?W)ãix!YXqq/ uOQijeA!Sǻot*Z)pD-h屠:WUQ[ Vo8}jk3u 55 *lA5Dȓ5kTD0͂."aYMPc P0!&Fu:X ~^E}h|0EunBȂspai!š6J`hmXE څhΧgn`VR%p qF,M ayqVU`iLvj| BScS3D>3E\i nAK#u I *:_^tv%,`iTb2zΧ>E 2czy?Zw5Fv,I" !Y0?3Xo@r!.N\;)|׬Oy=m0F3)( BM ! 13u&y.ͺIxwv55LjHfRH H:,`W~jPgkeK~f,d>o !{5BdkOߨ Y0'~fGd|aphBAcf)Y'-tdA?3X믤X@wc&D+څd$36é! ϤYp8 ~:gk@/&P0k~ IB@]0[MTa .  &3uV| WR zJ`*⿶͎'m3QaA"s_?3H_4* i.$ fg pt"lւeg|7hJF|o: wO4`|O+Ģm ?3HߍG"r]]ȍe!$)oi)Bٻ~fŸ[EڅT^Fˢ)5fg<*,J">"$6R.B˂exe0?3H_>,?CHxH3|uumyƄ/_S?" (|7}\Vr Qɂg{ 5T̉!$|B~N{( ?3H_duJ_k*" C#,p҂vZ$ ҷ/Vu0g'%0?CHl!49 ?3HߖנSN&Bߩ ?CHa Vt%_%0I>(|}tD9]H̦;\<_>XsB9LjC3&d44!%!~(*2.d09:b!]Eqs'وO!G1E(I:(~Ok@򵷜6 ~ϵDXR(og2BZhƌSV+\еDH {z+# !AԇfPa:?>!9BH g > 4JYQɢBHeO[O"$j!$Ћ @GE CO24 B`g >A!Q#DwN,D3$BFB~fDH8 @ g >A!Q#Dt^HY ngID3Q ~ ꃟ$5B^Re $ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!Q# (,D3$BF~Qu!At?3H"$j!$gID`!gGߓ A!Q# !A?3H"$j :DH g >A!Q#XQY!At?3H"$j!$gID3Q ,?q!At?3H"$j!$gID`!$B>~fDH?CH g >A!Q#X( $5D}3$BF>(:DH g >A!Q#XqJ"$gID3Q /دD. ųoS &_#A| KZЌ -=](] }AƏ}lA":T;&9GBYk-gȼ<ȅA~fDX0OmlM>h T&#UG̃Ȅ>@%~fDX3!jGѻZ E3fb78F-%rC=~fDkZfIC'4}b:>,ED $jh玝7=6aP} %c:Dͦ!Li~a[DMA?3H"-硝&Pa !$YL z$vf?BQlvm߽f Ao3$ŽѩzC$` 5FӀB?3H"m~&փ/(TbP˂$N~ǽ !~:\!$Z2X: i}ZO-Ύ5}Ճ2X^ :,)U=D3D~(e }O|!J~heP.xZ }Fo?ORCTَu-/뛪6A eKx}K_ކS@B" e!Rﻗr| RJn?EJe(mRKx3*]5B(2e;WӔ7?[BXgzZֿ Vn_\T#Qg^GſZATnH'|mRgkE῁ n~Ϳ~f."Sk3j{~ͭQ!*юG|y35p7,bZ?ʠ?m_Ư0~([IjzjSl6ŖqNݭ1ʊП*(5{m&KQJzpC{T O2Q2>V-|KPfDm&BOK}fQum&{ȎUχEu!W/÷ ~])Z`:$Z*o`-P+?: o3h*E</W{ %=D3 ~-;mмDxZا%Ÿt ~3u`EI˿8'OX),Yc.\)Vt0e2QEv&Ek%jW6{"]?V.|gK't)pZ8J)PExcXR. )no/b,}8LE qzڅcG{PtPC֊UnP3{2>Y@0g%nqCݽjaZcRFk>c*҈ГT@x-½?)Fo3FdP²mjaZyڣwT :,{K B?XAqHa .t ̷כIrV{M͆7G^Ɗ BGzK1..nO{T $Z@Era5BX8e`f̟agFaI?1]Q4F" b@e>*lGѷSl d"t".᷾Ŝf5TsR #jvQt#rtauufibE6)"e=F 26FHõ :f#E8*hi>ۆT# ES-"e2EFW,&s\϶!-CQBN*;EnLy.;A. #:2,, ȡ.jYO wwS\-B=Ty8$b*¢(uV+:LaT~`|BaAa33 J-"<7C)BPg'AMUʄ(J%CNl+3 {I·Aa(6-(C77D('"h< uzzU0>TWK~(2d|:d $]AٍX"R 5Z!p_-³DNϐ+ϫDx1jx؂ kٳT)R ~%N:,ulK+f&_K@"~$Ev!Y ( uW6,›k^ y!B4:|Hi=(kaH0TJ[oR fzŝelP [W-?p\t:Mgv/l/D8xy;-–9~@JDsâ7]5MWѮH?zmC*cP6#Bv#]0)g/w6KNR7 R}gn"]xqp8(&zB9?|T,R _xy`ab$AadJG&BmUohRUnm+9!5?1ɖɲס5r'8!V !09 UN6C[߉z&Mf{ Erl<3nzi!|uQJa;?CX,`S"hKF`tۉ|%vTuV/g9n3E ز]w!ᠹ'M_ ׃'EqWMu4Ex;O"l?u}"fbNWft-gU5OGaP:EE!7Ѕv%؅bɉ`.^ h6+w0szs?R2[=_1?R~.`} ]mHp(>2 `xSfkNcԥYmШ)BqAu%xkh G[Y7p) &_#']-/x^{AA "L*0f71"1iFM,^k|'MC[0E؅oxXȅ\wǏJ!c/],p>x__\M%pA*c< ŖyŹŇyЮ{ ^raF8Dt>^39Zض \& I`1"/ >AhfPV%Ip̱Bߌ|?s!7it(_{IY덤fPODxykKwzCΊPAaDgN,"!k)"<yA_ T(09>|ϚhƌSf)m9ܾﴹ8kCmAa"?0`a"0n(.1E/.j,MⶡAda>pW PbYo/Xʇ$V]HCؑsL'"T}:h /^㒁y]S@0UcmX"= EU`aK|Jc!Z"B!…p'{Ap)D]#^_|Yu%: <a3(a"h` ~sZ,5Q9>=®P/˜DhT7N~)Z[GiJ'M9*4p$¼{A RiJύ/_\A0"$TFϓ[݃EPr_!B Eܦ‡?:zZY񼦖Ψ ;;(:C]t?|vfP0"Q3'BP꣮;f0}VT`a"-3PR>ȑ+њhPhRgG@!BP4!LfҿP vOdD?oDN I2l)~),sh)`*.< mpb ]0F72JAODF% Rh/؉,X՛&k{{5HF "7RB])|]44X<KH19[5DةߏROX+iCO*#E'9&B.eʯL)>]U(g+C5@B9JAA"tǿK2h2]9IjG sǿ A (I^!.Lp]]hPDhXD-K79~|C ec' G$”Ra1=[C:7{N"̽2XL9Qו1Z 9/eEFPh秡Jj~R{|͠Rp4[uٮS{#/vpK]z&dVJuq%p|Yp .85],t<1p&\Z^vg} JJ,\hU% {\Uy ©\H<!FA2xi?@=mjSڏ=T|C~J b!r$BĒ.I zzn{fޙygͻYk={.;Ϻ'oB dE} \Rp٫Z 7o|*ȸX?ϯ[I\yGOB`p&A{PPl]=Xٹ>6H@ .U A-N lu<=~ʑ2HAF/6@(,)GAxj^\!fRV nžpS>[5%*rշ=bydI,DP8lћ@jz0z& eV3[eL΀'\28sv.@('0PuU%KB\Ah<[ {5ӄ(Zn5hGZBaݥ^b& Q!JfF4EPVB(Xؘ8@A y, '" #QjUˉɊw ǎo;k l~^j)$.#Gu0mbSZ}z)xnV{A1S^'_J-'ڋ8W.߳>LV.'< B?hȹkA8)>r~Z>@ă|!b^߸ {>IJOeaQK +e_Y(@(w{ r~:  Nƣ=xr}_˲ tλGu*IM ~k 8|"? ,s1> Q~)C6e$k@ D--wT+fO1mb#Xx,'v(ږdci|_o" PqzӦ=|gz#B\} 1i;Qlgwˡ z0/:)NrN^(e hIс$ sPSQ${;|!hNu"(L ӄQ)Bb(% l~6tk}NP-BՃsEhBW 4|>wzX98  l|=4FGC]⭚x*/m¨XErlȮJ)$q20 -ЄK\ |n~^*Ʒ@ack1//6>wtO4<5D@u3&}T^4b5aTЃbmP9!Q l/z&{R}=8o}H ,)-@(((v 0ײGnTSOa~3O]_pBU6&B&My{6Zf_"BPDjGD1Doɍ" vxVNWQ!h] @nREAXjjËO Gz0FBL>G.Z(X<$: 4nBu%j=q!,h0NA!0qU{b4>iibGKa =@BB@Xǫ)'XtBuj Dq©Q WytjQⰆ&SxS (¡ t9(LC*i_تzKFR~ [ |e 9pPkP[. Qj.ClB`j,}~ qzaPǃ8^Qg#9~mxpXOF B)\$B1(3Y~ 3/O/\F8>R8AK|^q8Xӄj!;I!i`a U r6 g&l()!h:` G V.A!j,^:qm^bx_ 5Ald2inS>AX@`e}q}P==/! O[V,DuB`,  4`ABK\i/țɿ w;A.; c= iw^A*\C2^C B@)H?{Qlh~;-*{lGpqX[[kWŠnB+l \ @;͘Oj2>2PUYxdJij]* ߍ~klLxe)oy GB q(@=V7PZZ2 H}" ( *[v_I%V(WY\U(-k O6NH{p,QE,$Z>حP+8(Hڍ{KVy:QHn KU7?@%HuVӱa=8PO > -X$z\8@B] mWO^aOGxO?ǰ2VS%s-Yfk) z~ C${NlwĖXDMez.6I . pXAA.8t)H"oF5ߣO\aJ8@8IE48 -ҧkEnwXYȎC_BqcVt(ZA(b!ƸUa>NW:=//Dڡx#4A;åٳ4Ƌ@[S_Ӆۤ l1 _.\88zAE+ !BĞKA,$ ׈X,DRJ,rO(~K)\jVzA(kR5c 1L]湨qi@?x_l 8C]DS|iuҝÛ}}^םЋJ-l8@܃,@L)lɥ--f!(>T#@~8f/'rL+'Pry@XEAAAEv.Ah=DvCAEb# ?M٭qBQ_׼PLsA36A@\%`CY 0ZB`k) a<: ։b!^GRE,Ftx*sj,Mboե(=D QSҩTH _K_:܃M B {~ E8&A3D-]Np̖ئFzk& }w ܩ;s}PLnoAא‡αXѾL 􈇃=səאp nO hE'_ Bq5pjT( pVd Bc9?&t{x?^[.v=V' $ a0gw'Az޻2yCJL e-Du | ŽE)7V7 Ak"͹خ epLc`H+zRw16׽U5|TQ 'nxPp ܒ[dKA`+WsUKPͽpY |.[s42OO䎔 4eg Bk,A.tY,XN(ϑ04^XP,|2(ܮ=[@)5@~ίQ=Kר˴4,{"{y t+/|mO,rxE E$ ȖR#]g0B^!~ mAn>5~oy!҄ڂDY:L8!lt#,$ G,%[(a;=}G <޹Tn=@XpB3%,j;!QbhLon)G<[+W3AyUw{±_@<5ުkƄM (ۃx{CAdB C eҀӛg3; 0@mAA(k?W?׿q1)ypȚFaL@ s\YH3cym^^.9  @# | uY~4?}I%'w;,T}OBJ&^܃.Q^,_${'yR>I,I3ʮC ,%k>EҼ& Ƀ(HMUJA>RAhB8t3rZVSu!06w hvp8B&:ЃƕEAg3͢/7[}fQu ǽo DoY͢m Ƅ1uvX 1cB kǝ5`a L;` nY@NĔ Qq4O'(]Nw7(DP+(4^_W5AG~iqGqb~Gs5RKЄxk:/ J`($mVd5@.!!Y?;Q#_"(H(Hij=eFR?ZVw˯RyCɃ\Bjj(*LA%\|qdS#s% E-OO mFҌfJ\ZU00)p3|h&)71aN.Tږ(g~{Yd!Q,$(.QvAJ0X]4߽RAPRP B,]#$6#jQ[G{BPy*Q~ o]_,Xz޲g&; BHLZp&<*O~1k0(JS,3YHA5& N[[^‡u(&cT _~ARԗd?w{}cϡ TAv DdG)tS^ DYxY.] 8 Sb!؞bel]8EBj 8 [3ªYEE} `![E|ԅ a1AHZG}A!e(oպp_8M8Ԫ_D ]\\G,pGجb RPxK5>+d(*NO\57BT3L,4L@%3 B ]p BvBePH:(TۊFQOEN杔oVmiLj/ J^j(&Qsߒ,_8M"cö5tfls*`a@H,*b6mG/[Spz |ůM˽+GX"!V72(:4r=q.Rȿl^aEA%2kS 9sJѤI_PWyX/Ri1WBia&v@_vW8Qs2 z\=Y&$mn Uu†p%WUƅFQ/ М2(wn`qAI*4!J-=RvAf-`/$v/28V)݀?تRLQ7X=8?D& ] B9 þj_B,e8a o*@({Qu. iB7(ňi=xl ǟ4AP}{ަ'7]ْA;-Ub!1N,v@;Y^A -ָJmכ[2Bfau8X:OPsE٩>G(Fyj*̿ \ MknF>[6/4዁{k7Τ$ ͚X(pwqئI&E<q"%ps$!w3*Eb먕 }F,1Ǒ O Q%C/qoMuAfg*Y||Q`#i^H)p:Z&y (ݯ^FG38] jEW+,5rߺ.=Dfׄ[V aB`|G;x O@W#E=.A(P)J((AN͆xW[!Ig~׭'5講psKT oT(`apcN{k$CH^+t BBEr)ј1NFVa+fϾg ʠ (bLLO8Xpjv!,tANPN[GS b= ,(,sFmy,H,x7(N3֠S[GC/ lz\BN2o'u=/8U G2\ԍeȸF\RE,!5@Y~)! M=g;^]` q4廉 z0'ꆅ 3}nI+8KH ig*AQIUb-mtAgTkvBpB  5E8wcX|%MxnWU,lMHT+'_cB (N5K(FT0@,;VKWxo BOQ(W- ] y7 sʄj>uAhSJc!avQ }tq)p\*P(! i d! b2y}+ɞUpM\tj3y@άGmwXB$N1S;X3!yYB YJAs+A0@ vB 5A(Gi ` ǫvk6 ]k m },$hO0Da%t I8̊^edc iPb`oV5ZVXʙeU25ca ▭ejPFBcPg̟4XhMp=au(&!e~ uE6HtU ;uS^'XO=FL/f>WxgNGk@Ճ_=TX\ x!rиP*(l/WK>,ϔ ł!V{Yxu+ZN&+lr=1j›2aB ,(HpHK"8]e9ZE3 B`ꭺb!e# /P\fh;!',&1Er 9S|.)ZMz# mف&+p{·].[ͨ ohצv5N6fcmh,)x>ikϡ/8֤I¡;wPɃ]*귬 )zNLAByMvQ=Y |zDYrf|]fO(7XMXU' _Ό#QеDqN31/{ lac B?iuٷ5]zDAՃkjM>oC},‘+( kD,C  uFԃU ,_jrۋ%_Q%?wxZ7?dq:ӊ~hOg(;FY8hv$U NGrXM?oȊ6rC/~KpD5BbqUȊh B*!̠.jQ8ީ;!P:M-6ʌy+0 #!VJ˰MY3)'Q) NVN2)+SՀf(AS9DMT̪-YA7Qk޸?;arZmv?Vx\vzځ 2B#H ,@Ip(,l Bk%ٙq'>4:9Kpq'+G*!׆\'W8VPUN쑆:iBhLzdaAA13lP`KAӎ,7@84yC~~ %EY<`!oE ;Х䬚s9 Q> t(bs B&vyQZqeV&B`ТN]tm{v@XAAoIӄU 9 0Bܘ, 8 mA Q!N{ ,)X#gv! az4~)5*tUԈ,YhQ/JD e aAdܧPSaz!FU,tAQӢBocMP۫q}3C4A%OL@L [T%mɃk>3%- )/@]r{:L x%aaㆂ/?qQ~e-5N]X/XT#/P\Ӎ7Eu3)!8,`qfϤ@ ,p\Fr ,2Ra =x8>v{'*5!Vٛ'n(iyRÖ Qk"B8k!΁&{ѽWjҁkU%5I %EZ D¨;] fA MȹDq: RL! DAǡJt'uB(jXtV(u=O}< Fƫ0QWpT ?8O',GxlQ! >7┋FLӼ!NySա`bb桧 |+QLf) '^,6/hnB/lYA,,R7}(&|i1*$_I{Q|.`LMAPdhu qL,Kͅ :qoc+dpˉv1Ф $*ʃCVU>ScoL!2\zg[1 U}>zBMA*9?ʯ/Z M1+`?N*>J)8Q=ܬQ58 B .Q7Y?4Y(~b8b6,_^iIqzpX;]l਽`oč`YA1|Fo` \-@heuԗC_aX3"4 Q.&2Dmfɵ,dO~tw,\AL2Q9% ZjM q(ӃCU}baSVVR3DyB+G2a5|nU㍂&uOM |8-iIDQ͉zuf |DmTCح9w{CAԈɒ[[{W )mB•z,4Ys[(jLj˴!Q*th F, )}9DApkp(by'Q,y u~O28 )ά LnhIJd Pд+nftlz4& yQ AjޅY`!5S:2[w; 6E'lS;p)<&ԭ[(uI/+ )Sa ̿J^U•l|BMAuJ>ډ?2]oLXeZ:)҄Nda; B\ֲxP"3I G 8qPIAn=@ZvT0DAP0B,q4OyNB jYd< a&]~NanB.d12g/\0H8<̍Ƀcdoj3(} PPE$44@pP~G DA+4Rܤ_ .QE Eޘ<8J@v"- N)GM խߔ84pg2E%[v r rvݰ0N&Qv@H WPAh8a B#2Kd- DA\8̭E/ 5^hFof=GuxfH|RI^=oZ B,dBrYAjs730QTK ʻ``_߱>Sm *4}_(SaМ27KgJ=w 2yv :UЃPg2>uB{'h&:FɃS2K\fnا8ġ48|tNY^*Y]kX*Q;vi¤Vă{! 2 {MAH+%󷔝/"Q%`!Π膂ev4^Կ&/D=x k&m Bd}D$q@ C*_޳=Ϫ*ZGq }{8K 0<4aR+uE}! BU*³@R%Xغk`晵# B`wJoAY]N0NxH,W##`p~ێo^=2H8y!V΃B+UE VLm]^%vdVR?_pBЗgg C d`htkh 5@ӄI-4j83f*/hpss :SGr$\_bDmG58Ӄ^7Ve! B,|К_QЪ򳰆4 Wwx~C=؋hօXh!6d j;WmR[aQEoGå8=8Ѫt4?d5:ܪ ֍ ڃ.A0ϋM,De?[m( ZQb8ӻWG]ݳXMTxP>|S5("69UiEAՃ}Ra8AiUg.FcYЛ(icT= >CAO|DP,Wm'ޥF1;P(v mw)f9Rtj֙ 5:B`8w}! (_XtKAՃxʕ+a _|*СZF5{V;DkMAguyM !:t&f9NFF[ڹ8=Xw u3: |i`]nq j¤& ;NV;HAlk ֖k Dc1~Zeݪk@@x+VGA2-UPE,(SAw7j(Ӄ5nYXB`szVXMoQwKAԝ2u+m*N3F1|hqq QK&TLXj"2*9r^ ʓLh(NOtȔL؍ T7ߜ `!ЯQYÏ.>T> $% `T#ڄ8SfpT*KIJJ¤I@ Zy0vӃ I527&/$%[qz00FӄIIQL L4aRR}j$e 8=@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIDendstream endobj 136 0 obj << /Filter /FlateDecode /Length 432 >> stream xRr@ + ]p2H L ,s[fIbq=z ѣ}>|쇓C?ӭ?vWI{7So\pA| ;tO+#ripm0&;Wx6&xh+lIdHܚm3_p)d,eu m_GO 씟%hyn¸1,b'27 iA ogZ ;SM>γ}`endstream endobj 137 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 600 /Subtype /Image /Width 600 /Length 43859 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKXX" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( (< 6hwBuge$7FKu) T!xu8 Ȯ˫E9Gg'ۯtUm;P,fedg~E`٠}Φ,"7H2c2EOEb]xAqCv Olmit]*wڄPl.PHg:lQXz4-1-PXbX%8 }qO|UhnQ }z=PxBEb\-rǽ*MTC}]y.14Eci^*u-tB9#.~G5> bɦ1yE+4;yng>iQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQERM]X;uok!#ZT>W$s_ 7֫/Y*9.>هlwE?0z]Ze֗ijȘI)䎇oK.<+Z[MjCpH'ߚJ+xai(mP 1p O73oi]4PyѵoXg:&.%2"H̄z2kU۫MqE'qAna߯fK$Ӵ+KƟ_jEta\VXVXk7iir*ǵnF _jl5; K/mo&W۞SշZZ_4l[))N>/@OZd>|;g$qwR_ws j͔.#mQ&ۄ&@>J<MΧ+D{0RG])E2HmHAH*IER((((+8͔ mׯ}B]2{d`ofT /#-kw ֪o %M.Iq=|q ut3u60z2-JR77Ryi,FDehYHsӮޕvmӠG0̠Ʃ7Ի5]1"1a{ךҳhAB''w4(((((((((((((((((((((Gƚ蔯nZ*;WKɛF'ݷrץכ"ܷrפUS-ZטQT5Q,e}!n,@du=Oayi YH8 AUŊ+6\n,m%P:rF#TZ Kk m.ۆ$qEEPEPEPEPEPU#e1V8]O$ ;w,@;(HH\.7H(sG$N=HRS~GQ\ :SnwOԏ/9ZS>:aYe U!suAe}pzHM- 0i qZh_rЪ&kGQXե 9m.f e+8r*f.jM躅:.%$. )?e(Z bKE5B–6ir4_szn$Vv _rVXG} K`,Ü*qV+4Zvi$SXjyFՌ<}_E:t9`* Q,s'=ԢdJX+-|(2 ( ( ( ( ( ( ( ( ( ( ( (ɵA+f[Pru /տ&:Lxbf]*Q~cmu>}2gtz-aD*gX\utl[Qy-5[o"iJ1e`v-OrZiR-N#pGS5Eh#!`tfv){IKWܿGE{i%&m '2{*︕*kh:\tiã2fNxi%|-S~~L>^q5Wܿȵ9-mO.|g1OIEW$WDRQ}9 {ot-.++&,sq#c b:[S7{0)QEQEQEQEQEQEQEQEQEVO ԻA܉\mMV?nⴅ@pF~#0d[(^\Q|zp൘i눎cI^m&Aʍn:r1V.[@bQ)9 WF[.V^z##FGӯ]A,RbAmAE^ծQWCtc$FpqbEt ep7I6{9*D󵴲0X2Hq=G:+|VYkji:JhrˊOɚ m?长.KVBJ/UQ[AEPEPEPEPEPEPEPET(^\Q|zp !kF +A#ڒ `է@Q@Q@Q@Q@Q@Q@Q@Q@Ql%\eܶ c\Awڭf͖66O2&鑌GcYXPLR7 ɒI,w)$9=hNwŽVx2^$u>H`zS׎O Y]T/B2/5PmEQEQE;Zgɺڦ'9(8KI\c.6?{GҭDw7w\l _QEQEQEQEQl%\eܶ c\AEd{ŦנL}F?{~x#oCG#Ssmo13؈HeT W?. $jD_8Y?)Z7׿dmNr;qbkZciʹXLyLgfp2NE2YI]R4Rp¹<}ԍoFU$"oak3IoL@.QH'9'Oճs6t4M %gYJqКKIRӕ'V veHs^sӾ+f9XH]VSAA$g:5)۞-_ES3 (4Q2,H]d0<GqY6Mǖp"pѮO9 s':PNrFY@Pcoty`v&T-r3ECkuo{i90ΛW805((g[lQ!wl$RW1[+bQ\jrP6I֫k._u oP8B8=^~ MZ a2~@};\ӕ6y;~β6NGһoڋDi;';O$ǽre=62 p0A+N._LqЃǷCJ5B(p(((^fW_Xmj@4Rx_c`{Jf}+ZiV_mxۃ+v9'5n ( ( ( ( ( []/{‡EPayUr2n! ׿Ѿǩ>8H0!2,h_vn6Pp+"`SөW'ODu 3smt7"PGyPEPEľLK3i+wdy3j-oc`((UQ_+ y+NO?@zTs#cr  uUN wgYb9~g!oK Dn2?Ԓm>ask p?W[~VW7asr8WZV@ 0-ϔ:/Yh4֦s H3ҧ HzҲbP g ׏t{y-yBԝ~ U@g<?YzY?f*NBWdB d|rmQ]Q@Q@d_7Zv9gケC<#kVM_og y.>(?ո>>K_%||ϠC2˅vʜ`[HX]pke-hR QYB7e'5^۟uFZ錅|R^lyE$8Q&9#[FtFۼާ +x;.@H{wX kXɆN-Ѭ"cqdEu9VNaaX]! 1d)Ԟ3`|?0ꧭ}|14*M:(+&':tR9nدU|yh0\zEkVNu6sox+$`z}Q@s6ƹ_M\'ι_ןǟך3.Xm mv-dyS~Q+e9M3ӵdg>"Cp^_T♏u>k=/<ƪυ*FGVMo ֖H@qGzF褞r^/t߷M]ϘIȣ=r:oOA1Wbye0=21$5(dR7akItӌ7lVaK1 :Z%hG=,UJhأ 0UT]G eOvndb?ZmMHǨ%vz0mdc'p"ѧ21WEudΫ)GgA H|zժ4'Z!0$L)ZtDgќl9TW)N?JJͳ'[H?u\ي6(PpĜcs] }ъxZ𪤣хQ]'XQEQEɥYc5,@{ RG#E-=#+ۧAҙOGb9k)̣=tsqZQEQEQEQEQEQEW1*^}mnW&R>YrrzOE+7)únDb&RP roZx_FqgP#{={sE3MtZiVrw!},Г;tQEOSb| {R'/?$|g_/Cw&{;Vyup2>&AU1|1c҆=+ˎTiֵ]?.n>O2v"zb :b.K(MGm:@ɏ>~ݾlz{ asw";ӿ:ԪZOz]3Đ"^m=y8=2OiK46ꮠ<ES/]*GH_uhzWLD6@WC^= >"GER:( J:} A SgC{0q!sjg?#;\.:"QIkPEPEPEPEPEPEPEPXD5k;͖+JV@OPZ=$Ospl=.|BLfEÑM\u/=Ny%y4FW8\0okJԨܴn&\0vPd×>N rTqNTMem]:x(,Ǻןԧ5Gm d'ef3;0aX2W򍏠9!s( MSegxa)%WK˧Cs$̺hL,pkI6HjƢ_w/f@8R<~uϱBIOvBq}Gq}-{yri1æY+I@=3Xl⻳fw#B?MkVXWC Ce'$rk`;Ԏ={jׇ$KH~$kr$E?3@6dKu-Ԫ0sqIN;b5 ( \?+]?*G3irE z[sM\džuSm9맥%owAQE((((!;aq͵7Vq`#f3hOmcim$ޒ"5$AykRĴ0[=bdUL8=Yc|u\ĺ#Ě?ًtΉTp#]QT;*zM+թPsȣϾ'UKLs8ʰ%8_`A2[;<"n-#\,y8d!XRA\ҷ-z}r/r *C]Օw@%'=y Aei2OS<B7ҭ[pTv5ʅ,?)[e~m#" ˷5h^FM0gNVkCAzSMr$|# 8JF{T11kYݱy=OgG5[@9tҲ#ʖzt4U$?;')ӡrfǺOO!ƾTRzn!֪«؝9/ 1]V+:;s^S:<UPK1<s^KSpW\kQ,EH=?3Ԍmi1hz5ܖ-ǖlqIxhQEyQ@q-^և='z5-dg^SDE]XEz<_ך5|*wk[o z꫆ݴך΢a.l[XnѺ{cu6Z Ǟ zlEujGN\/+]8G}Ғ8i2p 8qMks w,ȻXڭoH- !Q<@8ϥIw鑉[c\<3 BX)k%I2(HUS>*^\L#f9qc5FO%APBlU ;$Rjiz kV&9sfP~P 眜tEQEQEQEk:}9Yz捘)EpO ~FͿXf/V# z06[/6I<ɉǺ ma.eNU[ɹm@)$P>OTW3JG^6F{tv <שq\ڍbC1ϖ!GAǽexsWR%gc #00aicM(4 0 v?ҽjp^ODxYk V@Pp%c-{eF$}GϓN5?*8S\\~fF#߽KoxBHeu8."bs=xggvm 2?JEg*x:+`v,RRxS={TIm={{ҳ|vxV#چ%(Đҩ24d\=TR6g 3^ IJOSbu&҆#[5[w @T10o,N+Ԑ䐜tҾ Z4K$2;G"0du8*GBcHmeQٞ=;Ÿף~c*~ep7}N IZڼ HKE`Hu`յ=6HrTJ9xlm> &[˴bѯhR18,WaNmchڛQEqQEQEQEQEQEQEQEQE^;؂9dtmJe>A$P :Mom⢕Aȸa m$n(T k϶աKU>m`Xbd|˒0մW4d9 Aq)2̐IUprxi ՙzs_=mza؃Uuv힕,L#pTϣ.K04Wļ{77}*[Q`@{Fi(L0UQMo47Up6a?3p4`[u9xN:ҳ%i&=+ݣlklojZ| $\'8Һ'.4yϰD-c*IHF cY CtQZPo&IS ;4KKBc3/\ zQٞ:~Tiwg{4_:E&ܦ {@SXgL ).WuQ@Q@y|KxDU"}(6DG]z{y3͇kmڶ酷5v|;mڞ鍿5w5-Z [aEW1QEQEQEQEQEZZj Jwj$O v8$TI]9P2FA㨠 WI)mwk&t1p$d`g)YIlp\J_ڳ/c!oV~é!y{pc*ZjLYw|sč'ܙEN.2ٞeE6~md`ORH8ףxA:*u,)-"IA^x$א,̇}~q4*`9i6Yq\֍c!ְ pOcZq;֬-<7?´b9"p5EGM 28t8aי[ F.>&a'݉n"0~^\Uktb(bgX7@K\oknAfȑ?L8I[q{W4Bya/R2|w޹C;ۨS-Ov^|H֯s {pp[ۅcvVtM}f[ɷyʖpbxUWhdzGoegߚ[Bd$l3R#~Gܨk&480wItA+8P[9˜mCpDBQTD TZ}vPY5w9g=K1ܒj|m`)QEQEQEQEQEQEQEQEQES&9xE))KSE%p1*FӖ,sn(ռ:}C:ћ ȃA9G.k6E ̛g! ϝ՞&{yhّwO;v֚^{ Xs@~d8kZes !%^C3f_iDKE^ӏ4і&mpc+|}Վ!9Iau)2:A+2%ʵ],N}^<''Y#a?,vDnC\MrwxƼ>qn_iN|'ұ.i8 s۫3{xkգFCgr9.}< 燥Մs#mּ`E<4H{P]ƥyM4EO{,-4}n%D{%*R:lL1ܐY;=Z._M28mYSQ 2[DZHVnHUn2] X4A-k%ݮ%)&e ?͂)ݓZze$E^Jr+<|'-XvΓ7rύ猩S G*mbwBIKc `?\ҭPEPEP^M\XLu53}/Շ4D^TKɜQ:OmW?]y¦ygoC|r&k0b(Cp((((((yӢxc[!-CTL]j (4i.VHe;xP'zs [pEws-Εp~8#lt&4 k21SdcH?+$P-·` eX08% sqO ?FW.jn<,\ 2p2 s|7?{D3[lJ 2A ^i \se O$h2wqӮ<M{<8rUyx'/F42=kR69Sb,:`{V.ֻ3ȭM3Q0/eDӞAj>R͹x;P`}{juʞ^oCKr=cR(d5'ұ݉$I=IB>_zGB43K۩ដ5my'9--D U '8?w޸IHFY*'bp ]y Fi/xsU,j&ym3m4QJy߂&mdEt` E|a:((((((((((((+h(G 9(3.!4&x 6+Ͼ$ijBɨ?n\Q1x s'*u=ޒs֤tIo<HHQFKy~kdVy^]ra<0A665Xd(Ssݓݝ<)E{"CeUV ]vX'Mt_S6(݁2`@v."4Wre& 91x1]Y-ݹ_ VMn)[@+1Q@Q@Q@xoQD^^]SRWף1 Ws-_Neֿݷڕ͘bztՠQEXQEQEQEQEQEQEQEW3iZ^-ս&?*W-bB)a}NΧZjw$XΈ8eR:=#LX>oFO)$tBGjk&h]lN8 qeyE2:6bq^A $K/ӲXnϓ0\2?NWAu7Z?ByO*vHBT:ׄ/C#FT<8ׯOyֵgq5sї5ZO)k[][0a" #=a]#,EG9IYXh^({TM@--v1v+Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@/cE.xv@q8=@#}J;moVT|r"g ٍUPWuWMO9eO=n.ߛ7Y~`phּkqmX%%]8nNI`_gm26u+i<Ռ*EQ 9Pyj?('8i[_N21p2 0$瓜ge$E^Jr+<|'-Xq*a$ŋ[hX Mx$rI'I$y$jj(FQEQEQEQE_V/V/e'ȩGjWג#,5)5]yb |*sgtz}aD*g|{*!D5ݽ\]N&$ƊX`O.b+DIex؂Qa\j mha!x$7U|1V 7+OЭgcx{4.c.屓zڸzıעmc"!'*dv2Gz޵Mu-OcZ,n8ە*y,e[[%~GČuEftk[3 zO/9JB]'p9y[~MEPEPEPEPEPEPEPUl㽈#GFp?fSH AEcvUeKn`gKmp3$\^.g/߻yB: 9^GUum 6 Ar G Eg?еGed^Kq pv?hW ƧtN8=85M{7Rg>I{_ߋ9fڱ9s 3Lb)[(rLJiu@ۤgRs^=Ҵy3@2Ɇc cd,@ج[3:v"]:=䯴y VۼqÓV>2jܣG,*#냞ʣc"|#dXƒ\I&ݡh^TdmEyQ@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@x?ģƩE%{y>j5IVmYdprzf iV̙+?ZA+ku+ Dm'|Ccn*?+3U+JKfƕQEŠ(((((((((4Q2,H]d0<GqO8JSN`itXFQkcdڣrBD|&[[Ϥ̩iq1;/lzܞc%pxQүU{+m># +%ӄSQp02II>.(QbӴB fWbޟóئCpDBQTD S(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((?#<+cO7m}1@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@S&8"yfu(ԳI(VO]Mg{H1#. 3A>BW\Gisq^y{J!Qp˹mǪƹf5_:1X!{ G!O^8ecmaY]=X_:$&'}IjEJ3S8,7m݆#8ⴿZ+wD597 =v'=zxAZkVomԵ0I*}rd^ OHlQt~ھZgs9±=}5C,sĒ$R(dt9  S2mMW kidb=ne'׮zSL&mWH>b{hP}v1'kQY?ڷv_7("11#v93V,:S Ϋ<A8 A( ( ( ( ( ( ( ( [}h=r2W1HE[dZ3c|n.c>_cw{ghХe W8EYHrzk>3^dе'UbXA kfi"Gh&e> '}p>=j++m'YIK8ÏWa{i[:U]\#'#aim`٣0 w~UٗхlLa5t nZO.ZzO.T2:լ3ԗsϾ~d㔟5̟]qWH-q8/_sϾ~diߙ?>NKMJ`-x˾~dH&3食'N-;~{׫1iWoK-/2*3-7I){xO9XIP|gDn7 //2hO{t'4'YOҡ0}ҵY^ ?fʼS?.oR׿M2uIJ :tVYk+aU<e[In#XԔcjkߙ??jkߙ?ɇړ7s5@393aFFHCqsΥ˞|V6ѩFt\qP,E)āUrrpMg/EKM9Gnd# `t+A*OxP$xrt( 9<֝QEyM]RDtS322H J*֍)UNOv96ԔNÏB{G0G$Fn 0+#"23$C+R:n箲IZ-|,ӟi$Wn;E!=Z,.lm'YehJX2Y8Gw!UVu$c=N%{ QEjpQ@W"_ZuF8=?X24=cE1*Ȯ`5o 'kwUx'ЗPsf H-";=7P=3(|]Hx8exX]dE !{}fM.I^e[yb549< AJ4kkwx) b3*t9'0§_ ^uY+e!y3^n yGS^O @ G*[ _Ϋ=<_Zt3u3 e=y?'>0F;zRZXe.g`b ;&HDH mJg➿W uֵ֑^ ՀUsU)Se%jsc4Ѕ$np({:KGV+֪K $TC.}n:#rwk&g[(a/1 aˌs$qֹCIw."$g8c޲4u{٢2ˢ?AלqeidHϗA?3B=k)RZ'ܾ){VVNi1xB7$o3|01ts7:%zK9 + 19'9Uu[Xb1 3e*@zw4G?݌gWIJkMՠo+Ufo'ϱ(9se 6; E%Ngj[#fv^* {Jɧ>MԖP>e9:Qh.'s7x־u'"^0赯/3?2kQEQ@Q@Q@[Yʍˉw;g ;Vl'T"I I2yf[y`\u6+'ÿOtn#x=N#tRO9R5η oܦv\\;M*1Kr}MhQEQEQEGsrHjŰ"k< m[bqW8q'qTa688EkΪϠQJҶy{ןX:9JZ a2~@};Hsې%zcU}Ǚud`eTSXc~=1LvueL@H!^^WiB5ᴿ0+(((tRx_c`{Jf}*ޭ{݈׊2R-2c:Ep7L[O]_=L1yG;}Iǽ ]zU暗m5{,k9q/%ರОիtJye[Q_ 2 Q g U-uguX=*K-?NF?j Zf6,meiވ yG_<յ *Vu;bzcuTQEQEU}C`>7*Gq`O+$($ߊ̊#ukAA2D219zzse1e'qy|-4ݙ5 1Bm) \\N@="d2 ( (<mn--]29ڻOs>d* 15%|#!JlO k{2ሒV^(w uhcF?y}{~ʤ)mc*uʪ~Rp<=r ?ֺ(2:zV)[(t_֯Yw1( ZK.thWV[>]OFnPq\:X%J@aJr?ZͶ}#VQWٯ3Nm$E(((( c"K2d>Ҙxq/ YEY,+FK.x>6g >_FS,x֠ui%'-Gܐ9|GaueKdkN8vcm>qںLAyahړэ3=s+_A]xO:X%3^mÀ WQ!Hubt(2Brp;b{}]5ܝFy[M_ש)[C+B-/-/Ħ_*i7,dHA5EQEQE$ xR#TP8'C\Ԅntӵ+kt ($@ԴP^CkF?%zyŐO 2J|&gWg/oJUP+zKS"DlG=,p|{{Wb>cqvJZmQԞu$5r*V1s)M(S[NX+ ,&hS\,ѓ= M\t@2x1+ ԝݍy8L=ړ~*Qd:685VmA8AWVSMzN$rkIZ |\[͸O֔($[;Gj殔ĥ4=R<tY+iq TGr?kfR #ְu ڬѥP a#˒qGaJMOkݼsZP&՞5w:x`D5ʧ{ޫ[KGO*nb'IQQWT亿>vu0IF]U`ct@?zZ=:_]m aK4 5 *:(4t?_]_=F]=-Iޯ#d>`OMilGOf!X\1}?_9%m ֳ_rrZqn6N:vUKosh!Xyos \jJF9d޿V%Σ 2_*WHB;>18gL kq?*Ii5-1}njww'3lս)9_z-$WVoldʧrY=~qs[νb#CM9<1M,笒Ts(e,_0 7x־w''澈7xֹs5|s6֢+,(((+&6S6K:$g&֬~[&uM1千,G:>ŬkuAqy=zjĊ#ukAA2D219tQEQEEtm'&M+5ɴ푉S^b(V]!YB`qЁ6ndb?Z]Qt)GOQ4MЃϧY2M z[62nGVxs*w~Gg4XGg;=O(dc ȑdUPAry˿S]~LէoC_j7%Y`b0$N^A+?) pjеxowed^f!=:(((nbCm$v'{'zh퓏4q |{mќm[M;t# irǎ=8 (^-4Zm&=>{VJo>1埗\ֽ^_IZn?gRN x* W˳;/ZGf̛ϸ`|6{ڼGZz>hgVFVnǣXA5āXPb9 aGs\+:UT < zQEaG nk-o&fؑ 09iiw˩XY^6 e%XqEPP_NֶW ⍜F\OE'#V.0]шRIZ&t66swӮmtbh,[u\O5M;ɄgsCDfW(ȻA=l%#T_2]M%h]4DLێ+oHC/1NrUy?r|&e_lDd?/akʹ`QV̵^+޴ן\SkYlWA7?ɿV|'g>wbZtꚢX~BgD?kRxS^ֻ=[xjݎL^#'\$: +>e|:#K\)V%"Z փjp~Iyx/4^~BG֢lwF \tFkx92ȷMJqLo~I^KrTv35Ob=_=uڇzI1\58I[92NN?'+~?/+ۄWEi*ZnH[S.m}?toE|_CxOE]`k_5/SkQEᚅQ@Q@Q@VSx繳MBm]o#N#P 嶔X^[&.Oh^2|ER L+vʎ+Xn|3ƲF#rpyk$G7V9Qm' 1'cGpM}M<}sa6e]1?tq`@5*`P78U=KR 8 s⚍ ّR| 5Yqf|> ⑟ Z'm-?~{p\ȽIS[h' c::t*d.RI?AGqN:P62Z/@8z挚ѩȮv*`rl";RץTv<\SKHM7<67[k#LIzpqf떸+)Icnըu9R!LIz}+5]qN4nQE# ( ɇ/ē?@-Ԏ?y!W\*A|׶O,αwsrI=gv)KIFUqBpF$N{ ttQE>0Xzy(?UɌ-+Q%RoHcmu>}2tz aD*gK~V/0?VwJ,6*" :Me8*@iIgӎi&9l'}B0G'WEElq=]ȱۤdà qZM p$Hۂr|giQ@kɨG;HX' 9bOe F?ݷ&7$mze[}h=r5pNژK"iQGnSیg=OL6umXgTQpWT/FI^^Edpq,?əVW ip}9?_^:5XlKL՟/nJo^ԉκX5Z7en9WFNQӷ̲gt~4]NO% {2|-bF^xnv^ ] >+>vKl'¾wQC o"HdbTIW#ùĠ;E5QrkNfG#Q޵lsrjDҎ?jq1"iC]h7}l53`zU?*˶̇.=jIv} yS>zxU*/:zʠp7-3KwRsOp7+ ]rqn]tܨxj?)UqD +v>OMPu~䏔}Oc[17oQ|_O}O6rH~O{wt_^:xGOJiOC٣SDs` W`3Ҷ.#C3ej$iWzi+*#05/Uѿ.{p:WxOE]`k_5×CEWΛQ@Q@Q@fm5\ ŵ{yb bn@QkJɹbiubʧ|ds# r:FeWf#|pzoW3-Ym}ʹ ,rn=0fYۆ 5 W[gdF# V.?9>{T=q#ϵsLEJR/>c$`c~F={S.% ۿ֕d#oȳ+ҟT楍qGc[< icuȩ|x"sR kVgF$'5f*fz֜\IY=LgH[JV=n\r{ JQ3*Mv9]Z쯋te+ţs1>ǤꖺŌwvR@`J' 22+uZH*p!hx:| I ᗸ3 {xJzK>ʍ^h.,KST9h _+(qGQ_i` }0{:Փ$N3HFT_ٻεHQ@p7!֎3 E]rkkgKAחK ߚ:sQֵQ[zj뫑ӴnC 6Z[]Kru=;GcCa{ߌR͌g8ں0 fxsU#5-ͮo;Tri.h[q\r-ʌd#z]r6|yMW,ISXڍ[:_ D0,09(FD>8==91#N]q;`7]\+jV@9F3ayi YH8 AW7dn쮬oeÖ]Z"l\k_Vcύi~F`ϽP-kocSw)%r]{l}сVQ('dfE d$1<)fv8 ROaO 0 A@xݭisnQ{+Vc$HC#`zGQXz<-ʟaf0ɒc =; 4I" B}>NJd7Ι"m-eei 3zp*OHe!f^wqߑקc!>V]>kgq(kzWY\̖Ȫ=vws}Ya^;fz)4mY\mCaEҧ!y{+i9`7h/?/~=:/V}{z⽫#Ϯy :įrγBnxK3<z4J[%3#{Wi3ǿcc8ksd, '*е;?K-5ɚBdY#R#o:?1l#P E5JPj"PG֦ky =ϡ긨uVTCi.fC|{pvOtPUyWŽ"1w\JYwV| Ҙ![4 O^r9M60ƹCٕ{VQʅlasMDn\*ܱR@;{ ɟWTϡMJȤ;׼xOE]`k_??{<'"^0赯ϝ;&sZ(:((((uO=J~TyQՒ$6##Zj_:m͠yc!%ۓ u8#SAFfx:m^ʻc~[l4(KvQNiOӢ$<226&pKA_D^s6tnNǽY a :PsJn=*..ud-7$թK2$dlFT{'%_4cKicM(4 0 v?ҰJ{^:t(#qT:41=>uYy1EQLN~V 5꿤`=_oz98WapkB1^v#?u={ *QTS#"&^/ (^I#c/u2u|.;zTl@ݫhgElj2lq\ė]޺;H\ђ2߇_gP*)IԪ_Y]| 9+(֦ NР׽WH}VHNf܎Azw)>^6wl]2ytYg%i#HZ ߌ*ђWW`Ux[&DvX`W_e;}U)[Kݶ"__4#ci%eش S5(IK>«ny}\'m$;wc^Ny}y [;|wJǞ[w76m= F>랆)5h)^ά* ֧aO֮˥ﳟi/[:*ql-I -ZiHKIʃIanC9s]`G{}kͭI#cu1@RnzzT rۃ(ՍSʜw޹_F yu9|+=x&1w5fOR1o] Oic؁*c͌g _DҲ> H\ОWF?ZU/Uѿyۿ':)5P((((('q``!ݧ`A!H #rWq{奵F$'@m̟6ՏX Mc3oLF|رlIp jVR[;m>W*֢M6`K erZ[]I,`WYg[>U+3Cqۃ1 2.䑿lw<=Oa=q|7c±[DE6+2!?u~ o t,Yh9BԦDQPrVf$;n$XB P8¾/u};b>(R( O'm3/IST<֧9y]2kjNsg>Bwuލk\nl78:z]UƐ*<J#2}?lQTy(@QU+i|䉖9?i1GmG>h}lGqrVm4[46"0P⨓FwV2J*ߋ5[׊+3N$t8ċֳJeP`+̕*=Q#^Jm1?"\+^]mFz}kⳌw ?N\%H;&Im{}ލsW_#ʳ#k M T_י,.I{U.4Ozlz6s]I.64߰ʼO>9p:Dv^Hǝ>޴Tvg֙bTnHex=kJi֓Ϟf}_!j\Rp*{?u!_CG(i?ݿ|L?/lTyjK}Bk֏;?Q2Ɯ%\t5y?f }ů3ڗW t45} r:cOyQJQzFq2ΡGkOgCc3\}Oxj!w:ˉ|w_¸|3_t-QuzAa4RB(E67x־y=ko ȫ׌-k 5MB(((((( imk#cϷp23'VJ6SIi"mؘhz'*8!<6QSToliETE$c' RI8g#_hp"b9*ân:sԴvswlZTp{}#{`K<66  ?UG-nam4܍Q#$OG6M(_g-\4j-4x;xh8]Ip#c*q䨑5@IKs]$:)o1X<;r3M͹x;P`}{jϻԊ"FGTZ0hկCI(r?PogaU݉$zDHJD$UTd=v^4Տ^:LW׷IAVA*Y&tbΡ/4ITr<AbpUX ߏm2-7BX.ϗki:r@,n.RpNB6Θd]cPy.2AE h tBςrÂ@P>+2}fV;TiYYeD,Y\~׀8b"0eaA"^yaEPEP^{L#3/zyggW3cyɞvg|;^h'j=5v^}ƣ> C>ݥ2uZcm6y:9voJkyˇ2̒$Q2 ,ԓP]v0,p[YU'/;ϴyA#YU\t'oO/m1튠6@vVsM*G?ʧ,a=(`q{=t/)qC~Vnǿz淸mfGm$* PTRoN۳0EyB/ٿn1jEC*F**^V҉&X.Cy4CD`3^_$Ӳ4l;sNI:W׎|aSFI^[ȟq N }6s3b1u }]U~ָteq뢳 sڸTQ7T+m2ҹ_'>ʶ]LY-:4$Տ) ҂z4"VG;EIKBj&Ӥwk.mBeuipC~Sy~_k<\V*haNG;3ǃ~7k#Z#5gA cOA5:!\79nކ'8Sٛ"!/X 4w k a!.,!O7q~Uj82*s7?\i+)β~u*=Y}nLM$Tax(BIȓ-$j7q\t8ocԮ"_/sc9}eGRv5`$W2vg0yCP=,i^kUWWF?ZU/UѿKOEWjQEQEQEQEQEQEQT=*UcI$z&tG*qP\:.5[y|V 8,%}Mqu#@cA|bbcglvx͆ƔΛ#5i+S\iwMgr]yf=ۋ%NeU?s F4&k1ڹ-d^=vg=y,U7PEGrM&e(MzG<:$(;!-˹F>Y-$g[d XK/ojJXuVDU 9 3pO\}ipFs\j/:( T 0J;GEVj1PѢ[iP C=W8"HE(*" )Ʀ'm4dyf yada;zd tn(((W5e{%xgG+mPQ褯['I}xs]O6Xogn?Ykk̾ iuo+k0V^](!FȪ+ PET4/}ϖ628WDagN6ۄیf""(UQEQEQU f[h㉚8X-~$obfL?oKO5Νk=^LD$x#c < U?jђW׎|`SFI^Yȟq#H: t49Y~?eVLLj|ePO\v<ܱuR|ÿjܴaGOZ,E{ݶ!!̉¼\M;xX+f6^y,?:&lurSF~ݨxzWf hVfLՌ/i#` }KqֽB;|gncslx8Lޓy۷wG9WSYbj*5Ս++-C w5i # z9muM&$lo&@E1ֺcH&]Js0EVҬ#&Ǒt2#ƺ#˿ /Q QE ,qFQ`(aE}Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@2h'dY"J8`x wi>dO$ J ('g?E^5֟~<"JBѲI J+֯:ղ}K` 8\AV HjV9#2$ʧ*`eN+;D֧.ae%{$'!RHcڽzt4QENJ96tVhr2TCGКԯnm<> stream xR=sA Wl+cD 01vn8qBvΝ1WF'齣COwoݻ/xЍݱο} !5pM Wnw@~8^1zlö zȚG %WbQ"+, ilϵT+38Le% -Lie*g#Z5 ,p=FV0H3LvdLm_R)Ìg 937=j 𫏱- qW!1j6|ڕ屙ȧccWJjކ@n+ O-8\Zqn *F(fn_.3x(:6E,Ǥr)R`7~BrN"|_H*YM^IhVS[DLؿot]t)677h|Uendstream endobj 139 0 obj << /BitsPerComponent 8 /ColorSpace 93 0 R /Filter /FlateDecode /Height 600 /Subtype /Image /Width 600 /Length 30799 >> stream x콋}Y6!׼5HM"I<MbF[νk1/ralm]"-'&q]z7 ɻz@{UuU?+9Os_sʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rRF.I{^AQUQ^WUz^zL{UTW{^W饞^UUz^WUzEWE{^W{^W{^DWE{^W{^{ܫʽJܫʽJܫʽJ/(r+*rK(r+*rK(ʽ*ܫʽJB^w?eLOԻxIjx&*k^Hß~6`QʯeQ3q9^R?x2 C?ob)qݾʂW9u"~ձlqS^5 WY+YKɲE%l7WϕkH8ksmw׃a'〈]Uֽr"ǘJMOŢ^eOYzC?o\?Cpfvݢ4W9a1`ҁ6bWi#.^ۥ2'U*nOB^5OjeV.(c}2UTJ)nNŢ\5OjRYŭ]_LSz<2[eOIMŭȯ\յOyJ9 []j(UGPa.˯ܫޕ J/z2ҿ3*;2UYCuVDWwoW*o ߟ{4^`ޔͷ:<[U*Db{E,j!;Puĉ1(^Y,h XrAEw(U,?#^viw`>s W l"X~=3/!g, W^$qc uQ[x' ^Qmbʫe+L XHվ}X孟W%wVaIlxP2X;PMϋI esu6&`Qgu8A]zA gE("iN|9F.X"WZ[,g3v O`8Ѿ4==]M+ Hz:|:Ɋj敊Rt4w W,?!G۷9uT!A}:6JxWuҟx:[ Xg ](X}09` U8"` ]:Fgh/qD6T߫ O“'&'QۗAV~ϝ1G},ʇ58ZÈlȜWW5U!vu8`uV& •pE{6uGÇ,'`UhI2㕅U F`ejEtKMT~5lh3u, y֪j\oBxԑXWX}+hD`(V~?{ܩ9\ax `###zz `iEGr\BX1X!4Wv;wJM8Z5r6ReGRę>Bvu+zoD3. X+pJpҥD̦lyud hXWA* ɪ(ɫ N·gfҟd+h޽W)[|W&'5Xy\:ڿ?oX%W.Z[+Uy']33>p-@dCyLX';` X˖-U1lfY"X?fa`8 5ji);uW _WPvĕm_J3is,[I,Š2!n[r:t\cu`E\icu@ΝX+8 ºyeO8P?5\`aWȕV֭SSVpbzKxm6WPh7 R4`b-( Z3~pq ӛ`A~V;9жx W6W ze^dK*;O:](q}. X,/ӕMt2`u,<-Zpa e-z[T exEŠtV"Dv? 0J3A-&`aepѩSOS0XBVgg;Gw’?WyX ^ 0k L^W6ĵ9jRr$/qT GuzHix` X'!%tVƹp5>m:~,꤅рCGj6oހZf $X("x/]X=(:'yjW/GXŵ]F0X~$jDsp_K/M]Fyr\^NOO3V Qt.+DIS\iF3YԄn, BV^W/}*J^CԓZLa X<\7"D)պZ9t ~饩̊/vm*m6Ws W@XIIҚy\)ίjT*XXՖ-h&<%g zJT6N\X%X!X\:^ma6od X,,Xżz#\ksܧXf ,dC[YT?/dG({tkWqJjl:9V>>'jz,>c*DX(7{'FGU ,TH\`:pT1VcIV+$y2`AbxJw]͏PuaV;fOqm8];vp!$ E ;:7&WW}\iZz{4V' V ٳ!^`͉=V!VWI&Kb+U|p0t~k_?v/+"jӉ(XULRcc;)Ljrp5i m,JXa%^9fQij`4P+3?RСez ZXW X)$XxjN^YPfX%dD- V_?kjOV&de+Nסw-6Xi ,wO1du& MLHw˷c 姨<"XMX\mJf@ p VV%`ua1jU(hkK9Xr)% btt#$,H|se UYYO@8!g0aarB"X(HX6XVh VJ~S)T N.X'!VNB<# KJ*AM_鼷.^-6T!Vq !nJ.Ph4r߼bUzF)x4=a룦ݦD*i`A&}.ыZ)_Ъ:zyj|Xc`#.Vbdr +ːye;;7;2x:gEE=[,s:YڂӤWWj앴xࠅD kF WhkXl&+Aw_E*z+_7Ń58ț>&QJ6u%.uD VӰHc54+䤋x`)wO`9ZǪ^铐bnwby Cd. ,x=BVAëV V WCp5)}VYԚv,K,*Wf+;B6ezz OX!6mu /clKdū1X X+"& VSS.V`ege׃VYJ~2Ug,,pu?2 +[`X`i d鮣ҋ=А_7X n?+3;kb"`LkU^\#&XfwG8XhX^xԄ4OO`2ּhuU#s.!@Q4VՊB\᮫VG+`x eU vY^-j9xV0pXx M:J}Aj S`kA + pE`_ZƢ;s,g.kǫh)M =c#V|%-ΐ, _RSv`q⎳ix̅N-X+GWq׿CXZfM+5(īeh|eM<{4bǮ uN! 5.+w1`yĝ,Rҫze"ijPcBXQ` [-8+.VAsmtLPS&,겷Ix,1JS}%-p mW+K\v cjF=ft5`gYy;Fxeb% + 1XAJbxX;se f̔2J^ ,= g-& :Y,i3XܗႥ{ 2 b kkqzxR7XXTp!gQ} _ C2fjiirR.X89E%ηtkliW V,:ʐV3h^ s~9KW(MV q"V~{ G,R O娨 Jc`EdX\2++^z--XRUzt/RP+`trwwr,^ԬNv;nKigw+9>MVq- Jc`urpaIN^ + =~ ,2+~d+l + ++4 hW<ƻ-}{;7dYsZۙ,;2{e)`)guʚ6ā+>oW+Mc+]*€p&\ɗH{ĵPA^VIoº[5W 2RԔsj32X24WVDV"+Hpυp%U1VLVE^q` X&s ta3]WW/V_)~fSҩocjksX\hj\qL:1%hWѢ"jk3ɛ6m%Qw.VZh&ª 50r5p3Wm4kWy``6Ὡ;vX;~/AV{TB+ފwS;]K+W2}F{ec` /V8XXz43g+++E^]aXz*׃XNXW;Gq !|yGG ,t(^e+=,`5b/2jT-N+YE.}nhY kbՅLM1X:|Ν;y$r :)%\Y^6 **W!:K]].V6W.%K+zI!*J|x/c.haȴDt4D ΐ{ X,ڢ3`J߻xPV|pE*,^aU Rz`dXj n969M–L %hboO iRX\V YU_!V,NdA Rҥ&,4!G~",(vE0˖.eW= :9CʊP+_b zXXk7\J/[b^+'…xxJ=%`|z878n`5Fx7赃 `ibJ{詹Bΐ*`9XX+Ɗn C\-թXƫWz#8buJ$boDŽV'NX7X^sEX]aR{5!ʆW*:mnXQ,g,MUh9ZO^]. V@;.M`رc, _{uBxp|:UحJn+U+ +"+|G&Ik,VD$ן:v| :~\zay>vn.4S9]丕+Yy<^+U#5R VʬnRl.\x%KwAVVv!V1%ݶmq`˖Ar|[6EV#ώWV4S?`գGXZ LJ+~ ^ZJXZT!U/U= SO lj.|@kkkc̩]eJ^J'6ViXt V1X1XyUJ> qªQH7 ~z^XO $` V1`5kq*Ф) TV+acթjmXТ7Dɼ;hӧO#VoT=/];,UE XUM8G?5+" +rE)|& 6U+ec%`M}1X͟Bzov0ElVO#VaGt `o>xrjf;Kx (6\)auEW ]?kW!LA|cs)X1XUVhsyr%#^{Edut Vv)9sF)`,xYK X iʞT+?+UOЭo3X-^lM7{aJ8 xj`gae auRWqht(4@U scMX`MM XX+U9IK4^`ua)XJn=mW.9&Rf_UgQ V [ ^g"faGax1m V[Po՛o;vٙ ҵqƪ9.aT^:4R*xjR[ŠR{%yYj`y;7ocw[]XtUNp^x>c2V\ T­6kÑPCK:soWL"S {_g^-ծ]$LMOOMUTj`Yb*$͕ kBp```- s$mJnuAթSՁt 4;hѣ",!K/EUxL')g4V°l,8c>jc(b[oV"U=JXqo8zihkhP5> ((V$|%v4+*em6{Xo}iST\5WgehW\Il!z : G zs1zRelNXVzVV%FrV+R: VK(bJ|uJʏVzp;RoMXaf6[uV1VCJDnMh_P"Vf+U+͖K(a(U`㼢ۏXuvLJAsN +̡b8pbα6Ł)O8XQ_;MᕵAYhъZB&+bT @errڹ";,>\ѵijȬ+ZuToWGN )M5mlau%(,V˗3VF8DX1V;w2V֙3g?&VOQ7XA#g"rZ#jW*PyYd5V oH2W*K$me"5=ʟfJ#fg 9j-$ՙ3Y-oJk{5VrMoª^Ǿ R$1e`0X]!*L.ucAsGqUf 9Y4wjVQ9;Ī+hVVU317ȫWAU2 ga`]"r??f*8 WCvh YY,dN$+BAt^c&2b!U2Wea0Vc54D# &db)Ɗ:>cm!$.,3\jQ^E(Xo<n^nW1t30K+3\\469VV jJY|תy{EVJf |(,,n(W_aX>a=1jJ*pOEҕ2K^uZb^iE xe + )V ck6jlce:ܭ*xUؤ=Hi83Up|UGyάBX񒉴նm<'U yUB`E|N}Y^ xsY>\U-X}(8IOTYOX-[Lf31V㓓zV5k+=`r˗s0AXޓدFV2k4}|)^dղezI `ţi8͋T+_龴 v`ͮ ]'WUg*Q4uf/c59eF)V6mb֬,⪵ `p:Hż'zVGQDpeT0VgȢW&ffM+˖7Z^~8cz BĽd[V%3^E_kf u9m#>e*cz "d`2&զA ;^J*Nӑ*V;*n?UX,]z{U+[3~I_zh;-*B^LrbӳzO:qtqUt``V+j<}S7%tZrY0=pVA7ouGbӫzj}LP& Uoj%X!X2oh}K_̫  hfւan  V|=%WdZZt<+}?d1kطDǪf^5N2-ƪ[B& = 53V-)6V7t:^E_ISWYҁ~X^-X!X+ySpreeJwU^[D0VWv BX,^Ռp++sp,SJz5RѺ}{7 +-~kdh"r37W~V ,1L /X  V2U{ 5=[f:4*"9w9׫?ɢ1Cx$!2,!X-^,P% +7kh "+l'5 `Qhe b+3%bn & {ܤAޙmŠnJ\O^)EXuw V_Ee{U}a5WaŴ y,w,'? 3H``#JXe|LuBR1jUasMXEXUbD^R. =Zo@ݾwƊACB$gu,wWEMUF*^=n}3VVSWff*-r}dW]c'X-[ŠUMUdSyMolN4LX V˖;d&ZvQxR4W̪РJ^fqϨv,X-Ybw\UtEo{I9<KO;y?KW ͖x TU2+^WB_1]Wj埞خA\T(({`क़YH)cέjGzU3*/Wx"֤tS'bx~Lʼ̈W ptVtg/WbD($ "\z WkRzGFӄTvk2BVoٜeýbХ] vN];ͻU8Սq^%]_hU1B{LR_ ~W)YxKc*?byҥ^5ȫ0S!{GqUü*"7:>WʕU\ *?tGDJP[WU* )>P=t݉:s![%^h$W!BT9{DF+ZÍ}O*5L=XXg׌jSh.\d(wb*\=Gl dBU{}Vu7+OSr2x>+U`|H3}{nWee8kʀekTh5 „o:"U X4a^! d p*!BZL8oV|kU /o`\9r`oqЛ+6+DR1̸p/J+ZzU>SV{- ԉ'c5+''7WFN2V8\IX'RL^G8X> :E`Re+;5[%dv-v~ʖB͸ VxCݻ݀J:XaUpU+I]T߫0%k74; I`eqU#[)빲_A֫/~b`kU` VYQV,jDuJR1ؕ\ELb^!- ,}|Qb `]^W6;KY_E;xTfj~MKT#x4K"#I%wZx J,Q&!XH+)PqU="\Ջ f \pvq:UTޑ$>w_WC7Wi`u7-,$k'eU:Ȇ:ser Or(e"aW&&\Ξ=+X=9-kU^~8Ȇ7Euʩ : /$=VWSxUWVǏkGmNv93s;h je__{j4W ʫb^'1t%6\0\XXҋ`cW4V֌k6VEpHTln7VJw8^"b/We ҽS'OZXXI5;kTAɕ\Y*&N.V|ʝ؁,W V'OZX= ٽ&U~"T18[ȕ$/p[ż#305wi`u\Inauh | o`YԅKPe尨\*Wvn.?hGS|2ͱYjzzZcuz``N;`uٹ9kdI5ayd5p s$U$}X]qvɪW)peڵKBl+-͠5k@U p1Cp՚ȟTQczGGA \]AȫuNtpOVRW2WQ;lK.bzΖ:qtn,]EqJ.MwcWavipu k˴hEuRBR)Gn ]J3<7w JŸ*z*TJjlzzV@`u7X!WqtR466Fdq]x)+UB>d#˺vS^t!, VW%%X+Ɗm$ru`m͐,j85DJׅ Hi .\#\?L E-JY Ye̙ӢWX,j X1XXRp|Rp7Zrnz1`g&M7/)TSJ_EcÂGXil+xTEXSq5 `5o޼mW"U4?W襷~{j27E.V+ Κ" 2r B#*h4׎'GL7_Kء5rWiJpjr&̇I4V+RW^`6UV\Յɻ`u*m5*_ՇIܤo'~[lA\%j<9b`Ŋzpy ZLEWuVKXDEVkbUpM}h l2X1X4`51iSF2dUW.&]-~NjUB%h?rjŘ^TbUqUͼ* V֤(jb"++Z;laޮZM E-lb]w"XE`Kq= =ÄWD՟+jQKK0?@### d9T`d$kb.@`-P(uq HI再ojUXTC㸊#㮝W1-Zq6X!XVA+ЎU^dqSvɯ@%sQ'ʛV Wo+֊v^O-{.^ َ*JpFFFBXM0VO kw"I.X`ĬxE_5@gw>\9ks*؏+)s:,TWWb{`ppȸƊp(Vhc 09 i( kB]ȕ;+c И˘oC3iR SWWR-]޾|y_c54deBbΩV9e%SV *pm#kj{[,b rXU-uTDU;SXXBSƪ`545Xm׷ƃՅ2dy{4X]:)J^UUVc7HLComU-,r h7 VDVl X X͕✡5@#Rf{d7=yɯZߒU*+k;EVh7m +cmրh`EJ=|Һgq+ mOd{5X"){Dsj +i7X!!T,V35Zc"ZkpU\#^Uu и'-"T•cUSB+?$hb5<"a,yB`AR.& n9=++6~͛]Kѭ`Ty-X[`iozz{!`X' şd!ɔ_U\Q䢵ZԂSO*zU+?jr( Q R/y/j-R9q7`IepU?ņ} }g2JYC qX1XO,z1)ZebW5U,j2X>cE =LCzE ƦP"ާҫ eBN>PR+䨃](e`'t-vd+JrJ |ڿm Wjy@+j%* ccV6W6XѝAVL(+\-c>CU ث!HZ`E3XԊ `5lp@``V|c'\Tr5U(N[X gc`1YAP7ag+RI9>W#+IM*RXU[[CUWheD1X\izm+x{jrJ ?* 2`z([+CX1Xrҹ?a֦/7'XfT"W,7tUvu᪌2Tlp4X|f1cEdU}SHp>^]S[XQ2 gTbZi'B]UI@*ePbUwp3/]lfS7*Vv-Lۀ%,Q`U+W.窨jճtEeMVVRatFUU W~ߑ + q4HcE`X:\QJe7gըYw]q-eSiծʚRBW_{5|zQ޹o?<-[VX(UDIXj(\=!I/xƐU{skVUcz VLVhRT zIa𵆀U3voT) da`={кM`2*^rX)X{*IK7Px}}U*B+K~XJ,JWzɌqӄ z7{6"W/]fQ Yw!ŭqXk5lr+$@5zp~ 2X-]jܲ&E%TOT+ ߰gdPUݫ:xUe|U`I/f+b! LڷoԃXR,XJ!'zpO{jp{=&Wk֯7XX *&jRbEO @Ǐ=uo.Z~zϋX'\,i $ܧV{(Wu n\U,nkNb\&3XW] ۧU=N`L]w3fMjUڭ҃*"#7(\,ZpD󴜡0M\rIXaQF^x*Ǩu' Wǎ=êWUJ N7e2T]d_/g+]G[πU?*{VyQX]rIEL~y(\EX}{wԄ *BZرcT V},`R/. p%k5R/5=TET=W)2UqUԽ>^UĕMX͛7OZ[_Q+Y| MĖf7V@P4K wUGU\)P/Goa%daqdr%OGv9Xƺ q5!6 pv5lc^N V',+wwz^{5הc\ZOUZϫHiQ@I7(>fkZ$tu\? Fc3MVmkŞ$rIdxk˟=_),ԃ_EU{ XX2XC*>'*o^_*X@LMQQ.j0WszynE.ިdܨՑSs5׼u*u>FX1V{+L?XA;ϱno5#W֮]Ge+u8W_d-dRup Rmmm-cJ>]Hs? V49ןc"Y`ݏsqumrXI⊵k[@:t@[Kz \8pօP1 %Y ; ?+--1YW{+WayT0(^]q孍_h!L ڽ;217D4W,u /Ta!U /X{տ{O~N >OByZ}.J*:+\9rH]3W&^IS@ VV+^ޥ+WzO% W㢆rSjsukNԘ::`'lPKY7+FOc3'?) =y睷Rg ZkC}ԆW኱pu7`uU'֞'0W@V[buK W\%XXXbW7ͿW_aW_܃;uםqf> (cV.Zi 7+5)X1ZbECZV!X-N^鳜bͫ\UW`%Bu#!~\YXK/ww;QEϻ W! s>&ч?M^9C+p e2Y֪^EV.Qbf+ Vf GD!U?~dQw8mr%_O{{q×o[/dyk)ewByJǕ;XN!WgacػoN\}:Ny-VթSƫ7C\u:~_R-&T*Z t5au^ģ4~__ȅwBSG#PŸkX++~|նT6VӠpE`+k `46w3;AW!6QW V7xwRb(Ta5Xyj>6whAzz"ny_)]].jWնgyW\;q͛,a8|4 -*`ݕwU7@{Rz#`EO \ßyH\!T=ԇ_W,@:oXpT1\ru.3knͣ6WcrE:+ H: ;3{ WO!U?~O@?X >dbH- VW`qy \IJ;6,\)c\DչgxjfFJ&a8KO+w){6+kuPY WOхx<`G~b@ | />=gaE77{ZgJՈA\U+B0,@tLh¢Ga3 ", nwEPzz`ET],s\wYOO)sL?` }zA] {nB0kMU\gh,W]X * W'N\"Z:+)^;5{8vڶMmc&q YL5 %ƪ!яx`h b q5\ak׮㚫px_I<-#XSՆ 9\)`E\]|4l5+} x:X!V߄])zEX>/G4VD ݕJ:X2 +h%ҠKAL鵝;Wfg+\ZRв`u\P J+n:1s~&Co~zJ+q^p(`(rq!/ $D𦜫({wRQCZ 5W W,7b$[?d܉`WpYK.BVBԂR;ko>) ~MAzQh!VO!U x44Vq"*3 Z5$R\ "W?n+jWg]$df98qfW]v*.W5j: 6Oݏ~R"6$+ Waw(cE dn2F+Kӆ+_5+\ Ws*9[&pW, 8.`V.E yUpePz{Eqꦛ6nX}By 5bqRmP_{O*~ xg54oYspяjRq\Vq`ڵ5 >+kHZjjEN1LWZ6z/| ` Z=򈝵 ȈgfFX_wK7P|;0hbȫGKsTwTAjLޫ\i, AE cCؚQjpZ\ܭfX]xk#a4_ G5BEG^vsӰw $&`|\mS+¶r*Ajv:EM+;gb&z{+ Ruo{ 1^inn0,Pk!җn+k}u";Bn:a/qϻn0o G}ZUV AjLi2WsQ"\xn q` ]TsUyeof\cQ_9ۂ+k3V>nߎV%ׂ\-'ppKb\լh!++KXUu' LOe{>}FM{~ӟblX{S5XyԑW;o&F1`Q=H\U#?(ɭTaj+CϕNA!- AUpu ],1\5+>֗܊z_8NmUL$ \}ezs!dUpaIf h5X"pXĄczKTU/g>si< @ `8\OX Y_%ֻ$nvXeb8僪p5=&MXMO$+[op)j_W--x*U2V3h`xPz:,z{SonAW &bQ}Zxj'#\M:\MDU W۶}J VNwΟV[wq'huzB"Im(!R`\Qܞ q\ Wc0\\M:\Mmۍf5WjLWWh"Z\Y]F(ϻ~?1ZQ',+Day)s+%5n(WVqF=O7Jd{OC;א+o+JQݹNa !&5V  ԇYkOXx8XdVc_֕MTDTrM7ilӟF(dyWdC 罻0V7kjW/R-1EXMnRI 6 qEv8Q9jt 5ֲeM \`݈qTt rpbq,Wr;+=;v-+_ *՘ qU|H WAhZ!Bn5j _}}XJ-˄KEB%0u!1B tVmgp'E#X؛`=*r'\m#}_ Y{XJ}* XAkCleXV6) Tq=\\0^![1\o,d,NVo_zΠW2]w ɻCdN..V›$+ B6Z9B5^+!Vo5@i=>\1!ZTOGJeRf~j WW,JlɅ5V p\EU+M hi\u\}y_$y#=8\--=Z:k*W;xOTkE'̽~̰j$~:Ób^k@,{_ ,Z7us`G\ѠN, ЪV2kK։cZ.jtz\ kFFA^!YQ,5J}+0 ;GV}w**0uB 7x'%(b!TwwC,^xu Xx{W9V>,Ef¸^u-+!J83F"s54T+ >< {d~9ڊM8\٫g‰ X>}a4#4,˂PI*bey}M{VU+Ċf+06l ^88kGpyJG:,E}XGyU$7ru 7Vԅ`i<`!VP%8䁱F} Xto3Ъv3PrՋ\ ƹc'½ \m}+JԆG ,z5W̨*m*\[]*t(I on@}ozs-e.Y뙪kp=/Ī\:者^ jb5j`Lq=K|ZQ@3&1Ĺ^U2檽])VUjzU,zo=bu` XQH;P1n C+^ p| XJjZ+ gCCTR1TV*F%raU `S-[&\!Yfi+WE  ׯvnVVb !*A^f3\ #W$d+Xgϫ4ѿ&Ӄ8z+BA }4:{HzQWpuWXOb9+UrrAUU[ 2VpxƬ^%Xt寧Wi$Y-k#G[1gp F+\qayQK>ƪ++g`#afhRTkXxFIȕ|VEXQU:Iu7o%a)sȒ8]4VgTV4Vjd q%"@\;mw8X W#+| šM:J]0s\YIrTm\΃O!YAB +njǻ(d]{y+ 1W,eTW TJp5B\!̕ dB:r%.Y?'nڈL@oQ1+\?J} :Ur啩  VX V\k{{mDBTF("Բeב"WX ,qqX "nLĪe,[ʾNd doV;Yt׭b 7X!XXSFU4VĮ#͕c⪟Up(`58Xuڼ• hjsC$KE\A\AAwn9Q.)2-l % <,':=NMԩK}S?if4_TWץUA6' FyZ1;y*{%Zmon ^w;ƫ-|6Z^{5CVѴ"Ub#[4`z'hG`D9Z3WLWRͦ1뎇Bi^mŎbYEWҪ8vSOzeX+% iiY+}2%:!V VԬAWjn ӕjy+rf[V4"*|Z=RaßW=QwgdYlIzEs7KWzc+Ė^] j` oAJ~UYE X`^zUZ6խs;-!j"Vn myX,z^?7iXOI_+5Z=>:!+K{%[]YWYBT&eV~#˪;Ȣ 3iU>-,+ϫ,k쮜W,uYV!Z)BG-WuxtV{ MмӈZqĒUveˏudw4F#Lw%V&_EUngFVC<ffN/d׿ZEUX==g}xEҊ(ҧWVeVի;>GW+mՒ{[gVqY+H_TjJvX9qfJ*EݕQƫMVNvZVG%3*%Y }DGlBYˠ2Nuū; Z+)pZ۫µRZV+Lޓñ+!2Gk$wyNەY_bΪkaˋ^IThO=3}qʶVjOȳ*(R]$OOOF+oͫ:bieJ&TKwVJ+%]J=VrtxEbd_^w%z~IJr,c=Yv7O++KVJ,5f$N+!zL1e |OSku}S"Yqyug=Z,D+"\;d"_l:0 k}Lz~LߗN/+wJmmwhyE2`V+=sk*$ ZWҦbwsAdV޵)ZUtdF+@S75V~ERYuRb*ͬAlCT]G5\t:sH-VDSqyV gU^-KթbЋ& Zov[U+F>O+8rb*Zq^ũ~:J9+_ʞ.1ۥU+VjQP &W) h̪JP=^vOڲҵ93gyȐVҪb%-$U^5mu5@MM9jsLY5Wg5uۜ5?':)cis NJFjjM_l:NF#d5eU%5'?*d :4eB>*άLj Gp5oyFU8Y=7+*@dAV pU8*5:AV pU8+YuAV pU8*Q@Vw`endstream endobj 140 0 obj << /Filter /FlateDecode /Length 404 >> stream xR=o1 +4)JT"-mEIi㸮%lt)n8z1]x$Nǀq xmwhLsBQslRg.@> z3rU0UDj ))xZl<*d^8:fCl_[˖\I:֋J Lhr~{#İL>҅UxZ&̫*vt[Rm[ly M/=3rޒAD,Uendstream endobj 141 0 obj << /BitsPerComponent 8 /ColorSpace 101 0 R /Filter /FlateDecode /Height 800 /Subtype /Image /Width 600 /Length 19272 >> stream x݋וq$! uzdE P`OvMB]bgÑ5LI 36]w{n>1VwSխ8((((((((((((((((((((((-*E:U7rEQK7rEQk7rEQ\Q͈\Q(\Q͈\Q(zˍ\QGfDf]p#WT+++Es#WT++Eﺑ+ՌՌUjFjFn䊪?rE5#rE5\Q͈\Q͈\Q(F#WT3"Wm2An* G=E닊u`)oN?]=ΰ/__TwUPWl:qW߾Ÿ3o|:'7xq ./|rN'onw*a31_9Vջ(-+6e++>iWշ?N5]wׅ[np\ *zиz_pu+J)dPoe~pu\e}k^Us?sW׵++}Uku}^V {aUuw Ρէv/\Evz_#3{Z)r;3+k#ben@՚^V\厡\}]%>!W*rkO>Tt\nJ)`U(y?->WP*Tݻu%\U/ˠȝ09WDޝ'n# U<1+O,՝a].[Z$@ `^}ayLMMydLj/ϗijqqj*l+='ȟm+۱EiX^ɘ5b8o.O̯={.wvرcΝPs=Fs\!E (>'+E8X#>8?by]s^ަuQuns>׳=*բ=VbnvX +hl=Ƈ!͍WwBsr=:'KL$t-b5Ŋ j=qeeMdh Tv-0EwZ|۸9ê{զ\jZHofZQ"W0stuwuO̖DȈڻ#Z|SliD`bLWKՓ'ڭWė,SѣyA=[fhO>VNLXj^şݝuK㊝SϿd;ԩSp^ɉ%sz^j)ܴ^I1b"0s\ X2ihYO;Du∈L5wzCkg?H_6 CX j}Epc/7+ /7:N,9be:83^@d߷zzyO\",=Rؔ udW,6ta,֊ϋZ]]]e}< 8jR@=%4 ! j('xϫCO^b,[k޽+|<(<'z .칞m,/iuUmī5)Fux<u;Jc83 )Q39'dVXz>A8*Fkl+> qdɓ7D62qbb51>͊//A8V5WxcU|1߁%_ajie+l(6Ew}_8NGFFb1ߜ__T@b,Ava&C<T;`t[W]%xL̰|i`|ZW8'Ygh/*ʴ 5~#՗w޾}j|TuU"WAFF>}Z?<3ff&&)ˁ`6ټ"WY=ydxxͫ7n|Bm!xx_5>99dW٠؆C7reU~p gu+Ɔ|WGЩHܿ}v?VE6vcIp[*wa +rjc[IWLbB]urTf+z{]ٵkWM+rrurubU\k| K^BL+iARZoԶ(T\Ю.\=2jŸa~~B_۰"W-IW7E]]ӮO?illafp5 P[^_*'WW7-WKrusuMf#U!?htl]>VDҫ5 *4h\=ׅWuuuuYT6-oNG?ŏ_z:N|XJjvu+Q[PNWl:qWߜ~ʳ|:'7viF\WO0W_z we ̟իj՜*+X )>-6t&㫓VR\].rU]uU_ͫXjNWWkyֆUu껺\er$]+""K}˚]1WWrV.7V+j5չs]]"Mi$]qu.J'\?}-at%^yY鬤jwu:\nIlBWr>W\ZM\]-\tT]W˫rlZalWlWAWaW+DXtÍ\,WWjjvpſe\]>`toj#WᖠS!WW* Z]UejɸZv\--A=WLv]s#W:j)J2^{mK\񊼦[pvu Z\-w+[]/:K '\-VTW2]_ݷqEWȕj wlZҮwu\U5U"WpWˎ%j~W4nJ%fZҮ˻Z!WI>Z֮K:{V>U' ,rvhnv5 AjrKbjvu$|+~\Bs\qθbs%v5O:y/r7WsA~jvyJRr5-\q5B]EgȕjZڿ_qΑʔ*JVYW:N2QJPuŮC<}Wm+X ծظP9Vqy5vw#WАW<p5\R\®ƕ+ml_Έ ]9[jD\iWBjq%p` nQ>re%\ WC#+jDW+jU___"W^骗 R_qW|מjbmݽQO X Wۢ,ϕ|9"ayFGCV_jǎ7):VmW=U`*6j+HlD²]lW)!ڢ{l Y%2ί] "z-\-UUp/r\+xFו{]^׸Ⲵ+Vnt"W&1U{Ջq_Muev\eSzU;={z rhBJګ]%]uw WnV^).+R0WIsFrnjgU҈r\)Xܕe\uvK%X X]u6J^rUr0W \uq[Y4VYW{xeYw֭ Rz}]]m껎U)X VOOEڰY5&WA*fZBUIW{ԑjkh.oYm2,ydEbճ\]]JRtwnt݋1; jZqգ\ YŊ\ZV՜[]ZUv^UKxß+ޘ+ʟv+θ.Kj'Wn.v/UUkgڵk{ve*Rߍ\FʕE]޽\Q Lڹsg۹~W'jvW^B\QMjg;v#W-\Q͉\Q(r#WT+v_ѿ.Co8՘I77DYa, /+6+)ʳ|:3olRR>W_z w3_Wy Oťڤh-}%\~ BC\%3&6tEXZye6,wpŧТ XoٲڪDRgR+*ٱ@E14WWD>u*ܮ(@jFѨ\Q͈\Q($uR*W*%}WDVۺHJ +HY7tap=ee;E"W; ]uU.Y)e*Tr? 2օ,1uJr 3rJ΃ H<tS+]{U ߆69o?ˢa Oc$2u:9uy_j)#Wx%@kabR9֘%oVEG@?#&j`n+tkhȭ՗xKboR93˺XןBV[|EnvD̶Q7̌rU2̿#29'S_NJ5"WXL{ |. 3d?- En-[%j ~~v 8:wysq ]LlR+EWDfVRpFxр[/ssǍ/*V'W1Xfו+$ߜrNLJWhk*ol v 4+Fo]Tbo%H9ieJ.K<5l٢^Xdo[FV) |trM֍\Q*٬1{d_Wط1zJ ,xL_ʑT~Vn\%4,KvubGKHs~uwU,^<:vYV ;.qQ_֏jG\l拒yG3R~v_֍\8Gu&MN旳hOVq6m=ɪ%\Y]ޏ lN̓CTAR'0x|U?NfEhنod-[>RB8vΗCXŠ\]i\+`;Z4ZΊ\[kho`Pd)"Uu7\c E;0!<5{)[7ræ u`hh4t$ڠܮu{aS6Ҷqgn7|9=t}"s =T3O6bNշsIy|K}!BEVKH \C8vZ tpWo//n2|"7vK]ՙ_6_l岶j(++:[EVb{ ne](˵+L{]V)(C_i/Vq-ݕ\?ce j#e\Uw?C "Kjي~ e*wKuٯf@]QTՌ︑+ՌՌՌUjFjF7rEQ݋DQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQE_mPc-1U/E5(5(E5(N\DjL#9hQu?$Ѣ9;%ZT" D*Z|hQE/s-*oQ(%C$/E(hQ.N($_Ea'$r^)q-Da_-JR(c+.hQqPPAx8 B+%hUq DYDʅ(UuDyYakBuDqz ,yDCf%U*,ՙyL3ϓ*_2τ* A%o8ae=_q% lV +-+Ge"ZQWUrUghypVEa >^>n1Va* XiⰈVd=N6+t`ן?-"Z~*"Z6+.?K\,&Zx_QWuw-G_hj>+ĕ },˲ҰR}$J4jg a-V6?jN+ԕ {ˏ+d`5m{Z-``|XWu..Xe?i$Z- s qGF܁_ֶ<!WqWY`m gv`ym_#ZvYqX?H` VE_!Zz=x o+Xx%hmy8+V?K{ V^&Z[~gx Z蘚.pGgB`m%:iPHaVi ,s  _* 3X5ޛ"} q>/J^h5ཛu~3ba]~A-WDyp[~_ J`] 5A ՂlVj`d.+{ C~Ȫ|Q,ՄR,g.v~XJaen^IW !Z[[a cez]xi%\gJ *Jr T$Y?YCaUUඖ`o\IXlϿAXy\ݸqÂujªM-ꊭӻJ<\}zr=WUK C ªV\W<9+uʂ Z?kʸ r̸s'q ,ʸb8+*·+\y*X8w ²X)ZB`eɡjJeU];zBaIW+33 {\7z*Vd W,o[kB-Q6VmRj,ƪ**F9> X]d28,#kبj,ꇥ/L]`Ŷً5t%h*kxx/;ҰU+ӊ*hN |Ce< JW>ve\TE- aѺ};6q +r]S}Wwn]}iUQXfaUҰU)+*J˲Xݺ`\}*4O‚Vu* Үr}Lc\}X}.׏֕h=J')ش `uy%aUU3VQM%y+)qf`.hZV_[rņt\ݹ|W\mߕuM_r^6Y5Za˪,SYrϫXM1WjPZOsmNXiEU]b\W]c5X-?o]݁6\V{*~@eRFT^P;*ʮVbՠ@4z+kBʂzݝEaUU@V GBՠ=uuTLXZ1YbGŪ:U*Ǹb2]-,,)T߸ZOsa}n\YPXE6-dURV1X ,FY JWլ7R76BqVUK_:E9,.ܿ߁5 Ǫ]ZV]e^Yf}W!,3> ++R1R`)Vccc~VªU>-+Uՠa%a9Y{.+u=G>y-kLd:/J*]ũrbjUiW+a`5ay&GKcySk̔O bos+ [ nqea,g_Ҵ\B؏zܭU>X*k{qUfSեK٠ WJ^=K.Zִ {V!`]HV^Xu$UͰB]7q6PWW +ʅu^;rh)XɮwV_,V+%wB667qV1Vիʃei\}2[V*$+eU+ cuVwIeVJY|V׮,+ŞzWuzr߳9`UO2]{]vцjsvu/aIYYyj7 ˚W|;`Օ͆U]W6+ aj3գGVR҉k²_-ʄmsnfq5l*jP1xg?vUd--)X3B*,*uYYWMX gbnx6Ss].,s[ysgiXtl Vҕa``9.Y(M!veЬ|X`ed픥!XsTW{ quuR;,|\m>5-'O,WOlX˖,q?sgNXn}i]/q5tuN<CX Y+ ֣G8,{ו57Y Y;Ai2c]OV'Ÿ+JcZ,9եqezYX`}yفuʁ՟ªkμ~ףUIWq\q5tZlW+6-X ,aٔ:ٰ҇z®vX}r?דE@. +l5: 9չAK]X@ )U՜s8 ,垖o{ϾcNC\qVáq+JrXiYyVrfUa:XAXv;J)x=}z$D=qxW Z ZY] :c5h\=\iXW^E`:~< q Ye#\0**j1e֓VɼA &ӬY1w5WBvX}9VA]縊~9~;z1?g/+>bfuHrE+9 ee=]r#U~\VBj5% _ aVm} z>cN\Uj>;QYVY}w0|W%Xz ZrD䄕8+ K| K b: w~ʸV++Ҳՠ*jv́%.clXW|- U)WG]aX)W%{q6+. gia;Jò6+ [kڽ{wQVؑzwb+<+g|\=jVWg JWkXΪOOa㮊pVy\%#{4+ guHZZJ jVtuD+!+c\=}z ډe-tX@ѢXJBW+g48VVՉVs`]cYgς=V+:(+.+\;(וec}WظJ`ᮒ7mYYa} eXa*̊ gWU&+f\DX)X+%+˕8SU>LɆu KV}/Xo]!;V`hULa匫9U "԰X0udqdV6,aVw ^IU1WYٷXZXqX++׸e]`]va<|X@QU/kG] Ұw㊕\Yk7>D̒\X(n-6+tdAކ+5jc\KE "4d]Z ]8,-9Xy_b(ŠmֳAkvt +-jW9_d eebg.VN_ i0V CVZPj^pC\-j]9X YX]:2ۍ,2!<rƕރ r[PVVeK~Z2 cX |TQaVpϨJʲ%XiXaWV+V*0,1[q wrpX Y6C|W ٮX ``EKV[q*AJX%ҏ}su|uuc%`e:q\x$Ȇ S~EBa0VAjXzา\rY% <lWϟ`aU'K + g qUUquZهW '\4b˺tɁlcϢa%5jU\|Wb]E\ǕBV sso>4ʗ%^}FalX֯>o\UgOWXJ::Kuur.+y ׬ȇo=#e "N˻X Wqe`:a-tWfq%r,wd׫lX!XXqu+K|aYVլal]X,X>++{5.fȲU/VmX ,-'.,bfv\ C:C6B\,!d\)YyVSNq%i$XKhw=n\EsʪcU bW\WӸܫAʧb9VlXF֨ Rw EV>V9UPJ(BO+ʢ%^oB{2Vr$nWxWoJ:tVt<J*^Ȇ,yX¬*u=!Le5 + ˬ]$tȕ<Ou%io0XAX^0M,Ve\WAVJs+8˂ŗW=e%[JBHx XWss޸4WP+t\U~>rV},5=j:;D~ Vܔju5u\ +Ur~{z0/NF!d~WS+tͳ+xw?ć/IBzuj6+kڂ5= ae+JpZqɓ\XGye\Xe**..Քjs5X+\'W7 Aa+zY#UMAX**:ֲ 1zr`Nys*M_gW|i6+dm$V%+6|W5d\q5->(cG\B.9r`M`Y+wWVq%rYy q烬,wC\e0*!˼#jDf;RB# +9vd5UPY: . X rW Cab.0=&Ve=.CYFY4C#ӆՠ*+]ZTWlW< :]`9QX8+rUC a5]2YJﺂo )f`W >;w\%n lʳwRx又ct\vXiZaV rmno U|V}b+kԂeXٰ|VB%Vy hӽy3x+Tqv5fXAXcUM–vb5Vh&~dj091А Ktci% UweV`--XqWc+ Vɰr\XIY>XY0Wl]i?7sce6Ad_4Vܕkƪgnj9[!` ذkAj7Mء%iyVoo긂bb]y?CZAV@JˊU ZJ jMY Y1j9ՠ5p`RmD״;VcƊ\IbXe!ޡ5d}>몗Xu@F9lW4W|Ī}tgD7,V6 V8ڸj}=Z+VOOؕ}qL3chٮ! eeέރK>*b%dвXiX "ߕwm\ux冖qe+bUJ -ՓsUJ -hUW ԣUWthY*&VвXuY)YFV|ĊZ6+-+\Lk h,[Ү]ĊZ.+}. XQ9z.U`\QU,X7dĊZG[X1Lyi.]Ċ1#VTz9jNZ RqF{uj'E((ǖ}nߕEp,xJ"VT0NvbrEEZ+bEe"VTvڮUO,bEZ+XQ)ZĊjh"VT#C\Q yP(((((((((((((((((((((((((((((h^endstream endobj 142 0 obj << /Type /XRef /Length 167 /Filter /FlateDecode /DecodeParms << /Columns 5 /Predictor 12 >> /W [ 1 3 1 ] /Info 3 0 R /Root 2 0 R /Size 143 /ID [<962e48ad669293a44ccd24b9b51d4552>] >> stream xcb&F~0 $8J@gi; daHN!W (@$0 VBs R|"Yu@$9)5`y2"n_A⫝A$Gش.ɝVlf- ҵ- byfkJp3>= library(plot3D) options(prompt = " ") options(continue = " ") options(width=75) @ \maketitle \section{Intro} To make this vignette smaller, the size of \code{volcano} is reduced: <<>>= # Reduce the resolution Volcano <- volcano[seq(1, nrow(volcano), by = 3), seq(1, ncol(volcano), by = 3)] @ \section{Images and contours} <>= par(mfrow = c(3, 3), mar = c(3, 3, 3, 2)) contour2D(Volcano, lwd = 2, colkey = FALSE) contour2D(Volcano, lwd = 2) image2D(Volcano, clab = "m") image2D(Volcano, shade = 0.4) image2D(Volcano, facets = FALSE) image2D(Volcano, contour = TRUE) image2D(Volcano, rasterImage = TRUE, contour = list(lwd = 2, col = jet.col(11))) image2D(Volcano, theta = 30, NAcol = "black") image2D(Volcano, lighting = TRUE, rasterImage = TRUE, contour = list(col = "white", labcex = 0.8, lwd = 3, alpha = 0.5)) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{The image2D and contour2D function} \label{fig:imagecontour} \end{figure} \clearpage \section{persp3D} <>= par(mfrow = c(3, 3), mar = c(2, 2, 2, 2)) persp(Volcano) persp(Volcano, theta = 40, phi = 40, col = "gold", border = NA, shade = 0.5) persp3D(z = Volcano, clab = "m") persp3D(z = Volcano, clab = "m", shade = 0.2) persp3D(z = Volcano, facets = FALSE) persp3D(z = Volcano, facets = FALSE, curtain = TRUE) persp3D(z = Volcano, col = "white", shade = 0.5) persp3D(z = Volcano, col = ramp.col(c("white", "black")), border = "black") persp3D(z = Volcano, facets = FALSE, col = "darkblue") @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{The persp3D function} \label{fig:persp} \end{figure} \clearpage \section{Backgrounds and axes annotations} <>= par(mfrow = c(3, 3), mar = c(1, 1, 1, 1)) persp3D(z = Volcano, col = "lightblue", shade = 0.5) persp3D(z = Volcano, col = "lightblue", shade = 0.5, box = FALSE) persp3D(z = Volcano, col = "lightblue", shade = 0.5, ticktype = "detailed") persp3D(z = Volcano, col = "lightblue", shade = 0.5, bty = "f") persp3D(z = Volcano, col = "lightblue", shade = 0.5, bty = "b2") persp3D(z = Volcano, col = "lightblue", shade = 0.5, bty = "g") persp3D(z = Volcano, col = "lightblue", shade = 0.5, bty = "bl2") persp3D(z = Volcano, col = "lightblue", shade = 0.5, bty = "u", col.panel = "yellow", col.grid = "grey") persp3D(z = Volcano, col = "lightblue", shade = 0.5, ticktype = "detailed", bty = "b2") @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{The box types} \label{fig:bty} \end{figure} \clearpage \section{View and shading perspectives} <>= par(mfrow = c(3, 3), mar = c(1, 1, 1, 1)) x <- 1:nrow(Volcano) y <- 1:ncol(Volcano) persp3D(x, y , z = Volcano, col = "lightblue", scale = FALSE, shade = 0.5, expand = 0.25) persp3D(x, y , z = Volcano, col = "lightblue", scale = FALSE, shade = 0.5, expand = 0.25, d = 0.1) persp3D(x, y , z = Volcano, col = "lightblue", scale = FALSE, shade = 0.5, expand = 0.25, d = 10) persp3D(x, y , z = Volcano, col = "lightblue", scale = FALSE, shade = 0.5, expand = 0.25, r = 0) persp3D(x, y , z = Volcano, col = "lightblue", scale = FALSE, shade = 0.5, expand = 0.25, r = 10) persp3D(x, y , z = Volcano, col = "lightblue", scale = FALSE, shade = 0.5, expand = 0.25, theta = -10) persp3D(x, y, z = Volcano, col = "lightblue", scale = FALSE, shade = 0.5, expand = 0.25, phi = 10) persp3D(x, y , z = Volcano, col = "lightblue", scale = FALSE, shade = 0.5, expand = 0.25, ltheta = 10) persp3D(x, y , z = Volcano, col = "lightblue", scale = FALSE, shade = 0.5, expand = 0.25, lphi = 90) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{The views} \label{fig:view} \end{figure} \clearpage \section{Ribbons and histograms} <>= par(mfrow = c(2, 2), mar = c(2, 2, 2, 2)) ix <- seq(1, nrow(Volcano), length.out = 20) iy <- seq(1, ncol(Volcano), length.out = 20) ribbon3D(z = Volcano[, iy]) ribbon3D(z = Volcano[ix, ], along = "y", curtain = TRUE, space = 0.8, shade = 0.2) ribbon3D(z = Volcano[ix, iy], along = "xy") hist3D(z = Volcano[ix,iy], shade = 0.5) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{ribbons and histograms} \label{fig:alt} \end{figure} \clearpage \section{Color keys} <>= par(mfrow = c(2, 2), mar = c(2, 2, 2, 2)) persp3D(z = Volcano/1000, log = "c", clab = c("km (logscale)")) persp3D(z = Volcano, clab = "m", colkey = list(side = 3, length = 0.5, width = 0.5, cex.axis = 0.8)) persp3D(z = Volcano, clab = c("height", "m"), colkey = list(length = 0.5, shift = -0.1)) par(mar = c(4, 4, 2, 2)) image2D(z = Volcano, clab = "height, m", colkey = list(dist = -0.20, shift = 0.15, side = 3, length = 0.5, width = 0.5, cex.clab = 1.2, col.clab = "white", line.clab = 2, col.axis = "white", col.ticks = "white", cex.axis = 0.8)) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{colorkeys} \label{fig:key} \end{figure} \clearpage \section{Combined persp3D and image or contour} <>= par(mfrow = c(2, 2), mar = c(2, 2, 2, 2)) ribbon3D(z = Volcano, zlim = c(-100, 200), image = TRUE) persp3D(z = Volcano, zlim = c(-100, 200), contour = TRUE) persp3D(z = Volcano, zlim= c(-200, 200), phi = 30, contour = list(nlevels = 20, col = "red"), image = list(col = grey (seq(0, 1, length.out = 100)))) persp3D(z = Volcano, contour = list(side = c("zmax", "z")), zlim= c(90, 300), phi = 30, theta = 20, d = 10, box = FALSE) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{combined persp3D and image2D} \label{fig:comb} \end{figure} \clearpage \section{Two more to go} \subsection{A composite complex one} <>= par(mfrow = c(2, 1), mar = c(2, 2, 2, 2)) ## ====================================================================== ## A composite figure ## ====================================================================== x <- 1:nrow(Volcano) y <- 1:ncol(Volcano) # draw the volcano, with contours at bottom persp3D (x, y, z = Volcano, theta = 10, phi = 20, box = FALSE, scale = FALSE, expand = 0.3, contour = TRUE, zlim = c(50, 200), clim = range(volcano), plot = FALSE) # add a plane (image) at z = 170; jetcolored, transparant: only border image3D(x, y, z = 170, add = TRUE, clim = range(volcano), colvar = Volcano, colkey = FALSE, facets = NA, plot = FALSE) # add a contour (image) at z = 170; jetcolored, contour3D(x, y, z = 170, add = TRUE, clim = range(volcano), lwd = 3, colvar = Volcano, colkey = FALSE, plot = TRUE) ## ====================================================================== ## Drawing on panels ## ====================================================================== x <- 1 : nrow(Volcano) y <- 1 : ncol(Volcano) # A function that is called after the axes were drawn panelfirst <- function(pmat) { XY <- trans3D(x = rep(1, ncol(Volcano)), y = y, z = Volcano[10,], pmat = pmat) scatter2D(XY$x, XY$y, colvar = Volcano[10,], type = "l", lwd = 3, add = TRUE, colkey = FALSE) XY <- trans3D(x = x, y = rep(ncol(Volcano), nrow(Volcano)), z = Volcano[,10], pmat = pmat) scatter2D(XY$x, XY$y, colvar = Volcano[,10], type = "l", lwd = 3, add = TRUE, colkey = FALSE) } pmat <- persp3D(z = Volcano, x = x, y = y, scale = FALSE, theta = 30, expand = 0.1, panel.first = panelfirst, colkey = FALSE) XY <- trans3D(x = rep(10, ncol(Volcano)), y = y, z = Volcano[10,], pmat = pmat) lines(XY, lwd = 2, lty = 3) XY <- trans3D(x = x, y = rep(10, nrow(Volcano)), z = Volcano[,10], pmat = pmat) lines(XY, lwd = 2, lty = 3) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{} \label{fig:complex ones} \end{figure} \clearpage \bibliography{vignettes} \end{document} plot3D/vignettes/plot3D.pdf0000644000176200001440000122145714051144674015311 0ustar liggesusers%PDF-1.5 % 1 0 obj << /Type /ObjStm /Length 4423 /Filter /FlateDecode /N 83 /First 688 >> stream x;]oqx4C(B$㉔tK;= wg9-wyCQ~r ?^9K/A ?ƤffwK\{%jk{zzzL32ô72 s̫̻y9"& Lj¤IffiF&Fd)%c2 VGL!4 fTX/!f6LifUQ*:)ǜ; 9""-,H_ZP>Y}üFmja0RLjP0f_ø72#Y:*E0x )`!4>"F+$AqI$Kh OGXe(,D2(XlE!0JIO9, 8mq~  ,DdH 8,C,JLC8PH-@0 $@PVCf =4 E tb il&p 0AJ!u(֢icʃ=jP$t)oa|?N0g-ݬ Aq$>)+O>K߂1{P;O08A>$q{qM%^ ^49dY~N`,n&3do11<ŲS۷F0ly 4n'j7T$If([0R \As:'a>lEˤ (?.`CzZx[^f0Y9 'JD/Nx+/=_U򉨜CK Qt mB)/^D eE,VdŻɨPTךUSĤ+v~ǧld\yOopwa|$tzyRpS?b?{ݭv4 IyxAB+,%D} Ȉ)IuZt`WOY[N5Pv vB080ɎO@CۼC>L^Ba_9/+uj՘Y{hf͌j2.69+dg@58}Od$\]B.eyʁ;>!ks. à#h*BBP!$$,nG II-%>)(Dc2$O`FV}ŽipXW%^W«c{{?$z=xβ}wHsK,šz݈e>Z%j[-vzW=E!d[ݸ)cv6hNiCLv/h-jU rw1N]7'a]Ύ{+Exg\ i/m'~yWbl+oQSYjw q׸5<ƗJ/&)U.|0^'ytPe^f>ױ/ͺ[ 'e=u¿ԅ YP.oUpEYP*hM#fZ@)BM<$.ʑUSj(I(4UAl| /o_/0]+~_ż9a?ݬ+fZQ9,#(w_?fE+H"M+ TRGH^Q:X^~}z.4DHK LCdtuTR|<֩QZQFQ1ϊ7,k]u}{&r >WeQG ,pV&[RWWTݢ5Cn|D`)qP̪ MUP%1/+!Hc+.G8Q ^'!bQstA2!ݵɌwsjY9>Rbk1Ԋ(Οrs~IzA'Ma\$:CD.X*"wLx}0@DaEl1~,K.;8@Y`^Մxx:0ҫ 9A)uHhPaq)n:gh [P RHRKq/ʯa5w=%~Nj6<3c?]Zqz=o(gpu4ܯM(llgi w$x҂L' ;F |e9ҙ Y'> stream GPL Ghostscript 9.50 plot, persp, image, 2-D, 3-D, scatter plots, surface plots, slice plots, oceanographic data, R 2021-05-19T10:18:03+02:00 2021-05-19T10:18:03+02:00 LaTeX with hyperref package plot3DKarline Soetaert endstream endobj 86 0 obj << /Type /ObjStm /Length 3478 /Filter /FlateDecode /N 82 /First 737 >> stream xZ[~ϯwwݫWe%vb0۳hkYH_1CRHD6B$ u9s ^˙SUuqE9ƅd.fBE,19SΰX0 cɬR,VЌGƹ,K%X ) qb1nq0&8 !QLH4ȷ0a޲L8`t`5X Nco7zL20;9\(gY 3v9HUkDY@:źlW{u5H3eke_M턝Zt%n~2iKMhţ v㲇i;t:-hWB{0bo "HP/9@Ǹv ^4H5XsUs㪁2s~>&neY2(]f| EMNFxKQ7Ka'f0|pVzrlE:Ü婢j20z8 kY+KI2 8)+ A`}3LIvxN&-R~ODʦOz #_O{;0%;`lUpOvoևMN=R 5A+srXxH8` J!=8|•o,n4bf( 6I>=hIp1'|zlA 8܃f1M5cTC1Ns]Ưu|̀2`n*`[yR30Lt":vzw]Rt^Nvos^e[h2WMˆ OU]ʯ/Am6PF=Jŭր9Q8l~P_emim܉N޷Fib&]g&SVbnn&̊<&POyy9dFk(hu>(Dqzqg9N{/]i$SnXZPfny92p-Kv^ݶaS@e"][X΋rmaUŒP1m.s@iV6H E6F0hhHMA;ܬZlDNWW^>;́qcGKM_kzga**ex],, 4.gg n ^ _[a;L0 n lk$^c |.WKnNC"&V\="٫ Y+S鳼vյk Օ#@T:QG%#)= -?+\Wb,v.(-cwT0a늻UgY!WO^ R`|J<'|uOfnd_ѬoBJRx2ZV#gpno%]Jѝ2I18m@lznAoR*M(m(eHg,rQQ`{6J J' ϣWgW2&/-)MEJb'.B&6{pȻdD!Mo}訓%{Dɶ|}FWhu(0lN|goFX|.^ tP|/FCaw0 OcxHn3DDT-AgCzb9E]$ Vw$ )PdL@)~r<_{5\Q)c]oύsS@1 < Iӳ:H(+Ql}JJa` L:yxE~rsboTY^C^-ps2e]_9Mn~-tn벧C/{v!ѿ#]ipD/AtwVWluҦO#T!K {ups|b7.CBi*ķou(j+筠i6i{B4@35"zDGyH9:&ߥOB~]tԙpk5]sרx#Y0^*nݦ;Dx\o}L(Tu7"& "ŭq_IN[~{xL ' ?t廧636 kۘl5O=C#Oab'՝Tljm<KYIߏGCOL# b}*MXhCN;HSd $WI(0OY}>hyC> stream x[r}g#m Лux/Z؈]&Eq$i6)Y?'BEi$gQ @OgOqa ƻ~03oLGy\! 2͐ "9 J5eT1ĔT2wc'XLoQ b37X9)!ZBw(UxS?!*q2 =|?ޓQCe6#f#&V   YKGnQO6dhPR]|t}"['? pnG␀?P^Jebvg]ѯ)_*+ZYr^ QvwVڛe@%\F|&'#>0VhVX@8ϖib%rx?f1 'lf AlP Tfochle4E wթH*V ꁵ6 jSh?&bQ!.RJGu;;GYD4 =E=TCИ>#11tNm_Id" 26 ik2blF}rGZ$DHX-ɥ(B'n[.bJ9jj NL?Y  ermh M w%r}VЫJmJ7YSä9ATx:[*X^x>a q HH rl8*x:wq黔*(RL\CHV܇84D(B]L$#Urlu.w PIIџ w̳@S.<1 sKOKxο,s[j(6ZpkO!J$j}7{twI@ ؃! hdDq?_v|%I)#p~S XFD {{ ĵoC&sH߰܏MelZcH2v>k1ܲP]˦hS2}i'wW<%x3&@DBOctw"^ K dQϬ}Ha?+dVib|ʓ+* v(AȍΠܒ@}F wۊ @IrN3" Oyrzaɧ>R7ŖxvHjB-]jE~#|~u[aAYvMO >LO7 f~:qanz[eNJ_(dn+\-{8heC?&Ho̲Իܞ4I4Q#Mk_%mL0⾎{}~a|vz8@;#`5{f>VinK$pTsڐ8(꫔|k:Z(v]<_ՁPj䎲?ϕe=cA 8ytCys0[R4g61mY*rl\)g)|-o*pcۓu- zvC*J]jgf9 J)mc6֧ ldxPN[ÒcVSyjE^±vG^TQOG {|?bNf*7bӃ"[{TET QɣWѳkpJVDhЭDo-1xhw?+ 7P2>, .oki}#NM~>_261'|rPg퇄Qps,b9c$U+"-gDn<}N=H3YoR~c]Obr&7wA_6W(,lK+P$1ΐI4R9)J)BqSWUVkIbi廿Lj˞O<9o6KNyq/uR@JK7>}݅II$ m4w*y/Ýw5Hy,H(wl9˚U>ODH \ FѭC$!:}6e€ӱ|Ľ;bbo+؀3]"u>@AgAdEƨlcGpj>rD:8/ty=_I_W~ rxHCL8SxU',ӌ :Jpa1.K?աxJCkk:hwOL1fb$DGBg(p# Y,@ <$?=<^ipץ?%N$UDUMOE#OG[T5rD'AtѸVd^ă2.r=o0x,[nLg?Ȑ)':BY;jjͻt-(lK n 3t&tLAb'Kr^qZ?Y Qr~Y5I|$6˫#ZvG̸?W[ .mXcIYЮ?(;8#,Ҳf$piDx4 ~1h~ύAaEo/XG(qD t{JU;'W .+M0r/5y$bZbWD<#Ԃi5[g[k*o?w SX/&tD,wlJV+QHun_@M|~3`dE&^hA ^nxL7vaIFd+å#`PԇOuwgnI P=;5^Rt9y])R-$#xk/ ly#"#kn3.s2 /[.*&M==rj?X4@^銽7Ck5-r?^2JG 8Jj_{S??endstream endobj 170 0 obj << /Filter /FlateDecode /Length 3361 >> stream x[[o[~7GA)b@$mMlے#ۿË#ޢȃ'Cr87|?X,?{z+x{x ^ :y>| hm/>4xL@ /pZi-s7Ñ׼+Ñ-ょ߳Vz'iVR4C3Rf`L9yoaon^#Of)[`?1CVYu!'}sQB?7>%@SB@a\Zy1er^Y!W$U!o 4iDr _#(@_M\ܣo@q$)MWFAfe[QLqiie3?:0ͼSCXh4ƙj$j䤐Dž<$#!F= UE!,aGHQTSWIƭ7bm1 .NP;]ty,HзSuM!R3`vcW1I^c~Wt? ݿ0*8 3Z&1pkr\pixl,ӄJFVe xItQzЅzؑ[P'0ȑ{m9Rf|VP¢Og*YFd8F[ĢBV޸N}H@rZI!gJѸe͜;CLpMkW1NeIE5C!ڕ}*Aʘ!le@hDK9+\ >݄2dy'Uj8vht}$̗kv{StK.ֲ&KQ53(*  jy~UmR0mpφl-WyLРu -4̂΋Ц b_Z!ϰ%'7p`6N'2°jV {ڲY:!gfQE9t(N3!x$ HkL2b@Š ~a7_%㭪tYFNx+!e|7s/ i͋2\1pPf8LR`[$]H܉c̛.eeTp( ~nCmBiL,3?Ii'ph- 9`Jd…Ii2DA{B! t*}໳ Cşۭ7lWFWH|m$'!ճ\:ɻ (]ӷ(42KhxKoRC \?bG['zcb|E /WKU¦vh3lJ4lQJ>HUeoQ@hx]b+0tROD!u K -LB |@h)}S9%ՂB╉f -_k^/WAq~hL`ֹ ˝"R&okY jl-/Xޥwy2AJA˨DaDÆܶ<<4VY=*PǛX(fVfjkItWF~f*dkW`XS>`מe(ܤ3dy oכֿI<5F{g|"6;A~][%φF'Y;#I(2ngA9s #˲]l.*0 ɰUBwd7 Bbq&4:pՏS. Gc FZlY1{MkB 8Xov7-ӝv>X ruu,^W. gQOT:d1yրyܼIe;ѓW&yP W\uA޿\N~endstream endobj 171 0 obj << /Filter /FlateDecode /Length 2584 >> stream xYYo~G ;txA $Z땟 0]y$"LuTu~UE ϯ_r~&f 2Db?sԠ{뇨fvE-@Wu!-J/@锍yZ_/uq/T/":U<I& CMt=xYg~<<{&7H ib M0zOx8zLF;8+F!="Fh %d"_1zRw?2b{wՃthgMwT!./jaF;@5aEm 21?1z20Hy; ;)cOB'4[3fƩ[lT/PWC|ia &4F kTVY2caB{3x2A&M>1I<'2dEJE|W"`\|UE4(?Ha$@ڒ[VJ-)7im 9N-؉|[U%++,4ga(,!kh/{ cBzN- ^hfҮԌj"vEFWx-OvP t >T9SڠJJV$"׮~42> %ګ MvX2Ԕ}|_zAR2a'ܰV򢒺N@MSK; B١MrNe!'P-kM1ݻ:ȧzwPh_o+yWU%u%XjTrYm%'fxěVy콭W4 W ev2;=D|e-(uDiו,K'QލXMG#Ὣ7uÒ ᖲQ<&o +Y% YYO5uJ3Y<)$s#vo؃y%|Gnɗ:-~J_QS oz[P,p^ X]Hk62: 'KbIL4#EӄTg'_W 9XY/6 -ۛ.hY(n=i/~if cgy ؓ\u)@"o}ܿ*L;:wiX8C4f >4_.S…7M%yN|\.4Qo H*O#6*6iH?1!2J(ݎP+t¶-Vd:'fne$Ȑ:Fڂӎ<|l iZWL"aoYn8/K()sR4\?l@v}si€R0Nt*Z3݆<-wo YYVi tSfMB%]x 2g1kwNZx8Nz+nt=T\J`M}1x~U4([-9mro A!MjC 7;C1Z:G2G7I?4*e<檛F0:qxtv)l-ۜe[hQ%As=T> stream x[Ks6B@9!' 4!'i4On;#/e˖_Hjˉfr]~Xe%oxQU5O >m/m7##e7ǍQHD53%Vf؏~o96* VLDg%5VG=?3fDt6:jRJ ZDZ#u]̦Bs6T*)f8hMuW7/N2!"ڇ(kSTDT)2F5c~~\eM,JZ6LFWaIM9K#We&3Kʸ =sZF&q,=('{ȪLҜK^Dsx4WVt_ò\Ƭ9C%,9x)[%J<0NX)8;j@i 6uAn`xA GK4:Ř*gp=x9m} s2gI1 /m ,KUř nK* 8ψ^,4 բ(Ĺ gN+w ƍk=ymt9̸'GF65at !Hx Tq{)vۻ%pIg t& Fqمϟcm̥K87$ n[$G" U8=xELKBdÀ4琴f+ \[Tq]6#IP4ۻLd0I %!vp"!܃ȧ%=rJz(?1L%@CA$뇖wU+OVak׆xmb抾7W3^!J'#І\k.h hn&<^C!jUSajxp_"T)F]n7ɨظ%},lF>vpt B#ur돻|>+!A'SW Kߊ9SN$zp+ҒM4z*Q- JEQ.^FE%toHT #S>Oc_]R^QO`K7,7XV/*C!U}EHɩ(uW fMUE񸀅Vt~:ϷJ{NnZ_l$F<:зH#$nCF|B4! m{0:▜25މL˖畺g1&]hOnkqPv@W:RB#Z 7q·oˮjFa81b $-Ǧ@0_6+ XTٌJ(dIœD[Hwbu>ڷwG VCc_VAÄIf%E`>Օ -(ˢ:I }%1dְNFQ{7^Bn tz \3 9Q-]Qb oٵeH랣Э8P-nI7 :^{1T5;ȡU6 ڝ3ס/,|{C.a+,n}~}-+JB `R40T K-SIҮ#^G{$6Vbjz|if܂x(QK.'ZſPLZߋ=wSpPendstream endobj 173 0 obj << /Filter /FlateDecode /Length 2454 >> stream xZYoG~ .>C@4@4+)Y"+[=ERd =SzIUO{{2_ߌ`+eAGGJʹ GAU0Ht8 E8 9FVʆp0Z_[\< +T2_:xmb;DVh+mLqxa<҇PYQĊ gNib4a05n1})`[PWUuPxe<ބ,dlE*BJ[LQ!BKU_ B&!lBȠ8J r8[t43e8fRZc"ӕ M/q ¨_oב-!8C%/&~8[ς`FЕ/ZEPzCA MC\!H*$_8-o=Eѹ[+ t9FrH^"St26なJpRWdwT¤{6!N8NV @"!NS''_D$x ΈQ<, D"PM.ԦHJ$/Uc4(ʿ vC[:Y o {S$ϑCTR П|;nWy%X>G X_.O $wHs|lyk֑72 7RS$H"0+=H^9= |ו ԥ˰z@uƸ/|!ϒ+bn)F!nWH ܧdBҧz-Ҙ8$׸k'o|Ţ . c_Pk?j}dJAg|Bgq` ~>%^ wbf{eYzBw =lF^,&"Α<)Ȥ,4h+%[&4c]:nA#6 @Hvz$3 V9˘܌8b?H^!X1kqKs+kWMb$X=>"Hlf{@^%~=&H|zm&IUNg& FWBۚ? )/ y0&䯞 #;\ŕ'(zk֗HC+)dnup L<#DQ4֣: eP2tlz A=g=bNq1TR4"qP ɩW*X4jʆ2 nʈo}}RpNF , a>Ua]hTh o <E̷W-֘޸X[:";RJ J+UЩ6݂8SசZ!f*gy. o$0*HbtߨiP%$+Vb^@Fi+UJY=όA7c4t%E}Zn,C!ddkG )Zɠh;pm|9dvtnU뛮4A4^-IIIfG^gH!I6yf d3YMrf Q LrQI攕HA\*9욽JޝM٦|jdbH'?c1$Xx"ISvb4f&I{ٕ5CnTy#Iw!MS {Ȑx)zjgpo'"1u*>^c>AuSRI;&4*?܈Y_s3tsvMdNLiMX1?'lfZ tI2ydkUըOendstream endobj 174 0 obj << /Filter /FlateDecode /Length 1009 >> stream xXMs6Wpr;!339D7'EUG).h!kg&9dt#b߾tVj_bS>d}\U>Ŧ}F;\\ PώVUrvuM=T⯆6h1?'Sbݴs#N*88%*Īi^6rsahv`*1_6ޢ<ŐR{AЇ`{73h)$fJ4ՋY:RWVӅ^ST>Ɲ_Pj.x_kT]PD$P$Ǘ}&}ִZc' %є`Fx΋&A]2FE-xR(ʡц(]7 T[ WṾ頑zdɴ*@ ZeT?I0h 13, ã[g<9oOysgo vFqL߂h"^)ÓR Sy\}0K Oe~7M&Kvo%{J6[Ӛx+"?Oo[읬+.Y2\bntOr)K̟|!=Tᓉ1vR&> stream x5]lSug;=Z;v`.c3fLg`)㬭kw kў>['DIP.D :P=͟ sws^0+Zwm[2hGޗ_\FV665_Ăp:}?+a7kR|!R ^[[Aj^tH%{j!xv-!Υ7U:Jאָ U&dkAyG^rxeiiѤx}AUKACsg!IZI)1y\d!惢=f/Fnb9VF+A lj>MshGYZe| ,6=[6I4Wi>۷kT[Y>}]/1m{GO.t/ydMh ɶmc7I-qބ-" 6|3_g<>ENв`B*9z`x%iZ'M&LfBVendstream endobj 176 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 4673 >> stream xX TTW}eA"O!0N8C4Ab#Eš@Ifd,23"C!P!h$FN7vDms^3^,Vp>{Sh#HXo^ڊJ׆@vb<|U'L fF^1q4DQT" T: =n66V˂|w{[9{FyF7V!}"bys=熄;cUFp(o+<|:wCHо0+o`al8[:*smWno=.~]7͞3 |n :qa0+3lf037ƝYf26f81+[fϬa0o2g=&3#1Xf3 cɼ¼* 3FLX(haaKc4hic]Wl8{.ؙTde`6,f0"|;G<2q2FO4F6&m?Ɔ}4jcQehTIĝB}0@%?Z(@ Se@$p !Eh&H¬|j{pV.9 Yڡ~,/ȑcr@fo zT'A)Jp'Ja4_0Yj`?o9Ijy'gshu4\&4Tl_x2EOp@dO9 Tk_m_yH/Gx'QnUOp)O_BVԪe`IR\2!^8@5:!hZ Iy Mx7[X+\/'_Wp nl"+)P\-h4d mg49vxp>+"p8op sW]ܣvϰd/ycҜ詞c]B,T E@SZ^X5|M޿W<蝤Y܄8b#4{q&{?U $oߎU{m3w ٳI#y].G@r?r^n;y&D#܆/`()É-p>ib~=I Yepz'by;SM )B*I )ۓ \ d8*9]ސKˆ){וiUE*BNX6Z(Uw*.BS W悵 wT41L+d&Q Yrsq5E=%U(4FtJW=2{4D|y Ӎ]Rx;rݿ(>θ;d{fԟ1K~E2;ju7^|[rE#ڎoDd <eI૥eP@/1Rm>O ǰjKTќ-λU 66Ԥ+5IOR@xl5>EiP0lK,M2WqvGYvV'/#Ӑ@wHN ej;= lV씬pHJQ-!,J2 ΍Vրe!-h^sxN# o-k +'v>M^ @'i%2B&t;ϖ؆JeBA_}c/͒7]Dj\>U%nYuTL(ZHsbyN /~a /c ,.{zv=-N6J4)>7$ӊ& x0fBFFqܓp/[!-ZUv:dX&mHAhJ !`r ͊A^У=DryNJOO+SUV+֩3qq/chC6Rx@\ V ͔e:D̈́OO'o幓cr7~%%{ (Ri7S ES[ֆHy$1́&'垝 6oM%cS^^iqUBD1SdA -ӓOe>-j5!>9e?Dq[bմvuv!R S)nF3x'I}2\{O}fm+b/~j#D=T/-ƣ-*isHqƧ(oFG۱'&FB,{MdP/;6{{4w5wdYMotV8 _Ye D}?{\CP:޺F%pݺ BVh*_ta J$ma[ͤz["Yնg}EꚨpQDބRMdEl\Uff~PX_\_ю; ls~H$ߞWTltY4I6$NdBvKZc2(oo4 . Cޗ=8懢 = 1DEuԌ *Kd f,*?̐–TbcJ]%G*uOih7@^A4$eJzi=Tؠf7+b_,kW6#3hqBܽka9Gyp4'}њ[v}řhVm)ЛެOg)},hӂm$&'C(!UwΏOF~]_#[񓓛sq.KJT2/wF+yMHB{Ge \JQrNv[{4;p\HR=R+Gga=\kcl=a^^cGy$KU%h,',ߨaZ"5 1J9^ NKTA/e^r-IE-2U%>9U)%ϓO(nx̡5J3ޢmn>X-?ѓ] ܣ8x)$D'PxZL<~ s.l|٠F%x0c'L"LV>F/`y}i_Nkmpȉ[j(QC,ۖ p{RҪKrEy,@Y'uݣY98d2rϺ=kBݾk;s{(4_xL ,nD}q?y8gk:]ڦ Ɉ }oCD!]yNFŋI* }Vh5-\Bٌ:9s ,n &X-!%*E2%aBu)K092 '%.q!87W(.R4t^^eٍ? _qOu \d7b5 ܨsE N7OȪ|taH-=N\ظW &o(чEa֮=__ĩCs:!c[d +skWw.sOio*`1#ŒEd"?^f^kl o { QrvcR H {9`k;a8?1#(:}GVPOitѺ͂g|aLfRN_O&)|fulEG$gb蒏 ddG.7EpȮ̤5 %f#2BM~endstream endobj 177 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 7576 >> stream xytSǺ:'Lr ȔB0B bMa[ؖU>IH%ئ @PBB{ c{#&˽yZ^.:{{T@ Ye;~ԃSu/)voR}g|s2_{-=wzw~A?yF Ш9aq[Gxtv:uhqcNu3ygtog4!yuV8x1!Qc"?99fkt*(m>By:9uNXH47yiod(EQKf8'|܈"E͏^ ]-sqג8>|XuuB֏12>&2nC&M2JQCPj>5ZI}@EަVSé5j-5ZGShj#5zDͥPyXj>B-REj15ZBMReʙER!T*¨,@)zS5H jՓ_znZӢ)Gf2}ͽ^;7;_;~~}_z";-zG)Ā\? AAA5ތx]vsuiwЇy}{ XF P/k%䇴/a U Jyz"1nj&6ZUuýZ荑&NJvDGV ӍK AuHe 6y,7TdϷkPb=avF #*0wv@$h ] ZXK+a6z-eןx.Ib߾t8 t<{HMk[8Iäu7MBIp GpV/騤U`~9=_L&\UdF+,~0=FAT{G@> Fa_A>?F3X-=IfX kR7ЍN]`]'uX`:a6BCL-ɓr x!8-d0e,r6'lxjџC$z~Q2n JD*vKZھOjipi/~|}bo4 ehHS6S"cHv&Q6\DN8MjHu{J.R%)"c†lp%ݍniC# D.x3k+OEg}+r'tbW|(SaTB8} 'X;$s ̐Q ۈ!'p 30:4ŅI]>ѫ\y:iŧ-~ 6;&I`*jFExLl<ȩI*M\P UkJ1Ԯt7Bv^uE=h,Ȧ/nM@ qb=K(Ac2[ j-T$Cfn,3xpA!3)łvƄlv|)C$l  HH Rߣ.xw("4 LK0G 9TPoř?/|:֨s ':S3viqHCZ~FS^i-+y@m إ~ѐI`OgQ O h0gzdk9MJ.2%?$NؑPV{vrz VUI%u/ILRKEZl2~@Cv9P;\)OרB&*guOXoj@Gl?C<_ NPc# /Ó8=<_;?!\qp= )z/Y0 hIH=5y~khqr繓khRsZ vgQ`8 $o^4\%}\~m-F^EVf6 YRz D/6ϟ=Yʡr$x=Ƣќ8쯮9أߺm}!Zʦ|`ZWef2laMpk4mϕ2?"(tͭ(wAC&e*T QE9) )*Bq=QWd e\!ժhoMmV C^a䘕M/B#\g[ JɲR7ml粍jcY8qSj7ɪ (UD)ɎG#}zgFT:@Y𯎙T>YE?FǟqS+BN 1ނ.o~&_B{QtK6ûʳÙ[镑rY@&\ihM>7lf<ׅ!xsu\^E#j8O|ʡ>$~x ʏKBfn\O"qd ppOy smj8|ERHad-@rrq r@ ڐBQgEC $ؑ/VGt?@94b] Y)ICF;163e췎Th xAl]*͖ƽ-VXDBi:aaP$#)]tR- s' U \5ᝇ| 4?b]+T)6k-3@sNKuiP ƚ3_|91GV@=ܚj5'F2wk F06L5"nج>,lxl5F|(yՁfjXDs:x&3U"/A_J8f/*?Pmk +AJo=ujցHDbu Eqr,yKtIe"4D. sG4%R-U+<$jUzX툅ȨSec{¯qGCv(\ŅY_7~(1W|-!dSJ9OEt8ŴCzCoTIF L$xu]NF>Rqt\uI-K|Mf_L<]NaIĿn4Yr|1+QO$:&ԃuI ҝq;P/'n1RT/QDsn_;.?f!?Cӡ2XdEy8T COId!ݤVvEU$I{xϸ?Aj!>M)PkbB׈A.VW(5je:$Jt:CΏx☛QgS]-BԛT~ᒎt'B hсؔ 6Dly״gyxlcQȨÏk1 $s"jSTT0vFn .@#LjnlwLC"<'`/bhZA߲ߢ"T7h\ߓأS6EG~ۏ?ޯ+b.YLtILUMɯ~G 0=-&wYΘˌYC}LbEMވ7%OW 3ZE!\yf{UUV pnf_khu?_ ExZQ+6Ir * Wm&Gy 1>,d@E~w^e90/^ޔY!i٘YfZHA2_\W]Q\.<=uR`̛״M=.q;Aq G~9r!Ȇjn]JXF4A,@h2 _dߞw]MuODPOvƑ+%-^Sz|M }◱Z৹r"d6ii+5ti"sDS4K#jLV}l syu!Wϼ#_,-9.;s}`Sܲ8]m4:9 XRwWO9:F$_q$R<#~\VVg# 8grC븕ǔՍTPvSW[8h9tG-['s~@=$+tzҒSd—|Gٺ e/sƙvK8= # }T18}XX\La'=1=k*CCBC+jj*+k=#]j@&s嘄cڧHk)B;PF`2(@ VHy~3kÄ7=vZ#XQYF>t97(,m\fAaKZأޣ(ǯn^ qNXj'Z5|b1֦gߕqt^ι#Z{* QΓA$&=;Ȥb5l ,2Ѯ ~kx0b0y D?xDNAWz8`gͪg6" /G?RejM`"cObݹ}0q훅6[TUj_^ .**9^ܱ"[9 &mPѿ(l`ً(e'zUZX@TQ^xPe0\{ ̶ηCI0@#G,阅'28?}5H/C펺ݎB 瓝Q_:uzuO ].hKq?Vz]h6Z3V;\c nMq4{oQ0Yl2ァ]|#C"0JFZÓ *SHL-hkEb5MDrTq3Q9Y'Y8G,c8Bn'mozYJ 5# 7dd` \ 8#N}sk!)8V%#Pd=?ᎠHwgO?"wsHTfV͕ZF6ϐ,}zB$@̑C F,'pua4`5ʳmVSJp32E]1웧fJ2|+EHɿbg+-1wقbįE[Xԧϡ^^VG4磊Y45ѹtILʦ [] :4R$QԢl.+/i:v Z%'O FGyFEl!#rOtd@7\_j7&mxq)Gb+@xMbQoK]{:G򲈿j4`Jd$SbKԋCwuRqѢb+iR^k;JI͇#֏'[-Pʜټ<3ngh: GN1qZfW.?)D̳W0ϑww~mmb y0=YwzulK,s5sԉs9Uw7>[# [!8i薕k;ù95biBHςc^_#dA(t15<8/hO~ߎD=9g`os)![ \\^*l )~k[APL:j1II鮄Jv A7yL$ H|a+tȝkfʦ2>Lkq6'+yųkURUH&N:D%q#'QǦĬ[+jMPܷF]%oAz}K<Cw 8Ύ_U~U~ld4!2^+'DYY`XfOV ƞLaTʓ+e-x<07C]ֱwG毐"!Mk3No{fg$E-'H"a RsH`mF`e݅˄%$}a[''nvྮnyw,];=8(9iRԿ[nendstream endobj 179 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 5241 >> stream xX XSWھ!psU!^ukZwhUjDEv!a_ 5,JˈJ\uT۩j[[c]{g${D"dTgßS"a'nrehڲi*;-[)H$HY, U}Ncws:gλ9;qZ# VA:i\?"eʔery&:E+ȕ>;BN}N6~,F(|N>- -]T,\w_>hCq >u)SM1ss\ާԇHj 5ZKQc(j=5@6RQMbjZB}L-P(gj9JMܨ j&ESR~T-j.5G l-eGI!RC)GJL S5䂲T/٢z2{Ӗ,;FZ5td1#cDAC?1`눁kv tFiृN n$"-2d!!{wۻ؟rpvHwdW; ՃjE B}6`lV A1(8"JHHMMDqLp=*^95Yt;V((U/zԴ/mo|.Ԉ6V؁.e[$8,ˊKap;wǦdp^/Erbяcy/6 ۵+y˺{r.bwQb Kb,k=%Ԟ)^}]sȀ4\Ym ~@%y Vԑ3>뾷?U4~h.}m1:R:C=κ ':rT=xiLxfuݱrfA ~X)7˶S#R( Ԡ ܦPsS=ݓߩ?ʩ.sj$QHOЇQmZC491Pf;h;Pݱ24G"}DBXXDdN?Ӂ4XwX ؿ ic%AE qB=u2!A,l5!h#Q"ZN֯A|; ʤwǝ?^ "Sv`nw$Io3Vʦ@Q}_נ&w(Շ!]X{U]dѹp TPvYN5:]SutvۺL)XA2"F[MB#wbnv2A#B51¶,deU)ڇ ׳AKxI4l0lTن.lf+!EZS퉒_/C gV蒆yC5jܪ7'au X<ϴa/3fK X"^Si$Iw`폜Σ#XU'm>LpK#O7Yޖ,C*!2B321;vi$X iD2".J +J'Љ>/L^vR3$MJdHq{3ixID(eC<|3ԙ(+cThUώCQan!K, A1)\j\ԖƷ OQW[ZMyw'^vDv=&2^lT@Q~B$'[%}%H5ܮLGюըlYYY0CŬ+i)bzuH>~+s bVtLпtRPQZrhsӢ=/;k /É|(IgT@Rbw`h$E#0P RCP"{P>U+!Da'`}>~~#:F׃^[:7Í*Ȥ;vYh aa0,؀ĪN6+4'ZKn&mlڏ/7僌w@H׉!P^W?k֠h'׍7$d76<{1p?}zPbY3j0Ycp'}GՠV~!j~6sh]6^pthOݺF؀*QacwË0hD*/K|rȈDuᚒh7J^kMS҈yzZ2N}@V@atU8,*MQ_mGAaطeE9HUm'n-ܪ޴'$5/`oNo#1duQJn:$5fpgubrR3yu h蠉vMsfb+<˝kbg=y[Dw5h6v5eU!e[QkM: "]fۂ}AAZ57y]&W6l~YBL<2"E/,%&dGUitUu~龼 :O p!jc l9ܪ, \?w0Fs8<u7raaUj4gƄLe1yq.S1ƹuwQ/"b:Tc#9J$ҙ=tU֣A9vi55}I\鉓ӗn^a|9 {:SgwkuwTCg΢ϰ[/xY@]laԽ\sMCyg/4 gfݭF(lH7w5֭t1dO>SU%WD=]CpҧKM.ă5WL]bbI3\W/RB,F@*&4(/7/k֗UW<U UoC|٤8YE2)b,7%{ޟRp p:IW."'wor"_ޒVD 2:8i쯖% 9Hl[oudYaxjx+J]~lǩݻƵ^_4oGݹ.kOl['yrŇ 2lw.-psq ;۵CxVZnv'E:|/u_p>_PHB>吥VjQʭ*7?0feh#K ;D<PRnVU&XBa-l/!xl<ӏaYtaa]6|v͎[G2>#323PJˉAI9@I?d&傍7<Ă;> stream x[n}Ca@;EȖKɦ(5EQ(&% rszvzvVR@ tWwWszBzW{^_/{9|Z,r;_LFiCv5M{6E0Ѓv?s)fW)LG0F+Rw&<.(+4 9({qJ[M{VYwf1f(1u0>wk^[#T- ۘ+BY}zG?l K<+gG4δGN6 ~4!ؘ,;œ4/|j UpXG;sU'?/%|)ژ=8UOx6;\%dz+FQFM#ЌReB.5aBl 9S6!:V6Pu%h9OEpgs+fQO6zrqNquVs㕶s BDݏ".91UySWfJX]91oh̡sֱ-vml{8ƍƙ莎O=-.hQAf9G}mɸ{[%(sW%ǻ} ֹ2&XDM\4T?"~˝w NE}3Sg_ޙ.ws3sq!>H' 3v$3nռS۳lzBjޭjmWse5ϫs5yX׳{\>gx9xֳ?4XOnwEɎ۬ (O8LN/&IMdFx} q7 @e f5SlSn|ŠV(UP8}uOqJEo@kZ-1;^X'k cP,VV'-߿pq!)vl& nܞ{PnsUBjy <[h"DèY@[Kr;nDHDC!%e$ ^sz #`- c:)pC@8"arMC(G7]JeDLJ{^\R[gu @Tp;Z' a6{EnښʘZY"LUY INdJx_~+Дd) SYT8\}* y~4k5M5lۓjjj:,Ғ؄ܦАݗsH#f63rMLO<Hd^R!4L4 e!=)N0dw,,N"12 V:8Y:4mL@oRB[FD&I5?69M֧e/3  q^;]WÚ@?'ǀ$LpZvC3ʕlHI0v;3gf167˒7l%nOζ 0e)06Qm2)a2=EDl>[ݿ4DeI.LfM3 ,q2RD8'3(F9Zlm1tj)Rq/tE]c>e-m sSOJcONyd{fAz# kֳ:ɼ: Ӡ]V;-®y.⃉:m 0.d`q:zZh /mZ"Ņ`7"D*Ƽ%Kê`j lVA`sc* %%&Nt>'p{j Β_ਲ਼qpL'+yHYYU2k#}FΓ .Qn>A",)Ywy[b2|qB1E``rE}5)9٧7 rW:YC8q^=IXfo9E C,c9Um'O*@5{ CSK& ᘋ[/\GϠb#vP 㽆 }M{Z37nypȂxYUɲ0v} 0f6_Hy >*L*/dTU[<͐3ٍBw` ?Qķb\oͦ-b6Y_y3LfYW0m_!` nG(p>̍o$C8(aᒀ*%g*7Rq1_x=OPq;&ϫBjUj̾:墦[&<m> AULP0IM'G$ßOVеO% !Dc6?yw+|T.{°P 9\ke5U>k~Qk VU2;RW ,4뎛߆(Tis:Z`w7ˇ c{_+}̽lU*nԦns12g-y1 aseswl[&/y^͟ `zz+=LnyZix Zn4Kp[|a Y(h!|tߓPmSOJ|M#J:7mme$?Gx ǎw|ISb_(AûjjRO&]&0)9n/ڴ!1HPI%&ZSA:\m dBTf['@͚ OyZo|}Dmmc+ć+wV%n账Hw|//8<^ 1+_@T )o \ ҷ0 xWDͽj$N浞&/ g&?þn/C&YAsTrJ$jǕ/U5uH-U;s-]YZiTs?-nץmN;%OnnP7dKut|ai$ Z_yFvfhPMq!n*6akA~J: 8.K$Yp7*>nOnbendstream endobj 181 0 obj << /Filter /FlateDecode /Length 3402 >> stream x[n, ٹ't~8D CYY^kKYk v&=/L)X:UtE?w'鄬'?PW_w? X:> JWԭruvwҰُn.+RaɿZils& V wF?$/aKl V7gk`7ztK(CyrSyˍi#7*1@EOZ5Q-@l!qcJ&CF WG 70EYEhNgcd3Ys6l`aOy@Un6ULڦ2*u4  kPio'1'8fRaC8 !֟1ϫ]!u"![IImsvJ5Jr/'p_Ôi}1fP 5\Y>aFwEPX-6,.PDւp{Fy/3dMxp]P͵Ӌ7Uc]ZNδ+RJtwhA|mZ%%[&!IQ2]) xQ2=WwiR}`oYj88>Ɵ.q {6/"4ROa6>JõrT֋`SO)<ޯᣠG4B7<B$1րyqiS&2Xo3A@U0_*1y >j~hd N܁y"JT>je:3} VH 2y6Obۙ/  ?UeB__1H4aM`vL. [hJ`HH[2[4q! #*!{:bܲxy> >Hrk z]'b5n]z(3X.Lag $-P;oJaY,"UHYJiS8xSg]Q+4ѕ*'; !J~&`E]'"nl v8 c>L f8US+I,\z.jA :y?:VR ү}7L=l4cEW= 8- y { lL-vd |]`dxGGq|[)Y_`&\e^HVzI|Fefh(%YLx,;JeU5 .>./ nZ399<. u^ R%!( .E]|JB])4$.`X#01ۇ#؞k/~zo1W0&`p1ݰ/ (Mh#w)ˁ50BB"&/!.,gn`JJ#5ּ8 3MemӶ,"w|nl+ -"%;"ﲶЙPtf*}O[kCu\AJ\wy8Mx|_p ʤcB S*#nS}C1*71֚1-OύaE1MKȴ)e R<۽ޏ p*U^38իw.` Ü&e7Ҝ;$e Te"/ o0 ] s9r.<ƞգYBیkNsH'v~|,6"s͌Y@9wů?Hp԰܎Xamln( vT}wUƬ~;Ͳr8%t #rt䐟7x1I9qDbʹD d*G Kq 5a)jeP~0 YiJֹ q R0mvمpjǺA'-l@5z9J|J6>S`k]Fw܅BçĢB!0jKOn5$ ?8Aw9yP!g1w/oȃ*f3eٽ;׉*T`o`lԝ) .y/qdǪPnY]+)-w[?"^٢tiHADǁ(JJ'-Y2{l/-{ '8`g@TU]B̵G0{4VzN|ZH+@(bR)4'Y1z%7 W}{7dC\pE|\pٷc0Z86!6* (* 9a#~eM|LUF[& JudM(p%fu% P; ,3_$@E?qfgu$j ph:%.,chHNN+/s}3jÑʵAM]7a++,_w74G+q['i) Q Ǟs]"I)N-^ k='>[# P}>ugj0M32}"x)JIZf+w˜a"#t͛s4F+oL .nsud$<丅:$ JL+kX˖>PkRX/$բBHMۜ(xPŝl9A=jN+Oa>`A6^sd|+0o GrsvEv|hQ# Ik蹡7T|$BA7_CX'.֥R@18߳p%Z䍼d~qA+e(C P%JcoN94&Ab`(ٮPuޖ2PǁmPIJ>%C0QOQz:x^{+HjᅠGh(o%? -=b>G糓?Ҹeendstream endobj 182 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2826 >> stream x}wpWW-1&M: bJ p &`JB`la ["ؖU-&K.LgBKG)3&&?vvwf{bB"Z!~\aDxeԆ]*{R" \ #ǽϣq(9B*hs˵,uJ.jZ/5/:zq2*K!Q$ėxmZGMI2̙7;Q=[t̨<.5j*[JZEmLԨ:{\ѩ6hUYAfK\ڗߒ>kKbGOL&-V"I VZb& //EMD#d#i7rlTQQSo.]?D°-0Y D\ yxR5]vƚiJV -j5ku9{+Y;>}D*N:hpSB>;- q>z+go]vP!0%~!+| ܐ eLo 4VLHd%fvF#gS@u.#uH]Coޒ(Q-fz~EFӆ8}tk PhaS+VOBE|%x^l El0JSq͑[M!F,.Gg Ide1ar"#p+Qq4p"nP6RYdq,{@i.YTpG%Hߌ{%n RMS&Sq^M;[xRW^4ex''koWg`P;?4Xqx'<1XS\yqUJG5_>D%.UcMWN5'(h:*mnq_xKTk>[xL&2!BCE#sť ϞG_̻۠dX)ϹR gɿ{̹C`Mc"'W2|/rEnwt0Mu. + 7{|;8;Y'"DK}$ߔ ,r`X[0JE N3֩OĂǑ8 Oc_q eeq{PawE[Ph׶˙| vf|T"]Hvj;{EDX ,["!ď4(+r ] /FMxx7Kq"ɖJYѪhNLI&PVw "lk}@݅y9ٖIG"dA71?Hr8jMT~hU4{PL9--с* =6%/]7۠,mM3bB܊oÚbvnB -hZPMIٶnuTbV1:PH6V7yZ==Zi[7t6@` kuū~ o?@Ѵ#?bLWƓ~~{Noh @Z\%OOjTG{; 3VԔt0ώ?RB5V@pb7.,ji| },A+!ТѦed4ZA%7ˇ;v>=ḃHew3b16P2hT>U iro/}Vɩv-"gWX^2*^ 9F6rQShoEx8ACendstream endobj 183 0 obj << /Filter /FlateDecode /Length 159 >> stream x313R0P0U0S01C.=Cɹ\ &`A RN\ %E\@i.}0`ȥ 43KM V8qy(-> stream x]O10 BVUAD! }I.GOJ`H_#L4;0L| p oMTSVBoh )jItUwIG`m4Xyp8I.~r 6/F4S|endstream endobj 185 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 7225 >> stream xzxG e)`581%j轆fclݒ,YlQdɖ ؔ!$` $ȥsd6$ܑ߹*9c0=nΨa9 ab3bӳcc S2VE%dž=6u,&feƦĦf^ /x=sI(蕒U_>qލI75zۘ;?abɲ)y/O63g8kvīsb8A!f/kuDAl FQ&b4B' qBb3/1GNvVr<1%j3UNkhz賱O3q~/+/@0>{+-M,P6t[he08n!(m5@3aa_45o _U媀{M⾠uuZg,dD.$DapȒz1#p*i dT7ǥu`CHb`]r}2%A.APx_sݽ. {SpGC;mo"}oޕ-,o3wvtQF&wݩNtל>{ cEB}^mdؖB]/Š[cQ&!ž ANwRA~BT&H 0pp:Y#IiC_FѰ\ Py-/n;lLNsCQ,b`? ]NnX8nN.^^ԑOLG)cWEBΣ~! 5OVR;/#@rA 8w 9d3\3\劼q?nTi~ID](d*DS/l;x4 Bs ؝~^ʝLc$Iίp6vu,vRV{ufҽpB;;tUzs@g`_1qݎ4Q[ Jb) !OgpDQLZUXꁱ[Iݻ~Pl^IuuR;N 2rf #!$ +߀4ϢI8& )h*%}tphY{u]ܝpt/ꉁ5g(N)X8+H[ƙ[fk%*|͆% c`"=-3+ DR:0 EZ|Mh.MJL`f cB+yμ$۵J0j/,0 wbÔ\;Ȥd")@qF&5>PՊȃ0[=(<83rc&hXU4n{2@-ylE'u`ip^?wF~ -ǬGSJpFW c(  2o~K-E.|wQtB,#$>? ZXس @)DŮV%hsrvjs\́`V>].G8~ 6DHT#"h~JH4M f Rंwg?N~O_}82NE{׻>X1+;8_hs185>.F毕a5FrN O ׉@Mʄ/p0jU:YZ{>%yyw]oU$ WjkQ?qHuXB@ 4ӕ+$zRT2EرQxo50OZͣ7>' G?qOAVkrVv雐߾QzF\XcOI;հMh6ΐi KM tP6ϸ;Ԗt82罼;Wa3=Jgpؖ(J6 p;u~jՒ|6m6QV9jkԏ 9 'W7GaNK? &6<)*2p[%2@)FMpepI9~CI>oY"ZBY N"+>a\aѓ4{ sM`lf@697Hf+X`]bk[+P&F4Y|sDARc$./+Vω`G h㕜*\d/]#< u+GӝoԨlCie{ x-24O}/^zy8wQÊ2eX@Fi Zt{9 L AoOn=~|ľ+׮^Ŧѫ(/=|mp;5@ݻx)z< R ӝ[;W r9ӣ-W9Hg..Vb%P8 /Z*p r-T݁_fNoZ &1%$E/ބC ȗHMAuBfrU)^rm`xo,`b뻌j|Ǔ X$ J}$ZƼeAXb|KTUt!ЄWWMxd ;϶:l@>.6 |@X ߅.zeȿȿ$? RH1 <6<ٞ/vu,>TnG= CQ C*>OV(7) /uYvLJJ/ÿA&fLjEumiDkqBNp]wްVpg~mh8LM}bojXvṌS`xȑh.3_fC#pCZM_O(&o օ"C]g aचY78LUg=@.Vu1zvE^ <.bJR1 rM q=&C7hCan L)mAIUnvýv# @n%\h.z32!@Z+VV>48vR )J9Xf V4B ,9ua)|a\{ XZɔZJ˪a_c%K+DW3byv5,IXf-t?AUUZD`d`+Y0C%j[1Xlg v!_RZøܭ*-6xp a; Z[}WC8`Z&+NVt4FFx ,JfX\.TR"4YF'`=σ{p>o$*^98sv;#e7Gm,XeI 4 ,"aM;wn"Kžݺ/zδJx~ev]M ^"W)@LMMVтޗ.QZ8'z[iQr s|x ݔY\z'j>w~fU Ldž.+kU T\*(r: | k䞧!^b}(ZPȇ~/!pŠR-4`طNFG+#XT[µj :C:ptDx)3ʭh6TOKK궫d3y*^xG~ɍU/4dx8lvc<`>RsIcIk%1(K% @%g@2J.jbwLHLiM_GwhH}uK5x:>u_^)T:TN>r%@}F$&B]dBGr`1:A#YخcS?G72vZ)l[&=Z榡Iei),R6U'tRpjll⺱4{j 2!Ƣp2W2 Ҽp)y4nS? cMC߿nysFHIgͦ'Ҭm`KG{a}wʾuԅWPO4f-ͅ5N -R@IIɎMa&tk42=Ζ?fJ><8vf&ʫ5JF*߽7[!H`O`oV%.wX&3SR|R!,6z)k Q4Jwɋ@W#*$&s1:Ae )F`izpd Zl©^'VO[jL2H WCIjd3N_4y1O>.c6KrYu69ʗ[Á/ndmE8Wǰ ~Oq{}\*,WչNmݷZ4֒ٿ៬3co ZRٍ*aPmىl>ril?Waf5ACG2B"'+=JaVb+p&GkPDO@sޛ-;xAEY[aOktrŽVW-_enÈv8ws I[Cw/$ͿFKrTYr =/3]B{t:_*+y}$iŸ_[Enp)n ׿-_Rolt|>swwTMYX H)+#TL9U+I0:Vo}Y0 \ Q mӱB3K\,w`t7T2j!4ة(3W 0Un?W]^B.cqc|)7j.d`ͺ eTJʨM H|ܪ< aM„]:_pp0E6pZY%vIT<u(PcigPlHiZв9츺P߯αdir:0UW ARՓ_ABڋԽ꜔8F&RJD4vE5,s'f$G%*QZQC3E;&{-b}"'2fݾH=A"?9b[1(y !RKl*W$; lj:0 B+U| n1};[pHlu7ӫXا'Aqlendstream endobj 186 0 obj << /Filter /FlateDecode /Length 1014 >> stream xWnGW f@J`87t`S_!$0a AZ{Ӽ+eJuFC!EqW۲7]49Ó:ɤ薪22P'f];j>X$V:ͬQ%kIF29>?RY兹TFߐ2H@I)o]D3Y#JZ*6Q'+9&Fq M C}Aٮ?ROŐ cQj2(G!+] V\wctbih1ʻZ]8Tr%1n)yĸBATo^?di}іMjk +-|VF5:FX<䮼o>,c4Q̻ 4PF94󔇜hn?H$g8YC]HhyVJNI@)`Z:_B䭅R-x'"$[FJ^\!K &Oߍ<2I?Eˍ.1ԻGpp'lg.۳c]DF8Gxe$vppfd\ KȲ-l[K,]F}ntpZI}<l=C:e ݋4gAxGv+acˑ}m<"#V% ?=+g@ģBx.m5Mv2@Mj$spWѪsI\bϳ 뫋e+?GVo{hg?Ӌ'sfU/=?gmp /1FXrf욍ݱ/2H6t̖0C%_oЪ2EٮjN6r+ٲݳڲg$uvN_0oO^&G(y{F~o9KlPk/=߅dv,Gl]"\~Ųj+ao}Ċh6̿k!)!Q{UԷ}{endstream endobj 187 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 480 /Subtype /Image /Width 800 /Length 67019 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( +ίup*޽~X I~z^qA)ԥ} BUEdxJ{Ժ*qݼ )W4=bB9g` 2=4nCfñ񆃨j_֚RdX#ш .XQEsS v /EnQX4M#PHd1 (rA9~uymg *$\󞀜`c@lmX>-ЭuQOD ض05:UċVc젴׵c,k_EmkyLq\֤:ƟۮZT ~@2q}3@]kZ>:_ ԋF3+7F𝖳O\#V p0:+׼{iz\u8[ Q@#]񷇬Mԑ k,cs >a[creAO0ɸmی>Yz7Mrdle$zg:\٢m[]jLR+G`O5K2ʯn[2F0 F'Z:z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( *+-"21y*N'ު wH%@,IgBrמEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPh mS_4YΡ!i# #d{]{?m䴓O伳T=OP@#55h~n"G*e`GV^_Q?!_ֳtnuyVSPD54$(Da{iYj:kiPeU1)*0 `Ƌj0 zkt},,5+mbHԭƓB墔A1Ϲr'44uY b n6?^E]?:<EЯ,c F4녞-\K: 53 d c^E;vQ[K[X KO׮O#ثkk={^t똵0E D]C,l0DZ'rEz 6* }ȟ ,k6:+"|z֧a]2}fjNkZ&ۥoĊp#<jqQqD@UFWվ}D%,֮D`EH#Qa[k6>ٷ{[5{IsPߊ)-?y5xFN~krțtcqEukWnAݺ=[Zy.q;GM>^ג__>fҹ6Lf j1efkNX!%:feb38^E7oHwsiv~ .cp0;9>]EՏ5K K._ouR_QEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEaxN|==Bi^H@5xrofn2 @9<`קPaSRQE ((((((43qF(Oa@'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢dO,αwsrI=>Aޛq?.? j+'}zo5@Q@Q@Q@Q@Q@Q@dE]ggmZՓuEp?ٗ^4ѣ%Q5pYVE L“>J*Q܎RkCSEwv n}GVu5|Ǎ.C?Q5*zת\F,m o<OB֯EJY鎔AÌ.U^T#C'}E'Toy3?RfV 9l1%} 5VB~*ϴKBNexl] xM L+6K_ϴhXy 8L}7Yǯ#8Uk7Y*zm)mgz5 EpZm# \N+'ӛtȵTXȨX q/u% ĖTH$=zs:j^"{ }u(³9ZR=9nZEl Z@H"S?|AB*k_84K;"O5Ȁ`_:fт#d՛cof=6f?tO[~Xmm9|0}*~?=[3-A?8kƈic?a䮪֋LOqukxmQ[ )[Nqзzs뻹C1X6@"T;ׅӦg*"c.;/-\VgO02~GћIHB~lőA?gA[g*@"wB^n_<$EJ-[ly.h95cxU79=:m5vz,OkY{kTb x:Jۮhzgxڵ'ş*??jFړmkϹ̯:OOGqQ[XQEQEQEQEQEVO?UխY>,WY[PH2}cl+Bnvcw":tB(G\TXsӖlzl/${?’鬬J |3;nT6Yn1C/PfeR2Rqj4&GB,#Fi'qt=BI ϓn;du2i_6r: -ʢq.%1nIB'؞9A52FO ^󸛊^"*=R b;fn¬&d ~"Qn8&] RY2\+r t¼2Xh^:MgȝZ+,([]Kg 23$jzɟ_5-RN7 qstF|Gy\dwIu{RR&yu:l1\nnJuqؚREÞnζO˫{}ȩqE,* p]8IPӮo/g5.wYA[61۷ 1U1jč )ʆ~9+ɝzܜfSkEy[6/zq{[dIk`:qJ? FsP2bU(lu]OPKHDIdHhʞ @;c*|I~oOZHv=;,Rv$.yv8=Jם]\Ҧ6 8XfwTIRxUUN%Í ,V;Lp;IWmn;W*% A99kAH[ 6#*ڥH;rzfQ&. \GĢ:ӧu{=R}ز3pz=JڎaO^֯4G)ķ".TWgwg,K%G,F#1_vϹIw2^A$pzdzgTLa4WV;M.YOYI)u2jmPjҞ=<>fO<~~uW^t٤1 ?  q2ӿ+]ݹa3vQ5ZXT-r?]EeO@+ 2'Faг\j1M0ͷ5GGOc]&'߭[g<.Кpyն>J9kRUuBb0ְO==)qrn 'SἊ=.g#iV9TfUw~՝- (_CV aHEwVN-T=b,Ғx{ӕTI K\|.z6p.k %18s#<ԓ>kc828_7ì:dpVupniK;)UMfĄc}xjPӭ%N!U c~R jZWk͍X˯v=_lR]IԨz`đVն0cD~lZ j7'iR$1nR4{]Zps;cԺflj[vq=_W-{1Lc#p*"i%j4#yl1k4o \_ie1 9U=Xo! Id 4%>t#qv Wz,.uf'rOֺ8{}~Zy]d0^ sxܭϦ \FuIӀp\Ŵ2KΠ|#=?\qh:m3K 8Qnge9lx2qN>'}.ey OavqEq,Bۺmm%Bg t:z^VuS֪:?ʂWe%}C%X}^đCѾkOyc0cn<*Pbw6xx%Ƅǰ<0;+8f axh"MOKz]K5ůs WOOG<Ϥ|GLt@5sZj39m8MJiY>,WY[VdE]ggm^!.6חs}VKUU|v6U5u>w9-Hz?(<@(((((ȫ׌-Z|Y"^3趠(垅>#^PY+䯖>o>lǷG*I2ELCsk6bx‘6>5Ao:8+cC#ڻFx٧ZWZ~VkL\T#$1=g>ңf-T &>=KÚ݇M6Ev 񃀲pX㌁<o&k.{ Tő/d֋w󷨣Ax76J>bdCcg#pe}_Kwiϵm\&xv[MI#nmusc#8=*xf]6icuf;Y#n p0A#R*pzS#HJzV*%V9\#&;[0aSɧMWNEHtM[8D#n>zwQbv0I՚hcigq%9f?78錃ҺDW vX4?^[YڕIolPx>en꒑!?J11}>/ofѪʹ8yrG3Xֺ֠48%87We3rs+z4=Z:}$M r뵾p:c[adP?vԮ]ZZO-w&Htkt?Sq2kXN7/VsNV(x% [93Nŝ6O,<ɚ cYXVKd^?'s\Εv]Ӧ91sr;TAR{]N Nud!51AUw| nnt q㈆iK)@5Hzl9?'8雷\oF4/Yn]yck0Kﴎ7c5F"6v՟ cc }NfOpNKǰ֭Gm$CEiX$FRGK+*")ff8 V8ir mE1ho>Lw+-sמ^mF=;ó,"M>RރA3OaWy 828^{rp+fҚpqZ}s0U''Ȋy<[<`f?K4KF8۲c_]Ȧ7ƪvBFr8G^[SMOq+l+v~_ ou[U RխRM Np:Ey7QY%[qĶFdE{$IHf*Ax{ HUvZ]J2O?zn2*k zϧۭ*Pr9@=N٨ZU,C_B5 =F+:@*2<[oE j 1#pxQ٣QȊ+ߎ; iH&XUou絗qN;a+z:d8^"5i-vI6l?^G=q׊5oDצo\[t}2&Dse{ly ZG 99\+_~[\(K ;Ij;oo}%յɖa y*I;_l^On&<Gn+%ڕ@q tzv֛5p )JWPce\ :g=NPEÐKcǿJд}64v¬&I<Ls$[\C8 L\Udd?Pv;a=5;;#sj" |eod>:~ oA&wđV) l羊[II$sӠJNfok/M q*"0 5ޣ Zt$Ұp[P5 O >?CO|.g=u j=2MK,RdbCBx$Ն]qVMWЉb Dž] A䝇ޫp\dHR-d1;ydugSգcִ[jdՅԭmn%eQ_ڰ|f2;rH?Nqas 2:`SM&Nq\Mǁ=s+M&c"7t^HVvevvQypGdyM]'uV)\(JM2xܖ#0jiڔ/l`l  u= _t,j8vⴧ_[ 'FP6 [ͩڮy.vNLRfSY NhQNrw=N>k/ג8kȠūW{_J ?4:?x"3Zi Z9Žq=:.rgYܹ6}TS^jߕI/xxoJ6;OvAڂL=zc'C}?ueX̒^#[n7x[i0:wKP1k)GMi D~dZN|Y"^3趭jgxھvѶgּ^cTT6U x\uVʽIǫ|~V5/fJwӂ=C]5p3lA8vqVD 'GIymc?1#u]sX^1:Dڕ]{o3ʪbps\m=>=}=+m_1cf<.;^m~fw}<M;(@QEQEuEkVO?UBi% Bഋw gjoY}o-wӊ59P?[6X?5Ì14[?yynxt54fTm/#4ӘPmּdžu tQpbs: w'f?!Pi\j%V nB88*<ԯN]ݺ:] bWG*H zV<c8>֭KXGXKLT = v8Q}O]2 {Ho,LO^eI53CWEi2߽?f󇖧3ɴ/bV)[Cs*ۓqet!snBנj$yҽ? FKO5sd.-k\d q;ֲա&|Ȝ]@*y?Z䅼$0Ctv28~&ҮYRe-8 ?/[+ HX 6Ѵv"&-Цx?Ҳt$5Ir|ڒh:6rO-ipzsRj=I/BŸRFiiɁ\41<]F6)gTnrI)=<9~8n/ 跲᧴ [{젯Bd<߿0ӌS_dKOS63,e' )J%}9.TA©>Y{t'uΞۂ@voZ<9s{gm/jtbԑ/.4kIR ŬMpr#x Zz#G#g) 䂃9]~ZkrZF7G فJm:Inn}RcmAIzV>\/[-wXgK8x=A{J%+Gr-- 2ҒILҟOƲBRDpYX ZMk1ROW6K}^/|Lx?ć)5;QS^[2wG$Ji$@#ާ ׯb๖݌plIv1ny6ZkEyu?jbKu݆'@9"KkeƜrrO|֬K-0Q'5jWI\LP1ރt02 ǟJ/!!T@EfHW*1U5ķR53‚p+zt&}/KYbƣ#<P^l>։A#K8C-bGvX}R8M3>X2$)eBL8&!8_!i;Uy.xd?HBzIթ;] %q wEnH**.i2Xgg^B5緇XZZ[F:UKkH Jb>=qt.9]6'ӮV5.76d.)n2I+_^[hf.#]@le.:E䪚=oW۹)czch:Kqy y4Q0 =+5kh&8ԣ7pOa{(/ˬ b=FszO xnMVnu)W$y`(@FIA8Ε׷ tijm̅cۭUt|<$1q=+s{Q+ bykkHDy8,OL˜BÊpFA4Pnmv[VK)$ý} }8F<5k ݦƣq*AlHܩ;#FsZ1xtGqoZl3G#jrU<6* 5eSXYmKOKJo!xbc$mw-{,ٱ,#}۠'K:cH]6_8>ƽl6OB.n[hsKVrZ~gVO?UխY>,WY[W!Qկ/+99A1ar#^^'Ǎ:Xoc^^2>gϿsK 5N:4$g֣I#rSsX:yq#_?`w X ,3:1yw%7Q;5pZ8s\مp՜rqT&KsVb1 U)ފА#IEW{ QH?9eT*c#:8U0+i6ކ wڹÖ:ًNݲ,1O~=kn5\VUerxՕ&%t]q\k:2+A}-"!7 x<޴[8 S4ꑦybOڤ>ZqS:ms_b/OZRU} q]IJ"K gkSۨv36X(*EaҪ ٕٿfoL3jWN)r \dPyJf,[;-L̪vFr0d?sҙ{ 5s~ 2!1[{7ʐW8d4O5&[jQZHFP8##"RwV.X 2qK J'k)6LoFMPeۿ5*;l>V.q4."xiexH(0ÓǶk$zݍ? <%̅ l8ֳ4 ]dqn=}iu 1ےG?eZm-Vڈiv?g,.j6px\ʹr0X[vWC!Տ=:vFUhmnZ Ko&x_>2NcS#=\W` FEJR}RVVBlܜ=V0$jVI u<^qp3&.iKG0%i(Ȉ2AQ$11Q3IvA'Z.{F\bޗgD -w:;\a%žɧ؄21bCdAYqs }OםZ#Z[C-S!R{uS͵dJ۾mAowg!Y6;wqڽ 5zt; EWrc7q-kܕz V>U[RFfr#msur%2ٳE``!O]m_őC Z+J(T޸˷EUv^@+.jUzt+K%:|`cR5m\tz_Y>ns0ׯZ ֕V ?Հ:s_g:PJ+ElFNGʭMYpY\m@EyGk.WTn|I*Dcy\Ag&?PNJY߿T}-Y>,WY[VdE]ggm_$}~]]ZgҾKs/ULiw?k+5tƓ{=Mz{9k%? (C ( ( ( ("ren6+X6qHR06F:j+'ş*??j֬ȫ׌-缒3@O)qkXwC@Pi f).6D2UrE8d:Tq^Q1Lͮ5jx*,qg>䒹zYdGz61j\R}YҙjLx -ǘ\z8xq#8 ZNN\&!aakKAS|Cs M(. ݎic=.GC*GrTFiӑzѩLbb9+:\&g PXF2Xd:NQݣw^!.k%E;Bzn~[Ce%l 98,0A15zc_\^=PA;* &f|ON\# .ﯧSxH C**_.@A`C[?Ú%t$VYYF2:JYfG4TE0 \ƷxAGLzW*5i!wp ڕȇiK'q7nG5fջri$`Np[95n#Wh@\O\XxUB! F_Z-}`!b,X2Y1 >q֪]ġt/~q+Vz]l$;Fq/]]/|~n2k&qt>^?dM=UYڗrPČFr:y>N8IGfI^TPщCMϙ-w)k&m-F,U$HgI :Ak'2t**t]Ծn6McA4vms׽fxoƶq8#FJA=qޯe ڰTbWk/?ǯ5{6< 4r̖ycA$rMfrϳ?/'捡98U?Fz],֒,RgkQX4vGkM [-/T>)pARXq;E0\ 9fg޼֍g忞;uF9AJrM^WP@A5jI:<M5ȹ۹݁5-m?Qӯ^.FIʍmqڭ/k#j2\ܸ]+o2q23ƻ ]/mLR^쒏̋HVSLyWWkǻtӟ C#Lr;dc#=+q?P ۻ<$AeL)% IdJ{';==|DV4M.-N6Y^FI0c+J $ ?8 TY NGԝ+bӸm4؋"PO-YZm|Ң6Y7'ʎ6ՕJЗ?.jB,WY[VdE]ggm_z(gg=9ϫ2u#Fy?^^i&4MCvA5Ce,WY[P-B4#^n%圎y^jbnzR۳&y4+ʊ)Ķ94*hn=ZP"< Hy$Y1QRV;ż);3&L >(>\3 եzQ)$'Q" V!*UE^f8^sX+Υ-76sY0N`A lh-]V0L!nH$=3 bskmjVF)J@ s ޾c=ˣ >QˣGIgoވ3"*2x<櫔XDn)<4`_\DV8T6` es]w6ƕտQ<+ W +ٻY)ڧJѡ`ҵ؈yb`RLٰemW,IcdorHv}4$8TBDvsk21o;!o)5iW<7sfh<^ kveXF{\4[9 (A8ڜ5"3swav}<-FԤ.漎)o/dƀ{*L< y5fG}hoc%I88+g}GQL.@Q}VOR__#Y?ݮ77*ԚH9 sִa8.q_{NghHj:xJYҜfՠ nĻU6p@U8Q!,@^TkU_-+߯_z ܱ0ޢ$a߅VIdik{#ĜY&Z fB6<{kŌH_g#Ľ"S*ִԆKsW ù^<=WbmV-&iv,y̖KOkL,Rd\~Tů,WY[VdE]ggm@7RFG:XYX $䅰-/-B ȯ}g:n*˭JY x@o󭸵J6>fbOVw@7Vc鶹VeiT|q|MlyWQ-܌ N3i!xB?AhbRvbnVRj{URX3cHeu< -cDm㊕ v LSg(na*ob쳜OTMܞf Tuf2Q*n0=AlJ9&GXa [Gf|ͥe6;uծt9էZ.r&LG0Wn eH1A wW1B 2< 9rM|e{Vn.=.A% 9VS{ՖRf*+m=67F69kfUNzgԷDel{{ ^xZOUaJQmösJ4V%On=h?36hXjtA"xoˏ\G3r5?ﴘ<±dڼ'=T㶟ŷǩ,Z|w\t*F1KK?P._UNe#qלuomA lq(U9z;e8ioTbKW/-Hm 2}40x"!$rǩ2Ozt=&J\(S`'R2f$Y]czq^rM̏zT0sg5^vH$Q'WbTxG78{S&qe ½XgL[$bo>C$+GU0Zٌc.l(NIIkRImep9r]136cڳBMCEPOOoj<9IXlj`Ӯ O&[Xmw>?zΘ1Քe'd&0 kN ZOhX- `W[Is1 [].qc=9^:6pvG?e^x?}ٯ饌ާ eb^T8Naӭu \qת (x5^嶌E,JJجB4c aE >Nӂ<|iM"}FRɍ`fx}{Se%'sZ5q!N>ٮ{óIg$G,ӽ'r)nyK-sS.1lY ;yE{yCi"Ws%T⾇N9#zG-j~o^jq[cc=9=k[&ybSpGҲ/纛dQ\ОԿۏ8\^Fc=3Xו8SdҌd~ȫ׌-Z|Y"^3趯=2GVvoʍyK$LxwT?/k[o@5d.#QE8QEQEQEQEQEVO?UխY>,WY[PHo_re8S,^*8]ywP)x<OrwZZ/PLɊ7ϒP2" 2^HǗÂNb?A bE5{nW)-uX,cin$Y@:\d6H4K'ݴJ1>* 4ms[P}f2;go*waϋf㸵m@T!g(Rq{zҊ%Co(*֧;  TfiYʎ+ܺZ=O%kpQ>^jomc- ̿6185jL](=wg݋F9EXc6;=2KO5K9 d#8zxŅı}r5U9bP'8>;-,V6O^N-U`{ QN-U|?1%->fd7[̘NÞ=9BAuH5}%-&h@wE sׯ!ӊ ڣXV$dbedw\!|NMS}蟯ueX5Q~Io9BG~gр@0cy~׌ֈleק2gh$>eH_?U9uF{6ւXJr&F d',=Uןnp.LSlƷY!KX&0wm,w'$Cwy=Ԧ0 N=oQMO66-y% ZzwtRBɀu&OeKx]w#LuzCyx% 7t#=rW!k$t]hy?-une^]?>c>0񯩧.ozKSM]QY!HZZa"/vg Q ү,WY[P,eN"ӀsV-G䬎>^]*I+M>鶬hC&9xҭm l:<2kYM*;dbnqՌl; WA=9/,n ְ%Vb3ڲSl5l` jhVK8t)lo"Oz`npilXd?L2B֦E 3G[ : ˝+t$@YIQJm`5f2d#V0I~J pI %vs_kjJ޿Imƥ'x=-H`ٙۗ|V!qu[FVVEʣ{UiT9# h~TPOnsPhSE>K 9sjAT+`BG·al{madC} |BqSLʹT=xkUK1v RL{\MlZww=K栚8:Vnk%KZ$ |MYnpg58>2ҪkR884okH{'hskWyN]-ڶꄇ-s׶3gID[z!\4wcdiPIc>5>ڢ%vCL)ӌMi{nIO)W ۑ`yzS=%ۻ$vh˙W ҃q-jII9T#yY(%Mu1 &5"5u8x-ecnFH#.nO~%/m&\zZƿ8򯣞'xF ?)($#Ї/-"Q:xT8˱ndonQc MK}R`"Fp5E# vA}&m&ҾjK+.;/ZI+^Oq}{R2E3=Z4sF@=? '}XƦ,.dgR(. 39U ϯ~׳̔h{4Ca֮zػ È`n8ETIeU[-\JBe7g罙5{7W[!*O \oڮ. eI=q=j$r+┴{wZ[ژU9PMJlyA<`jH eN:/}Q馗/@bBQdYӽtZULFBkVHH*pke'*2O>ȫ׌-Z|Y"^3趯=Rњfh|<jP)sU9[70j_V/Sy+# zMs&gx n|?CKiu$+}OZfDdObPr;f+F((676Q. xDQ͗0(YaC$𴍏:,c~pF8ByG5Z- R,lQG,U}FI#օ=( }ҶHi2p 8TV͝3+Un-~:ޣ8Q常H.ê4UO` zmז W2D!\glǁ3Z|Y"^3趭jO ã̎ 84Hrc'=jL `:{UgP 7J6wd+5n4!TzUBƯIRlr\Rj4iWK29cN󾤵.:U$搶SRlpphl'PMJ*j*x\mhMjzDgKZ$ڭĬzV-=yf2@m~]x*+GFUQj7/4Z<ѭ;'Rvֹ{UM}@?Oz¤e(]ȞԒi[f)מj IapфwdA⦾a|r0??@N4(b2:WJVw+Xۣ$#J *;Ҥx-CWdqlD,B='&]4 kb`w*23VmJK{kidHPrA\c_jʳZYCo-1g<`z}kׅ('f֗EZqז3[NUy%YNjOl1Ƥzu-N6E>C c]f!d]*aAQAu5\;mZpb!?: icxP GHxհ09/j+|3vdUpsdLݴֿ&FT2[HMJ a@3SĘ\U@;S'$Tn2蕏sU`\zītXB簧NaOz;$SьVv1Nsz6X8:ۻ`X@۾ _nH.w.b  =Ȯe-{2ܮ| ޞ|]&xӮȡ2wsqpnmYY^8 w9\IrԶPDf VHݜE#ozm13Z:=Hg㧵Q{R:ѯNn-4q׳0:4񺥵d`.F c5(C)FnƝo#pJ MJ6jib$ppÁYK!Qaw=/w.6Z|.wMΑZ*ʬֻwH{䶣#'N?!q{%cQtyIJ.Dw!1EKXbim%܌k&$v]$;)eAw{ mي  <.$~L[BrLq N{+NmJiW`aX-`i$RE_eEޙ{+Ii" Dr3q_xzޫGÙM֩]KPK-dY:W?_ӵl<7o'Ovi.zYҼIoYKu kt2pO@ꗥmf8iD{ܬ={=UEM7멤$9]9_vPΓFX '{p5-7t{kyM/GI`pw0'O$g;曤kWh3dO9\)j:?g.˷y<֞3 o_<54WB(v8sZ@\# PSiZ~(&JuO$r{gS_Iemhע aDcMqaI#wp%gx6r(ynsR /gR8YXһwn.b srCC.evnJw0ڻ)fov]e.Zz fn#뎵JYb`ȧnwdP 99V eSWz3J^gyܚBNkRJ`T1H,\Z#˹*3϶rXz Ŀ 8YT[rxejԥCSg}yNS%ngn}Y>,WY[VdE]ggm_{<њfhxjQ{TI]q>#?Oj/k,ybK.h(;Š((nݡTn)Z6H#?Қ8OChOW1n̆QGwשvc<˻*|LZ-ڠfџɐʺrXv뎾-cz((|Y"^3趭jgxڀ<HtD7zghлwʊڄ fFr1tf,rrO֣0Fz޲Oݝ4 0,oJ2E\8梛is V)H#-l@b*hf| GLx;UEh>D6#%c/]B\ ꝧcC  }g#qϥy\Y;TW1B z ;iX / c=(QJ@"OOCRF5=YAيԘ4mH\[ϥg)65]4~.UuG1UPJOwb&eJӃT,/"5Fb{wjk6-iA2z:֔=Z)E]"MKNI 'B ѓ=01'(c V2N1>O?gܡC] ӡUwgVN;2fP1Y\#ڽ֭ Nz$%R:U49}}Fy@q׋Nk۹PE O=VvK380+*&-Is{^`ng Giix4R03M8'ObV-]$a޾:ҽw"Y3r͎RA? #8AG,s3ƂB.u浄{(|O8Q-$dd?@s{5[W#5;ssnք\D@p=Uc]ƭ$_gl *zt5;V Oٳqj=0Fqy8⧳mk10(sag*s=쾰/gwwF)CS[(r]+Wm6VV_:PVXn 0F1wG-_xU#@b=s si3я|7^M 0e+.~gBWL~Ur>26nPg׷V|mvCiJ?|hZ_8ԴϳJ6?"!AO_VEl[ p"]1OZ.|Gu/u!܍ƛZܵTUl O;$FXKKy6,@:Ʒ4Iۅ9w*IlI dǦ(Ie-|goU=EL;ZuVRUN}s^J%G!Jމ6 ̥;wT=g5wPWIk˫Lf`8dqEpb3:Tk7uةxF+;=F}.Td,eHTt uK=_LvǨn rmFzy_,[-+k緹0jl)fZlwwRo),kFO?(~gjw?=xNQv0u KE/-#eK;AN>9 {KQӳ`֝=ۈ jb9^j~|ջ۷ sRRV~_NI`g !d`NY7Z2΄Ԯ馒id0>V퍱#vŋ Wr"EusIn.H4]YJ}IJ2V8VNOamKAK{ K;gf:)Zi8c)7mW{EdE]ggmZՓuE|fnh34fG{RSzKk ^ǔrsB^QEgQEQEQEQEQEuEkVO?U]b~gswYMx'd"6MA-Gݷtrn9yLPDtpIsU.=s]އ)iD@I=qQ(&)IkHA]JF[gxw4+CTg  Ԛ%;hsP8>K6-X-O@$}+3 X+{>YXŠ9roEA=o[k3I Ԣ%BKyp *sOi=}c.ZBYN;?,w5m_ZkXagC<<?=kN2/:۹ciwo$Jϭ--Csη]%K~F#i ˁ!݀πM}L:sv<*59aMjUM8]Ɇk^ݷF7c;IaksBHp!t5[O􋆂E3 A,WY[W}ɏ3Ld~wJ^ ?!Կ_Q{B-r^G9sS+h^kR(e*$sͿ-uIy*n~lÎ ޺zɻƨu+iB #XYUsdAXu=.a-Ē+z6|-&vkB2(F`P# dּ _xW˖DqKo4G-ٗʎFgg'exzkuM%R'Y$,B Œ9 +LРnUaĭg; X`sZNڡy|Etxı:SX:!6e`Gw`OjW+ig + '皜\29sҫ@G6Bw˟º2eM d:{bT8=Fc{4aKM;\\Bʀϭ<)^Ү[ 8JsJ:Ԫ] խM6,@jpv皱'y8*STr19=I?Z8j۸ $$cJPXiv!U>k--V0`zUk5ɉYppy q{qv p*+޵DR[D5*J]$]`O jχ%h7NrKԂ2}Fq|=+*H^ض5ɒM'Y̎MG8>э|ooi}? *b%M5Wl ְC{ol!y1#,p;Ws;xb)S q~-좒St#PQSQ̪u_̢ciLwct7MxBH9ܹ:n){'V1L8á#l(>n`䌜{k5GvtJ:\ et Xubu$gvzg?5SOvoݦ@`p}?Y7HNڪf+H\Z?gv˕a8of淞II!g1zcH<6JG玄wAԡ_ܐK&I )Ӟ&xJ^έ烈dbpÒN;I4 gyA ^0Ųrk.k'0=ў!}ҷW8u[Et6J kq[ 0IlO 6@WJ*Wl95J^FNqМ9VBha+! hEY"a.!ld]~F}q_Cq{uϕ/gY܋Q_-(N_sB.r1G}̐7gzAT ={-sowu,\͏_STK+^)KZFFN}x*4벭& 4ILքCk'ş*??j֬ȫ׌-只9J7*z7׿~mE>t=GzZ-q˴ M7$}NBJ~ ( ( ( ( ( ( gxڵ'ş*??j_g;Ə$r1ִ -7gҳNkpP)rywIF/a8u%>xQҩV)HHiR% dTcM5bo@cګje~L32Քb x5QV::h,rQEpcxPЌԩ:.qn2vcNU=%>RvkvG'!Dkix͑;s(/%}劀F?0xV꺻=~O5m'VSF7CVqPEW\6I,ST{mS߆{ϮGBG3k7ْSp`DX?1 )okAPJ[1ehT O,ysC#n$eYcTgZ_Xv_ Mw`'Kcd2ϯڱ$ԊpzCm%B X&eHT㞼t8ڲ{:L'/C)A=+88OCTylG.`d8,qdʺV&śE ոz j82i2lps+9rSy3R[2b1=jѮXs8]H^Q7tt)4`vBNde.^BwVd.pSt9]Tb{#WI?t,{&+Lj ̸*2F9 W .sZ6W/i2s࣊sΛEV;4mTӮdD<یiFڝ'A5iG.β\tVoI HUUpLE矻6YG:`W>,Ž}M^ #`n8䧻<\eY%ݨs;yWMW\}m#e]&H2)'8cI3,\c\{_>bn+1a3ҷmQV+sR K>D#@RWjTd9)P#HYA,rՓur3lTw*bI5M:JV斬 \f2wgQG'3ʦ 9]2ӡ};{Ջrx?ΨZ?[hR/|cҼCPgUM4cGn}{f=?$#7GPO5þ8ѳɿyjW; H=׷0H3T⪘6fnMN's\YvքKm#UWTW^CaN6E-*{ؤ# @5Y(mZǫTB6K"Bn"G$FyS9 3ʋqOnڽ:$ӶոkֶP,$THCzC+*L%-QϟԚ^cO!B:wu./SDvj& icdw,ja nL:c{dVWQc >ǿ3n?زfj0XH=\?λ?vs)UMjV7p0G8 "ȕqZ{[KO12 >bppx+ѼOi 9xJ$dgm:MzTSKfnRRwf:دhS!X(SeUe̵!ErAmI9Y1Jzv9&LjAv>-;}ZӅnҹEpV0j0>n=±>O5z%bO9K ,^sqBP2Oofr<żI @ #F(}+$]֧m){RxU8*[oGV$s(,'#bXyfQ]GGR(s2 X#i#E{4rPS^ԯUc!=(jSm5k7rt+enM9XU'n榢NGF&Z,OCj;`IzϷKrx5i:t!C@=3OT ި)ʺfV|R2{~z7ADTC dgY70bN1zǏ:ӯ+he\_Fݗ*k6[If';Z7up8VԭB$F=k8W̓59edq^x[U"VR-[9МTLӾ>{ַ$Ѹ:ζ"eZ/N' p:ѹ?*^Y=3|{s1"kZvg)]q\}h[h{dVrcXv|5 R}R@@;)9銿<֕/֭NI(b< 4ƀsZiHs⺣WC5fm,9*)#'59LjsxFcE@gVtxRDkCsLXXkPNqOKQ@WKon3#H>t;Gi-,8FG<O4j1a]B\&c*ekIQIҭmh.QE,z|t<Ѫ4R (P֬z&3o|u5RMgvT $+0xaqMߙ-)bhi=Jl2$`zTaHZqR)F}$yФo䶈hOZ.l=kWuHO yd1nnLB0qy ^'wzt%BHwБiX&&Aǻr:=γ=z=i%٤]OQ/m_wFSZZgxڵ'ş*??j=c<<ʫFM}!>t˱L_A5]FgoGfӏ{y\m zRKm- ksq:Afcڬ%h\[G)+:P}#?S^]㕭JMn#h2J.}zƻoo}HI:w'# nh]Q)´\Sȃ,`O՛%ec4eV9SUW-ٽ*6V5]:d"{ myspNF0~ sXjMwS*j:ys ˍr{}u?a'_B0T1 rcgQg-D@\R@~X.mM,׀4xyM$ko2S<! 1>GP Sj]A:ʒ9 =I'8(}?_>RNQʋ#E%@k2Nҵ87$rqګ 7YײC*U3m}gd" 9YF,BːsGOF^q~ߑWr3k9u࿜<ک!zx^OV ~Ei$I6mP9ĸ?8hϋo+ɫ>F[)|yl6Cl884; V1?6Jg6 jrj.<ɞ,H:tkes+g]^)5gV| SOCN2yQcb]0H#?~ g\e{Hѷ޴ <XpL#<ְJ:{܂U%Ҷ1uz۸mY6 wkԕ'q*c+#K 1g=434t?ɭuK#Fy#YWVpѡxkOsY0dW6UsL2kbD.ҳ\(:!=kvkcIRv3Jжl?R]S]X)tb&xJ9kUTJP0PsO+iR:h_ML%b Rҝ;rJebsҥ3YsT f@?cȺSI3gPO0' !v⩬sIswkҙHLi" ;lzwb۲yϱnmA>Njv9c\@QZMMlsԄK5~׷֮G or2kQw{ӧw#2 tHs?jvx6`HnvUR1pz?8^ (PG>sx8)Ac:ԾASTFV WֻNXs{NӃ_)­YSi^(>JIZPӚuvv6uNK)ozi];? ?Zȳ. }qZPGgLOlRMx'ҹbRsvHcqUn+ͺ˳|8e=5籥<5z)LS.~b:̤T}keIj{q&q'?Zdӕ7zz|eճڋ̇Vnb\4_qgj`mYT ogmM(_Rۋ 2>SpF?JɚDPZWBfgC*'1U* \9PO5[NJE$o4>*W8-{u+;HON# Ry5q!ꤏƭ۔ J@IyPB p+)(£r1Cv;EۜgUwM )vfݘEkA\ p1וZ?hV8Wv/~2Gc;v&qnp;оggm5qn?|;0:ZBCռ?aۼ>= pUwreoUzvA, 1q?JkNY{EoI&[0Ʃk .![RjNT讎j7,>i:>JI €~lLu q?xs99v?1Ӟ(VUAoNFDj]Y͸Fl$R[ȸy&Ue?ַOaңmZx:sBimbYOe R%('PG dꜷW=ɫ a?gLhXkha6OKFC&9G*GS +F)hi'郒͠>#$`jCfSMaKh\2l߶kVV?,ulMHrTNnN =:{OR63EnSێ\ @ {U;oד[ QZzn}SAufߕ';{ WOߡ(zJdYIp:NG[t]v(N2)ǟүGf\*I"g]݊ufI 5Yl$f+ O"JUc$瓚0Wl /zSNDf=LR43[&ͣ8"{V=RBtasVяAGESq#5%1ڒ)ZЩ (lsZQ̲OJwǖ1e:8>j&YFr3\sJH\UIo$P}Ml[ ^ ۻ>VRFJ$s9VBYHEUOI`{&Hv{Uҭf]˰IqT tSpOYt~Xu9=COۧ1ꐹuMj=!9+>ǸVO?UխY>,WY[W[oU_3G'k7Oʾ$OkjنVL((((((ȫ׌-Z|Y"^3趠ʅݣq=jYl0J{2N3V͋[IϮ+ߥ*UPϊ*v\Ry#$Eg?Ҫ W;sQȄ0#?JhVĜw5Ұ:c{4RdP bCIh01?8DoZƉ!=xO`n{T Wn7x#k $ TRl<*qr?J U?4$#Gȭ-e8; jAh\F;5ջwURQHebvFA.p:iCʓU1q~̜K%fmJ#_w9C]dќ~'*¾^iJJQo}36i: WC&,jvItP6d +ܧV7!>Cwgiv3Zɏ@*60*N;(H՚H,wGEJOd$.ö'SrWܥZ,Mt VK p3rH;)%T`9=1N+gm~&)- *E溸u+H—omPp0I߭;ՙl#W.&§g4Ʈ? oHm8X3~kpEڴ;dfYy 7NKcRH5 Esf<2sq1S MkSѹ4;s腖!6?) I]> Ž)? Hb޽9ֽƄb|Ý_˜楊W}()8 o[.vcMo(|Ӟ;z^n+% _6OݎutĪy'GըgzXcIZћ@x95uԫ+]#*thR=*jt ǏRy?SYVd8?AވζtwakAT{KV`'ڥHmEi*Y&s&]u<:l& zμZ:tT =}Y-j<n3,x!64mtہcQ`Hǿ֔šiG[!·tr֕z^i2fR!U?kdrC|g=qFV'ҳV2dl uh>pV;}Fg( ųyڮIѾf?\LsGں6|9KlNܕoU̓ީ)L_y6bjv(eq$ OAm!Mڭ 5Vק-MY,uר犯%H_¡v:ד.*s` 5j'*-}}WO7'dlm5K(y6r.sTo&M&2+A <~S]4GcQ']r }K{^6ytWM ٯ>hFmRȫ׌-Z|Y"^3趯C77fh~̎+|t$o鯡~ѯ7Mf[?wGٚTs̶ ߂$fTu+tϷZYؤ.hgȬ z}_>s!dyimf$F ڎݸ+ ޤa|WaMQE((+'ş*??j֬ȫ׌-?}%XU(eW nU=?JCQnd:T0wb ?yʏC`TE<rǁ)鬤s&z|KɼSb> / 6  Htl(K*Ao rH 5;@eM6eLrH?nW_Vڜ?/'E<nmIvGgbIXX #i!;%el,Ws$9ܜuϧ=HҜ0ک+ɩXuwSpvU,IFgJl?&rDyõ\{E0 #@{UʤFgFvhhU@ qX77hP+fkZKD/ j!N1KV8Ku{iU iVn&`CO"zl/#ްm3i %9=z'8%_NkԕJVJI/_8FU%v-7ɐKzfԮdSE;V598Gכ@H]׈wcXnm}G `A*cm\_K; (bHT:( ̓Ofu&e=*J+$_r~s$j#~QӞkZi#EfPA>[ߙ ֌ַ4ngĻmr5bqAqܺETDxt/f4 YCJ%&fxGZ<Ϊ$z*Qv2t[,0gJ@6g.ױ 8&c,%,[)q&ֹC{Q=eKa$l];3~D7^tƏ*;CZŷryCUQZ*d&&{jMߞ&RKBKSJ bM7jO3Q JDsoz7Eic([%NTl&ᙆZHQsI 6皙$ o\Y5}dM&I 0Mgci服$cӥC2H/0YČ6N2:|qq*nG̥d^]@jMǖFy=4wo[ˋ8{?^EK}Ԑ;ڴKw1uW =w;ZjHTx0˜7~CCkѻps'ȥOʤ@=*U)F 'KkT7AHEU*SIU?q-m|Sȫ׌-Z|Y"^3趯xFi5HvC_NW2o3^=mO`:eL l׮F9z 3j }$$&JA"{HHbN|*  H5~ak I$X'8\ EQEQEQEVO?UխY>,WY[PrnxA}/q(cwE|sǥ;/6P~Fƭ/}*T$SF?ϭȖOs&A\nǛ(1TJj*FδI3w#W85~Jbs?Ʋs솲ӌiN`єfoC6h.M3?R}: _/7ԥٗ?SnG*>ץAyM%sUk֏ʡq=M!Tch!<5NQ( Q}SDўX~g4ϥGs_-tk{{VcHnGorがz~񊁯~pM'Ma5Xd).**ZC!#cJѤ,P敷7R#xlwµǙ  ځ*})LrxҴL6aejR>a2#rݫ`ҚBt~UJ~E{FQ,#W5:4'j~E{id1 zhE|CcG+dr8yrO,wڃKP1lV;Қ!=}JB܊F$V)<^#L9BK5<{^Y/Yo.e51I7djgKn`qڕ))zO*oC'ş*??j֬ȫ׌-O4f4fǜ9ky}+Gy4EWhQEQEQEQEQEɢx)dE*!;}ƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEr,">"k;dC#FOkKoGbʲS*Ur9>2 $G#4+ZcA&h??j('oG1MHµ F4i Qƃ@M7# ֢2 $YtHUMOU@y9@G#FΊnBFJpH@h??oGEd1MHF4i Vƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEr'iafGKTHBAcA&isL$R)WG S'oG1MHµ F4i Qƃ@M7# ֢2 $G#4+ZcA&h??j('oG1MHµ_'ޓ,>$Yj( $Z_h??8b(Qc5 @; }d1MHF4i Vƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEd1MH³|=k Z]OvJ Z8S"8TH$OԒI4ƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEd1MHF4i Vƃ@M7# ? $ZP/o#%eCj1~B $Zb(ĭ(EgH 'oG1MHµ F4i Qƃ@M7# ֢2 $G#4+ZcA&h??j('oGqx!&fAj$<1dfa3*QLU@>ƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEɢx)dE*!;}ƃ@M7# ? $ZPO#4+Z((((((((((jwZN=͝8 "2Kr='ۨe NpF88?ef{ZI&눝'ypXcb o[S$VȼBBnqzzW_LѬa`Lm <*]_O[ba<32Ky.4;ǽ(Cs35Z0(Nr1tTQE!Q@Q@Q@u+mKkWF'Ԓx=+=cQVmc7Nң4j@ ,cY'͸@vaMQZyehmdY]6WB J]??!ķs}(8,R%+gR7sۊуa\ZXKE=Xis )ׂyTͅṆ/&Ȓg,FA<)0+yƇxtnfwcF iF2x4/0gEEPEPEPEPX?->$g#t7~OsY.myc;fB1Ҁ1-V(MŌ!ScH$^@9ⴴ׽R9"uh}iASpG cb!UxkKGKu?Đ.wd,xM=QE ( ( (2/K}kOVI.gf@9#^Pd bw7gzUFK6dd k9 n{R]2[x{{f`Җ 0ɷN: 7w6kH\Ԇ+HbCMOkkc)+0 m;QFQ?gXW;"G; 6K tOۜpq΋ c ė1B!Ç}݂6Ӟ9: -> stream x흋UuNXB"JIڙLTOg&23ɦClqHØ,9{=нF߳^{][D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D-&D/Fm,SVߏhpm$;E 7+;Bnߘ> VL1ܺ|oo%676V#U: 6s_߈sK*2ׇ,T/oߘt{˯tp EU |BnJڀQ0_E vksSRYVRexۙ]/ U(+Y^5vα*E\ΩYQ8$1қTB|ͮ/3I&SӘ[}x8Ob6916V Jb-^ksNJ];sQ5-v0'1OIhֹ6kKx|شq*f.Y/x?sZ5|o+.M|}(ѺsNwN67W p[m"gRfDu?ULy|xIm1|xmīnu⒬-YQ򇼜3^BZP]-cz5_G|?W^S(67 *qsy߻w]{/-_6_bLQ[r?mŷ+KS~n_]u{}-{h坰 dzDL.߂*enߓcӺ>x Wm?w&|KBk*<|GZD_}3_޽/.g]z䞿߉jkUz|K\eY(}T#A##zQڠF|q#z8ӯS|5^E֋N;8([ StxrS}(ki⹁_3hڅރ7keL_}k+'/TGx};o-!}{"6 1YzWWW0Z %_ÇGӧ|{'<໺j 4Єۏx|}mow4ʏh^C޽{[ի-XaܳKr\mS:+|C\oӬi4R.eb1^A[Dt,]O#i}|A=!X>j&U5 &x֭WW?Ժoݺ~B75/U]qWh XTo(4whp'b]|Akא댗hS|xU1* pdeQn f i_ܬC(kX"k@s ^Z!\`߃  1^ׄ)׳u˗[荪8|Dѣ"{mBW ޫWqU~-ʰFx<[^(nWs#mw oq/-_e\KW ./3+ī-*C8n_wbﯶ?@2R^ K/֋KHY e8yסE^4Wlʄw[W۝oUX p})Ee,TqKK%Xl-;fa}ň 0BٴZ잝Fe6[90KP,#C(U:t9eW?`a<wF) ?*\˘--m[[ Ef?d@^d2S%D=<> nQ uz4,+XH]ޞ|:"ٚb;o,"piK ׀ΡrϞM 8,=N{}ܳ)X[\.kS-3r ,(e PFJ5 Dynaa\ydwXXgGˠzX\@J߽uK7>ī.z|oV`߈߼bT |*L&;77|qwEXX@% ,&D7CN^.-P>ЬXs`JhqLjcf5*KjYl&8Gx:7gNk^]o:@)uuYZX+8Ћ _Es:uj_}Cy#% u88T&j@j$spIܜӧN1GXX@iWZ?'!'^R}4D`=Y}ڀOŠ&㛦-X³d睩A…ѮO̘ͮ .{ 'KLmy } N΁K`ڍo JkA.QC5fr* 33c jռ~v֝6xїs Лdi =n"3:eL)Ϯۉ*[o!BK,Y^ 'b@0YWtSS4/!Y▯Yq?ZW9 ZՀ5Y<3÷'^BsKMiSS0ۇo*%Bвs=<=M̥.pj?~|fFiP8&4_0XKw S8х&&ccc÷niPp*6!x)jbbYM+EL`A.Iw`{P.<= ip6ċ?Çq4_9G3j ʙ\41y೗Ofh~Lce#nǬ5b#hDlj/C@8^ ĚY:'aR7b; $ssDh?P'/$Y.c*&&FGGޱQ;>Nh|0ΐE|3Ek&:>>7:^˲1պɃ͎(2;\R`E⫋HEevꤩ?!q,Q4J;!F}3<9)WnU\=GG Q㞵 p|!܎|T.@ytMnihS OcрbDJccxq͔HTZ o^xc^CLq;e%ZwǷA|R~|pmtzBmrK(sc`(Uc0~t1XlkD\!b|/fҟkG'|ȶ0 NMa E!6sErR C Jbccáp΃G"Xx/v@|]  Vf5L|YlGy Rz+]ܜ 8 Yt!ϔpҨ5Qw$42xZœxpd#0?GCv:͑#@ۏotK6cuq4]nKRTL܈Bw7@]sx T"`*p(̛%?;6_<۱3mFӦsV!FzCVSNLP6Uo?fRۯL<7h?#ÊBa?Cۉ© {տO:cѾ|4S7SnHv `3m]20Ws5X‹1,ޡA,cDk]x%qJex돀|9vE5|y;0^.m]Np IA 9ƒn!ͩSy}GgY`r49No E,g?lZےo@!3Sd:x4yG ;7׎1؅\ Mxv;q&t)CQZ!áZ<Px}vm <]0_hC^힏+K ay Ow& 't ႩSZaX\Dv{{aMOݵՖksBŽK?+tjكx d7ܳc8t ;7aB볞x(;Tp5,CCcX`w^ w9+4ZmP=`4. QlG=1~#͸m|S 9rf97gFUA[4Y,'%/qj6t@IDӳ eI53W^KZk\^vNexۇo];Lc,0Mo盉-N]j xܔ]BjYۻ.Xvvu| oOOq:ᢼ.SXuܭoZOd[7&"^tړGVM0] 3&8bH)Bfw^.]evw^X.㻟"GEe|_8s0FlP0֔Yۻ;KsJ&vGU7 {*Z*.lTwWΝ;_&gUgzM=J3B)VEM嘃?#Vg Tu~DXx4o@S~mP@ɰ,]ԛ ˌ _fc\[ )?x9H'C/.K3Ьu;d~2ëo]nЯ%{\Mlx@x0[=^ q!sScߢ+Z|McjAvĺ)ߙBTxi7V_]}3gL]i.åu?-x_y窻nbQr8P=fs|5a;Fxzx1j5۶v*T;^_i=i'n@mj`6~Kq~ٰ-7o1_h *S&Dgc0L夁s~AGif])WRY8Dm>_|,޿}/영2[aGBQLA74|6kBU<7GH5c &u.n Y)SU8 kr ! xCsv_l k<|8+6C7[E|p/%(051 i 14NMqzajzm!vK]L:{xUH0Qa#YM84ٴ˦ CxR}LXyKڍAov b^!3KSYz%Ɣ3ӐQk*V23է7iFd ܊bmxqRhOAO|xP omxuay^]F-)| ^ |Vܩ#`cR 5^ Rc[ވ3hM|//E'O _N"+m3'G7Ym5߄ :Px cF*IaUquqTk..4@HfH'Hi.{~` m&Jv~Ry> ` r6_SfgaH7~/Ye0#f/}4EX?/-Up!\nHyȚU:_!L 9U%k36־q*;XMl ܤBM<9M\[okiL}U ؠ1_2śQO@`eu|ɵ;3ox& |cuB@x_"xx,^RKW+_DXzyHcdR3?tx˾ *Mlv޴.ռ][/Ѹf[}IaK*"8=āvLZH:(j̕Bo>|/qdr  3ztw]ڹcv mWU}ZYRwqE=xpJﲊDocކk&8|7>l#Z9g ў޷όJŶE">,- E ?U/ɣ8Lw4~j+ɷnw,|M vF>3b}YM;n0׌ia0Mx߫WٟZLƫFK6׉To{9_oJ≞^ l&wF "[uxoLo:L&i3-3@Sjaqr*Ð/P |R2hgZ^Vɦ&va_~4ϣk1.%7Ƌi {iYA۩Ev38oZzr=vyIm+_b t@*nއ!|xv 2 _̈ \ɴV\h. ~&fhy믶Ev|}e.|9&U/?t^ {c<*4!\v/LCCT 'X9̯uˠa~RdySasL%uL7G=:IeѾ|yT>jIs׌*6n1 ZGOk.ZUmW}Kzgo| yƬWF ^Ew?M|X1ÎY׉^瞁|uKj[<6o_{^_%SΛoy??da /qgxeH}mYVrKڿ-Uos^? Т^|i\[x-_Y=/]-~瞵N;E,@*-K]'U-R[4anZh\&pvX7ZX̨i(6~i«]}/ff|joyTmh| ;bY}.xymY&=icq6ٻ!k>튷IF){lGu+OQ@]]oMpox ڎ_ aؤ?N_=~6 񲇶9,0`zm^jjp2 -ܖM-}8K"5dlV/d +$-ЄHI`=_M8 ~h*v'.*tۍo)խE}Un=X z= 1V?(O="bmxbcu$>`(چ=ucFi&u_^F7.&dž0ݕ=:wY'mGޚ a$ѫVǖo $4qd[/q/[}oUhE/P< \uD&x9Cfm%RmKl+bQ, : ք#U^e Cv#᢯QdT~U !cRnRn1xm*˼%<`~ӎ: JGQ'ލo܇=5Alxkx$F p{r EY;gE7ZdXMM5m5+7֎MA7'sI1!vl,Vk]#*GW+fT,#: .0`r)#6"4@R2mmO,\,R}G58e~t0+ן_&R_"m!f"S{_ 1tfLe/Rڤ jbhA.Q6*+^1>?sM bh74xՃ}<%n'ۯRPmzZ$t3S{+Μ"HϣuC7߃x7'˳-T6׋.TrUxhכTʌ_}XRl 5N*C>4]ke/U0KoXoi펷Yz/Iҟ|/8Zpwuբ8~ln ΅DiFNvUr^Ԓ{X?7HδdY7v.'k}.cc_dOYpV:/%}DC Ůci?τ0sȸ#\3}+%FjnwAyŕC#rຘkJ)ޞ,vR ϥGe5>6KM.c?&lJ{)srl+53yirwb{+ż׫Q:vCppKwog']$:(t?e Sً@ sKPhY7m4sSP2Y/hmOe5IƲ"ƛD"q&Tڍh]YJ,% hmo^Wc2._"vav\\{)4 ˨ ^w,/5*/T80 /M'={*u)4d MO?2ǒ^phnʼ\R2En*⃋aOu՛PV# k3[YDʸ+V v|L\HmdN2\DR=^a2Z'}"?J [|ɥ,fjpt\rMI% sMBjܪ|*] a;|nRxqeU+ 5ׂ^x*Z!~UR˷ڒ x/¦ ;*uj6_]V7[)3.ٱjk\e=oعHY;}pf\|u2T\9Zw ? ig\~U! ؔU"O"GQrFs"Y?g; VGsa' ?JIm[ulYUVU%Ua٧Q{1z{f|) />>щU"px;Sa}Fo6Ak'U<]/^>#|M囋8ٳƆ4^ί|vw K*9•tMgw2]|ygo|s@9Zk$NڶUׯ{pW9bqPqOQ 8QXM&9yvغpy#-BȺ˔LKRKl7]hCUKQ-# oj˥ST2M4 X iJy`WmIEIݳRVg=7+l7IEQ΅WsVj4kX:p\؜0={b0UC 8u$u\1|.W ^l*7h74:N~pQ.y\iek <4m< `\z o|_$wR^ Y|# bc)ak?LLq(!nT٢Y+ޘX b*;⦕E i^Sl-?8Q 8p*+hby\mʠ;?߄f  BDn?"_ڜ|C#5J~P5<&T~mY<^eJ:5?}Mkڌ M"VțJ.<^aӾ| Lk~x,'d ,m7勿$—{xcjrz|be3 o;\Q„aZ7JBDm9>~EIw|1ݩu֍ AS0ߓ·3~;FXfT7cix m(?0? ^·lo:B)?$.H$D"H$D"H$D"H$D"H$D"H$zʶZ]m[~;osovuwۻ{={۷}} >|h166~ıcǏOMMOΞ:uٳ-.?+W^~oZYY]曧OhWm$hϪoRfO'ڰWóZ:H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D[endstream endobj 189 0 obj << /Filter /FlateDecode /Length 765 >> stream xUMo@W8K~#zAZ̩p򥠤nZA=݀QNǛV@gxwɥB mݷbxwM#uYU3ʈfWH[6_#hj͢7e5`|j h+o1NTg`З=tT\RxJ'WJeE$m-j\qPy P?.0㶽#$#F^n^^g7}`b{o"˛N5mOyXEd%䬓ʇ`:\;6Eq+!ma0ֶ:6jtb];$YgE{AT1Ez|HO O7աdz66\'x?r?jfɖyy᩼Ӌl>ETE/~[vyQڵendstream endobj 190 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 480 /Subtype /Image /Width 800 /Length 29573 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( )K<:jY$ >A7֢X_[]yxL9px*@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@>,WY[Wmygxڼ+msv~|Yv^^m|bYr^ZQËV%QEYQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEdE]ggm^!ş*??j]ˉvd~sbYr^^sbXvZjڗ3 +C((((((((((((((Ky<ۛh-222R~vɚ$Z[91)PI }+Ee}Ng}iIeu j8 HȫjQEQEQEQEQEQEQEdE]ggm^3ş*??jZŻX\_|SR1w;-z%yc9kЫf?u=( ( ( ( ( ( ( ( ( ( ( ( +2mrJZG=-cUi#VJӎFYW|MqmGЭ38 =0cn/^i ohy 댞ʨi^|v*#tRБA8&Ŗgc)٧+ΚVMvr[nFvz8&9o>D죌Cx,C c*睵^K(sxأda9GzjrjvԡQ#3GG'DtQ$yjkm#&|#nr.\8'N@*q?ݍ6QR$Y.\N_rN+;=ƽcjK28\?3Gvׇ|;in$91lV0Z-L1K&kW Dd9}@o5VTkwx'PsbRۓ2Vu =$51ܳFʏBxH2㨩>Cnk,[nb\ q"pzqҁVOnoZĤtXaYWخ$q;wO4hjVi;^?`K+*1:dZϵ.<{heprb8< ((((((((((((((((43qF(Oa@Gng-YCC2ࢸ '}?g{`|󑃀bWCqrr۠/3Ur8=cju-bCA#2Cbp3z#+or:wf=Y9c{@?<t^d_j3ۻ3+Z(̾'>r'yNkuqNp2HM}[Zo6TVLhI#vI+)RAӼ{?Q}9|>nt⹢h(Vͣxzfu-2D4s[8Z4h:U r7@~- M+3UQ>vuKEpm#?)8uO-RBj6(rs\u2\L~?-TG\f7B7{Te'RSeAc{mtc&U}3WRZN"ij(QEQEQEdE]ggm^Q׫E]ggm^e~cݹ~gdR~Km2r}^u{tGS%y"YzS뺱a|Yasz]XwzQ<StV/5AhBaIc**U9Rx;GzTl}/bCyy [ukuy$ `aqI֢ QE ,qFQ`(aO=oǖtM}AFnrztF*e%vmFJ妮β:Ɵ7qB@ !G'A^SxVՙ-D`% w'|W4+ۣVV_z ""Ot2jЖ\'ħ1KUr#h+.+=(dXU_1c5;FO`dH}IXW%1Qyv˵|ξ?ڠLlU#Y ɟƸгF@Sڷn#2ZE:N "2:pT8r:ork_=;֞p$O]gaA;G#I dq]yk[{ "@9-mΛm,D\rNu8ۮZ:tS+5*9= p9?;ԙ`.i#܊:s c'mn`Y'x_;d+`:=6v%lf!.q*BUh#a:v.FI8 [[{( H"@983kܢťxĊ&#20A|:' ]F{9B:\CgkNMCQתǕVݞtaWm:\Iwke q3(%YN7=mP%gc' \\]8 H6%I9cZ(QEVvknDQrpy7RHw37s{Vkrh=L^m,uhdeМ8$ǩ==oG^ZIImc>գ V/p7vp`r85j\B[7.u%IQֳk&ў9¢My Z(5QEP+ x2U.G٬ ן?#5ѬŢ>/q V+5|~_xW[D.>qƲu/]ʓfپ;ӯ$N:uM~?1tVXݚF<H:޽KH-u|m#wR;ҼS𦱦$ٳB$D8݁HjZ.Vrmx ^GqzS(;H~Y^׭|Ab.-XIo=@ծWGdQE ֣K"bZ@#|Єr3ݦKG*++ "W*I뱓o嬺]墸 d{@&U鍪0c'V+[:Ó%'{Bs>ȹǸg s:dF\ҵ'N^OUgqt-'hUuSd,X g> օdxyDF"I$S1kZ(((((((Էγ^XϾ- }I9:嵦bףOI) 0~F>]VN傻"smͮ ^ 2څlUÔ#vT<Fp@ܼiFY)Wk~ɭ/68Sm[FYki[)J`;rxSZQ@Q@Q@[NFkUP푟~b-1jA܂"w`>CW%ods_[|$m?m " J^`>wrgw&INGh]) UZ"gh?.ڏGww Zw>wXi\(@x9a?ZxQIfIS,4FJ6V0[14 1a t CnN;IQj`wV!0Tq1@"mζb ªu®m:F$zʪۚys{zKDb""j;R#bѡ Wcn&=}jNYTVinblbRH`V$==6_Zw42l`GoSWc{LDߝOJi>,WY[W+gxڹ'=̶V~ Ϋ^W'oTko j+;g)޼B((((((Ow-7K @*8ǒPs[D|Ivt3FK$ww*t WFp 2Ů4*fOI1p[R6%ś-J.⋎Au vs@4+_B3W р{֔2Ο0`^9>~8WW!xOH%m\DQPc`t8":uzk'M]u^_ǛSZDOgo4oS6מ b 8%?hU'Dd=֏j2Ma=6ӣgD'dee8*GBcU8tӵ]ϡyiИݯ]~ 1]|kJgx '#x]ѫ+[ZW^GKEVWxm"-v nm ?gӊyh~&dW[~Fx{{~Y59;=fW/o;x!mJѰFTK]5mQEM{I-`i/JlќH0ݴzr|S}wk7ʷy& [b'i8N-6g>ױ>q 30JÁQoz:žCҢ @%x\8$3ҷU>ά9xΝpJ?3p}Gx{%ܟgV;9x 2bN0G^EyxhVGBU#A9iΡL2Fr-\! 6F?*q@ W#Ys :[ [3ԶfqTgdyԃQ13[(N=өBT$^kjhGf/oJ+gr0i*ڳ:ǡ1IG0HP1@沗u ,SPdM-"{B Gsc,4CH-:=?OEmDI QE~~v>,WY[VV?UՙkoguOЧjc-9륯SɅQ]!EPEPEPEPEP&9xE)+?òZA;lҳ;Cy+'ӬonJӢ((((((('R?d[.ɑ%o`֬[R/dkII.uɑ"_`#v$czğg=>`1׬|\y;VBs|P?BEZ},qK6D9gnʣ?s&~/`ͨ`-đ@zu O5r7\L8'v'yt2:Um?u4NYڸ*iNG'ֹeiy'v=3z۵q^hCly؊vph⣅@#C\2nRHj{ ƋYiPDd<ğǵ|{ZIuwRZҢ+̟ȫ׌-VY"^3趤=*Cr6Sm] `$ԿC˵S3l( (((((+'MHrt>WA||r>m8kQ@>&ޒa"]x$l@0;N jt߰McǖII:_~x}6CiY'&3wc5+,fZAg[' פWxPʲNʎ@p_kѱes2ɦJM4G&4fͰ44l\ffn.i3IE1\\њJ3@.h&hqsE%ť6q٥74Lu(4I+N-Γ)f>h :;y5+UvU[bOlM8>Y&N" )Dj(O2|GX4ζ힆<f4us:uՒ^'g_ahc,9 _b%8$3@Q@Q@Q@Q@Q@Q@Q@Wl4),W1V|"#.G9+~EʟfŇTgfU g;4yszGns<қ=VJrsYfx@jYzQuGcu/ ba3#rnPN1Hw8?~V vmdnGR<3Іz\ҷKuZ!EWYuEş*??jfks{?5.RK[[O;m}E|c[2_ɿc<=s㷭e2j_k[חC_Fr[] [q"fUݞ}q$å 'h`ާ U${U(HgUIcm#9F ? Lx'_.lm@1e89WgOe=SvFYe,M,+FĒpX=+bziHYgi )ݎNp* ( ( ( ( (2Ğj0h̍p8?Ğj0h̍p8i.,nbTw(w\r d㳞C,gHMVW[[ԑсͽh,GPEP-j7H h!gO08x 5O?Zbkđe*Rv4Al\M4 IE2 њJL%h% 撒qh\\曚3@\vhfnis@Pi-1✦쫸Hsq_Yުm9CeU\r[9UYuhoeFhyѲ 8mdnt벯~"0L\hNvWr0q]Z¼jv_RWV< T *շQ_'3>zR:sV!L\vgYlqU"+eia$Vi Q2rMWaZY=Q\JR7IZ5fQFzq]4q|ƣq=q[K$рFp@BT'I]J7gwk.*2=Wm Qy7ZE?{nRxYT=V#as\ډ2ʖNU%MMkO(iŠROwyerm20`q<_*2(?kx6*#nµ|GjYQ`?WØļ3zt>Gp^x "jޥs"GuUW$ sE2>خR"xMH<]KNǟusx>/  nt̠pEٞ4]c\Erk2wuPppI,(a'ik4lwAīm>:l#˝Q(FAЂ LoKMt4Ť4Kb撒Y;&D b&]8˕"/ȣȇy'+/ld~&-C<y$Ev2LZU}EAP S{o"Y_ O4"<ۧrWg&(˒.\sKVs&-[h7STvo;eGjᬧ.0ԴCLjqRgxoE/"GqK8~vP=Î$s3:z hAV.ء@' 泴jGN|y)&1N3Ih5dQ@Q@Q@Q@Q@Q@Q@fZ\zvo*ecz0#<GEg=#ŒjC@smh ixp]}2 `~5jFyLyiTc(܂03?.*\$ocw6UONB͹HUUў-k0ǁPIf6fт0k%;FI<[k՟q5NFF)*mTz2N O(8kJ75pjBtʃèk l*zq8rUW=[~; дbXeF^9#pGcW5 i'W9{Y2zGCִ5 ~K97 N1_'ژLoSNϚַG!0kH\|ۊʫjduя,V֔p$ʱR^-iUΚپAjr3Uly횳$m#"\29 b7PNE{ D"z/ծLy(<}w Ǧ<^=H^^Om1yOx~#HUb3ՏNΫ:xu#jjSEWEPO?UO5sş*??jÚǝ//~#^W7|Cץ=tEZG^ޔXQEQEQEQEQEQETWVKo0Qh o2(-/a]:(r݊(_#2xt}j*ؒ5 q@[}khOGbΗ#%5ع4M=:pP>Sү &'naY4ᡉ8@F[qۡ[S meNm4k-eGc˲xZ[Eek l8$P0O=gzΟf9דcV]Ij>P((((((((((SMt ef؀6`GRScu0ach΃r`1&I |G^MrRKm+CKഅe"FcPN;dP$Pjv;ıܰbI"0rè;%N3^_1WӇŠ((gxڳsZ^,WY[VVj%ce ;#^3᳝SKoz骒߃wQEΠ(((((((& \?,7QflГɑ}E<`'DYWk{$@rcZKq| 焕Hh zJԯ#tvG|)Y ԬR9=@ЀoWH~7^ a6n3n?~~\O O)7][~ yRh*Ʋog`Ӂ\ W3N#TWij!G(ٝfaM`֣aq}rW+ `e91w=4RVKiqyzT44*JRA zEPҮ|0TVy+>…hצG`Y54iZCՏOJڋܷ*tЅ1明jou<˺|;u:{Nj8ɁcվkOW>=5}@i4HM$T%]\Eog2}4]6=#K`Lnzdq^#jڊA R!<)#G8ֶRҊ'+R[Huȑ_p֪Z.NiaV*T۽sWkࢊ((((((((((3QH[4l1* ;.92q*iv`鷱|ziyko#.bU!cWSEHExЊ0@==BŇOU"sfIDvpWTW?au5 יVd{tEO2phZhlɁ/P"SgWAad9k*ܱWRjg37<*Dbz0pJ=8AQtZqlmifFGkftZ+]:U@z[ୈs]}+h3ߔT"fD7*&Y`|X8,FNOC\- _Tpkk #SrG>wcQ)Jrr` (aEPO?UՏgxڱ3[ч5ϝek<ڟzsO\f h1koϷis͌ak=o8[X=+9IߗCGsu3Xi=?LwelVֻ $e"2 7䞟.}j:\jY>0GդZ}+\y{uZ((((((+K5UҧEx2dSenyrFzVNX_ʏ =?@&p$~9$RѼEam z rY 囌'u=kKG#o }V[n.%7(Ր3P22'' Քzl,L9}Q8-̖wQ]Ar|ibwGx"AZ^mer⠞[d^-nevK u8`pFGs=u=~vf MԇSF\|JʑĬ9 %R͡SRȬR˓P6_w'mΘ/d7;Ќ HIe PORgݿO's># ꧯG]]Oqn/t.i)(2.K Eꧧt1HƲ!XdW1Vbxd sV5is٣?#.fy9Q4fJǝ)IU-8lpUjYH5GhX8{JRri !5cra4^@Io!Wr# i;䷂e>}\0)o$ !RH[l5a8gJa䟜&YP[,2@E_ ,-R+{R),(ڹ?{@ 'ۥ]33(RW袊<((((((((((!Y.mVk+:N7-H=FIP ? 9/9aiVx.H#?Lc89ϔZk3"221VV ƾERop']ܜ7%I$dV((( ȫ׌-ş*??jw~ _|?kxP\?BsjmM]msWҬ[.VS23G-%1C 0 Rב»Ic zH2WgU8akaYE̓c!X@;g#>ZFmuh p8q(C vXMXb:"7 m2q@'Xտ 2y4ubXUFeQzc0g.&k[ "K7S@9=3YϜ]_ʓMi&bU.1rzg| s.WX"Lխ6:3$sH8nL\7MYEW=xCOIѯ䓹rO=zsڛ-V=KÖ$jQr ’LFqU:Z٣$ r1SFMsDZMA˸I&"v %k4L/5ӈ'm:OkcK}:P vGr{:jۦ(SzkFO]Klyae#ę!' 'i?+T|2̆ ]KRMd/ OsQoNhn%%E)P?1TC"x&B@^XzqmNpfbrwuұ)9;)QEQEQEQEQEQEQEQEQEQEQER;%O&3*e}EsZΛkFu;fKĆ@^6y3A\%My=ŷUtrIGH3v#>{gA:6C2^H AU:k.< F% rA#p_OTX[()kqqZY<Ӽe; nf׮aGp1!dZOyC 꾓hd0$@>yqKvKQ\[u Cs sDܒ(e<}Z+Sic⟇ZziPrqqV'4HJJ0R ƾoŞuy..ڸz~{,P1~}3 QeM:O4g!P.p2]ds]C}'uֵ 6g&rO,\-fxWMmEUZ&-ёĸ^xE\nm+mL_K y[18"3*b'5CX.XX"Y|ُqW)AEPEPEPO?UyY"^3趮̯S.Ws|CAݬj)+GvamM]qUK*h// (ΰ((((((((72I(mvyt#p$r$kPNȵq-iʔ= GdmeʕZ Wg!]QSg(ǀp N-f)ϕ4.Q8ЌJ*p2*:ެnLʠIAgr69u1W7O_2B9GP= GTv.8o=@|Gte%+p56m_0l2ڦHqb?8##dWWThF*HkPq=8WF]>/ {3ܫ}n=?YGms$H\䐬@ϿtzoI$W'%av:9ѬJ +&4hhP) pE"'OZهi嫚JgJJ4NiAP뷛ShWbԑv9χ5q[&_ˏLZ Bi~mĞT<8XBڳb$>dW2tusIYȏ g71\nQ١ڧaeBss(߻ W&ome-ƥxļ3u;FQPA}vPY5w9g=K1ܒkc,QEQEQEQEQEQEQEQEQEQEQEQEQEQET7V^@Nlq G rTPN^ TZ\~.&E\ @i2񯀦њ[04yl`3I'<}NyɭȬctSr I Z9y%L?zIdi1%=$ua1sw&QR$*xDôM1k,~go=p1WqPWTrΟr=9$UhɮCE6hkDm%,#&*y~k|JRQE|VL8GK2CFOWp N~WS5̲]&f\Fdl#Mr<|y۴{hvhvYG*>9 7~T[_^-ǝc.zeQЌJ۱[.b1<3[Q: v#V^@]CпގE bY\["HX@ 9&ߢ(((('ş*??j2ş*??jr~xoݩSWq\cGW6Z++b'G~ZQEtQ@Q@Q@Q@Q@Q@Q@Q@Q@WGw ʪОݙOUa`ƬQ@?h?_/߻K1έ06±#oR~E<<7YIӚ(HR2#ϴKBY+vXKq2_K2'gLER¹G?b/*SѶxDkY.Dž N>֤_ 5* l2{+;;6l5&]O= N ^|$~5چRnI Ѓ4hOltx,`is廑קY5W8RъY&?e Wе"_+3QWUa3z[0%Hۋ<#ݴ;-v+yp W1Yc\sI$$@rIVj;YC&FpLjq/8 Ħ-PM*[Jyxg v8448,,krzc݉'$:e$E^Jr+<|'-X(((((gxڼ̯Zgxڼsֽ_n>7W?]y£c9k+bgG^ZBs}kh0%@FPz{THFHʈ3RMrg)|' pG5QEQEQEQEQEQEQEQEQEQX%/,.LnӼ s.9)7d4?ɸvm ǃ(x<*SYXjZT'C!0\710Tm-zV"Ÿ~b}p?粕tΌʄY] .);:WVXl3!GLB2 8u$qjCwe7<{N20pr?+Sgz/w| 2tޙTAVd2Q@Q@Q@Q@dyt ^13qwV2I)6s+:ؾ.E <A,:9 N~o(7ų7<`]<=%%7Ԍ2a~`A4C)r:A >+8lk2I$II$I$0t;/\3s5]/"d=0˞y5EQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEFF^YK]1Lv>;rpܕ$Y[>MQnֺym `@doCF ^@e oUK,g˞d|ApPq]5sA˭ 0###{ 6?{ʲ_.CY@!'L;dg*qY^U .,d}A7`vY~mRW ^yi趯k"4[|[`qm^yyӋX$Qx@wO[h$˛l4p޷yHM:JJm2fU|t_S6(݁2`@v. qtmaܷ'Qo Z!EPEPEPEPEPEPO?U[,WY[WyZ<_|S>Zwu:͞ԃ>Bw']=ֽk]vsy!M}Ҹͺ}doJ'0S+A#/{۟wu3}?էla'<?=6y>kNHdy m419RzOJs`Fq\>`0޼qq- ߗ+ʏwCkkoeiPBHFy*j((((((((()E澗 v/ƪ'2_J5mz}yiQ\%Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@l㽈#GFp?fSH Akwq g3n2TIV?)' n P[EyA:nH A @:p0 ĐZ\81<Ƽ tnRx{X'|Gq4[0q A;ӥH/k%`]!Dh~ ﺲvd9tR1ρqʶe+X[W}Ӗ .>\ ʌtgѶ_Mrܞ^Gͼt' >Fb4Oȣm9lt9aЪ.EgmsI$IV n#V?.ʤvGL(HR2# ",cx|?0V8둆K|Ym0dW%K1d8v[i+$v!v, bIbsG19; ;D c'  'd.Kx벲_Ϊn$S+8䜱$ޢ((((((((((((((((((((((((((((((gxھw}uE|r[ZA+k˾ }kԯQ?^~G`+(((((((((((((((((((((((((((((((((((((((((((((((E> stream xr0E{|eAdx)9aIl3eYgA%sDw=wP<\C8;OSWT$C8=%Rl%c]i$iy1YQVrӯgLdIO_duIaԬ4({,pFn NY .$AF՛\+P^+f<i3W|>6VdwBlW&<,}2ZḚYªO°_#q`޳.rQ*JjiMѬ6QL6V_yN\E.y"S/9`"~wyxwp'3GUQ_PdTH۟5_W8{kf^uEF,n/^FLwj7#endstream endobj 192 0 obj << /BitsPerComponent 8 /ColorSpace 54 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 22145 >> stream x cֆޖ,BJi)а% IHBF}q YgHB?'RzbKˏ3gVy_VZjժUVZjժUVZjժUVZjժ*w~w`W޾=dS>j!wE?VeZK เC!];bo=Hf\]v/a&>5pשW%%Hbe'(naƢWJ)Z$P-^'VZr'?/g%k 𘶽umxȀpO5k:16{6>?'[Vm\%Dpmo6*KJ Y70c.n |{钼S>^ÇhT YgD͉:3BI\)LvuLݐn?peP1 CB'?-Yɺ!Ž;tkX d DZIBN>n &s BrMwGm5j-ܟ/+߯yFeANu9in&ПoB.sLbsZ3F1cV -Tk!M=9l2_eiʈI!37%z2ĭ iJ% *Tz"[e:g4k--s5Sl čr`Hwx8r[V`kRdKr7ʱNs&V@FR7iv1d7K2]0ʱVȊxLj|s)FfY]!:sx,k̩Wلnaj%ĒJ.l3ֹ CYVHޞ9a-u&3p.-| \f#$@LcfjiXl?fY2.  ]*܄elg6Xՙ.[wW476 2B47&YgW*5c$ΝKbejgL5C҄.Da)|ͮimPtjzZ]!"Y2#*ةHV1ãs!,>2HW}X=؝IUi̛U՚9R 3LtfgAMrd+8pX*SKx#h,ҵu"֊Xß9kN4[I͗3()MwEZg"&YN|]dy'" #e( @xO晤bѾ=Y; E]ئ!Zʎ#;oZ !E+3b.HFNS0!;$9Us<0x؅|lF3xy)`LʶKJxB2C|JTw>ܜ] x`;`@e6,٦QkEl 3⫳ ldOrg s-Qc#rI0!R lQy,0֖ oomxNgc0,޹%geT^d&lf@ea>7N,jhL2lOsLeJw)\e 3A9ʊ} /EVW^mԛmI P;QxTrYsӂ2ȼ w=&X+I# /[lid }r܄Oɳ+nSp2,_Eڔ/e?^nkJ t,*tw a|-^8uڙţ6"`(X2h+;z-)4F̊,tcW f^1& #[ ;jjZmctj6:-:Lm,yUȩ6MjL#i$»$É +t6^9gkGf୺cw9sב`;̗jlt7 y Im$֙I$g[ xrgQGIڑ$CDi_sne%sԑ $ Wwև3&MRBkKxt3hLrԎ]qEDa{2^)M?DOHJ@WȤv~wVc+q@ٶdɤY=Xa||LgRڑ4NrLe0;[\GFL|@[#Ek%tL71ViR»JCF׾sdWI|v\=usZjGVvpJ`眩"34/|սp=6d]i#V&i+_ c! /j"xE=qD]c)]]fo[SD%1]e+@RSg"25% &eBN"+.hsZG寭at^Ya<,]ZGcBߡ|]o_Bxw)-$t&loX -OM!}Fn6&> EJ[&}GZ9mn__V4rpb_fϴqpW['B$W.KQhf,s%R*RM$%7<%nŸl~J0+᭕') /ٗ2ݞ6Cw=N$iGHnRJH6U]o;杤^C X_>/ϭy90sS9}a!b&C /w1=#უ$],'B뜖Y)Ж8-V,on}J|34<}|6xqr`V29YTCչ!5xo߮3|Gd1 i*-.-sy-ٵC+:*0Ea.^ X*];>1f+@q+~2VF__ xѾnNrN "`2/7)ԸNv;Йה##w6#p/%V_Լsb^5fh)) x߇LF|q& B6uffXM6< .=m3_W\v:Pu8 WaIXEp1O+8@̫.%{Ea=oWWWb6341☂6}sc  G>,.{1/p4TARr@SFI5/t%慯W3v(n;u[/FhB2;$jv*$Xt.9#C9#a#]~2^`iW^ R ƍ7zRtڸ<8列pשI6?Sǹ|\T6-aŷKئbavzRsɼWiH ?oa"2q ܈Q锔 #bX-Knw]'~4pd_FkvI904 ֥-/ hG|%t?Z7c ^hIcnha|uFCNOZ/zaFWEq - ˖;3,Q2¡8H7X,"`P_"/1;;Ɔv2&m} : oc:# -P)|t2#|ĉ9ʕˍRnX9q0Ĉuɻxh(OwZ}hhSehw~]kZ5+vN5 *f䬆,{_vrY-WE-ʖj0^Ns# jJ}ƆDehkZ+|ix4+UnB|i63KRB|N} ׃yn $2Bij+^;+c6-c^Ӓ>9kr _ V9%o&s-OGŶ@N84RU*cpxyڋ 簏]]'<# ?l8+ϒ?KM*nqƌ]XJBuaCW.!ʻ!^0L'VW~+caLXÀ39FsXp`sr?R^b;?sJyҹHYF%  1o- `ș '|{pw]|i3f#8R̡H/GJn==z42tO6v2.W$~ =ooVѝn#=r.,a(3f'{&~MM]h#"𱈿m;pWƼĜR*dggyq@}k,8P? Ykۥ{W7 h.=hk apq FƺjYRJs:)6IJ1Fm(/-iz a > *qeTGsJ6U7BdI[ em/]Z(Ģ#IW/+C&c!iJfO]c)?.rxn`gx_h&Alv^[pd|/+kͻԶG) srCbi`4zbu!S"v͑5"ˡ; Liɸ/][e`z:e1*5]^^mY1&{`ܒwekwx!o̦W܎$j[|O0:2A(nlf#̪nbvM{sdLSӲȫ$؛{`e t)0ٱN(SM1pp8Eu4I)܄.γr$ٌio 7S rujJ AF t^6N"Ƽ B>X.9ѼJaGSug/"݀v SC! Dx^. JEln.m+_YfɆv.lue_x0RN/+šWh;]+SM^3ed1O6 waɚw}ֳFn6gPZf 8B d'ibY6{J/Er%A#|*\cļ) PݴvKeG[6_S/q.O,0ϵ2.9ag&25P '=5x䦋%RT Rmm4)Y2Vֺt峀wxC \9S49AzظX2!˹',QMS{|G!BoYK滔C-xViө؜VJI{@pb6l ꆿe2C^QH[&F),\k=_OtWL6s ЋC(r1ȗVMȒUĖx`rm`޽S8+~r )F &C%jN7ԇ b"W>t%> N1: B%j+Yjz60[Yl`:Y] h,Y |||!BB8Z]-`kԩURۚIHg#x¥|s^&dE-el\';UbN´!|̫hٚ`vHk+4۰cjb7aꖗeN=̓U g|O#P x['&S^[=NGmmS ZVM$mu爕:3GY* \l/p+A`:!h ^mb1E?uǀ8bK%|%9kMKXr,\Kxߜ^|%bN&,w1aG`x/%k;o30`$Ng  Bݝ/┈.W4)tz6}v-@.!{Ǣl .=S>1I! )0%%^<;s)nd}rt]$p_ʢ dyϘ6&N ZQbl>+ohVML2H=wݿbt2YV,Mf2[t^;cE'!Z"ݾ>4%&O3f |Ȇ^Nlb ;k`*q$up2_(?sҥ|fx=[PN  d9/|-d}"MȊuz}xF=$gKddgwB X˾;Ng18h/{(ho}o'P"m@>R-[ }BbsǙNlVXL*AI&h-zLo(߽{M,NsZk\yի35/ ?[8t,d!BӅ_݊˲%+4(k"[{,?BHf0.}uE1[N+DҤԼgnw/Fu.Wb?#v{+%{Ǣ7hW{IO;_F#ѓȢeD5}q CtI6OC)nj`'|g_-e{{Le!b ӴT?%oGewK7 ;W 2Wna+۾/_Zq!hպLs:c K Voƴ7טp9D/^#aXrhٺH(#6!C5E6o(6てXZGZg ohڈV+O={&~Hu 9FU!kRj;u(BQ&t +Dmwfƴql gbwa h-@y6l)5"ݽ{R3u7%ӊuI\|Ë́$BpJӿQ'"D'!՝붯 ߸[T^C|JGb&'t=*)r\+ jag\K^]O:ט-Rez/_*C!'h_?'1طw 7D }4o櫋;m'o9.Vg3;ִA[;nU\B.Ru; \ ;u~}"XGK̋dXXgbzU󭀰BE0r&Z'yx]^x+ 5Q4 ZYq5zba-LzECҷ 9Eɮ_=v+\}.ĕ$fpq&a()B[Jz܉\㭨\ȱi <,-@/,j*;_uisEh۷/YwPIVM :Z}褛d+źuXQ:qpQB<k!h3bq?Z+#MOON [?n$@v6O 5==W.@G$$cGJ3|c4^7#apLۇ犰ۤp1Y?=3|'|';1C7"/B ׹vBR2]4d hdx8)_}  Sw{;eh=a" p3di-!/Ќx2p?!C2U+%昗%>mw}1B3ИA.+ɳkmk ܋ Ej:!r*LdW*0l Ӎ 6666QM2|"&CV +k`ȕ"gK7k0<:n?{ ΋XU,u$ xkȗJ+sCUͰLlMlބoȳH!jAԝ07']L.Ee $~sXoC}%X< j )ŻLS%Z|hFX^̘Wa|\i}~7 l _ TU& ;Цmuz섕I-iu#Pdc j5swڏьr?"J`[݄oS\g`S zzzP;~XPK:mk殏|inK2KxEkBXV&z/>͟%e{pRӅ06X- ^,z!5hl4!*7'^gכ|y Po#":DDNԨȜ_2 ES XU+5M|qmj/[}Ļ  ̽~lbcsd9fmoVzRuT-uPBAXb}ѹ_໇p3|&XwbX_(#F& 9ӟ6'H6V+ߊTibV嵫dXnl(ݝ_ebj|%;+T*&,ަsֺ _g"tE_pY B6mʀwߩ/ ^ Qspw—L}3|M .>p}5ynV z~i)@Rm~( t?)"57xffb_OT(@Aj0x-@ʼNJRj8Lp} ݵ|/2V94J:ūyF4h!MZ]" ٠>!_a99 w ɡ.<0>Wklz /xC K:$>ZXcćE2hR&pW69! kk]83ӒX;уjJ:WZ\pnm+> ZGcdDgsV pbY_5UpRNhYٰ0;b3/F-0*ےH6*<$N5cP?lB|94Y8a|vnnaU%Uoqt!UKi;NraW,wzz|-hLmfTKPN˴>\#r\w`H> <Ĺ].xK~LW7itm@lq 4im,ϴH!<'u8]8I q ^4L2=ZwSZa8m>47ZU Mx Õl:bxzr٧SM#c\LVd'KT2aww <;3˫| _YIveqL a[uNbP,!knlx滻/ U)W*ׅ7Ć ۊ;:V;9̡lZe\P·tk_7w/[. ڽ}'kŋƾ}34-"wvK@{i9iQeeecY._0Jg!X= ݃,{YxCs廱|E3<ˌi*D ]Ცجv~vL/S_I\ Hv}|q%-[AKQ|.`Њ~ ͝=Q#͙8;ԍb$U o#k }$P'PL1xcf͝ELbmVڝ5x=>W<{~U''|M _?t/a"j |eM֨KgLڡ 0l~~F ˚6kZ7;6}ivw󥤓N׹0-W!wnJXfoE"^|v/Zxc#d6k>lM1mWFkUom;J] |p+_d v"U'C |G\Sd~UV}Wլa t߼_p( ۯҟ[+'-rZEK[~kod|b:YJߦg2:EXTw* 7އ|)kt[W..,`ji.86)_r">^AZ5оw??8|N Exi']5clo*}Sо~ocr JǠ 5ȼ^.y"9f wrV*ݬmee^%B:oW. kGט:-9%\M dQW2ą=AC|!,h_}6-{~;(P! 7!8p/^U%|(vyV ojI~h{(/;C- )4|+G[W.Kq%x-viݥ<>xldSIX1_Y-%G%!z͛na1J],xQ/N}wvgUl~·7ka],NX/_ ha$``Y U@ԛ(mn%/[<*IXs)N,yߣPja/ȓP ^Zg3f(:-oz\& e[Y3Up;ha^Lhk +kZ"sK_Q.h|ȫCrפ`jrAk{C__40Z  omtIoK2o7o &_{Ge[Էvv܎:LeP^/;1B)HcMS>n:re".ئxѿSh߾{8_"]%Up';8 o > N]_gȕkZėX|J[0uZݱkr~߼{OtZ4?Bݍ-|twcb!w7^/ &0ٟ5+WWщ)2ȢW[R; $L৏?*ﱢO_J2l-ߍ E\)E7[Poߏ%- ؍-᪫!ɢujvFY?tr>O>At a6039To,m5RBK1 _dKEzW]X +[oŻ^J'(+@x#cS%Y8ܠtOCZrN|/8W}狎th.ɰ :]6zY"$㣣߿.Äj?$+_lu)&#_΅3ecwwggyŽ2x+̺\FK៭`%0ΟBF`55?} gomiђ,kS.BHˣ1jfr?Y|cWkV5sAܤ3WƊ+;5%ohsU. m2WnučdcdE.EbU;Zxv] n~Uww_6W}!/aP$MᐕUKY ^Crh>$xwvpX~W68m?][opże-g.RW^C{ad9"m>M-nhr!;qdnD^݇w.+{8tP~;˵Q|9BBGM]z _HC-[z$oA^&mww1SR|/G W[ _^Wˑ+_Ok} XPY4uyt/A;rMm`?=J ]y[RTNcoɳ9Ctuf5Iy݉ԕ;Zx!PLS(m0[t#3^|q'L.dRKoiR)'mT6᧯PIZhO0xV_tj/уc^_x8^}+׬Ќ U-W-pSH0Ç؇`-Z)jwZa]{‘΀}پ+6]㷙9͝~{? q+ϩ{iLQr1b~x) ѾZ z\Sl| :x?<{LJVdasqznzCk`j/tˆv 眮'?{3$D>`9!j[] ^|gvFG+.:X!>_͇#_xRhn/S%V%"_l#;ۿzG//y_d^]ėqY֧/yblG0>??|}*%54t"kZ֜~{mJwt<}#Ba/'D֓dN$ c_{ճ:I/MnvCY#%T C1I O [3`^2[ұvNzZfܻ ԇ S+Yse>tm{3?I ~?zbhc>MS*::}§/[3 ޹sz3ɔ~Wӳɍ}Bva/ w[ׯ:R7~0C>ycz^CwoV5:/ꍟ ǃ, ,?{ ɔF| ~SU =x1C Y_Oi{U?|4^b\*PƟm㦯dZ~y{~cE|gp3{M Out]n?@b,Xbrƍ|:WP!u cQ(2QLy tq3盿7+5Jk?[ ƌ+D%߰u^+|+Jye'|Bdjf_= YGjUU/_ n߾D2\ rҺ|ʏ:$I7@bԏ */StỲho yO!-O@!ַ ~2b~eZ7.|.ԾeZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժ?endstream endobj 193 0 obj << /Filter /FlateDecode /Length 404 >> stream xRr1 ,q1x()9ΓB#g,+ \AX`;ELsw_~ K@s6!~:z$>,b+-8ӟLk/n FFl8`h%W88#e (H{ -9k:"5夘-ñUҡD=(ڨ:eb6sχ "CWx+JUxZUtV3ljӼ<0.xu0 Qsr1Rfmf,)\S2qW]dmͱuΖzijҝż">\EsUEnQ!.g~}neb*m<nw9wY-ux|բendstream endobj 194 0 obj << /BitsPerComponent 8 /ColorSpace 62 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 12829 >> stream x흋HUm4k0q\qfnv [vo5{ < 5bwyL]ȈLeJ)Y-YvdI_GfdfddX,bX,bX,bX,bX,bX,bX7<ң?}Y&=Kb|G/nm.E|{=_u/@d{._Z( l/Ŷo>={ Fy}O~R9Ϗ6q?ԩoE֏oS&k}9oO2^B[_|Z_㈋ۧW{CǾ|ɣ'/fV6yğ| %~_/~~v,$(Ws5_`$Um]-g_%D c(2%Z<ی#da|bI\|oO2 O}o#̰o~# mfW~9Ik{n/ˌ~rۓt{v\VYt򟥧,yJm; )V5裟2|)y?#ݓ۲ ;Q|Gz_bW|]ca#+좧SX,bX,bX,bX,bX,bX,bX,bX,bE2Ρ/Տ0 C&>a$E l6ߝ dt†I PN'bcDQrssgʬ!իW7D`+Uwꇯ%f= |MaWVTҀ!b=H]I-_qdoņ-_> $lYw7MabnDEᡫՁbֵJSY1]Gc.)2`&5<:$+Z) v~oh2gf(T~z-^E{t{(P;V=U'@U}w: w3ߓ;.Vtw3_)klj2|I^FIScxc: ei8jX|I%&oF 0__BB7:*!έI29,c۷/3xs=\A4Qu׿rb kыE(5G,)f k?;ׄyCI7Wio8F ꟤;WJ5+_ao]l x=~Sm,o|3t A|~$ ׏_fX2+Ϗ~:^ϠPΊ Rew^OG/~ko}BE, >%"-]xeͳ'P~pξ >t'}ɋckc;|'4LCRUѣRb!f3+dc)@ga),IKA4H׃6|!t`MWm#dcD܂kRלwI\(z6UpC|\Hecxhg9`:g3| |Z].k:ȳs*r(~aAUq 2U;P䛗AWH\%\j;R0L t.n$Հ ,szF ?p|~\&~W< x!}T8|rwv>uu_ܾ}i1FIQ$ ûB_>*6Wc63j@8mjm Gj`I6w]{SfձcEdITI$+2#+O.+jZ-pi6g<_8y ><֋۷;,mDZ#l:"1>ΠzzgM5ۧ0@cv++/M_V:VbEk$,c͠|4c T͡ Y ?.+~Xa߷_y0OCXő4i 7_qʗ*&|/'HۯmY/HrW5+YM4Zlc_u=5_9c/#2ZXaEwǹ'/~@W7*P\iƆdJ, "'l|2`u&_Hi6CkL7_|׶DEI02Jj} 9v"ɄJ39aȗE`Ǹ0,z-['/vx~yX[ɖ+pi)voYQ%7 =Qf@EGj_Ci2C73pW4_7OcCAwx'B]CŅ *j0|R>#A<4*]ը\6O~J'$z|qK x6eU;lCx]EW/".41ѕ|=<:3mEnNx}0p>=є,N>To<$$A3բ7|S5".kTˆ7P+D!]X<{Y 3I_|IxPO!H~. pǖ4/SLN;YN4F[*Qe4^SwjGgI8+Tt|KޅC#@]tBi߬*%xD>-)Ѝ^.eȾ0Q+߿:Bw vvkK%l+v+ln&#mqHǛlt56C-|KӸ ߲RHxh8{qH d}^hg|6_QUߕ_C_`킀3U7Tr;wVkXlS~2] 61 '*N ^fq$ 0z%_ @Ř4κ;c+wY4z_iqͷWA &|'#0i۞\}|MҵF82{sc6B|+p9[{sj:߭'5!J5|Ӱ.|5K7_۱MSt_[}%hB8O@1O! JΖX+muOW|K3Tzכ͘~Hh DP#C]:WzX޿AGBEȳ Ye-\XWT z4eZ/9܁E97.s7$_&F-o2Nآ#"5xTGw|q> uC aƢs%U5ߝ/WGd%!Q;:z[-*?JA;HWgݡͼ3ߎז6Ľ¤f)’/@xwP˷oƶal'qCߢmՓ rim+̘Ax2aE[ײۉF/_R)(KS2"a` 8{u*|W7Fobx75b12~|q] q DEƗV:j`/NTtag2} _d`hU`ؗdԛM4 97ƻ#:Rl >=w/R:+WW m<|+l7}:9)[Ͻ3ߊjMjbtc,dYEmSy u|1=}pqs//a/⚭~7``WpXNp"]wX{Rߨ#;]efF,Rą/5S9 YW;ԨvQ5*f9|llwPȷ-ult g!4 =~Y|{ Wg,^>V'.J%iZUo(JGnHnM2`#45p ]wu'W箷RKq)zX,$`9wPU<.o{]yL?wnXi|Ot.u=-gx;M7L76;c:UVbI+7e5ͽDH| 0awQȷa?\fX+(?nyHr8|iLdV+H20gW3S.ix&KlXl$Wg3?>u&|%UNXۻ+&Z ?E#&ݩ=cP䘅/O{IY6ec";I4^|clꜴ5A2g4 %^ ζfJv [ƾ!(a ͨ#H5_:l6G̑숢E8O2߀UiZƾ;Ө䫄t3ŧ( {*KӅ5؎d,_5_봦 jV鐪#?:rY]ʛ fغZ"HVBœ;_Eqbd9hіca5(Z^.Bp>n 6_[ԋ(2  6_ r'f mݎ#Q;6hA#5)2H*_(\{ٽTNب͎:ɉEnHvO*pt`e_"]>K Ig:M&6g*6k\% F62??o?ha8k^l:j| #Mdi(# r \?*m$e 4Gd~2s: y+k[]$rp|,o;nq'֝♆Iȓ7K#VsCFRCn[ݤ" s44-uؿ|] Xh\}1ʷ:?ð|޿u~os3;.Is,ښ|oEj%,: ݳ|K-o#E?,Yv79bT4O2+):5-' 5ހ&-q ]&Kנ#_:(ߍ_:TYϡ@5p | ?CdnHs27՛;^T +a7UiKXu>3?^vM> `Qͤ Cܝ/N;A"U_m49߶S_3?Ûgo\Oo}%7U2lgS57|{K!c?)QL\۾'u5O5],`|Uv'% a7!Ǐ:1k,*tf;ų$6Et 5D#~3we w> Vb_5udvG|#EMoP ;Qc{,/US@~D^kE GF>|ц>E:a)>Ҥo|ṠQGxƍ}T;P'ʗ֯N? V}| ̷Z]])WI98PsIpHڛߎ:vΤRS,Bsõk+_|5HkV C㞅q"2߅ %mL+0\ގխ#LԹ/O5m}sRO7UoC ZL9W}`%AJ0X.u I7!T z!?AMסr+oQ8aq]Rr,%W&!^yڹ^,W /_Y8{1>9ƝRhV 򵵅o[*-^LxjߜP%@~PT+;>\X.La|)C9@7Mź f]wR[|WDC;I|Ej/u.=k?]I7&6785_5b{ABs={*6e{r:_)Q]V޻;9]s,'/"ty I%_ak|zu|4}q򽻛N@X b~8ֻ""0iw:cϝ~& 毒nU|T6ߐւ "WDX1+v^#;3 _ ([{BW+Dx;Fm ;-ŢJE)S)]!3Anq!4-v_6>d e^ZΗ^W:>ޞ_H4RCn=._u `I N\t@ΈeuC)kw>2ʹG5| 6_ H[mn4of ;'S_|}DY,g2T|z m\y1W^ I@XL.T{@|ib(`HͿ)| ;R[sl&q[?QFJSs\B8# т'U8ɛgr<_"{;[&]Xpaz(|,\GD.^vo[5Į.-&jrë9_ez-ap0|{BMCWE|1WIw6fU5_#gy5 z#_[_l8u\ bi 2D;O8;Q~eFw ~NӴrdrsiy:.7&6yJF7)xXؓ(AH]W曧ryU+FCKmvriN2M Tņo3半닢Km rWDWC%/ÿCAi5qv:F~͗fJrgAE$s2t_#g~)j| UMv Ws-Ib0o im-HQe)w7x_H!13z27⋯;~ j|35}Xu-/N4#"[aM0 #g/]M$ t%_$ƚokķnӞ'JxcUD Nw2W|[Cع8i]S-܌bhn~# t's_iq!NeB:{Od*s|0 kWRlRƥE0\{ٍwSk`Z8m;OFǗ<g9v,gMVܩI|o߾zn Q^RYF%zCruT+~\kPDh2 a1Pvw:}Zy+f Q<+, ^׽qŶ^n_e8p^hv rqms9w 8|44>o <ʼj3܎SKu#CU_u pF9_ 8V5W5_aaj|I'$ +^8gNأ3 sSUC ^3Q "[xAm_.]=ަxPK/YNhE0*NmWڞgGO/>k8 h -')48"I}8{`go tgy'e޽ʝU230+^oc u|0h\e_  7[ZaG4T/75q\AR1z:Ǜwֱ \!{^篶Ɛ$9UV6^Pjm3;B0t5bZ@Tuo+G 7mǪ9s^ocWuY 7>|9ǐ/ @.1݈O?ܺH5/|m9R}̻co4%0G7GrY ۫S> fԮUE*GG(Xy`4K9&⿹ʏS+S ys|u/r_|[8%$ںq9ʴY~<wH:]Նke@*=VLg^ͧM^v#V#f'0|QobN%|~ 1_$2~$ݫ O; dia˜^u~_*&=<^%r07޼{ ݯkԂpsgQTʃ+ ;aMM;ᣲč}JU:ݝ/ӳڣ RaFQ>+fl_ -;Mm:*|{K5}{F8WKg*8.i)>T^k5䴔 / /fYKN}ץs/i= wѦ z|p5£5l-3opxl1߲ Pq 19#qcf uo+ӘZT^̷V*} 7T#ƈͷڨ03.j̶Rnl4?#R'sb:;(;F/Ce-՚z7xլ_9 r5Nލԕ0f-jzY,B9fHx5qXZ8헤cmUCr`'e_ն/eT0 ?So,B-2n @ 8u>UқghD];c6e~za&9h9 ˌŏXEZVWo"m5rzuDTSIw;6yl/ڱ fFI6jZ̷/mTn|3m#*Wr>S-Uo!_ՌOt`5w13ߞd5֯!8(Sј[Jfcn}{()POݾP2S-|Ο9~ =n}lM}27=Զn}jM>#aZS`̓'&Y{=&_{_{4j4鶝e6x ɿ:o>S<`j1 rkn9sNM?՜9'K);l4xtuu*a(rlNCI.Sw1s~y~UInSl̂{fxݜT]D[A'x/ |B[FsT(Lg cؙ!J99]!xT>~Bc >^\օu|%yYmZر,_@ GD)e'tgҖcpAyΑ7Tj r-֑ yF;h=@LpƉS8t=ӕy(bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,t-:jendstream endobj 195 0 obj << /BitsPerComponent 8 /ColorSpace 67 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 800 /Length 10365 >> stream x흉v}N(( `ƶ^K Ғ۹/pJe(Z`сZR\ iOϬgI$/ɒl{OvZ%ɲ\/_fٟ+On훗^}@n,g_,puMUS_|c?^<}[}/oןO>o4Xh^B}G8?{lU~l̚uxT܉ F*#,ӗ˯j˗ϔZS]m۶* ƣswfMf7'wU՚zM?J=6Vx4m*#4usGUͿuTmYoٟ~GU5/G>g<楈GhWϪV}Cٚ*?[*{x!xD0^x: ?Pf/ !ڻ m|5Ob<1^x3K߾B<юkU׷`Jz8Gx~ @OIǿ$dv~#NS ~q:^o?-2S2 IɾP8L QD$2}|v~ZzNzUfw>\إ 1߳ݦF{MdB~{: Q7h] ؛#G WF{(m ~1죿)FzO>z?Qrx`ncw~Xi?m}eoO1GJя c&Ap) h 'h '?i6/|6|nL B99=ޏ(`TGs!.~?1w? d―Ƕ Ǯ~kO#h_5:q7~Џp7?oxA#]?~Vq:v=(֞Ft۝%d;Z=AGח}y䪴=ytzluzӈ?Z,WvzOnuOglݱ}(x v=!ďx١%yHzl3ZȱiK?êC; mj3~xu9G9eIY`? XŏyT0?0`Îb|c ~h~UAD}ˎm1 kUP~lH׮Y|@KE{a֏"SGS:DFpܮ.AD ?.W|7!4M9~}xMqzR]G!6֡B>8z;DNNGFIخCcvX&iDp? SQy ?448u׏˷"G(إFe `G; CsnA Wz &!|J2npУiZ-Ǣzc83|jOIw b+s?}*ٜPNtz~}|w~l;3yp:(e,"H?yj~7:(w"b#z(v?:=u2?bWHR WRF,;XhW%@~cҏ9F?]"W X%EU/Hi,+Տ.XR\)m$/h ?,t[p9&+Ehb*x]</CV~$;OfiRz$4!0EEz+!XҝE.x5|դd09$A 䇥-ɏd[!֌D09$xƴ&}:ǮHI&m(s{Q*Mq 6~D3]p QU)aX[;$!$=,JctRb ֑|N~ ܆ՏՃGq ~sGh1^Mb'>ҝ?o3.'ࣇFaC㇓peECnZgNZhzL_]?E0c!#uW(nOIed?r; /priuj a&BN~a81d3~ UNU1ҝc=a6eE;Ar[~8}?9eW6?4'.g=XUN34ߚ>e%~} @AS}Yzm$.KQpc~L R?a ׮3y xy=P G>zJD6TxH?zv $NjkֺGҝ[ˊmC@cϺ!))KD]C?'=đ( ꨟ~9kc@c膭%a༓|4K$Y SKMU߉*L^7Ǘt;j8K~A_ʲ'Y ne Ul\P$C?nD[7Ͼ2?<: HV66~#|A ?ٻWn]4T(!ğ:?8}Cu@~UZg~J`T>b(I{DB=0ۏuy~⏫X r`qt<}RO=1[ucFG]_Uk!]ףI~  D:?b£fm/>} qMQ4C,C#׶ 5k#z &NL%?-ݲ%Ci\|ޭ2캗ZW~~|`(޶CCanq9᪃'}x ?qRP]D}-Tˏ3t?Gq۷Jټ Gr0U.?JA:2 я|jI͏fKޏ,Ƨ?qW_}CAGGO ;#/?G%ނh溗|2{\0WАQL(~?FA6 џu/7~ ȼI^ AO2ӏ,?O;9u`8s-f!鲖CsBKg(?|YG֨+}@y-Z[/W018+dDkzAWa8?Qx| SSB?e% ҽu8L 磷L~/Cժܴ~!d燇 :("W&@0U is q#;P r?D?j?$CDŽ"9¨V-~eP.~ԨS/p 8Eҹ5C\zЇNjAW̮~'!t9R󆼞;WЬ(")!tAe]5+УEWSp"5m:5C*'5ЏW:ӏo'h 窲j^UjXP F=;  ]-[Gsj*@-(A=L+#iXE* 6CUrA'Xf=&(? k&:|5~P#׼|qAPA0Q % ⠇yY]W=AA0Jv3o~PJf5prʥbczBuôph`u!_\DWN^5|݀u|WFǜC1ݼbF-!B4EvZܖ#BMG1釋 le)HWA[Y*^+bCO>~~%zv_n\9UhcƏq !1< )z%?" Wfʪ}ɏCW?Go4YVI =:?~jwr]hƯ>[䵱!_ϏSMɶU3}8?w Ҝ)E/l#Ȕ9?a@-~)m~FV!AIpGS΃P%KcӖz;~fNi&oRD+zW8z:҉Xݚ=Bf0=<?cH×6fV}A4kW)azCN4Nf-XhWVAr۸z.?E*EvxVe׮Ŀ]ÒBr #AE8lN5y.u .z5k#jC ¸"MCBen\Q?!Hiȃݑ ͰU?hzlُ "z4YщA 951qM5)@/s5+$Hw΃Sj~4Wֵhī} ۟-#ٖf º8D0_H;+w%(eՙ2Sb~C]@/aSY.sKЏ裻oA֪V=ʶ'E'?X gH41 ϣ]ꟾέyUPYXY'?V=y#a? sS]XB-0\|[-1zh&_܄~Z];J/Hr?i~|`M?szx@>aj69?ߺLX|>;0}Cݱ ˥Y~ [}闘R@wr7(A7 _+X_d3z8CNy(%,0zUNo%8u$HQPw퇈Lpډ kE Yp_#XeP> [AzfX%=ȻS?.C#R~P旬ߏٔ '>uӏzPz A( s\\?)?ژ۬gUj7A!-XXJ姪 -q-I?rOsn^8AAt'ʻ FH!m1s?AG9$w 6G|AL'7{B'1LR1 6Q$Ab]?qYQK?f1[Y=99%?7*fAH!~NZ>" +x|SqGßJ!cY1;}TX$Ⱥ[W?5wVxc7CѴJn`2~X8=^tbAB[WE?oGQѦa*If<2ͣ9_h2P1RHm=WH=2#qc̲ҎRw>$=f֏6}(/1# O\G$H=6Ghm^g$ ,0qlRkUVG=6H]Ǘl$LA6G]/ ;/F V=λ(dEdzɏX[CQȃ#sG5*n<5 ؙs:!|L0wj5bQT | x aa.Y=WEnj?%^C[? <xHDqW^#+ͫ]B_!=k#,$'8 حՎvQPGmt#$N*#WO{3R!~fZTEG?^;y%j~IAS-I>v8j!v"*a./^Qâ! R  ?TBfxx\1` ^!}?~`GFK63  cX^!+G|V>^c'ۭX@e5?TIuA2no~~ u|}S<ސ l~\j8?/H !+I?*v@"?֖?~  v|'Eh2zF\`~ܢw~|`XGkOG LXJǺ]p㻋!_A|Z xϏx?6,ޏ_#%+*?.k2ie @ dW ~Iv6+4~xa=P`@YCfu,K?vI34{;~YHϱZf/W =O_],K?vȺXctxUf_Zǯ0#ϗ.2 2 1r|f&($?B:/ 2 #_8B:8_8c?%q&@m/Yd{d2E#2X8Affffff>{.te7֮(D~wPe_}p4$ooGL嵣һwOwڶZ[m@ZN+8v>o~ /~Hvno~l~ܺfoߺһ/Q|AV︛G9wț~ǭ(s#I}A ,|]/>ۻ~9H&u_deMOh_H_աUG Czwu~{8?Tk>]* P =pL<_u;Xh9n<_~! endstream endobj 196 0 obj << /Filter /FlateDecode /Length 2296 >> stream xn#GnGFŨޏ`sL l&se-MG~ɪ&[ܣ`bMo3¿?X=;Q˓Nt:of^"F6g7'u%=>fܲ,2*:'e@lͪ*+mV-9D݉ʺvu6^<[Xߦ0B9hH g}Hp$&T T--g_=nc>" 7*uL5;l, .rVmkmrxe)~9,RǸپAҒtp`;Z:7$BԇIOn@C_5 V|mB`%5&揟Yɭ-Tv6j 5^N*H_T`5I[p& apaW~ C17V[ZEgE)͖ߟ,~dixK ^G./YO~/|" VeYv &8[hyК.%Z쯢v3n &x5J3khI䧄+Yb T"FN`CVDMl~ '_Xu]TL~'+y# Cx $H QNfVQV<}ʔxTŎPuDp)܇ӕx{~J{&I\/ODQ5TsQ孵0t#X8r:R◮O.@m_$ճ*N{fŮfЃXHl>awh]pYZsXSQ jZWLikoB&AEhg4ޗ#{S{Xs5"QUxfkMMUתـMr,W8/Ѯ1.{QY[da# L. 1 x$-)g\)LGvɍd+v|allU,rl=e`7p^SGhmli+ g(cxs [Pfւ>28rvgwMVGxKXf'93CNG|6d+9M>DƮ-2zt>j=dmr'f VU{ֺm%MiۍRP.Px' c*<'=*feT_^eJ<칟4@MUKvߠAΓPpoDŔ9RSM̭ fCz|_G%1^h@d>7-`z$'F}Im=Ld!I/A{>QyV \rhApxEB}C7>]S^3kܕ%{*Y4\u2;Jt>Qva0vAPqQV4O݌wޑV|LwjgE=^ë/Uj.WYi.qiWlO , Zes X`gWYPlNπ{ѣR-~NƢ %>> stream xXMSG#˨®#IT%KA## _v 5%q8LlT%O{2xmT5j:0P_d^}?V$F'v M2Bl7j[Fǃq>AFq6Y/ 22R~#Gm7݄hu5b9uh$xG%̦11X41(/ms)K|*ld :J-204>9mH05䥴eEFֽKJo>1 X+]BUV#M#$TG^gj+ڸ&z2iiw2tfZ@߼Kt&ǀ†e7X\^ {6׀ٴ,B_]w Y|.rV6O]f)u\Lۜ-ެX.&7^ S2*3IP. A@N2o]h`jB2 㵥|Be8/ibc9E x)y)UiJ(> [c`|bkjwa.7fo[BXmJ,]+.0Dx)q\唷R ][͆9r(Au#YHIx"T@]; hՐ.g^w:0>eSIm8UB&\ Dx |@'z N.m{s#x˫.733sG8A.kDH(A/N( B2MOfYoTQ Vsx.ѱƸ:a1ЗYbHmo[RcG`v!-+v#(Gh_1.9S3G@͛z3qoIR$Ed h?gzʦcxNV=pee%I-wu; M"\Q[G .@` )} Lȶc ?wF U; M;I LX}g$B"J-7Ū M7޷t&ꢇYa)uhL,X6@өo ?l+c\I;g5%Bj#["Nі'q>> stream xYIs[EW|aDYٗ) MpI8Ȗ,8V;~;=^mC*EʛXfFWFoF|:n7fYIdRŨQ ]2n<یYYϯWz2Rz";+^s-U^Ie} 4݅lu5b7I.vُJ>YϪ31 841(oek|.tOŐ@ⓝAGE@JŖ~$h)䥴E=щ\^GŢwI =-yHWuOLkļ*I.?*f6iflpAVkil ~An?~˯< xLUk`MFvHz rbY3aHY ҧ b"V5=)g5^f&EX+d#&y"=u HHrU]KϺBkt)y*+uNԆNe O KdLX:Wrr`0z]Z0hSmNQph]>V GFx-PD׫\IRž+% T68ߑ vWD(#/s^R<4:S df(2:@о:-@@Bnk 4*%\V:ImoL*-TK҅o&ā\*ymJ4[$"p]b iY;I_p˶:>{sT(5]A̱Ă+S!%x5GK X>fnk~S&-Ѩm"Ia|<̝.e#gnՎp0.K@r32-rCSh0w:Y -!J(ZT%{%O: ihˌ _(uk%#9/Ih+}qZ=}xZ|`~!][-LjVFTd nwq)" C-qu3euu6vVle-(aVþAc|taNWR0w_ I̽&A݀Դe̕B> șj[ z߷(<S-bO]ۣplKOnѪY:! w7Qom0m]8)8VO}-soP|-P<[{9o¢x)˫)=( 䜡ܙmW%-KWy$Wk@q&$5Gqc-\, PL?cG%= DM9{57xW K6Jr}m͊<6- N.a\Ѻ~ /+xb󰤉o#~R۳~S3lJuƙזUCOJZ6̀TE18~;F}7_'u^wâӝp|y {P? =*"^x"Ԟm^׏ ErzXl[ӂp_Q `nml%l3Q@9(r٫Gްxw!D='5O{xJW^+. #7I/݅T{s> stream x\Ko7 #=w!N,EZlF)idd[9obOF+9LbWU_{␵ҟ}/rs/x? #c=?C;ݵNã/~& 9Z\7cjZŜVY_q⦑_4㒉 ^RžF%?ͥmhfEkz6]`f8lTJk0(m l~V*꧝:s0c-L4^NG8Qp&m.Г˸rS3qV7E8R4v`{8cL>1ťlsTRrJeD0Їs[kL(g W΁ef c8)H9Ii.-JSv:<_`k*i尷5mTY>fopMY2Ɲl*pFOi8Iƛ NÊ]{q%(=B:xx2)DZOp-ѰfBŮhLSD=98Gl@>JF@=&Usae hMSp 5<)ͫ0B,3 LZ{//g*pIl?j*e ς5厽Y' pPaB86E%1;GsVvKne> Tmy󁢶ܠك;KKs8i4#vQmOOJfaUZ=$_ߌsH€ Mg0[< r;KCXI#rgß;5YB@I#H%zߩN,@Ԡ#RTG!dtq_<Āבˈ.V9]Cғ&P pu,>smFJW_ *&.έy)iW.lh12sp(% ld'1P7WNC8CT"io(+ˡUyPI4f  e'qgqpf:8b QU DԴ1> PӸ Zk6>J$!2; QFn>cP>X_!wwXh\& Yu6'׭f9И u 3of˒JQ#4(7E RCMjs7Es]{i+Ee7lӖXRAR88kxkz>J'tb%Zb QV:0d^,nɡgҊVáɳiW{ 2eDہWx]4V@9XPr5j _ 3Ļf|EQQWzAwEDW5ȕQZU">!W@-:SϬȨg9'x1Fs$8-b:Q4&%s\qjED!sCI|8S{o?A)=o}Z HX˺7S߇" %9g?QTa_c|nM9x|J JGd!͖P:D B֓#LxYF oݐdVe}Ɓ;'u&ZWe uh7NhFA9] &.P!ZWܝz\aƻ qX}/o\g|حbۥFگ#OE z 4h5[.peY"DWz$W dғye"ԞnA6CU" sq(pS Y W"|.]Nr{.14)BEx;Etx]3R#DBo/뺍`9WDTׂ,HkߙO|\MzLvB*"̈́F{esz ]rmJ 1K[mtFv<A &筒&-i_ʸ][ߙcMtڙh?=D es:Ȏ"std&W/u#msJ'ij̮2k2#k3.#׽~:S‘}m'EDqDd5AQ5"ҷbw (m)oб/˧V(E{ ]WT?CmH/{Wy%ϩٮF!1Hsǒ\ %Rwoѐ_> stream xXK7 sz?z,0CRw$صn~5# ,"#99AҿvF + NڙLjؼ^U5h'\qvB6BvɊ,u2*hq3RLN]d‥U^$ǵ1q\0I.'q^L^-X荵C!8eLɻW2ѷ@Piܼ[Yz?X[L!룅*ӑN>^)X0%k<;:i|zK)k@#c4G ~֚)$vdm|L+LD'NF"dDqnAGU%sR"X >ro4G/ ZN3 ckVsoG*6(X$]#x0J5ʫ&}&K-0Gs(^$LCd`7Dx"M1Yi)ŰvPs6nr\VuD22.ؔ"eRkhIˋpSFWhn",JĮs '68jt('1J`kH7l_wfZEQJE!D37Wo_!zJ% ?S:j NK*}iގdrZ#,eU2&%0r~NdrC@B:-L.;EigPnqU&eZ4&̜|VՅC{ƯlxeL"2^|ᒖ8>E5i֭|'oD"̿GT%r t  9Θ]q N.)U-Fe&T7;C  #yA}uhvUiw`7 ke" XLQ`%2 ڍpW֖/2y;6b-:02$eWE5{~n9vXo[_ek@NZP=%j>7R7,.D\ M8J+^Rkfdfbl-'V`aZߘu/A=s?u.$2Nj-^V'm)j9O$vQ?z\䊔 %fe(-({r&qVgW.)Dk=q֘Ddg%O X5Ƅ'\CGKcܐ}9]y)hmѕk>CU3pjl{> stream xcd`ab`dddw 641H3a!O/VY~'YsyyX~#=C{*$fFʢdMCKKs#KԢ<Ē 'G!8?93RA&J_\/1X/(NSG<$C!(8,5E-?D/17UL=土[PZZZ`d{N|q00~Ksp跲ֿ^_n=E'l~];\| pBIOpb1y4^ʜ|endstream endobj 202 0 obj << /Filter /FlateDecode /Length 163 >> stream x3135R0P0Bc3csC.=Cɹ\ `Ac# RN\ %E\@u\@E\N \.@3c݀}o]s~Nin^1PBC/'Wual6.&.WO@.Ӷ/Sendstream endobj 203 0 obj << /Filter /FlateDecode /Length 163 >> stream x]O10 @+XҡUqP(/ СY:ߝ|reA>E0u- -m1,O)x@fw5|Vs^[+x$E b'Φ2?M%K17MR{;RB|DSzendstream endobj 204 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1865 >> stream xeT}PSW'ŀ7՗ڭ :VƏ"! $$TP&*7Xڊҵ]ٺ٥;vvf\\wfgs̹}TpEӴ,^E ´ a._%Nŭv-P wOc~O@sj) M̥ƼBS.ˢ2zٲEQQ˔z);]cP4,^cDczR"b[YPPP7/4t;_YmR~5kMܨkc\8y,ZReК Ey,t&]vLmPTLQQ TZGj5AOSz>=?hUcNɵҕRS;f&Ox(I8=0E${6xO2Lf!CAL a:˗Z%}:5u^uuC?ܶ_0rvG襛pnI!XL%\"2~'bOQɓ|2A{JY;܁Nm'.}n8s|/.Pvk5#ӢVDCpWCr Zb<,g|.2d*:,~ePV?khhvg= #v6PGh4s%8NbtdZ`|#&,&JG*W9aG>|ihx!f  ,K4$ 4)ROQ.$=8(,Ɣ]}㙌,_:߁W"S`|~|Lfp8GcZ1/Yݗ"C$&(˰rr!sUǘ 2;yj x8"X#t';FЃީwjV'ȈhdFekvɣ!U+`JT'x8 M^SDEybj+.(n. H{ ~ƽE[WZVRܯbW%QDI}lZ+~r}cA p ~nGdnhKK4p Φ(HE/{q NƩ?{cS7nٟ, 0hvV W`_e\ZПHƿqh%sp<%kL$Eg0׉~-1o_^DE\uۀ,42^4X-$VH>t%@cDK])MPQS]`M_GTx^qOR|{T* ڛqmRT۟ӚK^(8_957X4^LUjuvSڻomﮬvة>[( wv' //6ݞ2 STGxg endstream endobj 205 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 4642 >> stream xyTgաy_Tڎ[kGkVQB $!{n'5eQT(.XҢe[l'gڙ9'{~,b(b]~ .Nc%[$}[2u/_]5=U0 [R>L'6%W Eb~zFndTK.p+IiI~ZnAde?/J%e'2{N)m_8/-5œ Ii#7J-䦉# S9A&޷:WVi1{b3fm˞;oD K$6-DFfB܄S~v'L$&O oI \{fؠ>,xVPZ?FhZޓ`l.vc愼)t __ yV %`(Q*hF zWBſcΘJ}ߒ ͕e秔ĂT5VJ u2zg)E5J{ :xPE'.35ߡ'@R |p[O-<޴;6Q2SClٞȰݒ Sɡ\SeP(XxycEU' tyUFhKw}vfc2M t*(Is'̸⨈oKMLh$gAqmͮc@zPYK,$B%1D 7h FV0B1J-4 ,} ߱:t#wьϮt4}t7l0t./V`Fϱ78{S0~Ӂ V^mU)VaYIe^SW79FNż)zX v+Paox$+8k`!*4[2P209ٻL(=v`iGyLfsy4~ۭ߻O)*NF] q9QU[jj}NO?UF*ޜȽXU?_\{ ȩh ˲;T><̊S ?TPu 9gjM[ 2U]foz)v7GyZ0 qv 2W-4A1Z->n0pW[}?1'SDw Xڼ-'}{98~!46y 'W[bWT^ E00Y'H~xY}>^]1*E#aZA)wt2 A(PF*hB0a31sYzñlT /]-'h\~DqI֠YvNvP5|]arj*\Ȁ4 ?ThM +F+]nhq J7VjPVt$S!-ߝ2ӆ5"BwB.!jnhVmh&L Xiu N!K@9t(.MrMSM̅ V7¿f_gn;0xw3&#}7 ɀˀ\Cen*ʠyE~+JKdXijJW(c K2YO^ZחȔDI@Ӭc?]}:: /m_UB̕7 G% +2v ɸ-𞥷F+\;ٳкӳqP*?76?(Z"tf)db%K7PiwCX.Z̗L8Ĥ0Jy~$z B{P6S"01̓/3m {a Lf0?~\gu`rSz9Z|WvZW-RRRi;?yǢΌz[V>?H&?chpJ^7o<^'Rv`KRY r83[I⩧w[.\~kMdEqbM6"c j{ Ug.4[/sFOfuVZ[4[Z3W ]p~{j2=$LT5PnKxLשlg2-YЎx0'}b_ZjPT TÝ>.q[[[~/Y?۔=7ŀsdy^Ep cTf Kn֎i3G)4C%OKf9ߤ&wxHams`68^$RJ{a޿ϛƚ]wgSq ;2otas ;([ iz6[h]8q]A=p@UH9Xl$j̽U ZB+?4'st;x*֢ wKN c^" Ywwg.Q]wpdN Ěo_CmN՞ne4Ӟ8!"b.t-h=>{⓫]*4{qI4vLR&aԖ}YUVj50 M^Vr2g r5º-ayqqT, JڗX ƇyXMUx#&i}aCA@r ّ5k@YY#ՙ D\mP9bN8eQq18!Q|d"w!`uo]V_ պi߃ݵǗ3gXQvZ"כ  e2K 9RMuՍ{-X%S2ґb#7z3,S">Y i@k hac f8srendstream endobj 206 0 obj << /Filter /FlateDecode /Length 162 >> stream x]O10 @ ]ZUm?eB:gׁm_Xց$i, x`CSwendstream endobj 207 0 obj << /Filter /FlateDecode /Length 335 >> stream xuSB1 j~M衃N<8Ps:4MIO"zh|/6ѯ?;|-674OTPʝRSH"^D{֢)f2 nQjo͋̄e7af{_箛D@Z9e BLa4;) USYUKXX(6Dr׿ާd:Ä?v5 &]o /1GQD]\K cV#FrMRXyF0_744mdDJX5MVʱȶȽhȨ:Fָn{_;o*}endstream endobj 208 0 obj << /BitsPerComponent 8 /ColorSpace 128 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 18068 >> stream x} cǑfKXeٲcŖ)&9'DRvsYIj %)ܼD9x`$$@ _2000000000000000000000000000000000000000000/=w]X}RgaWc=E?uѧ}V { j?dymF0zVܷe^a?os.懿d&^>b+Zݺ&g->G¾{^fh#7GS>XoK(߯W#Џk#?.3Tʰ$D V,]uyя.3 B;^t=&k_[{]fW~%܄.Ml='k_Š8$14$NA|='k_rb_>9힗Y_1pIkp_vAܾޓ/as}xFq%(%ൂFmA3x2TFѨeY#&aᅨz~!xSTaM&xi%pc\?HJRgRדxT-+N@[t/T_k=dX *YLoyZR͋~GHrSRC*Ng2t:RUQ rh{]vAW͎6~o5,EEǬh(ZHv-+ C}P ~;;/RԀd /G5GDըuc#5r*mgl.Hghnhv^^EW ./a^ ml8߸؏DcqX0ㇱUD;zހӲY.XQ!5-uO.agm6K0utcx5`@>~ud,Yzun( ZQK8VpًAEjzFQX8`y9crJ%C^ ŋ9򈜀 . ~ B?~7ã#%)U3Ophy͢cJ΃1&-.S&Øp-Tc .l\d#%v . CH,,?ISJX,ˋcjBy-d979@%ߨ3  . WsQ : pl/T"A$1h| L(~!RFZ4A`-U5JJK@\\*2l:Am/_Y1d ~aagyߍuc2rѨsX{3ີo츼z9Q Y,K \/yYDWXc!qzxDw,B輾oW"E^ȳ7[R~hcQCAv&vl_{wOf?Դ#h}($qw^^n7L 7]iUT]87ί u , @Ww;//D7-LȢd_!vm fۉ}/EϖC`)yX3YpNmĂ)8ۧ/̺Bx"OYB2tC8Ng3[V."M31[wؑ~Z#`ID\Yʸ3ޅ7m륩$!mE~S E)&I*'!0ƛ-b.Ju+[#LlE[']ѧKJŧ+:/+ޗyyt2<)Gzn~^Q&9ͱA`[&>巫_ٞ/5)FWb]pmLj{X`=] s)9SC, vds6!>/=1xkb'n4j4WЊo7f b{F+~(Y=+,/4lM>p^abbI u 7(SL0Yy5_b> ;9"H(䁋XTu|+S! /Cgh$߮_~W?'#2`XAÔ!-)\aK630yhD/"0I36X۝W1XʓGe7yxٓ,m:DF_|Rǜup ,yyeF Ja t'sQ:e}Z\!d֙ЖџCG{M%Թ@C !ZϪhxenOs M䵔/"]~v ZnEĊTmR}MNr `ȡk?')]ݷz_ SvV#D~,:`+ ŝײ(@67Ugb"%mI('~8DR*g-bf"Ϻ<sA18'TMRm`ۇ+auhH]y-In2sEf!)" M۳' ַ !(x4$W%WUaN%$laP4tminh ..q< »[^~FeGMz4i!y]!*IÜ"FX4~FYgG024~v^{0"Z"RG JѸDՔ,\Q?tMQFpT `=wQʢ,ҕW}bY|>ӤUPP켻XPTϝ]]^`'jǖmů(t6]m!D^_AYNj0mԥ+gCo: ם(W~"vD>aCۅK/iPY5Qm*x,&BLeQ;߉@cYA#0~fɯ'T'YTHWIdrk(+"`;\[x-&}$. X!N0tufON/t+l*p7Q EWrІllT?K:pç-rw^!%(KqD),Q$OaT+r,#ByK4w߈!<ēY X -BWM6رrG3eJI4D9s .RdAqegGK>T&oPUPlA2qE6.Aŗ>H޽om~=~1@o(Թtq {) 较I0ORl^jd=߾%H=? H,R'Z(n cД YѮb%owWI\:%Aԫ"N3$Y1e\{GpK3%j]: Z#R1*67u4w@t|[cT#W98GI\2!0cX,_ /:zZ-[3aPWyɉՊv?mζsbO9e.*i*!%oHؔZ imSjgdx]7J?Mk+i,L3T*SVW~EŰ`z'3`~vwV7 v (|.HdU⢨2zBh̀w i~9Lz+C{>[9 !9 ,|XNF8de *\"t?JjĐuyCB>/ҙ|9;t"I1ұrzL)8t}#y8N&b +86#oPDBrX)ٟ=IXO ЂDdCv͢ gY:W&4 h}ZD%{ŒzϗJR}qz| $mDD2Eo{˒8:ct劬`eΜ홊Ջ=s44lVJ;➪STO+ H@h]7׀_i}p&c,iWlTLza HX:WOOn/D6XU;cgsE,A8㑰o{tH޽oq~S*X˯&Iί< f5S<8" V!ohjrF\ZɥB\y89t[7USIl\Sx]2Ÿ,Sٟ ,F3Yؓ:j'"# ]Y LϾDì0ɭԤd Z" kDpq["S(67jZ|844<4< [\,sjE6l=MpћHe0pKsCN&D^^SV*,[Y %!a-{M&#Y2q_ZNVzۏb aT\zQ5VfFork |. )F9茑VImř^:0ȯ=-~yY 67B!Q&Ud6pB!$ gKz8mF\IzU"zT ӀTGUI)&|6W(ͅ{÷nňD:/5 ko9"B%iNN(2-yvQ7XCN%QNIȄGGx :yMv),7> y Ҷ9.+S&Fo/V.x{h9Z Mp8EH"aC~-xңJ7BJ 2%WZ.~ݮҲc "~kaIAR!hc.֚'BIJx:_907;??ŊùULgX%P% ޢ 5ÌTE[t7[=G>9N. P8 +ص$Zj># l^ǣ5Nķ6 +BV2S6gK#7 4GaxdS`ny YI"l |k2nP% ƟU" ;Nr4=߭Wn~\86^mWqĬDq^hLqj,&[sc2M) 4oJ:"o7#W@Q6~/搢R1h+<1ۛ~߾r]vQ~^BytzD` U'x/,k 3&Vq]*Um},$ooy8/~D?Bb uF^9aa9 y~&*) ';5~4;yp7BvK %D6G!IapWGZ}q7s8+~Q4e^IV.e)T:=pv~u-Vˊe'ƯX ~'kѝ ȩF[e`PWV"oR7l<[!i GXY +@wy^"Yȶ,9ve@MOV*{:F6k;-k=8q5"'RU:9$Su%#N|WM]wBS'6g9Z,GVܦN';G%W+ ^iG29UsCr<)%B[S7~ZOؗDL2F"R-ڔ%}xU#qjTfZs4OeB5gWtA|6s>wm?N~C* LE΢nr@vދwi5A>7rLIK:Y!Ui+Wj=rG4 y oNYVB\3~%pÒ_7KVP ` lnc*EiU#0 IPH}efˋݕl,+m/c9 kWYuY87ȯ ̅ <(<ůtdCQEӾq;/$Gג?PT;\}J(:gQH-[Y, o8߮S~ 9z.uc?+:XZlwC7\.B׊[Da5~H*oTVh miPmYȠ]Kzd{꒸h&WtE\!B)^FbI?~*l"u^ETZ鱖Zvzj:F##Jm:HE*b*HOA$Wb:CB(BĈt 6yQRz~q6JJR!ʪJmRj+>y[o!"4qe-HqLb<H@ b9BI{ChrB˫9.~pzaIv)HhA zuz1X%DI$u (pC'uB]q𻁼:"y!hAY(1fNC1WTxfu06noo|QKK\[Zӕ}$!9c7PB QnhP^DEB\o$ؒ-V{Hm ڽ :oW:nyFm~@ʯ>C㺵3Z"Î%]qW H Jsw6(Ձw^^ˊ:Kj9E 6AX;=S4nLJe+MdoKůK2M^jGS$q(d ~y.L|VRJ7ෳ+V)+vbwFW;,fdҩdԂ%$Jۿϲd PިTcJ[JÒG--EOR %ߤoiW[ڪ<1,ޠ(%m;B|SB ." *G|2/sYL=Eui6h N7#yIRyywB3V* H 2fT%DaA1A%nRoM G2ˋ%ڤ2"$6)ᐪrT*Aƣ!+/9ò3gT%0ǩZ,~%1N6b)8 fP$&;0crDTSDۢK~ʍ)$xv4\ cg}ˋ]hE[T#~K@ JJRf]8ϐtׁj S%h:;.w+ 'b,тcP( Q-͸a~ۍU$gAțK@_qFU^\^  xW `ã I.VP+%c'79Nb.i^T,T&FzfJĕ_cgw^ޢ ,䱱Wr*K@f]x>ݓj::6 R; Q.WAlo#eD(x9] _-.K {[Gngݮ_`m6өKM=4a켼ЮGK=Oɾ@Hyyy`?/ټFl%U{|;uiiif7{t MlNLo}+H}+츼n`xێB]y) GAhqy}#k5F^#-#+ `ݡGy#oW;AU#N=x0{ȻS{ Ը&ww=?"lL㎬mvG{~fE&/1w}񜾵;ўg&/)O1iԓE=>3,vq}__-Me]nh:l,v|tgz.pu D}=>3,vq其zoGޞg&=E;~Ȼ%[ak? HWX_L=؇_M±3$񷴰ŗ ~紘_^= O?{! ɻt\wv;##/oB}^DyByu}5ՏP ?z_'/r7=>{7dK zp}qk`````````````````````````````````````````````````````````7}W~;?y}_] ;^/oWلe/yajGzJtƵܫ#؟G}g߾ӑߺC_+o,:10I||15G_K?}teSpLp JY W >KC:[zt?ۀÞrr hk_7d ڈCxK;p_%|{ qG `@GK*Gء_qOq|؇?:W6~C!Rl q+N=~Kv+#խ/}}Gwf]t~7G0@=݇뮍n *~6r_y`XCTY!/~{^0eK@ ZM~lo~6JD=_f_~| K.rb_r?:e? \_CE,_#МLb 1,#I_411D%Ʉ=p@41?32QH~Z9◮#~$F>"s]~|G\1m}uW4Xsg9 lnk``````````````````````p@|ݮ'XVkZ^_G4ku|h_jR៬%b!e9l;8G?Z^ Ju.#p6- 7ҵ0XQ9Ւ`;&i"YH?~O 2~ VoXf%@0hgNl2L$x"I j\.'4,~H/*7]wAjF]bzR:{@zo* Z^Iqu t`l~;-WY(w`5"XWJ8\$7 4tVB.:>R:50"]FCh=i Mf$. *E9N4W*7C0 7\uA@U!ՇEvcm-aI3m =rw=CiZyUe t(m%I\1v~6[F-cOKGxeqE^[t}zDŽ M$: ^;~ob>b7-B-&XV_Rz sWJϦK`60usr9/Cz_<^s 'J7"X*k_<ceTd;ZT˱SܪJ)$W?}ܝIZvΤ"F܄0dZo\L&%[E0R+/9lÑ*#g&zW3) ȤSconVW_GX;[:y}Yy"_Vn+V~Zo~ػ]GؒjfkϞ0twlrr||sS(fd҂mJ^eV|/j ˁw`tEemYpanϟ;sٽMdӸvel>جW636:9 |~k#Pԃɱ7sی_;bMNxzRn͌ߛGu,QN,_ f8%ܡ^7ƦfYw ۾(# K [ v/<,́&*T IXGKr 6ͱrl_ߥ;^3n,C6,.JsnC~W X1٥Jq3#}k"k4z։TJ97h/GWl$Y R,7ot J *?S@$7쉀M/u k#~6n w;]FZ'Ewl*EPKH4*J*Θ]z\s`eDV_/c]X|? Ёt9YV,U*؎F뮄w [' + M;`ƥ]RV8IX?\͟yKb1hǰ-#\e9G~%%{ eJc׼H(t`gwVaZ/ 8ei05X!KrhuL.p#*ڱ-sZb}zSNz]QFw)+[J2+߭fZo OvGXq7s4 dF >X ⵏp lP*Wf&߾wONx=bnJ|Z*7/UݛW}֕ߓcoyGo,'<ԐDk5m+5|뭅C.?ٙSx[z:ZYqSxz(=r |wt[0 T4fI(Ek,#t^@u-#W{?UFkeqqv|s||'y؛oE9r{X0? ,LMq˗.lD0;~4;{co=﷎=/{oߺ9IJg~s9H].K~_ ܏x0>zwKϝ;w㓧N:޻x{8qK1Z &ֆzƕ?xĻvxn^߅Ssj+nfu}Y} s3&]pg|r'?S| Y@W^c^u| j~z w׃s3ӳ+\.pc7ӈ׿nNϷV+8kn\9wΞ9s)?"-Wm,rzÀۀc޸uxrSgyn,T ~~Vox~ *5_y膮UO !O'ù‡]_\8w6Ja(jo6`܋gx[s< d0 9@B9\_Go~ȯ"kSV]Gwo^z/r:?;{9K//3Ɓ{wEis49 G_*+3q oS8 AԮl6~ N~Wm+ ssc7/?ǧ?;É8}'g^=}u`}(H'ݸy-ևѻ`t>}r3[ŕkNl*U2pÞ;8k[~ѝG/Q5*r'qkirsoN~[ ׯ]#+\7LMr}-;_>{Le w{H~"@s RE=~>Bk[JP 0a1u w}v;oyͷy[=[\Νo([7p{sWh)hуWFsq!؄{/Zcs~?ߐŒ td8y Nf>u?xo9zԃl\iNN|vWSwnq|U/!׹~shxhq6tCt^\aV}mвw [` _yvvfڹyfMg> bd廓LAgjr||rr|gl+^/Fn۾[eNPyB"L*g?8сET&dx>eEq8Ǵ‹0^))=tN1omRw`v~)#0[֖tœeEQˊqS8nؘœ,/o(u^B\XXv!U"x%8 !^~^ӏ}ӔiF8IJt2qodkw/}]7am3B0 a>ǭB1p._F[TJ{BW<^~E g̺IsT1sg3Y82[e3\>[pOK2Uu>!s~o"^oW?#n0no')ŢJ3+SC,, ,Ier9dkHW:%vG89Lَp9G;E} /n=Cٜ㱨ECln:%3Z0Si܅+O;Hx{[– &-<uD{7?DFZ@3_ޣvq}oR鈎O\MS'Tq>>"k'wv7k2y*-]EbŗΠF2DP`cY9ZX]ZXP ٢ mT!h|[cJQ*mvnjزR,YN~!bk/^Fׁ(+NEڋbq8E2oS"ʌikpr>I!=vq7Xт=+Asann~%ܨ\VF8jbfz{??;;ߨ IW 'F~$oԛ:U;ңZZ| Wt@Upv뮯ssss3 gC>q 0p!H{|WD>3 ?[iWE^Fdw`#u),[o~Cˈ.1 pk]816b&n+)!sęwz}k,[<^ɽ]32kx"f|g /~ɬ:Pmr~Rc׹˯.j( Z<樟 :#*0&Hᆰ-E+:ú+VH3j9}`' 3n]GOcpu/c0v #wݽw}ݮlF O<2]?A>nF0n]?.ϱ^2]?}.off!\e/a ]?Y<הn w0n{F?o{~\0n>\0o~ | L\O!F>`^J[=̀t=?"yN{vG{~fE0W8>eB=>3,A￞Zrўg zL)Co[nG{s *GNR/1ўg tNz;ۍQ-W/{\?8W_>2kl.u_5ep&`-OӁub>3-n]b~5 :ϔ6X?^?}/k#НB=/ Hxsl{( _]?s#T+ko W?a=W~b}#l}cGN'=endstream endobj 209 0 obj << /Filter /FlateDecode /Length 402 >> stream xuM1 ?"̡8R;$=Τ+R8)!]wg~SYj6Em篮 E\r} '֢)ܝ,$ebU,V &,5Of]/LCd%4h!pwoq)z@SX(%Vb 0X ݭ;LGy)A0j043{"X> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( +>],h.K&Ln[V\s??.? j+'+-~iȌ=U`{H=x_+tEdl\1hZUn֐0׿/_ޟͥO+qUk c' j+'OQBAխg?BRk^пo;@VO:.CI)q>}ɣ/ ԿWsE^&ӈ$_>z9EdOoMƟIH4%%Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Ou%f5bNzrQ*m}\\,Jʿ$l`$Hj-wk:+vM0E)I σU2>⿗ze q쑍}+R%teܐM[pz`dORj[\yx\>t?tRKԶ}>}qAPONoD'{sic=>ѯ7MfFtU2NڠE:aHG#WZrUg}T  /c3̒>vǏӧ9 i.Q{C~g׿%O=@5YY~j3϶19M Ty_'ٴ۬_Iǧ9xhlc1d1tK桩\? MSߒ3^G綥K9GfkR_33=9ym-՜FWu =9<z?ߛp=HXr}Mh??-yR(u>Id`t<y5@@ZAvUu55g۞Y"9g=;\㧷17P| v_nbSw:hjW.]>AweBG m/mo2Yqm8#"[ˉ'y62}NZK+fZH2Aǧ;-O:֮#Q<Ƨ /~B;0؜ae#a՘٠(QES&9xE))PO#4(cA&kQ@?ż2٧x$B}J xG綥K9ZsK<:jY$ &u};?ml88hz{j_4d߻o5G|.=ץ>ͦZI6&}>s0@5/mƨ{k>n~ۭRLx{c?|>V>mR<y;<`ORStgTz(&"m^Y 1Il]Urp2Lk?r]oqåMs.V۞pqݮYNiv0L$V謹8 g ?!,5ݓ,dEqϪn0koH7֓XE1[1 U=;VdkA@V>tJ);s$jSf?T:oiPNEX,g1PvvC@VKRyTyS,(+`(\wtRO[5I53$rCKؠǶޯ \l*zst^+b ( ( ( ( ( (2uD;㽏E =̪=K޴9xE)+3.vq)q̎ rqkPg% 2$YrX{Ӭ W1G}uOU3vʲ z֠((((MsL$R)WG W3 / ^|$q_fK𞃜t/,4f=͵iWkS($=ɮ\F!RVV+ZI\nKOzY2}*d{e?+M?8?W/9'l5± C(YS_?Ѣ;j@$B۶I1Y43@<ꬬw,$m| }*C b1m!ɻ? ~]=wg~P*zVHMB3@OGޫowvzT;Mm/!0\Tδ=.m_񬴉4En\CݏD%$ַ v]AC$iBU\?Kx{) =GN >ޕ6FFݧC/3zSMА#v#F\)+6rTgYEXy⺁&*ýI\Oc6zr aJNz }Oqsmtܠ"' WBkAN'R夒!R)5'܄W}jI'Gm ?R u}u&?xik˒MLy뻌Z ( ( ( BBII4q|8Qzƛ`15뙵 v!8y-2Tc`iSuzU)`t&U$'=JuU8sJAo\r=E5mK0G>oe-^ڶxBq]AB9+Ev}j},A񞠊-22Ҭym,<ەB7Xa!= דަ[Rܓ3SoiIyJq${ Yr77a_E-ؗ!ذ*F2[C9"B\}Ѥ 2hgR,dvQE{EPEPEPEPEPEPOymgn5$Y[H@j{谧2G< =#X] cq@#(e*zZ(Vvh$ZZna62O~QW:v5 X1+/R񖅥Ke{zC-ld9 GB+b+Xn|3ƲF#rpyhkVMEP ((((((w:ź7_M+~o#Y0|*0yy~&ݏ\oLn JIc{ oĎ:Y:n/f`n}9QEQEQE! ʊYUQI7[Pt"yn;kF24~d"㫈yNҩs51rB3UY>bp$mʇ>$ m ]T]bZ=.qz9v$ҙO?jD(9GJZ]Ru1vEEvYVdiػu\,+[!bn{[~WGRJjJr+`ےlg"6'yb`3BWl2'ɳ:5Jwo#qE14kXQJc$ֶY"^3趩ue1&II^qס :«V84UH,y'UǴe\ezE>}WllQ~nzӹšGEsz9}2C)ZnwըI*VꨦE"I:S >S((((o=}]y5&!g^( ޡ'PEPx3y1{hxoImcOXWG@T3k^O63*'"^0赮Z3R=Oj֬$U`T+]2@ 'qjs,zaG0F!$EDVG #yy[xSiv[XT+ó| >$kiHe Avu$G6o.7ۍoͷoƒpQ$k((( ( ( ( ( ɽ׉4Ocp?9VN۾f:Ǜn8@⯓׳iv/(>Ġ϶ykZk[ r.Hܤ`zot 2=RHs:Т(QK;U$+Rv^X)ʣNzt#6l]]Gj` =kY3uSu&OE<ߍV{3]+ b3]FwOjirpzIq*sY\\(;%яj3[2-gZolIG=iLYHPx=N =6󜩨HKmk ڳ&xtygFvu 73 O$Ӟ ׵zxZR'Z>WF?ZכͫDrWH7-RcV y?3quNm2dW8Bw`Aʐr1ҽ!욎\WE5HC]2rSWUl1F7lzdU ?P2FXf}ͻlbAit@(((((|}HփxA%}Z ݴWZ&grF#dsՓ4AEws/eEEU̷up)$lNMWƫǼFZd_% =#Tƀ6+:Yt.;b$;XBLŰqn$VBT !PBpH\ʴ\}]v:֧3[xv7v݌|V^w+,]}nJJwI tC(rVS瑉Y),TZ֍uZxlc#bx;eJdY̧zb8?ʽpqz3xgfbNNh@s9mn=bs8g}EZә{BwҭӄV8VR8eBAާ9ֶI^3E$m& h^8D [ȯ`ed-27˖0ވt+;mwںxn"$da@fO#Ws˳α!m&D Xqv\H {TϦIF}Mb^$ >bUAFOFq΋ٓK$rlGpzU ~BO=sBMS#'K`S &OzVEyPT[v@#\󢖬KdTi_9`'Z,á*),J fЈ*F&z;y?O/O\|iɐc4GQt''OEݫ"[~Tϴmzu5 Vb婾+ SX[GXf0 ޮy#Q2q\b4\i)\h5$ x`W?td-J}Ӛh5a-SWsP~^9 tѲVڄPhaVDf:2wE=ѫ$ m \CTv0Y =OJ⏟E.pȱ9Ǿ8=+)Z YǧPhH!@>U(EPm5Oi՟ irxoIu5!-`f"p=5]$W=n#?*'"^0赭QT1a&\ wgzOupods /$@0+'KH.n0lQ#+0qq=Cv:%Ԣ(maNyȏYnȗĶ@֗fAa To I9RCFA(((((jV76w)D!3<;yg6%p 7ῖ6H﮷껦w\VVDU>cח$cw~W֡~$xzТ}E _d׉4Ocp?9kQEQEWicJρa>=:װeWR+ FAΔө/Σ)Kp-QG,SSXdy7@[pI뱼ԊJǗ|@MtjMt4 @f<=TܻϺupU#銝&FH~_٨UgsSrp+>&Eo[ܫeϝhEvڃʖLp@޳NW{ [Q3#,ݤ}=k&K-P8 ]6 y3 $QݧT>ҵXW6-#Ijǧhj0 z`TPAD?rѻ EUx 'ECF5b -}aXs! ޟJΖfGMv**j>q[l_F\>`r<܌ 7wSdsƗ_6KNA8N[װLnj*D*uF%f!B)GV큌3l\qYk Zmq)mzTy3eGoH۴ws0|팲O^N1۱dil'W_bM8徔ȵKiY%,YGy?qTf<@[ b[Lђ1>:UƋâȅ c{Ns\~?\]Ļ` d=z뛋Ro!_cԜ|8i*n3O"և[I h[B|nAIrsGZմخD z׎Y9f_Oj& 8܈Nf c3Y{ ? jka+'\Ώn5drJƇBEkVM|I =$S| ObkQEQE4?e3$g ]׆<;O&Y}>Id bPI&;m=I^N? (* :=lLg/h[{3 pQ+S57ӚOwpG+hS:xa;h`d8{זtͣj&1m %Zd ͐I WE b(5~ˮj^I%M\IpYc (rKcI XE~4}Q@Q@Q@Q@Q@u 6;]EđaTe Ͼ~/GҤkgN$.)<Nh.#1',GWՐǕ #~R?Tǎ\ֽ$GQzGqso "qS޼Zy/EH%mG=2=A5`:# E{ gČ闷0gڽfa%`zsׯmiE $sU%nMR[ލ๮2'9}1'׽v/L;R;[8O>MGdR?ZMwZҧk *#T#۷s\X[v)$f BنzB_4;(~I:W|-`,I82ԚXg"751#hĻ…r=>Wc?i1MuwzfT98lgLuVUqժǕj)Q\eQ@d\o1y_I*>6VN.ic & ՉhZ(( SZ}-\o>Etm-6Ckkv'm+:} S$RԌ)^;l\VŗVGڮՔHJY\7ˎO@#+e@U ((((((a|~i#=@5{QPl,\9C='I7E 4g2 bPkBc$Y"C#`y*hwj.{0U9\ njdcyݎ9{T N9j((((((+;DZ5c/Hg=8$dVQWџ=wm+`r 3ƒ vy33Td^o nDV_DO"gIoDX-,#WrYzqJJI{W`fV|3VPHcpۏ9Ӟծj:n,2Wx߯nOUx^[ǒ 30b'Qn^eMnNc 'OG֮G(35oeeKun)?| cQA,Hֹ.VeZs GbAJ !5JxJ1Nҩl,զ u _Chc8sM4iqtV%ceK}N?l`R-(EnHA~L_?RW$ZȣX* OqQ@Q@Q@do油Kzٝ'UGP;VdOE]`k@QEQEQEQEQEQEQEQEQEQEQEOzt'e o(쑍=FGVdҴk~yly}'{ƼGأ'lff>ZՓ/c7mϦ+Z ( ( ( ( ( (7^H}Z-hc(;*ßđh;6q:wqlj6w7>c0@;13ʒ_lOn6-cspѕU `t>5(sC_2fA=:kS,l'w@~r##<+ǧ5<ﴋB2"eԜ 1Qտ$/9F af{ WlT/{жۦiei0$;G$^dbdvVcխ@TW7Z=ċ1)gv8 RhZ+˝ D*TTrHs6}/CFmYRxK^RTWp 3i.o1MghO.w; :( ( ( ( ( ( ( ɰψuX8.=whbIՓ'UoϦ<:up0^Ě\rAqnF1R}u'\ΏpE |rDȃ@MkPEPEPEPE2ic'gXK;P9$¸|@]>TOwgu'܆?lӂG"e8v5-x1I\*NI㩮7Sb pIwx<`^y]j~$sLwHIj ̌ pA8X.[7" z׿aP>Sqi##y$eir+g;>gz[*.)$/"yⶶ@?ޒLwa$ac8FQ--HX ˈ#b6X _:ɭ+o \_d1pWAVCZ]LcȒem#``Xg82R1n_^G RZ'k5ԑqeTdwtbNb d qІ_>kMa{p8x&PrHzC6ů略[kf B,Tad[ L)LOlD?>J)Q VӞt:.v#7wk o(eKfHaFO`B-@xgҠt&yGMJ8>kWZ ಶ3nU) Nf;9e&)mm1ř@.6H HR99bAwdy}>%J_u˸ H-1 cUh]^~~ǨG-WÆ #^Jw+=yX$,8w`%x8zyMC Pv`yy`iA9hZ]O;eקнwNZ3E2v 6>f"m&&]1^Q5.84n-,sYYo~IeEtlhɻ1GάŇ,78ȧn+)żr+t amñ]ᇫ%ۯn=tgCXPpXYbR7##'sFXjR4Vӟ9F Rm6ܜgm}ihman!o#Ey]777wn,3L `"r[ TcpI짍kYޙzqE 2y#Bdb[d[xCGtn< h:6 9R;Zhzmp:*0+O*H@5jQEQEd꿽XS#K.R18֬?{}_72H}sIӦqj+?MhwhhYUwjТӳZ{U%Wűx1Oʮ-:VI5KF,`6Fݔ;]]-se4.$r.= +hD.-v ;K.l}܌TV4vo#\Xą<28F#çV*A} olYeb,@gݴu4|emeӵDJ$6> de.畷v 'L}6[笑]\5¯BA9q!09dZQEQEQEQEQEQEQEVN7|w軡'YG`;ֵdcx.%?ݎ9TN8&4ZIێ"d`=C|r:ֵTլ3T۹H;IҬ_/P$7gnր-EQP][@7I+U#f"j#E 2M+ڪp Ht=JtY@%*cʯAJI>Rp[Ca۶R>_˿Ky,kh|FPP @8Y\jɩ00rrN2<)$B;"F@iɓO;HG?yW__8Ӥ?Ϸ, yN ]IY=7wH\(UKGiRH-#'8r$7~g q-jpŘ #3$ %RL#vwq a0m =-ɻSrM>kb0WEqw;rw($xU660ohݾ"1!1:R.\]ZCm"m'W̍!m|!bviu#yAx$q'9[O=t)h(]j=ĒwAeU :}Nj[m2X,q'$;vO^+[_;mge4Č,lʐJjErC~V!P ` |WS˷LD:KO/3mditؙ,L`ǖD cG'kȤ4i&7{/cR7#Ж̧}MgvcX Fw!`['*U˵h!08ZC:Bkkh$Vduue#hO}zQ41t}^nc>.Jq_9?oGI&J|^AhE4ڸG0gV38pjzqo[ȷQJ }`F JLe`6#,m+kUcI#9lsכaNwltZuee~lgiVVV֚pMH\:~nv~l=`#+f;̋dRc!@7y4e{7n?.3\:_]C؂İq{"y4Ai VvڎE`w%aKHGKɷtlr݌|n0+Vԗ@bMۋmcB^<n~o,X֓Rs3TI5/0Df7RO͙b! )\<;FW-=66W˫0QU^Λd6)U?1xѵ;اZOƁP1ݕߔ #$=徙qC=2-SdHf8r@nںr_eY-φmn.z2$e,<][ZL[`y.A'y' eL 8m+c z Ek 3]48bWp;v@9'BJD}f&two~f평"dBHHX˹@# >r9k[{{I"p88#?O߉.`xcIɂC|Inxl՛hv ;;n17%[8V>'cҧkJ;*+:3i/ۣbO)c7 ʮQ$ Nt$.ekk#F#ѳI G8 ngt+B{=I?}Vu" B]B~xNd?U_wϰU#5Q@dCH^ݖIr×}1k@QV;;Q-)bbYrF,O*K YݥI$^ZXp_Z-.[+֎oAo#c R:[1^un56C@kRH"*QE ( ( ( ( ( ( ( YiiW>gsrwV Mg}j&ٻ;w(8~S& ZI-"R}A|:Vsiy>]i-=ȬU;bs^ҽ"s"-Jf8|$i$>?θԦ2UT,PzXd *LH8&ү&Ҭ(*G*2p?!BO4Y7Mo^vqel);V6BOzfmN7u{c΍ sĨJ~v.o\&M;˻Q*VS|1 cuCkOgrHWG@I*rcaˁ]bk[K+6iRP$r2X7PSO2J\%}_ք%B/R2AsXb"$[y!^a[~t[Beؠgs`q݌7,1K5؎yM>`T 'v9]VK-m淊<"#! a* T&+>t*W<%R[&KUDAK26Xqhis WM8d',W#ǰ{QJr"kff 䳀r9q Kq6tm/9(]#??5zLS|'~j_Xbg8F)MP `3`M.ڼ0[[\#;`f8  2٬i in'&(dh^W$u{G`EMq*<1bH\g۫O{ӿ1J-%KO=mĒ[<Yb܏nJ㌌j&[#;|xp@ʔl.nshWz$O[6=Ɋ(\ foV{1-YYe$]DBoQIg#p@$msRk _+e%K Tg?(k6Cs5l04$a[h;6 p2;=3×0bPZjňc 0:n$`(PeάgS._Sᤕi2B.2W%X {v2äÚΧwy1E[F&E9=0 e[i^]H'G+ RN?*r.fK"6U2rwJ!,^&JVcV4Y-;"ż"4+wQ-Q8p7zVmM2ss"uy\2B7@U H@;r$e8P]dמ5o5֧lvnż%@Yy GҦ]kݜr;.m6-rMy,[Y;c4Xڃ͂r8$ߚsiw m]K|<ĹgQuxlL,i˕89gS㠮:VV4^rƖ)D.$e( HXJ0RAEޮSCko;ƷYYYw6~gʰ ܰ=mɡZLD U$sc[ӭ"O,O$cv{SdghsIv@uC#o,9$ "Z9=؛ʒNmb].϶ȠO 11l{9uUslY<\vVvmA1*O-rd8R]Jjiͤ7&E9yv,6vf#Ki6&yً!ݞr9?­chڶm@<2Iq×!'Wqʷq V] YfcIkwap~}VepDz]ՙLvI'_-T'<I+o\4pF]mN6G0N `JmXiɧfK*(WbN B -$f/$ؖlg'xêzN.^^SWyݮ5ԷVɁm6RGr o' -yĈeLA۷Ι$exa:,kK@ȷi;tP俎Hg K4F lAU^i5e+H#X_ĖдN],J<~=w; &)Y>;LmsyW7Crٺ87ɤ N崼l#gq-x5YIuw-Ԁ22:ȫYfe*RH" i^nNT\MbGl,̤HO0(%AV$@:giAڽѕe,`34lx0qtڸX_ZuinAs`X\nRoJJRIyifno Z= v ǖG=soKmJ IDdh`0 sXOnί*Aͤ@mXvlo%26'2/LDrI)}jmSЌU뵎My_GebJ`8`u-I"[2lMú ٹu GLm4`ʕp $V]0h+inY1fw aG(|-U*VAhZq"AW!s1#)59R;X=#$=O~l`2)Dn.XzF c(((>o[ltAτUѿup<5?toEyHJ8ڱNJkU =H-bx¤g r9G?(F95~iڭd1.Ad pp zDikrbNWeRNN'jJVKOr 0 ` (((((((({gA:6C2^H A \i&?Շ'fBֵ խ O trelQ\/!{=ޡ[|ot{(*Gr}XU/{a9'b>:)8ljeyE2:6bq^A $HtD驫3$h-ͧ`Cı#3Dqf^ w `  `<ֶ_Ekyh.(ݸd.p3m[RNǡU>L@jkGv3 eI$gxfT%crv EIF1=v]PqZͽ6^8d]d(Ns߷=HdRN$086ƒ8TqmSˁv͹\)[%NNQܟm,$~v:kOY%Vʀq p{ IӶ%b,#+8ǀswLqPu[!Xu7e{TXeAyrVe #UR<@P$x\uNsĪFRί9/Lx,q#kn0|,JB7^GFJXH?)[ImMف;0a}}SDK/[|fc;@ EhYOkBuU>n %Ӫfvp3Pm:l?,t$4dup7'u/Y59^;Xإ#dt=O>lІ("8P0a$(Q@Q@Q@sI\=V|1ZM&FP p (AÊծk+uWF?Z(p0OZ]XԑwɜngҰ4kgWxXm|¤q7^:g=3o"ԣYpZ'ޤM8e< r3ֺ ((((((((((pJ.WbB ܰ ' E(2FkiRUby,S8+>`-uD7$9FV8#v9xE)+3ȽҹoI;ay8lxhYE>fHXPA"9d\"݇؅پG9ϷgSckgAyAA 'Trv 8n' hCt '5UCp Yl,ģ EUMKvdV W<w9 8ѩ)rXj^z]j)olj_8, RFHexOunРXA}_jsI]>ȉ$qnMN2prw3XG$0j qIзǺy_< vsFj+{fz7wCb+DiEf'y<OgtVeQ\]\"ٻ8Bc]&TQ€0F!{f,@u*Gdg~`;cޮ((((|iy˜fHA jwqoIE Ul`fPp}5?oAJ ȫ׌-krV0]juIv dO9Iܩ` k,a=+&Vđ[!F[5HãrG#,BZŵHsp4eFID!@?вϴ_1e.D(I$} ȨntwV\24;>ApT;x;Kt,AzSܝt&(QEQEQEQEQEQEQEQEQERdgk}Z]ӶvN"i\arv) oqڎmiJݔb|o4R&H`2.NK]O3Z_>Lq w,l@-``7 Y$Yd8/n|Sn7F$A Ag@?Q 9#@".LbЫXUלkSu,#(F3op49Iau)2:A(¾xs&l+˰zb^.֖w0[Ovd@Py+/5kqK0PZpW{H9 Mwi罅lᶴݵ 3`#=ji^;[܊Qem^?{8ʓ1OF4Ԥ[mwRG3$q>g;VjH'a p"ʒWGVmN-JHRK/2ǶF 9ݵ)qw$DjBn~b&xh5T`nY1ȾW<+^S@0=\[%՛@֗qW$ݸ2GLq`;wo/#8O ÑUlYsy;gҼE7Ȫ4%$[Cn2G ;>Ybp;ƴm XYon;cPB:( ~h yW%P@;̬vUܿx#:@џOM}9e*ҰI2p  N= ֏4.?CBL l W6oo$YEWu ){ b_}{mEw6|Ccv1c*22I}Vy<ۋ<۴; *9 rNegEes^M $8#e#eV{,E$h% r!8^@#`EEQEQEQEQEx+@կ2ˍȹpVͥVVۦ`crNdTSmQH(((((((((((R@%NA# ( ̛Kky^Jeؼ`nX/!?:p`kNeGq)l軤/צ9l{0 OyiAs6GByr" w +nVIL)N \i_.'l~BFv uL PycU_'7p8rIrj דg2rp 9r$`Qv])Qe`rF)!8qf-8ϲGs3̦-ms2N~c6^cI EC*Bgi?%.[h,IbNO'8O$ij?oYZX;(gwmD/+U@lYMWu)bg-b8Um+@cem'w6!qnV6167|d!9v:C5BNpCЎA#K>+݌,SE*h\qߡ`TdP]J&ܻ( 2'`\iW|jJ1)<1A?ĸ20 V7ZJڮ0\,2$6IUӧw|=:w}ZH-#.N=8t)Hl 4p1$G͜Nwrv? r/ 85pJs։w.e8yJ*do41['IUмE-Ռnc9-8$6g Lkd|f`; @\gV-43qF(OaObT *4V6y"wb?F**1Iʗ7H`$z}`&P0((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((endstream endobj 211 0 obj << /Filter /FlateDecode /Length 160 >> stream x31ӳP0P02U06P06W05WH1230!U`hhT027`I'O.}O_T.pJ.}2.}g %hj,`cﭠ q)+jtQP[&6o_?5^ap`rTB-endstream endobj 212 0 obj << /Filter /FlateDecode /Length 160 >> stream x]O1 y@TuKVUc"D7ҡY:ߝ|x%I cikDfǢU`ķBW^@$JʪC -A#E3i^?&[W(,C\ HJ$pLg9>Sgendstream endobj 213 0 obj << /BitsPerComponent 8 /ColorSpace 139 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 4667 >> stream x .G9f`[J7itX:J۩M?Quٱٲ#o~'%F/H!B!B!B!B!B!BwdG.,>zl|Zܫmb%Ll: Q7Ia~\8T}I,Ye%4CMI{E.d-y|R$Qq,$~^'rOC_G?>Q~"e<A-Z)wF VKjT 5mVVW%g(i[I젒1}b}I b͛V? ?&:g5}u6*JWm$fsT7oߘ*}wuG _Բ/BÅ_;~/Y u2>k-j]1OM\yoN K]hݶD?{8]/·ZsG~Oz[m_RP\|q?IsiaV%ouG~+ˌRֲ/9ť8~ߘ_q{ Woerq:ZrIteVv͉iӾdT zqZD`6_b&^݊B!B!B!B%xDSQ0"a#۽g/6}, ?|僫Okvn뱿?#Ll+1ejCk3b,MOϘ6¤1e1e1e1e1e%X]LSs,=2M̱_71ǂ~ u 2 2 2s,9&XЯcAnbAb|Ab|Ab|9 us,M̱_71ǂ~ L L L nb9&XЯcAncX&_cX&_Š-U8Cc&XogLp,+W4 b[> g~g,g~ԝ0aύb"3BQ|_H߷o~_HY¯9lR3¯;L~w/6 bC9 bC|lP bC6 d;_#=p_lb۔2_yhj~g;3_lm]`#$#=p/_7 bC/61meW~-T)DLXwAF0~no$y_bpje9m~G:S<6]QkӺگOdckruV~eׅOy.#tj-O͇EW+/'f]=lnEʶG=ۊۯr+䘓Ts @jwuM'gWVaw[>3OVr-ZKNL@0/oW_}ۊ)< ;Z%Q=EqV z;tK_/Jzk ˜zEuU75{G;я _E56~V~-gY#?4~KhO3.B?ϛܹI͝+Λܹ^hЫrtܖ$L]3_Kt/jcGp~syF?$WG4Gh~M1 5KuKh+Nh[KE3̫DriuC|9K0ZuwZte7n*Cx5gW9(nԝ o55: F|~>{涮qrťie8OgDm)7gCf=JӷuJ=mm7 Sm]bQ}, :G~sm@vkzm]W6HiX*I>l|v\g~S:> =ydIGSY>!)Y6<ױiS̵_e`:;qjr%R̵*wcw|sm{OX.IMϺ:\iS"Wu8;nZn"^c( N8ΏM+ECAEo';Nom/?٬FJ*ry* Oq)~JV ׸endstream endobj 214 0 obj << /Filter /FlateDecode /Length 770 >> stream xVMs0WhzAfj犁 poCpBZ)]NR…!/zu.dݪzQ[\V- lVeK> [5 L9%[/]Uç[*h/F 0X~OKT|MЀS6yh7u ^BEV|:'lic!A !8뿴oD +M"Yu[TL)ibp!YPV(7x&ro-Jό'Y6 H ͣ7R;䋟QtG#DԘiVYtM*$OfF'cB@2s1 A˧ vśeFe᛬55DI4亷[ FURh5*ntm偲>2lЉ!>Q:tPơӁ`,. ͧVe“5uX$6('eqH2wkWIOfϘ8p$M> stream x]O1 y@RUKVUc"D7ҡY:ߝ|x%I cikDfǢU`ķBW^@$J˪C -A#E3i^?&[W(,C\ HJ$pLg9AKSkendstream endobj 216 0 obj << /BitsPerComponent 8 /ColorSpace 146 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 7463 >> stream x݉TՕ zcљ Hg6q8I`VvL=0 DEA߹sԫw>wNp8p8p8p8p8p8Ù/lgwE/_ _~Nr| w$i|þ$+x=7q!r%~gU!~OSѝaa54?Ć-xyUlx~EQT&(ZNޏ =~|jE79gY$G#^˦[~O=bt)mI񏧟gZ|G? S|/+Q8M`zlYvLL(}d1M9Yl <މF&޹4K?q╨XLʃT?kMܿ/jMwT~^Lgģ?M(Y\,ynK3 +36KO;Zf6wꗉŲ(vOevpm8$a¾a}Î}C  ;vE -vז9/ zy¾Zr/S¾e^.;q~H7mw 'm“~o{}?4Cݿs߱HE﫮y~w^ŗ(qΜ98߽{Gۯ8"ĂnWUx|!|U` 鯱qn!O$n..h} `ݳg~'wOXYІ~Yx2|n|vu۷n0nJw⻾ 6džt[M]ס69-Dz~aɭ[]⼣6/;ZA|[}waDֻmwu>~W9>xVnۆ%;TmY܀[m7G ,ބ!߁n| _;j[mX*Ȁ;wiXV|--yo~H ހ~q~1=m6 _w4ߡfzZv ;G4{]_wANO{# +`1n8ǯvNrFdzwfl(0u|ƍqT_Gގ|gfj75-p`3Ut`|CwKW80Y`l/w $,Y Xоog! }gg75pHV`tCknk*ogκ#5v,^lm`Â&}=˾9ںRNܜF'%x/ wn&o'yV/R_.3G0V V_J89_`Z[`;?_ ةnT}^hBwv/W}+ n˷>]>3H[|ʫ}| l*K𲯒yce`k}0oL/]_g^}/00+x]ks 38ElvUNj o`pAO޼g;L `҂T_Gk0MH$< lڂvKogo; zZ*/U_^Yj[#$p`}-tW[ W6h6Kwu}(c3:𢺭vU-c l/*J]v&x3 jZ䫬xWWٷΝ;}䂦|a}x]u^Ƙ, 0R`'_zeے0ݙ$l(0km7[u&Va[y^eߝ0u*\[Њ/k󒺭&\-ho}y]u[f(;Zq`낶g#/Z^ڵFl0ƀӾkzʕƓ/Flw4,{%MI0U,l ,{%x%t'!vlh,kuսtTC%QX̋Y`[Z_,I*h -kKw"}c'v \=T}Zq/i8t5a3K_m=yQ]ku/gi8, ̐|] KV7tZ`W.ս\ٰ,w q0}36OZ`7]J}%ަ4wijeG%Vc!F \_Kҵ6}F{}Ea5_M 4+(X-ߚ;c6bsN7?~OK/Y^oܖ}[צbq| ^E \, 0]_Km0_\mg&NCb _ qd\ߩyq|e!0(0חu5vƾt} ?1*| kuɸ̾Rg5NĈVa"hy)]ƾX oh1ELUX.|zxI]\նc߱ K; ՆV}\٬n;a$/i)\`W5Zq)ƾŒ4 8-_ k5~kC#.ubAKq}W慺Xul`` ;KZ ,7[U}K^u5;NDI%߲9/R^]Wm0}Mcp8YйoB^\׀A8_2I KE]&9΋:h L, ;zĒ|ѫRuh>3.42N i8M|;Rye]Dq pvgWX^fZ^n}گԟ0}ƄpvɆ|F[ׯ>34_wg1$΅ oqiSba:2Ƙpm«R5]ߙ03a8][Akez4q.U8N ˱{g[b][}&0_3b\WN-y3] Nʾ5cE8޳7=s;uU]'O,ıpCGz?oʛJzSR{b)6& L8/ľ'伅.mzK8W)qRxwiyK\%P;sa lIySӳ=„ Sf8z֍ocvʾuNcGܸ^.h;dS9?̮3Go^IhG:?33G&dw5O>=OΝ=G! Qx>UO<أkTy!oRE -+, 7A|y}IxJUZݟ︼>,"zV}L ۈ K-R|5vw.}Q\g]// l'|^[ .+WEk i0Z?_P]MWW }^aDK5wi1?_z.|ہ%R⦳29Ƌu}*xgW:Vᦳ30qz~zya})_n<6߈d_7]:T_'_uCC`Geǐ6])/<|ʾ傖 *l>ߞ4@|#]d5yvv \lpI WåtҼjI'׆颼+X0)70}U`R*KַJ| ,+WYX-% Aׇ7+_s]jL 0>S^#//XeNM߭0uvU lh;U1 נ>`EkFviI2*M‹U1 7ub/` ?w̐|#v׳ 4-.ngHAzy)^F_Sq`„p;CodYn67tlniFb/}Fj;ku mh"Ҍ)uyE|LEכW.?0-ڈ~F.RޒW?|bƮ, jik/8~K4^ ( _Bם-hÆƀ14pߨ1/U_u=K6nh_# 7Rt=xlh ׮+gڷ!0)x"ۙo#NG3Dӭ nxC[0^`lC;|#n6W- X-F 3\_KyX}}A ny6!F5yz h}БVj=7 hkU~d!F)_;o(W=|WWuC%ߨ9/ Hxf9~3_L%kocnoċmgz} ڼqn"~ 3hȝo-_c$$ߨi=| Hlk,0 DjR׽pwGa᥶3Y_|\`rCCo]_/\ЦGhkom_C&ȏ\ύ}]Fx^#@ȃ^ϮLz!FH};lG!ނ 7jR|u'o벞%_ۂv d^RYK#{0F.G2`}#/Z_b0Q`xDS׷Tn^rx&,ȭZ < S\ߗ*<ٷ\_ E.cz⻾ b=6VO׻oዓ0^6ח􋙷3_ x6ww^7.z-Gwx^?m> stream x]O1 y@%ʒ.ZUm?@b!C@Hg|wYud@>%Mo &Vq*+n:?`7=]/$J75$;k{AlluK_O%Gs&#q*MK\1 >_> /Filter /FlateDecode /Height 480 /Subtype /Image /Width 800 /Length 27781 >> stream xW}?Fji%G=pBC2 ZE $/y;u8#&87+q4z'mw;߽C׮]#C` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠:7p|,9XU uHht@,}W .mDAD@W@nx"-_6~(,_v&Z,uB .>_nsW%ɗ4.A V0Dj*$Wh&-s_|[$Wh !Yaz *FpIʺ!`;HW"!W"N" l @D}%}-}%$B0ǎ9By}%WW|H;FK:|[OA:} p_u 3r!`i^XtV&uSU r]"M k+;Wh/g"~>.__0Z:C C Ql$Y, }bQ\[6&MX |u+ r!`r.,f|%/T{ W]:E4Ur&HЩ[Kf-#MXqѕԨkbWmL*QWUs$TT@Zn+C\cV?gP\CF˹_(%J | :6m+&,<ټ|/_[ͻL6)0dKt-J[A 8|_5MΦM$CdVԸnfˢLF>̍2RJf`.=}w_t}x꩓ynGNgl%DFjKtZl';yrVHٴ}背KXBC$èix7`niNϖf=}#pFX:a*}"z/>MȨ*[n<9WU+$lD>Eي ykE5w#˻.}o3)|ۍʋj.p2CmLl88 cO|";6~Q` G/V kWhCSKO&gSwBz;niI|IZ$q'&z8h8m/' gJ%Rf~"=T[dYgfO"@lS6ho{:|:;6~p*wr -kpJϦ7mZPA횡|>uv\qKnA B2]~wZ?zWI<6/`@p 4T`B=QHU88p0\::3_ >._WsjV ,, 0 lE W+CT5qm :[6|"*&xNm"_ 犪i" +p0&y(r1aP@\Q͒t VHxևi4P[AoT(iնzJއB[ 7C[6 | b$&5+rD$uF#YM >TYw6CA -t&v {W =6د_f3PEz(yrEmZ\lܣ_+с:RqA -t VH7 >TN1}fs⿓~Vs]=?a-ëx/=]t ૸I$}F\R [N"\Py)[&,jwjz)F[5Z9E͉[s cWU$D~"V*Ju[}C^+"R87/~(zPO)xźzvvkϫb>'r(NwS߁\QHrw+@rϬ}$t[QkR"z[|PaPcǏ/>TcC>S3nɫpA<o阰H`aKX%s?4WEX.[ }WUH1=JD[Q'Tۛ+mT? 8<GWv0GBӰp7{P&O3"{iW$"A_@^$Jh\7l>\"KtpX8}>We5Z"sEfݷ5zh>b˝wTkyH/av6mqmdI n_u6k/ M%WTm,kF;Wq(RC9^P#3 &?<·g?넃ٷ]fѕ]%' MDIwP4[}fN_WNw ~"(۹47xçE{sAYBCKoeۊXX]yZ#Yup5>/lcW_8V:F\ ̞/DWCWAyJR/R%U݂o૎_WNXXgFmEKOJ/VާG|ٸFu+|]*p߹A;wJGu vln_u*U)w)8$?w١ܯe(VӮw˯"Ug !Aa|I \QFb[Ljz&=uT-:A(Ju*"Y--Y|n+:Eoe+`Խ(aEUN಑6SzM+I6ҧWϸl?;}{6El'Ij7|1zD[jي"/=Ѯp3 %ا"bAsUIGkTXyk`|_u9 ~m"+q6ڊ|O\eSkUVj 'R;mE|&+̉Q+*6; 鷙jޗ [GXÿ|u[y7|;|az\[ŠV -3כw37;8kfV{C%SHst?TX=>Ƚ;%Y3uZ -O6  *v+ҹw[_Xrhz]>]Hʫ\컝ߚ}so8M+eG[n3i$#+o7U}wYBq +QmdE.|UwSo.犺|{A 닧r]bRUGs4鰵ue{xKپZI/ms}F2,,9k~c/ph,\۽ |U J}Qpڑ+J2fӔsEɳ>֣pM\lѫ](_WLѷ}խ~Y{f/Gy|Gs {h+m^+"Y{*J4૮g: Ch"WTz-c!cuIeeFcRXrr=ϓ5C03ʢ ; ~|SG7[/~NN8XZݻW!WU !HX`ӽ6*}Jr]YU '=[tɼ"J %iM"?Fi|ݮ.YC8C˧~i؋TZ(6/u" rUbR7WэؑeYoZ* 1ʻ^ByJ](n\|4-m5l^+ѯ􁿤Qd3sMڴym HϿAPK`}BEOy;'r97Qৄz ѻVRk Fmml_71Ƶšۙ'᪰>][M\ш!%5(__|z nhs1@aq6wSiL촮^-us2"\zno^16tھfn3ߢazZt>ɡcv䊆x9a |_%Qw BrEPNma"˒k{Qp%݌>ovdvy&9mLѫWG7^(/>fetq?6l??oYo.h`zVvkbz3+U!|$=Bv.'T訸Oi᣾0%x/!s^2kԙlyѭ ?"l^JC~$i8JRuGɮVĕ+껽vԋ/t+*{ o8H~Š1h^cxo KeKչodn垫Hxe:N^ުA6nft<'uOQe|VKIJT87"K?X ӢL˞eiU9|k^:pvb[-C7g;]JH Sڐ-3FK֍RXWR\\:OWN}ϔe:S80u8|974MjW |J}6ZޥckŪ m )⡌.@ŻTYeBNW?Ҙ`[Ƙ3ȋ<%}=ӭRgךv=_WIOF, (۽ 9ՋCBR,,]<_ɹJٗϞϜ* a}Ȧ,^_, st5uU~Esxұ|/ԓ)[1ya*\1eԂlEz |_9DžJX|qFJ'Ł+dJccn^m)<&$cl ?e^{⏌ѕwzN>:lz'TɲN=Լ6G/uvي +KV@U2w:>lE(z'u!#d3BMZVS鑢sBajJʎ=G0wй|Co߱S×|whT>gehtt؍r(>5O\ciE9p0dc^[\|_9_%y'0Aap3R4P*TE4-?mfd.5yR#4=闟a?I[r}WnJ;+j[r-+ox?{0b3V> glr|v3ٕ\ѾЁLFY[[۷ok KR`ݶ cw^OɜP.DcEZ.9Ӊ bn6<5aV߻o:^H򻝤T* rrbġܡ'o0gd'd,~fyܭV;`\}|_W=A-GkxKu?&d5/uPdQ%A4NUV}8/I+AGXdGl,\Q'E{6= GXfOLSHo/>/eT\MSYG2jGg'e@y9FcY>h;Ar_SU7;?$}w~slu}5ĠPVd(‚)BAWU mUN9g|IXJEkB,cgkEJJ%e;ZY}|hc*OuMI!8Vιc!¢zY]΃U0UdWo&L}*,?c U9VHɸеsqOnD0BP#y9bN׈HYʍC2qlr&-esJaZs{Hąe5/uۿWWꣀO_`Du ote #ҽ98QG0H`J8TvJ]K7ڜ~c[N-#ڹOrܬ^#wXsL8]p-^ga R_%~{?oNUVsw $(pIC A;Pi4ns%[ocdPC:\)?k T<'x,\Tٰ_łSVmO:ߐ_nZ6X=]{7["z-ơnT zsɄ؊++>^+u50\KܙW ׵cb/")GMk^Mrn2,ɹ̋tLxƚJmٶ"[R:~h.gvZ' 868GT._Lx8vީg]v![ /_W=G`џ9W[|s}7~WրW+wf@ }c8#/gKʋ& Z6Qg? ze|Ke<aa]%5k^MyV .a-MW嗍 I=~/ͦ7V@yj=34dv % |_*euljgT֞p/MB[,tsUVi ksRKRIʘ?f,Sc|RƑcϚѱ߹|Ff4& O̓ݶDԶ\шQlE}q+wm, 7{Mǯ*\QFz>.2Zf|AYK<_viLG(}+3YCL4`[3_;X?*m7-n#q}gBhor֧it4Օg'?0tfh, M  W=J߾脤7_P7+*bAO\U>)iʨŸ,%R*evsiE{">˺+F.E崬a>Hf8G-?p@r/pH3%P_z-/[/gRg+w|_ }ƢQ'wτŹO \T` "=/ i3O_"{Nonxr̈JmR,0 &;)!Zc_B"{~x^8*Zi :G-[Q/_  z}cu;7XPpoWSW95\ZyS&uz {q֎:7j+Je :|_W ^\U5),qKa9yq*ga\X0(ڀyAg5 M9Cﰾ2YV#ׯ0(c}Uue񱋙2Tck_y؊j%O폿W OfjNh &lE &A'@!aymUm\QpCCk{5nt[)s;cZ4=2.\E=p!l _rvyevOV䕦"&7NÇ9N-C-(6_WUw ",V Kܫlo솬y*ꅃxԳ.[.g;2 ~jhA- 's̻Olm Hl IJnħVqᇍtA TkXJ h|EUwwV",QYW!K:۶r!3Y1^a|AjUPąwҦ,YVf(mr(~h|Sߩ{ʙgeN4ɞRfz'!W|EEbGu["7件׉{rspPx"/.Z[mNr9T<{/kjs9\D-Ε%Yz*>so?󍆃?_/Ч2" w;8cf([4 #|"WUu [,,A-PAIVGg|*GܥAbpVUy]&AVGg҄%»#&¯h 2QjK3<^=rƬ>#d0tPdg[:SX9EŅL9fSERU3 rPm^'u?GFh<]AߩΜrutq@+S\6.C&_BX^[k$:`;% "0X6.6α8T*8d2s+7 ō-bњ&Q;e+(+eg-V72\ɋs0tΜJ,3^Y]s{8lt[3 }Q0kSЗhV |3X6.򷋸oaR:u^K kg_-Z- Z_;Vz mY_V S YXlpE$=0ug9v~ ofK~bo{P5HX*A-[ALڵ+zzq(a)[QGUMeXϤ'#_=%ⲓ>)8!+bvWK=mQ%cy"Ea*JKVOnNܶ򤅪/ndSDUmX'32j N^~NO )c2h͑|_,jkWUO3po8.2n_@[1:QJFޔTYۋclz;AT[qrEʾ˹T8[&&c"Eayg3?k;V<_i|̍cr;__\>DFrUwzK,>ҙo 9l+VP%ݵhĉj韾!|_4" AuuO˸P̂Q*f8֔ٹ2Tˆ4׾;WbFe3Pd3M1>{2Qu:>RN92²R6l+{Sw)a~6:w9Z:{Ec9}߾5јg.aF[ 4GB| r8Z97#] *RSƐ3+VUujàՇᠯ(r3E+tqyvCV>OL+/5V7RNnA#?~~;9ŋk% _NRa-g?f7L|lWl~ JmٖA e jݍxvqN~|ճ ێ 8wEZVx^˕ۮw DbѶ2*[wb9cc[Lյ.FSA`< yIl[`!"'\ *h+Q[eTU,`mQkAþ w>ViӨ{\Wq{țTm\w.Ly_|65ZYZ5x3JĈW9tTh{oB^A/>A&r 9TM46hOΉG c^.ٽ1VFm*2L l8Zþ 1KՎ, iHAa0NqbiTz\&^ra/)OM@ZrQeA R=y$7u_׃dJ:PYG_c6Q\9'lF|7V SP~ _W=@QXuCImjfFtn]Mg,y E[f3?-&=a.2 W j84hgx/{{V=:KS:w l׷  3 Ǜ@vǮxj- iFonD ݒU9mnoݸ!þiHu[Ql~jQUa /DSx*9kz\lUk2?ٹ9~܆<Ǿv{sw>U%CǾVsh-=qaM['^_EkPW%nXj79|ՃSh#u/!T =*_U;`JRG}CJr`+Ћ嫆,id(gWU_gvnO;z4*#o ޸lzʲgKarx꟥͌dIsLYE#w\P/M=l:C,jNoY8+W^E Ԣ_v+ިaNȰc:XLΧ\}P /Gg|9&{my?H'JCTPxw>d0ٲt[ʔJ=-2W<ڻ07CΑ#U392*q@@WR\, 9Yߊh<[| N`𕫢PKbrsclxt۩%Fn4o~*㨑pk+r"ġ`yysEZ ZvSKJl]CYmؾ4'T%-.˿sS͜0 E_5+]&|_"8ڋk mwșk] n}תW(ҹLPјYA&icae* A7.,_['uwv9gN-*gt;>#$XasK^¦} l:Ljb]*W'_Dڋ~5VSE~W\<;MesdJUȕx~ *G"[RYkc=3]Wf}]FFjb+˪HS`ҍ5.[nR\4`-{ߜpP';,'=]:>:g7) D+j qe ? _PNs ^wS^8ҧiRsE$ 5q%So/ь| (m<>5ڒ[q5jg[;WT]?وGS/׮l+R;jt)x= 1"N.4!c _W >ܕ;qE]=-}B,<\ BK g/i{x89.U)޸z/~dfΙ '&jV&'klE+]S˰xK݆h/9ß? Cª坻/` 0 b閃K'%J-C~Wב5_Fwl&=aKrlfʣb+ô=4re:3;\Sj]#W`+OlȯC~qjWvvu[jPrhp|O-sW^|XS-= jtVN}Vm/QKֲ}GCNowJ|_|Ճ >w@Չtv#c؈sEy]؊ e.s{15t];@f)Kו)c 3T8sd\o ճL-#Gw| KgOTw(:'=_?Q :#}O&hp+u,P{QZzZ;`4 Yyg .3rgֆ+BXmȅ`;=#58z^!SV^(3:[3o¯D@ qmEl:yM޽M}]_|՛!ץ*te\(=-*.2U*rȎma-@ gU]X]+q(Z3}!;{ԧ9$@,T%"s?9PuSR7I(u@2| u7 z|F!gg v}_eiCveh W/ر^zz*sCCQr}ޅ'Yn9h(b+˷9,A%."%<܅aV`@䌣j,% "g5hv^Y`,`qJ4a+onҵ+5BhETʩ;/434+;<,8uT< VxO&.u7 a+|:!i,q૞T7q?M_ƕJw/EԨ>[۳ˠա-F~|FK40cA l7QzAPV } KF[]4IjW=>×lv>t<:Uw BL"_F*Lu>3:nm>#&a?S0;F۹=;EŚ!8sD8! FK\b ,mbyLd#RG][|LoLvt)( FJz)A0ȴ+RxEB^&cWU+,, ׼W/2g~QٰrBAvjamQm+/ʑvQZ)4k(q!zn;,{,oVVz#O-e'x?LCt*o9}GɏUocGwkpZՋ"G{|5\ X[ lzV.]WsW*WUρϨ2嫧dO*?Fn,`T eSg></;/Gz2OyZ#̙yeN*{Ec+=Cߡl6ۊ:1?A+o{`WUρVpx3,!R]7Jtv{ZêNlaj' r)?)EY}CVv8$@<>~ۊ0WP,)OT,RSѡry_L J},oy˝"$rR^> _9ăVNZƕk˵o+t-.3NJ8j1"T r>=+<.X&Oz 'X^Eu9FrK{)#]X8+JsАRvۊ ,4`1stVOLfs%'Ke为`QmΨ8R)Lm5F9Om~>U/tvsL ]7 *ViKZ^aV HE`' Sk#|4xʾvO_[XX0V /1 ˉxZ>󊭨"q6GeWu؜on.][- B>Vg]cZJrg|x%R4.,,P@Is;9'd2f¨E),,^Ng-/ꫨg[}j:Z!x k6Gd `;LiMV4r8d_WUO3х6 JPy)җ)d%Ȟ YNg'+J8/25gQ{5X1@$.IW\/ &e.|@8@h2;+$Y΀O3D`݋?E7)C7}j9/x7PٓĖ'v8(mU{-2 䶌WJf&;i#ڊ%՘?MM[Pg, 䳧W _u |#bJAPmճ*'AV3WG=S4בEMCc!:k8@I/ I a+}(KM.zQT;"ňO=|I&F;XTEq"-ݕ|U⚚ťJ1|/zd+S؊iYuf\&|cMMt"MRXEiJ!U~n[#CX$Xj(+"_u|i},LLfwPzX~ ?ʃѡ'P ][Z OaѺ[4f}WY"_u|ɢ38IJywlyjѵtY-1@me*JtH4! إ&GM^F޵sDaVHXO˹ec__u|ɢyX,~x4OZVZx.ߪԭԋ_\V/VShp .-td19-|E>dz*S3dIebR5E{WrVD\ȶ[b _Y2u,_}l]a+:Nu ]ܻ"{Q.UGcD23]9iSETfs%Yf_nYgR Rw4>bfhkލ[O曱AX(.,h |E /oVAέnS:QU%6خEwl)3ԯY/V۽1sz+յO%6uX N=xP,)#Sg_y :X"f6o=h9WeJIZ3_xQu_mNtK0W$|3LD?['^i-o"T@.,8X<_w'{*K,W6UAoQ=>ZlWy=}At6ΧL.64 rQGXt}K) ۪ ]zŧ8cD>N;q]r|DO+or0Mf3gWmZj!*Q J#&x65knSjx"tOBa0T)4wRM*WIAA̓o;2K|Vlz,?Rk aMU*DoL ``62;%{'8W}s j!Ӵ+ȇrʘ_W )ƩPuȞ ˤB>oF\&+a%'WTUnnYvmE|^&g`X0,޳UF'+uaGPXX$_WC.@R[f;fyŋ+>oBWJ\FH X,6V?tU %\`XX(F^Bt+:Xv7l;U+Q Ѡ6'y "Cg@eJhz}W*i59KfSS2",nrhHt軅Ŕa/yΕT\hDQNe()#e:XKxKO\{i↯k&K*rZhjιv.**59KM<0ąwQJ]+04B49r'lt@WAWA'J C\f/=};9rjVV|2|LH#“ :^LOZɑcUSv__%|G-ܺw{RRg*_\2X|$__%|3_o&YTY谚OZԹ|R9GVΰI J8BEmE ['UEх&`+|||M >k 4,ULZh9j>iphɑf@*">: AՋ$3/JTǽ-o2)5O}1Ȅp  e Z0u?R_m5O mhr璁HU(Uc WWƇ<}6:8XII+ ͻw. l@Bz|%|M;KwX%Q=sNp\7F璁_૨Aw|sjhYǎQaX|RTnnEd꤅%|F9m d_5"V`Pg=_7!XXE / ǦNIsH&Uh"ڊRCx>V7-4h.:6?moISwݏCC][*-',c>iAsq@-%A%L4A :!%PId4~9y< gywG+W `cȋgqsF-ߚY5H-_v১U͕ WW]92['D2`NK_۩ ,i#_33=afUᏗ]:~vx՘eqGըɬ2xi.z`9XNVyWj3̉/FWYOO/vo,~͚lwA^ɫm0'Ydֳ>ioKZE^1#"#pEVeQg@O^1"&Y݋sroJyEkIRNS]J+$yESfIXξYJ+`$/rTg場.W4b49s`?,yE &JC[:}lYA,C5W+o#ΑW-sFn"t<%ә.iY HWLd̪q)pb 3fHЈ:2 hG^qcf1̒V@kL%M#iC^1a)%9+7˫ lB^9`d`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`f˰endstream endobj 219 0 obj << /Type /XRef /Length 218 /Filter /FlateDecode /DecodeParms << /Columns 5 /Predictor 12 >> /W [ 1 3 1 ] /Info 3 0 R /Root 2 0 R /Size 220 /ID [<9fcca2f9532a30bc51dadf188470918c>] >> stream xcb&F~0 $8J?u@6]P3#ϠJ8_6J' LBs@g "E) l 0 DʀY@$[HZD2RJ]R`]i Dj]"YH6"H`]o$)\ y &goV0%!"wE12," endstream endobj startxref 336194 %%EOF plot3D/vignettes/plot3D.rnw0000644000176200001440000005101414051143721015323 0ustar liggesusers\documentclass[article,nojss]{jss} \DeclareGraphicsExtensions{.pdf,.eps,.png} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Add-on packages and fonts \newcommand{\noun}[1]{\textsc{#1}} %% Bold symbol macro for standard LaTeX users \providecommand{\boldsymbol}[1]{\mbox{\boldmath $#1$}} %% Because html converters don't know tabularnewline \providecommand{\tabularnewline}{\\} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% User specified LaTeX commands. \newcommand{\p}{\textbf{\textsf{plot3D }}} \newcommand{\R}{\proglang{R}} \title{ \p: Tools for plotting 3-D and 2-D data. } \Plaintitle{plot3D} \Keywords{ plot, persp, image, 2-D, 3-D, scatter plots, surface plots, slice plots, oceanographic data, \proglang{R} } \Plainkeywords{ plot, persp, image, 2-D, 3-D, scatter plots, surface plots, slice plots, oceanographic data, R } \author{Karline Soetaert\\ NIOZ-Yerseke\\ The Netherlands } \Plainauthor{Karline Soetaert} \Abstract{ \R{ }package \p \citep{plot3D} contains functions for plotting multi-dimensional data. Many functions are derived from the \code{persp} function, other functions start from the \code{image} or \code{contour} function. Two related packages are: \begin{itemize} \item \pkg{plot3Drgl} \citep{plot3Drgl}, that plots multidimensional data using openGL graphics (and using package \pkg{rgl} \citep{rgl}). \item \pkg{OceanView} \citep{OceanView} that contains functions for visualing oceanographic data. \end{itemize} A graphical gallery using one of \pkg{plot3D}, \pkg{plot3Drgl} or \pkg{OceanView} is in \url{http://www.rforscience.com/rpackages/visualisation/oceanview/} and \url{http://www.rforscience.com/rpackages/visualisation/plot3d/} } %% The address of (at least) one author should be given %% in the following format: \Address{ Karline Soetaert\\ Royal Netherlands Institute of Sea Research (NIOZ)\\ 4401 NT Yerseke, Netherlands\\ E-mail: \email{karline.soetaert@nioz.nl}\\ URL: \url{http://http://www.nioz.nl/}\\ } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% R/Sweave specific LaTeX commands. %% need no \usepackage{Sweave} %\VignetteIndexEntry{plot3D: functions for plotting 3-D and 2-D data} %\VignetteKeywords{plot, persp, image, 2-D, 3-D, scatter, surface plots, slice plots} %\VignettePackage{plot3D} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Begin of the document \begin{document} \SweaveOpts{engine=R,eps=FALSE,resolution=80} \SweaveOpts{keep.source=TRUE} <>= library(plot3D) options(prompt = " ") options(continue = " ") options(width=75) @ \maketitle \section{Introduction} \R{ } package \p provides functions for plotting 2-D and 3-D data, and that are either extensions of R's \code{persp} function or of R's \code{image} and \code{contour} function. The main extensions to these functions are: \begin{itemize} \item In addition to the x, y (and z) values, an additional data dimension can be represented by a color variable (argument \code{colvar}). \item A color key (argument \code{colkey}) can be written next to the figure. It is possible to log-transform the color key, rescale it, adjust its position, ... \item The resolution of a figure can be increased (argument \code{resfac}). \item Either the \code{facets} can be colored, just the border, or both. \end{itemize} Package \p contains: \begin{itemize} \item Functions that are based on the \code{persp} function, for visualising 3-D data: \begin{itemize} \item \code{persp3D}: an extended version of the \code{persp} function. \item \code{ribbon3D}: perspective plots as ribbons. \item \code{hist3D}: 3-D histograms. \item \code{scatter3D}, \code{points3D}, \code{lines3D}, \code{text3D}: scatter plots in 3-D, points, lines, labels. \item \code{surf3D}: 3-D shapes (or surfaces). \item \code{slice3D}, \code{slicecont3D}, \code{isosurf3D}, \code{voxel3D}: slices, isosurfaces and voxels from a full 3-D data set. \item \code{arrows3D}: arrows in 3D. \item \code{contour3D}, \code{image3D}: contours and images in 3D. \item \code{segments3D}, \code{polygon3D}, \code{rect3D}, \code{border3D}, \code{box3D}: line segments, polygons, rectangles, boxes in 3D. \end{itemize} \item Functions defined on the \code{image} or \code{contour} function: \begin{itemize} \item \code{image2D}, \code{contour2D}, for an extended version of these functions to visualise 2-D (or 3-D) data. \item \code{ImageOcean}, for an image of the ocean's bathymetry. \end{itemize} \item Other functions \item \code{scatter2D}: colored points, lines, ... in 2-D. \item \code{text2D}, \code{arrows2D}, \code{segments2D}, \code{rect2D}, \code{polygon2D} for other 2D functions, comparable to R's base graphics but that have a color key. \item Colors and colorkeys: \begin{itemize} \item \code{colkey}: color legends. \item \code{jet.col}, \code{jet2.col}, \code{gg.col}, \code{ramp.col}: suitable color palettes. \end{itemize} \item Utility functions: \begin{itemize} \item \code{mesh}: generating rectangular (2D) or (3D) meshes. \item \code{plotdev}: plotting on the current device. \end{itemize} \item Data sets: \begin{itemize} \item \code{Oxsat}: a (rather large) 3-D data set with the ocean's oxygen saturation values. \item \code{Hypsometry}: a 2-D data set with the worlds elevation and the ocean's depth. \end{itemize} \end{itemize} This vignette contains some examples; more can be found in the package's help files. To run all examples: \begin{verbatim} example(persp3D) example(surf3D) example(slice3D) example(scatter3D) example(segments3D) example(image2D) example(image3D) example(contour3D) example(colkey) example(jet.col) example(perspbox) example(mesh) example(trans3D) example(plot.plist) example(ImageOcean) example(Oxsat) example(legendplot) \end{verbatim} \section{Functions image2D and persp3D} \code{image2D} and \code{persp3D} are extensions of R's \code{image} and \code{persp} functions. The arguments of \code{persp3D} are (see the help file for what they mean): <<>>= args(persp3D) @ Many examples of the use of \code{image2D} and \code{persp3D} are in vignette \code{volcano}. The \code{Hypsometry} data set is depicted first as an \code{image}, with 0 m contour lines added. Slight shading gives the plot a perspective view. The zoomed region (used in next figure) is then added. <>= image2D(Hypsometry, xlab = "longitude", ylab = "latitude", contour = list(levels = 0, col = "black", lwd = 2), shade = 0.1, main = "Hypsometry data set", clab = "m") rect(-50, 10, -20, 40, lwd = 3) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{Hypsometry data set} \label{fig:hyps} \end{figure} <<>>= ii <- which(Hypsometry$x > -50 & Hypsometry$x < -20) jj <- which(Hypsometry$y > 10 & Hypsometry$y < 40) zlim <- c(-10000, 0) @ The perspective figure is made with black side-panels (\code{bty}). Grey contour lines are added on the bottom panel (\code{"zmin"}) and on the persp plot itself (\code{"z"}). The resolution is increased (\code{resfac}) to make smoother images. A color key (\code{colkey}) is added on the first margin (\code{side}) <>= par(mfrow = c(1, 1)) # Actual bathymetry, 4 times increased resolution, with contours persp3D(z = Hypsometry$z[ii,jj], xlab = "longitude", bty = "bl2", ylab = "latitude", zlab = "depth", clab = "depth, m", expand = 0.5, d = 2, phi = 20, theta = 30, resfac = 2, contour = list(col = "grey", side = c("zmin", "z")), zlim = zlim, colkey = list(side = 1, length = 0.5)) @ \setkeys{Gin}{width=0.6\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{Bathymetry of a part of the ocean} \label{fig:ocean2} \end{figure} \newpage \section{slices and isosurfaces} Function \code{slice3D} draws slices from volumetric (3D) data, function \code{isosurf3D} creates and plots isosurfaces. It makes use of a function from package \code{misc3d} \citep{misc3d}. <<>>= args(slice3D) @ Function \code{mesh} is used to generate a full rectangular 3-D mesh. This is used to generate the volumetric data (\code{p}) that defines the coloration. The data are visualised by one slice in x (\code{xs}) and 3 slices in y direction (\code{ys}). Function \code{isosurf3D} plots the data for p-values that are equal to \code{0}. <>= par(mfrow = c(1, 2)) x <- y <- z <- seq(-4, 4, by = 0.2) M <- mesh(x, y, z) R <- with (M, sqrt(x^2 + y^2 +z^2)) p <- sin(2*R)/(R+1e-3) slice3D(x, y, z, colvar = p, xs = 0, ys = c(-4, 0, 4), zs = NULL) isosurf3D(x, y, z, colvar = p, level = 0, col = "red") @ \setkeys{Gin}{width=0.8\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{Slices and isosurfaces from volumetric data} \label{fig:slice} \end{figure} \newpage \section{surf3D} Function \code{surf3D} creates 3-D surface plots. <<>>= args(surf3D) @ Here are 4 applications, showing the different options of coloration. <>= par(mfrow = c(2, 2), mar = c(0, 0, 0, 0)) # Shape 1 M <- mesh(seq(0, 6*pi, length.out = 80), seq(pi/3, pi, length.out = 80)) u <- M$x ; v <- M$y x <- u/2 * sin(v) * cos(u) y <- u/2 * sin(v) * sin(u) z <- u/2 * cos(v) surf3D(x, y, z, colvar = z, colkey = FALSE, box = FALSE) # Shape 2: add border M <- mesh(seq(0, 2*pi, length.out = 80), seq(0, 2*pi, length.out = 80)) u <- M$x ; v <- M$y x <- sin(u) y <- sin(v) z <- sin(u + v) surf3D(x, y, z, colvar = z, border = "black", colkey = FALSE) # shape 3: uses same mesh, white facets x <- (3 + cos(v/2)*sin(u) - sin(v/2)*sin(2*u))*cos(v) y <- (3 + cos(v/2)*sin(u) - sin(v/2)*sin(2*u))*sin(v) z <- sin(v/2)*sin(u) + cos(v/2)*sin(2*u) surf3D(x, y, z, colvar = z, colkey = FALSE, facets = FALSE) # shape 4: more complex colvar M <- mesh(seq(-13.2, 13.2, length.out = 50), seq(-37.4, 37.4, length.out = 50)) u <- M$x ; v <- M$y b <- 0.4; r <- 1 - b^2; w <- sqrt(r) D <- b*((w*cosh(b*u))^2 + (b*sin(w*v))^2) x <- -u + (2*r*cosh(b*u)*sinh(b*u)) / D y <- (2*w*cosh(b*u)*(-(w*cos(v)*cos(w*v)) - sin(v)*sin(w*v))) / D z <- (2*w*cosh(b*u)*(-(w*sin(v)*cos(w*v)) + cos(v)*sin(w*v))) / D surf3D(x, y, z, colvar = sqrt(x + 8.3), colkey = FALSE, border = "black", box = FALSE) @ \setkeys{Gin}{width=0.8\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{Surface plots} \label{fig:surf} \end{figure} \subsection{scatter2D and scatter3D} Functions \code{scatter2D} and \code{scatter3D} draw scatterplots. <<>>= args(scatter2D) args(scatter3D) @ The dataset \code{quakes} is plotted using function \code{scatter3D}. Before the 3-D quakes data are drawn, small dots are added on the bottom and on the depth plane (\code{panelfirst}). <>= par(mfrow = c(1, 1)) panelfirst <- function(pmat) { zmin <- min(-quakes$depth) XY <- trans3D(quakes$long, quakes$lat, z = rep(zmin, nrow(quakes)), pmat = pmat) scatter2D(XY$x, XY$y, colvar = quakes$mag, pch = ".", cex = 2, add = TRUE, colkey = FALSE) xmin <- min(quakes$long) XY <- trans3D(x = rep(xmin, nrow(quakes)), y = quakes$lat, z = -quakes$depth, pmat = pmat) scatter2D(XY$x, XY$y, colvar = quakes$mag, pch = ".", cex = 2, add = TRUE, colkey = FALSE) } with(quakes, scatter3D(x = long, y = lat, z = -depth, colvar = mag, pch = 16, cex = 1.5, xlab = "longitude", ylab = "latitude", zlab = "depth, km", clab = c("Richter","Magnitude"), main = "Earthquakes off Fiji", ticktype = "detailed", panel.first = panelfirst, theta = 10, d = 2, colkey = list(length = 0.5, width = 0.5, cex.clab = 0.75)) ) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{Scatter plot} \label{fig:scatter} \end{figure} \newpage \subsection{arrows3D, arrows2D} Functions \code{arrows2D} and \code{arrows3D} extend R function \code{arrows} with a color variable. <>= par (mfrow = c(1, 2)) arrows2D(x0 = runif(10), y0 = runif(10), x1 = runif(10), y1 = runif(10), colvar = 1:10, code = 3, main = "arrows2D") arrows3D(x0 = runif(10), y0 = runif(10), z0 = runif(10), x1 = runif(10), y1 = runif(10), z1 = runif(10), colvar = 1:10, code = 1:3, main = "arrows3D", colkey = FALSE) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{arrows} \label{fig:arrows} \end{figure} \newpage \section{Functions based on image} The \code{image2D} function is an extended version of \code{image}. It has two S3 methods: \begin{verbatim} image2D(z =, ...) image2D.matrix(z, x = NULL, y = NULL, ..., col = jet.col(100), NAcol = "white", facets = TRUE, contour = FALSE, colkey = NULL, resfac = 1, clab = NULL, theta = 0, border = NA) image2D.array(z, margin = c(1, 2), subset, ask = NULL, ...) \end{verbatim} The data set \code{Oxsat} has oxygen saturation values in the ocean, at 2dg horizontal resolution, and for 33 depth intervals. <<>>= names(Oxsat) dim(Oxsat$val) @ Function \code{image2D.array} plots several depth intervals at once, looping over the first and second margin. The color key is added in a separate figure. <>= sub <- c(1, 5, 9) image2D(z = Oxsat$val, subset = sub, x = Oxsat$lon, y = Oxsat$lat, margin = c(1, 2), NAcol = "black", colkey = FALSE, xlab = "longitude", ylab = "latitude", main = paste("depth ", Oxsat$depth[sub], " m"), clim = c(0, 115), mfrow = c(2, 2)) colkey(clim = c(0, 115), clab = c("O2 saturation", "percent")) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{image2D function} \label{fig:image2D} \end{figure} \newpage \section{Composite figures} It is also possible to make a composite figure combining several functions. <>= persp3D(z = volcano, zlim = c(-60, 200), phi = 20, colkey = list(length = 0.2, width = 0.4, shift = 0.15, cex.axis = 0.8, cex.clab = 0.85), lighting = TRUE, lphi = 90, clab = c("","height","m"), bty = "f", plot = FALSE) # create gradient in x-direction Vx <- volcano[-1, ] - volcano[-nrow(volcano), ] # add as image with own color key, at bottom image3D(z = -60, colvar = Vx/10, add = TRUE, colkey = list(length = 0.2, width = 0.4, shift = -0.15, cex.axis = 0.8, cex.clab = 0.85), clab = c("","gradient","m/m"), plot = FALSE) # add contour contour3D(z = -60+0.01, colvar = Vx/10, add = TRUE, col = "black", plot = TRUE) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{Several color keys in composite figure} \label{fig:Composite} \end{figure} \newpage \section{plotting with legends and colorkeys} As from version 1.4, a new feature has been added, allowing plotting functions to have colorkeys, or legends that are positioned outside of the plotting region. See ?legendplot. For instance, to put a legend outside of a boxplot: <>= pm <- par(mar = c(4,3,4,2)) legend.plt(formula = len ~ dose:supp, data = ToothGrowth, boxwex = 0.5, col = c("orange", "yellow"), main = "Guinea Pigs' Tooth Growth", xlab = "Vitamin C dose mg", ylab = "tooth length", sep = ":", lex.order = TRUE, ylim = c(0, 35), yaxs = "i", method = "boxplot", legend.side = 2, legend = list(legend = c("Ascorbic acid", "Orange juice"), fill = c("yellow", "orange"))) @ \setkeys{Gin}{width=0.8\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{adding a legend to boxplot} \label{fig:legendboxplot} \end{figure} \newpage To add a colorkey <>= n <- 100 colorkey.plt(method = "pie", x = rep(1, n), labels = "", col = rainbow(n), border = NA, main = "colorkeyplot with 'pie'", colorkey = list(col = rainbow(n), clim = c(1,n))) @ \setkeys{Gin}{width=0.5\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{adding a colorkey} \label{fig:colorkeypie} \end{figure} \newpage \section{Issues} \subsection{Specifying axes limits} There are two ways in which the axes limits can be set, either allowing the 3D data to overflow the axes, or to be clipped. Consider the following code, which is based on a demo from the \pkg{rgl} package \citep{rgl}. In this code, the \code{iris} data set is fitted with two models, and the data plotted using \code{scatter3D} and the fitted surfaces using \code{persp3D}. The z-axis limits are set to \code{c(1, 9)}; plotting is postponed until all objects have been added (this avoids clogging - see next subsection). Then the result is plotted using \code{plotdev} (this plots the graph on any device that has been opened). The first time, without specifying the axes limits, the second time setting the axes limits. <>= nout <- 30 xout <- with(iris, seq(min(Sepal.Length), max(Sepal.Length), length = nout)) yout <- with(iris, seq(min(Sepal.Width) , max(Sepal.Width), length = nout)) xy <- expand.grid(Sepal.Length = xout, Sepal.Width = yout) # Fit two models, linear and quadratic mod <- with(iris, lm(Petal.Length ~Sepal.Length + Sepal.Width)) mod2 <- with(iris, lm(Petal.Length ~Sepal.Length + Sepal.Width + I(Sepal.Length^2) + I(Sepal.Width^2) + I(Sepal.Length*Sepal.Width))) # prodict at new values zpred.1 <- matrix( predict(mod, newdata = xy), nrow = nout, ncol = nout) zpred.2 <- matrix( predict(mod2, newdata = xy), nrow = nout, ncol = nout) # make graph, postpone plotting till the end par(mfrow = c(1, 2)) with(iris, scatter3D(Sepal.Length, Sepal.Width, Petal.Length, colvar = as.numeric(Species), colkey = FALSE, col = c("blue", "red", "gold"), bty = "b", xlab = 'SL', ylab = 'PL', zlab = 'SW', zlim = c(1, 9), pch = 16, cex = 2, theta = 0, plot = FALSE)) persp3D(x = xout, y = yout, z = zpred.1, facets = NA, add = TRUE, col = "blue", plot = FALSE) persp3D(x = xout, y = yout, z = zpred.2, add = TRUE, col = "green", plot = FALSE) # plot using traditional device plotdev(theta = -50, alpha = 0.5) plotdev(theta = -50, alpha = 0.5, zlim = c(1, 9)) # if you want to see this in rgl: # library(plot3Drgl) #plotrgl(alpha = 0.5) @ \setkeys{Gin}{width=1.0\textwidth} \begin{figure} \begin{center} <>= <> @ \end{center} \caption{calling plotdev() with axes limits causes the figure to be clipped} \label{fig:hyps} \end{figure} \subsection{Preventing clogging of the figures} When a lot of objects are \code{add}ed then the ultimate figure may appear clogged. This is because each time something is added, all the objects are redrawn on top of what was already there - the only thing that is not redrawn are the axes and titles. To create `slim' figures, use \code{plotdev()} (e.g. see previous section). \section{Finally} This vignette was made with Sweave \citep{Leisch02}. \clearpage \bibliography{vignettes} \end{document} plot3D/vignettes/vignettes.bib0000644000176200001440000000327614051143650016124 0ustar liggesusers @INPROCEEDINGS{Leisch02, author = {Friedrich Leisch}, title = {Sweave: Dynamic Generation of Statistical Reports Using Literate Data Analysis}, booktitle = {Compstat 2002 - Proceedings in Computational Statistics}, year = {2002}, editor = {Wolfgang H{\"a}rdle and Bernd R{\"o}nz}, pages = {575-580}, publisher = {Physica Verlag, Heidelberg}, note = {ISBN 3-7908-1517-9}, url = {http://www.stat.uni-muenchen.de/~leisch/Sweave} } @Manual{plot3D, title = {plot3D: Plotting multi-dimensional data.}, author = {Karline Soetaert}, note = {R package version 1.4}, year = {2021}, url = {http://CRAN.R-project.org/package=plot3D} } @Manual{plot3Drgl, title = {plot3Drgl: Plotting multi-dimensional data - using rgl.}, author = {Karline Soetaert}, note = {R package version 1.0.2}, year = {2021}, url = {http://CRAN.R-project.org/package=plot3Drgl} } @Manual{OceanView, title = {OceanView: Visualisation of Oceanographic Data and Model Output.}, author = {Karline Soetaert}, note = {R package version 1.0.6}, year = {2021}, url = {http://CRAN.R-project.org/package=OceanView} } @Manual{rgl, title = {rgl: 3D Visualization Using OpenGL}, author = {Daniel Adler and Duncan Murdoch and others}, year = {2020}, note = {R package version 0.100.54}, url = {http://CRAN.R-project.org/package=rgl}, } @Article{misc3d, title = {Computing and Displaying Isosurfaces in {R}}, author = {Dai Feng and Luke Tierney}, journal = {Journal of Statistical Software}, year = {2008}, volume = {28}, number = {1}, url = {http://www.jstatsoft.org/v28/i01/}, } plot3D/R/0000755000176200001440000000000013240503434011616 5ustar liggesusersplot3D/R/isosurface.R0000644000176200001440000000150212176665020014111 0ustar liggesusers ## ============================================================================= ## Function to create isosurface triangles of an array ## ============================================================================= createisosurf <- function(x, y, z, colvar, level = mean(colvar, na.rm = TRUE)) { DD <- dim(colvar) if (length(x) != DD[1]) stop ("'x' should be of length equal to first dimension of 'colvar'") if (length(y) != DD[2]) stop ("'y' should be of length equal to second dimension of 'colvar'") if (length(z) != DD[3]) stop ("'z' should be of length equal to third dimension of 'colvar'") Tri <- computeContour3d(vol = colvar, maxvol = max(colvar, na.rm = TRUE), level = level, x = x, y = y, z = z, mask = NULL) colnames(Tri) <- c("x", "y", "z") invisible(Tri) } plot3D/R/slicecont3D.R0000644000176200001440000001425112516632263014126 0ustar liggesusers## ============================================================================= ## 3-D visualisation of volumetric data using contour slices in x, y or z ## ============================================================================= # x, y, z vectors or arrays, colvar: array ContourLines <- function (x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, nlevels = 10, levels = pretty(range(z, na.rm = TRUE), nlevels)) { # Check for decreasing values of x and y if (all(diff(x) < 0)) { x <- rev(x) z <- z[nrow(z):1, ] } if (all(diff(y) < 0)) { y <- rev(y) z <- z[, (ncol(z):1)] } contourLines(x = x, y = y, z= z, nlevels = nlevels, levels = levels) } slicecont3D <- function(x, y, z, colvar, ..., phi = 40, theta = 40, xs = NULL, ys = NULL, zs = NULL, level = NULL, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", dDepth = 0., add = FALSE, plot = TRUE) { if (add) plist <- getplist() else plist <- NULL dot <- splitdotpersp(list(...), bty, NULL, x, y, z, plist = plist, breaks = breaks) if (! ispresent(colvar)) stop("'colvar' has to be defined and be an array of dimension 3") # check dimensionality DD <- dim(colvar) if (length(DD) != 3) stop("'colvar' has to be an array of dimension 3") if (DD[1] != length(x)) stop("dimension of 'colvar' not compatible with length of 'x'") if (DD[2] != length(y)) stop("dimension of 'colvar' not compatible with length of 'y'") if (DD[3] != length(z)) stop("dimension of 'colvar' not compatible with length of 'z'") if (! is.null(xs)) if (! is.vector(xs)) stop("'xs' should be a vector") if (! is.null(ys)) if (! is.vector(ys)) stop("'ys' should be a vector") if (! is.null(zs)) if (! is.vector(zs)) stop("'zs' should be a vector") if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks, col) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } # Colors for NA values if (any (is.na(colvar)) & ! is.null(NAcol) ) { CC <- checkcolors(colvar, col, NAcol, clim) clim <- CC$lim col <- CC$col colvar <- CC$colvar } crange <- diff(clim) N <- length(col) -1 if (is.null(breaks)) getcol <- function(v) col[1 + trunc((v - clim[1])/crange*N)] else getcol <- function(v) col[.bincode(v,breaks)] lwd <- ifelse(is.null(dot$points$lwd), 1, dot$points$lwd) dot$points$lwd <- NULL lty <- ifelse(is.null(dot$points$lty), 1, dot$points$lty) dot$points$lty <- NULL if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x), y = range(y), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) Seg <- NULL templines <- function(clines, x = NULL, y = NULL, z = NULL) { if (! is.null(x)){ x <- rep(x, length.out = length(clines[[2]])) y <- clines[[2]] z <- clines[[3]] } else if (! is.null(y)) { y <- rep(y, length.out = length(clines[[2]])) x <- clines[[2]] z <- clines[[3]] } else if (! is.null(z)) { z <- rep(z, length.out = length(clines[[2]])) x <- clines[[2]] y <- clines[[3]] } Col <- getcol(clines[[1]]) Seg <<- addlines(Seg, x = x, y = y, z = z, col = Col, plist = plist, lwd = lwd, lty = lty, alpha = dot$alpha) } # end function templines if (is.null(level)) level <- pretty(clim, 10) for (x.s in xs) { ix <- max(1, FindInterval(x.s, x, all.inside = FALSE)) Data <- colvar[ix, , ] cL <- ContourLines(y, z, Data, levels = level) invisible(lapply(cL, templines, x = x.s)) } for (y.s in ys) { iy <- max(1, FindInterval(y.s, y, all.inside = FALSE)) Data <- colvar[, iy, ] cL <- ContourLines(x, z, Data, levels = level) invisible(lapply(cL, templines, y = y.s)) } for (z.s in zs) { iz <- max(1, FindInterval(z.s, z, all.inside = FALSE)) Data <- colvar[, , iz] cL <- ContourLines(x, y, Data, levels = level) invisible(lapply(cL, templines, z = z.s)) } if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "slicecont3D", breaks = NULL) if (ispresent(border)) { for (x.s in xs) Seg <- addlines(Seg, x = rep(x.s, length.out = 4), y = c(y[1], y[1], y[length(y)], y[length(y)]), z = c(z[1], z[length(z)], z[length(z)], z[1]), plist = plist, col = border) for (y.s in ys) Seg <- addlines(Seg, z = c(z[1], z[length(z)], z[length(z)], z[1]), x = c(x[1], x[1], x[length(x)], x[length(x)]), y = rep(y.s, length.out = 4), plist = plist, col = border) for (z.s in zs) Seg <- addlines(Seg, x = c(x[1], x[length(x)], x[length(x)], x[1]), y = c(y[1], y[1], y[length(y)], y[length(y)]), z = rep(z.s, length.out = 4), plist = plist, col = border) } # change projection depth such that lines are on top of images Seg$proj <- Seg$proj + dDepth*plist$persp$expand plist <- plot.struct.3D(plist, segm = Seg, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/paintit.R0000644000176200001440000002430112522355256013422 0ustar liggesuserscheck.breaks <- function (breaks, col) { # adapted from image.default (graphics package) if (! is.null(breaks)) { nbreaks <- length(breaks) if (length(col) != nbreaks-1) stop("must have one more break than col - suggest to use jet.col(", nbreaks-1, ")") if (any(!is.finite(breaks))) stop("'breaks' must all be finite") if (is.unsorted(breaks)) { warning("unsorted 'breaks' will be sorted before use") breaks <- sort(breaks) } } return (breaks) } ## ============================================================================= ## Add image polygons, inputs are all matrices ## ============================================================================= paintit <- function (colvar, x, y, z, plist, col, NAcol, clim, border, facets, lwd, lty, dot, Extend = FALSE, Polar = FALSE, breaks = NULL) { dotshade <- dot$shade if (! is.null(clim)) { if (length(clim) != 2) stop("'clim' should be a two-valued vector with the ranges of 'colvar'") colvar[colvar < min(clim)] <- NA colvar[colvar > max(clim)] <- NA } # Check the plotting arguments x and y if (! is.matrix(x)) stop("'x' should be a matrix") if (! is.matrix(y)) stop("'y' should be a matrix") # adapt color palette and range for values = NA if (!ispresent(colvar)) { if (ispresent(col)) Col <- col[1] # take first color else Col <- "grey" if (Extend) Col <- rep(Col, length(x)) else Col <- rep(Col, length(x[-1,-1])) } else if (any (is.na(colvar)) & ! is.null(NAcol)& is.null(breaks)) { CC <- checkcolors(colvar, col, NAcol, clim) col <- CC$col colvar <- CC$colvar clim <- CC$lim } cmin <- clim[1] crange <- diff(clim) N <- length(col) -1 # the colors, 1.000..1 to avoid that trunc(1) = 0 if (ispresent(colvar)) if (is.null(breaks)) Col <- col[1 + trunc((colvar - cmin)/crange*1.00000000001*N)] else { zi <- .bincode(colvar, breaks, TRUE, TRUE) Col <- col[zi] Col[is.na(Col)] <- NAcol } if (Extend) { x <- extend(x) y <- extend(y) z <- extend(z) } sl <- Sortlist(x, y, z, plist, Polar) if (dotshade$type != "none") Col <- facetcols (x, y, z, Col, dotshade, Extend = FALSE) imgcol <- matrix(nrow = nrow(x) - 1, ncol = ncol(x) -1, data = Col) alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA img <- list(list(x = x, y = y, z = z, col = imgcol, NAcol = NAcol, breaks = breaks, sl = sl, facets = facets, border = border, lwd = lwd, lty = lty, alpha = alpha, mapped = FALSE)) poly <- list(img = img) class(poly) <- "poly" invisible(poly) } ## ============================================================================= mapimg <- function (plist) { img <- plist$img if (length(img) > 0) { poly <- plist$poly for (i in 1:length(img)) { if (is.null(img[[i]]$mapped)) img[[i]]$mapped <- TRUE if (!img[[i]]$mapped) { Poly <- with (img[[i]], polyfill(x, y, z, col[sl$list], NAcol, facets, border, sl, lwd, lty, sl$Proj[sl$list], alpha = alpha)) poly <- addPoly(poly, Poly) img[[i]]$mapped <- TRUE } } plist$img <- img plist$poly <- poly } return(plist) } addPoly <- function (poly, Poly) { if (is.null(poly) | is.null(poly$x)) { poly <- Poly } else if (! is.null(Poly)){ if (!is.null(Poly$x)) { nR1 <- nrow(Poly$x) nR2 <- nrow(poly$x) if (nR1 > nR2) { nR <- matrix(nrow = nR1 - nR2, ncol = ncol(poly$x), data = NA) poly$x <- rbind(poly$x, nR) poly$y <- rbind(poly$y, nR) poly$z <- rbind(poly$z, nR) } else if (nR2 > nR1) { nR <- matrix(nrow = nR2 - nR1, ncol = ncol(Poly$x), data = NA) Poly$x <- rbind(Poly$x, nR) Poly$y <- rbind(Poly$y, nR) Poly$z <- rbind(Poly$z, nR) } poly$x <- cbind(poly$x, Poly$x) poly$y <- cbind(poly$y, Poly$y) poly$z <- cbind(poly$z, Poly$z) poly$proj <- c(poly$proj, Poly$proj) poly$lwd <- c(poly$lwd, Poly$lwd) poly$lty <- c(poly$lty, Poly$lty) poly$border <- c(poly$border, Poly$border) poly$col <- c(poly$col, Poly$col) poly$alpha <- c(poly$alpha, Poly$alpha) poly$isimg <- c(poly$isimg, Poly$isimg) } } poly$img <- NULL return(poly) } ## ============================================================================= ## sort facets to draw according to view ## ============================================================================= sortlistvec <- function (x, y, z, plist, ignorez = TRUE) { Proj <- project(x, y, z, plist, ignorez) sortlist <- sort.int(Proj, index.return = TRUE)$ix list(list = sortlist, Proj = Proj) } Sortlist <- function (x, y, z, plist, Polar = FALSE) { if (Polar) zz <- meangrid(z) else zz <- 0 xx <- meangrid(x) yy <- meangrid(y) sl <- sortlistvec(as.vector(xx), as.vector(yy), as.vector(zz), plist, !Polar) ind <- expand.sort(sl$list, dim(x)-1) ix <- ind$x; iy <- ind$y if (Polar) { NN <- length(ix) * 0.5 ix <- ix[- (1:NN)] iy <- iy[- (1:NN)] sl$list <- sl$list[- (1:NN)] maxProj <- sl$Proj[sl$list[length(sl$list)]] sl$Proj <- sl$Proj[sl$Proj <= maxProj] #sl$Proj[sl$list] } list(ix = ix, iy = iy, list = sl$list, Proj = sl$Proj) } ## ============================================================================= ## Create polygons ## ============================================================================= createpoly <- function (x, y, z, ix, iy, Extend = TRUE) { if (Extend) { xx <- extend(x) yy <- extend(y) zz <- extend(z) } else { xx <- x yy <- y zz <- z } # the polygons PolyX <- rbind(xx[cbind(ix, iy )], xx[cbind(ix + 1, iy )], xx[cbind(ix + 1, iy + 1)], xx[cbind(ix, iy + 1)], NA) PolyY <- rbind(yy[cbind(ix, iy )], yy[cbind(ix + 1, iy )], yy[cbind(ix + 1, iy + 1)], yy[cbind(ix, iy + 1)], NA) PolyZ <- rbind(zz[cbind(ix, iy )], zz[cbind(ix + 1, iy )], zz[cbind(ix + 1, iy + 1)], zz[cbind(ix, iy + 1)], NA) list(X = PolyX, Y = PolyY, Z = PolyZ, xx = xx, yy = yy, zz = zz) } ## ============================================================================= ## Draw polygons ## ============================================================================= polyfill <- function(x, y, z, Col, NAcol, facets, border, sl, lwd, lty, proj = NULL, alpha = NA) { Poly <- createpoly(x, y, z, sl$ix, sl$iy, Extend = FALSE) if (any (is.na(x) | is.na(y) | is.na(z))) { i1 <- which(is.na(Poly$X[-5, ])) i2 <- which(is.na(Poly$Y[-5, ])) i3 <- which(is.na(Poly$Z[-5, ])) ii <- unique(c(i1, i2, i3)) Poly$X[-5, ][ii] <- NA Poly$Y[-5, ][ii] <- NA Poly$Z[-5, ][ii] <- NA ina <- apply (Poly$X[-5, ], MARGIN = 2, FUN = function(x) any(is.na(x)) & !all(is.na(x))) for (i in (1:ncol(Poly$X)) [ina]){ ii <- which(!is.na(Poly$X[1:4, i])) Poly$X[,i] <- c(Poly$X[ii,i], rep(NA, 5-length(ii))) Poly$Y[,i] <- c(Poly$Y[ii,i], rep(NA, 5-length(ii))) Poly$Z[,i] <- c(Poly$Z[ii,i], rep(NA, 5-length(ii))) } # remove columns with only NAs or with all but one NA notNA <- ! (is.na(Poly$X[2,])) Poly$X <- Poly$X[, notNA] Poly$Y <- Poly$Y[, notNA] Poly$Z <- Poly$Z[, notNA] if (length(Col) == length(notNA)) Col <- Col[notNA] if (length(border) == length(notNA)) border <- border[notNA] if (length(lwd) == length(notNA)) lwd <- lwd[notNA] if (length(lty) == length(notNA)) lty <- lty[notNA] proj <- proj[notNA] } # The colors Col <- createcolors(facets, border, Col[]) if (is.null(lwd)) lwd <- 1 if (is.null(lty)) lty <- 1 if (is.null(alpha)) alpha <- NA # update and return polygons. poly <- list( x = Poly$X, y = Poly$Y, z = Poly$Z, col = Col$facet, border = Col$border, lwd = rep(lwd, length.out = ncol(Poly$X)), lty = rep(lty, length.out = ncol(Poly$X)), isimg = rep(1, length.out = ncol(Poly$X)), alpha = rep(alpha, length.out = ncol(Poly$X)), proj = proj) class(poly) <- "poly" return(poly) } ## ============================================================================= ## Same for 2D plots ## ============================================================================= polyfill2D <- function(x, y, Col, facets, border, lwd, lty, Extend = TRUE) { # polygons are painted if (Extend) { nr <- nrow(x) nc <- ncol(x) x <- extend(x) y <- extend(y) } else { nr <- nrow(x)-1 nc <- ncol(x)-1 } ix <- rep(1:nr, nc) iy <- as.vector(matrix(nrow = nr, ncol = nc, data = 1:nc, byrow =TRUE)) # the polygons PolyX <- rbind(x[cbind(ix, iy )], x[cbind(ix + 1, iy )], x[cbind(ix + 1, iy + 1)], x[cbind(ix, iy + 1)], NA) PolyY <- rbind(y[cbind(ix, iy )], y[cbind(ix + 1, iy )], y[cbind(ix + 1, iy + 1)], y[cbind(ix, iy + 1)], NA) # The colors Col <- createcolors(facets, border, Col) if (is.null(lwd)) lwd <- 1 if (is.null(lty)) lty <- 1 # update and return polygons. poly <- list( x = PolyX, y = PolyY, col = Col$facet, border = Col$border, lwd = rep(lwd , length.out = ncol(PolyX)), lty = rep(lty , length.out = ncol(PolyX))) class(poly) <- "poly" return(poly) } plot3D/R/box3D.R0000644000176200001440000003301412513125725012726 0ustar liggesusers ## ============================================================================= ## box3D, rect3D, cube3D ## ============================================================================= ## ============================================================================= ## 3-D box function ## ============================================================================= border3D <- function(x0, y0, z0, x1, y1, z1, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, NULL, c(x0, x1), c(y0, y1), c(z0, z1), plist = plist, breaks = breaks) len <- length(x0) if (length(y0) != len) stop("'y0' should have same length as 'x0'") if (length(z0) != len) stop("'z0' should have same length as 'x0'") if (length(x1) != len) stop("'x1' should have same length as 'x0'") if (length(y1) != len) stop("'y1' should have same length as 'x0'") if (length(z1) != len) stop("'z1' should have same length as 'x0'") if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks, col) if (ispresent(colvar)) { if (length(colvar) != len) stop("'colvar' should have same length as 'x0', 'y0' and 'z0'") if (length(col) == 1) col <- c(col, col) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) { colkey <- check.colkey(colkey) colkey$breaks <- breaks } if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { if (is.null(col)) col <- "black" if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- rep(col, length.out = len) iscolkey <- FALSE } if (is.null(plist)) { do.call("perspbox", c(alist(x = range(c(x0, x1)), y = range(c(y0, y1)), z = range(c(z0, z1)), phi = phi, theta = theta, plot = plot, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lwd <- rep(lwd, length.out = len) lty <- dot$points$lty if (is.null(lty)) lty <- 1 lty <- rep(lty, length.out = len) alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = len) segm <- list() # small enough to use a loop for (i in 1: len) { segm <- list( x.from = c(segm$x.from, x0[i], x1[i], x1[i], x0[i], x0[i], x1[i], x1[i], x0[i], x0[i], x1[i], x1[i], x0[i]), x.to = c(segm$x.to , x1[i], x1[i], x0[i], x0[i], x0[i], x1[i], x1[i], x0[i], x1[i], x1[i], x0[i], x0[i]), y.from = c(segm$y.from, y0[i], y0[i], y1[i], y1[i], y0[i], y0[i], y1[i], y1[i], y0[i], y0[i], y1[i], y1[i]), y.to = c(segm$y.to , y0[i], y1[i], y1[i], y0[i], y0[i], y0[i], y1[i], y1[i], y0[i], y1[i], y1[i], y0[i]), z.from = c(segm$z.from, z0[i], z0[i], z0[i], z0[i], z0[i], z0[i], z0[i], z0[i], z1[i], z1[i], z1[i], z1[i]), z.to = c(segm$z.to , z0[i], z0[i], z0[i], z0[i], z1[i], z1[i], z1[i], z1[i], z1[i], z1[i], z1[i], z1[i]), col = c(segm$col, rep(Col[i], 12)), lwd = c(segm$lwd, rep(lwd[i], length.out = 12)), lty = c(segm$lty, rep(lty[i], length.out = 12)), alpha = c(segm$alpha, alpha) ) } # sort according to view segm$proj <- project(0.5*(segm$x.from + segm$x.to), 0.5*(segm$y.from + segm$y.to), 0.5*(segm$z.from + segm$z.to), plist) class(segm) <- "segments" if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "border3D", breaks = breaks) plist <- plot.struct.3D(plist, segm = segm, plot = plot) setplist(plist) invisible(plist$mat) } ## ============================================================================= ## 3-D rect function ## ============================================================================= rect3D <- function(x0, y0, z0, x1 = NULL, y1 = NULL, z1 = NULL, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, NULL, c(x0, x1), c(y0, y1), c(z0, z1), plist = plist, breaks = breaks) len <- length(x0) if (length(y0) != len) stop("'y0' should have same length as 'x0'") if (length(z0) != len) stop("'z0' should have same length as 'x0'") numNULL <- is.null(x1) + is.null(y1) + is.null(z1) if (numNULL != 1) stop ("one of 'x1', 'y1', or 'z1' should be NULL, and there are ", numNULL) if (! is.null(x1)) if (length(x1) != len) stop("'x1' should have same length as 'x0' if not NULL") if (! is.null(y1)) if (length(y1) != len) stop("'y1' should have same length as 'x0' if not NULL") if (! is.null(z1)) if (length(z1) != len) stop("'z1' should have same length as 'x0' if not NULL") if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks, col) if (ispresent(colvar)) { if (length(colvar) != len) stop("'colvar' should have same length as 'x0', 'y0' and 'z0'") if (length(col) == 1) col <- c(col, col) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { # log transformation of color-values colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { if (is.null(col)) col <- "grey" if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- rep(col, length.out = len) iscolkey <- FALSE } Col <- createcolors(facets, border, Col) if (is.null(plist)) { do.call("perspbox", c(alist(x = range(c(x0, x1)), y = range(c(y0, y1)), z = range(c(z0, z1)), phi = phi, theta = theta, plot = plot, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lwd <- rep(lwd, length.out = len) lty <- dot$points$lty if (is.null(lty)) lty <- 1 lty <- rep(lty, length.out = len) alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = len) poly <- list() for (i in 1: len) { if (is.null(x1)) { x = c(x0[i], x0[i], x0[i], x0[i], NA) y = c(y0[i], y1[i], y1[i], y0[i], NA) z = c(z0[i], z0[i], z1[i], z1[i], NA) } else if (is.null(y1)) { x = c(x0[i], x1[i], x1[i], x0[i], NA) y = c(y0[i], y0[i], y0[i], y0[i], NA) z = c(z0[i], z0[i], z1[i], z1[i], NA) } else if (is.null(z1)) { x = c(x0[i], x0[i], x1[i], x1[i], NA) y = c(y0[i], y1[i], y1[i], y0[i], NA) z = c(z0[i], z0[i], z0[i], z0[i], NA) } poly <- list( x = cbind(poly$x, x), y = cbind(poly$y, y), z = cbind(poly$z, z), col = c(poly$col, Col$facet[i]), border = c(poly$border, Col$border[i]), lwd = c(poly$lwd, lwd[i]), lty = c(poly$lty, lty[i]), isimg = c(poly$isimg, 0), alpha = c(poly$alpha, alpha) ) } # projection depth poly$proj <- project(colMeans(poly$x, na.rm = TRUE), colMeans(poly$y, na.rm = TRUE), colMeans(poly$z, na.rm = TRUE), plist, FALSE) class(poly) <- "poly" if (iscolkey ) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "rect3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = poly, plot = plot) setplist(plist) invisible(plist$mat) } ## ============================================================================= ## 3-D box function with colored facets ## ============================================================================= box3D <- function(x0, y0, z0, x1, y1, z1, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, NULL, c(x0, x1), c(y0, y1), c(z0, z1), plist = plist, breaks = breaks) len <- length(x0) if (length(y0) != len) stop("'y0' should have same length as 'x0'") if (length(z0) != len) stop("'z0' should have same length as 'x0'") if (length(x1) != len) stop("'x1' should have same length as 'x0'") if (length(y1) != len) stop("'y1' should have same length as 'x0'") if (length(z1) != len) stop("'z1' should have same length as 'x0'") if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks, col) if (ispresent(colvar)) { if (length(colvar) != len) stop("'colvar' should have same length as 'x0', 'y0' and 'z0'") if (length(col) == 1) col <- c(col, col) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { # log transformation of color-values colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { if (is.null(col)) col <- "grey" if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- rep(col, length.out = len) iscolkey <- FALSE } # The colors of facets and border Col <- createcolors(facets, border, Col) if (is.null(plist)) { do.call("perspbox", c(alist(x = range(c(x0, x1)), y = range(c(y0, y1)), z = range(c(z0, z1)), phi = phi, theta = theta, plot = plot, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lwd <- rep(lwd, length.out = len) lty <- dot$points$lty if (is.null(lty)) lty <- 1 lty <- rep(lty, length.out = len) alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = len) poly <- list() for (i in 1: len) { poly <- list( x = cbind(poly$x, c(x0[i], x1[i], x1[i], x0[i], NA), c(x1[i], x1[i], x1[i], x1[i], NA), c(x1[i], x0[i], x0[i], x1[i], NA), c(x0[i], x0[i], x0[i], x0[i], NA), c(x0[i], x1[i], x1[i], x0[i], NA), c(x0[i], x1[i], x1[i], x0[i], NA)), y = cbind(poly$y, c(y0[i], y0[i], y0[i], y0[i], NA), c(y0[i], y1[i], y1[i], y0[i], NA), c(y1[i], y1[i], y1[i], y1[i], NA), c(y1[i], y0[i], y0[i], y1[i], NA), c(y0[i], y0[i], y1[i], y1[i], NA), c(y0[i], y0[i], y1[i], y1[i], NA)), z = cbind(poly$z, c(z0[i], z0[i], z1[i], z1[i], NA), c(z0[i], z0[i], z1[i], z1[i], NA), c(z0[i], z0[i], z1[i], z1[i], NA), c(z0[i], z0[i], z1[i], z1[i], NA), c(z1[i], z1[i], z1[i], z1[i], NA), c(z0[i], z0[i], z0[i], z0[i], NA)), col = c(poly$col, rep(Col$facet[i], length.out = 6)), border = c(poly$border, rep(Col$border[i], length.out = 6)), lwd = c(poly$lwd, rep(lwd[i], length.out = 6)), lty = c(poly$lty, rep(lty[i], length.out = 6)), isimg = c(poly$isimg, rep(0, length.out = 6)), alpha = c(poly$alpha, rep(alpha, length.out = 6)) ) } # sort according to view poly$proj <- project(colMeans(poly$x, na.rm = TRUE), colMeans(poly$y, na.rm = TRUE), colMeans(poly$z, na.rm = TRUE), plist, FALSE) class(poly) <- "poly" if (iscolkey ) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "box3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = poly, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/poly3D.R0000644000176200001440000002353013572216264013130 0ustar liggesusers # a function to create polygons from vectors add.poly <- function(poly, x, y, z, cv, col, NAcol, breaks, clim, facets, border, lwd = 1, lty = 1, ...) { nr <- nrow(x) - 1 nc <- ncol(x) - 1 # create polygons ix <- rep(1:nr, nc) iy <- as.vector(matrix(nrow = nr, ncol = nc, data = 1:nc, byrow =TRUE)) xx <- x yy <- y zz <- z # the polygon coordinates PolyX <- rbind(xx[cbind(ix, iy )], xx[cbind(ix + 1, iy )], xx[cbind(ix + 1, iy + 1)], xx[cbind(ix, iy + 1)], NA) PolyY <- rbind(yy[cbind(ix, iy )], yy[cbind(ix + 1, iy )], yy[cbind(ix + 1, iy + 1)], yy[cbind(ix, iy + 1)], NA) PolyZ <- rbind(zz[cbind(ix, iy )], zz[cbind(ix + 1, iy )], zz[cbind(ix + 1, iy + 1)], zz[cbind(ix, iy + 1)], NA) # colvar is converted to colors. if (! is.null(cv)) { if (length(cv) == nrow(x)) # take colvar averages cv <- 0.5*(cv[-1] + cv[-length(cv)]) # Colors for values = NA if (any (is.na(cv)) & ! is.null(NAcol) ) { CC <- checkcolors(cv, col, NAcol, clim) clim <- CC$lim col <- CC$col cv <- CC$colvar } if (is.null(breaks)) { crange <- diff(clim) N <- length(col) -1 Col <- col[1 + trunc((cv - clim[1])/crange*N)] } else { zi <- .bincode(cv, breaks, TRUE, TRUE) Col <- col[zi] Col[is.na(Col)] <- NAcol } } else Col <- rep(col, length.out = length(cv)) Lty <- rep(lty, length.out = length(cv)) Lwd <- rep(lwd, length.out = length(cv)) # border and colors Col <- createcolors(facets, border, Col) # update polygons. poly <- list(x = cbind(poly$x, PolyX), y = cbind(poly$y, PolyY), z = cbind(poly$z, PolyZ), col = c(poly$col, Col$facet), border = c(poly$border, Col$border), lty = c(poly$lty, Lty), lwd = c(poly$lwd, Lwd), isimg = c(poly$isimg, rep(0, length.out = length(cv))), img = poly$img ) return(poly) } ## ============================================================================= ## Adding polygons from images or persps ## ============================================================================= addimg <- function(poly, x, y, z, colvar = z, plist, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, lwd = 1, lty = 1, resfac = 1, clim = NULL, ltheta = -135, lphi = 0, shade = NA, lighting = FALSE, alpha = NULL, ...) { if (missing(poly) | is.null(poly) | length(poly) == 0) poly <- list(x = NULL, y = NULL, col = NULL, border = NULL, lwd = NULL, lty = NULL, proj = NULL, isimg = NULL, img = list()) else if (!inherits(poly, "poly")) stop ("'poly' not of correct type for addimg") dot <- splitdotpersp(list(), bty = NULL, lighting, x, y, z, plist = plist, ltheta = ltheta, lphi = lphi, shade = shade, breaks = breaks) if (! is.null(plist$xs)) { dot$shade$xs <- plist$scalefac$x dot$shade$ys <- plist$scalefac$y dot$shade$zs <- plist$scalefac$z } if (! is.matrix(z)) stop("'z' should be a matrix") if (! is.null(colvar)) { if (! is.matrix(colvar)) stop("'colvar' should be a matrix or NULL") if (any (dim(z) != dim(colvar)) ) stop("dimension of 'colvar' not equal to dimension of 'z'") if (is.null(col)) col <- jet.col(100) } if (is.null(col)) col <- "grey" # if x and y are a vector: check resfac and convert to matrix X <- x Y <- y if (is.vector(X)) { if (! is.vector(Y)) stop("'y' should be a vector if 'x' is one") if (any(resfac != 1)) { # change resolution res <- changeres(resfac, X, Y, z, colvar) X <- res$x Y <- res$y z <- res$z colvar <- res$colvar } XY <- mesh(X, Y) x <- XY$x y <- XY$y } else { x <- X y <- Y } # check class and dimensionality if (! is.matrix(x)) stop("'x' should be a matrix or vector") if (! is.matrix(y)) stop("'y' should be a matrix or vector") DD <- dim(x) if (any (DD != dim(y)) ) stop("dimension of 'x' not equal to dimension of 'y'") if (any (DD != dim(z)) ) stop("dimension of 'y' not equal to dimension of 'z'") # create polygons - unsorted ix <- rep(1:nrow(x), ncol(x)) iy <- as.vector(matrix(nrow = nrow(x), ncol = ncol(x), data = 1:ncol(x), byrow =TRUE)) Poly <- createpoly(x, y, z, ix, iy) # depth view of the points Proj <- project(colMeans(Poly$X, na.rm = TRUE), colMeans(Poly$Y, na.rm = TRUE), colMeans(Poly$Z, na.rm = TRUE), plist) # colvar is converted to colors. if (! is.null(colvar)) { if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) # Colors for values = NA if (any (is.na(colvar)) & ! is.null(NAcol) ) { CC <- checkcolors(colvar, col, NAcol, clim) clim <- CC$lim col <- CC$col colvar <- CC$colvar } if (is.null(breaks)) { crange <- diff(clim) N <- length(col) -1 Col <- col[1 + trunc((colvar - clim[1])/crange*N)] } else { zi <- .bincode(colvar, breaks, TRUE, TRUE) Col <- col[zi] } } else Col <- rep(col, length.out = length(x)) Col[is.na(Col)] <- NAcol if (! dot$shade$type == "none") Col <- facetcols (x, y, z, Col, dot$shade) if (! is.null(alpha)) Col <- setalpha(Col, alpha) imgCol <- createcolors(facets, border, Col) if (is.null(alpha)) alpha <- NA Alpha <- alpha alpha <- rep(alpha, length.out = length(x)) # update polygons. numimg <- length(poly$img) poly <- list(x = cbind(poly$x, Poly$X), y = cbind(poly$y, Poly$Y), z = cbind(poly$z, Poly$Z), col = c(poly$col, imgCol$facet), border = c(poly$border, imgCol$border), lwd = c(poly$lwd, rep(lwd , length.out = length(x))), lty = c(poly$lty, rep(lty , length.out = length(x))), proj = c(poly$proj, Proj), isimg = c(poly$isimg, rep(1, length.out = length(x))), alpha = c(poly$alpha, alpha), img = poly$img) if (numimg == 0) poly$img <- list() sl <- list (ix = ix, iy = iy, Proj = Proj, list = 1:length(ix)) poly$img[[numimg+1]] <- list(x = X, y = Y, z = z, col = matrix(nrow = nrow(colvar), ncol = ncol(colvar), data = Col), NAcol = NAcol, breaks = breaks, sl = sl, facets = facets, border = border, lwd = lwd, lty = lty, alpha = Alpha, mapped = TRUE) class(poly) <- "poly" return(poly) } ## ============================================================================= ## Adds lines to segments ## ============================================================================= addlines <- function(segm, x, y, z, plist, col, NAcol = "white", lwd = 1, lty = 1, ltheta = -135, lphi = 0, shade = NA, lighting = FALSE, ignorez = TRUE, ...) { if (missing(segm) | is.null(segm)) segm <- list(x.from = NULL, x.to = NULL, y.from = NULL, y.to = NULL, z.from = NULL, z.to = NULL, col = NULL, lwd = NULL, lty = NULL, proj = NULL) else if (! inherits(segm, "segments")) stop ("'segm' not of correct type, 'segments', for addlines") dot <- splitdotpersp(list(), bty = NULL, lighting, x, y, z, plist = plist, ltheta = ltheta, lphi = lphi, shade = shade, breaks = NULL) if (is.null(col)) col <- "black" # check class and dimensionality if (! is.vector(x)) stop("'x' should be a vector") if (! is.vector(y)) stop("'y' should be a vector") if (! is.vector(z)) stop("'z' should be a vector") len <- length(x) if (len != length(y) ) stop("dimension of 'x' not equal to dimension of 'y'") if (len != length(z) ) stop("dimension of 'x' not equal to dimension of 'z'") # depth view of the midpoints of each segment Proj <- project(0.5*(x[-1] +x[-len]), 0.5*(y[-1]+y[-len]), 0.5*(z[-1]+z[-len]), plist, ignorez = ignorez) Col <- rep(col, length.out = len-1) if (! dot$shade$type == "none") Col <- facetcols (x, y, z, Col, dot$shade) alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = len-1) # update and return segments. segm <- list( x.from = c(segm$x.from, x[-len]), x.to = c(segm$x.to, x[-1]), y.from = c(segm$y.from, y[-len]), y.to = c(segm$y.to, y[-1]), z.from = c(segm$z.from, z[-len]), z.to = c(segm$z.to, z[-1]), col = c(segm$col, Col), lwd = c(segm$lwd, rep(lwd , length.out = len-1)), lty = c(segm$lty, rep(lty , length.out = len-1)), alpha = c(segm$alpha, alpha), proj = c(segm$proj, Proj)) class(segm) <- "segments" return(segm) } ## ============================================================================= plot3D/R/contour3D.R0000644000176200001440000001337512513125725013637 0ustar liggesusers## ============================================================================= ## Contours in 3-D ## ============================================================================= createsegms <- function (x, y, z, colvar, names = c("x", "y", "z"), dot, col, clim, dDepth, plist, levels, addbox) { contour <- list(args = dot$points) contour$args$col <- col contour$args$levels <- levels if (!ispresent(colvar)) stop ("'colvar' should be present for contour3D") if (is.null(x)) x <- seq(0, 1, length.out = nrow(colvar)) if (is.null(y)) y <- seq(0, 1, length.out = ncol(colvar)) if (is.array(x) & length(dim(x)) == 1) x <- as.vector(x) if (is.array(y) & length(dim(y)) == 1) y <- as.vector(y) if (! is.vector(x)) stop(names[1], " should be a vector") if (length(x) != nrow(colvar)) stop (names[1], " should be a vector of length = nrow(colvar) or be NULL") if (! is.vector(y)) stop(names[2], " should be a vector") if (length(y) != ncol(colvar)) stop (names[2], " should be a vector of length = ncol(colvar) or be NULL") if (! is.matrix(z)) { if (length(z) > 1) stop("'z' should be a matrix or one value") contour$side <- z z <- colvar } else { if (length(x) != nrow(z)) stop(names[1], " should be of length = nrow(",names[3],")") if (length(y) != ncol(z)) stop(names[2], " should be of length = ncol(",names[3],")") contour$side <- "z" } # create contours segm <- contourfunc(contour, x, y, z, plist, cv = colvar, clim = clim, dDepth = dDepth, addbox = addbox) names.from <- paste(names, ".from", sep = "") names.to <- paste(names, ".to", sep = "") names(segm)[1:6] <- c(names.from[1], names.to[1], names.from[2], names.to[2], names.from[3], names.to[3]) return(segm) } ## ============================================================================= ## main function ## ============================================================================= contour3D <- function(x = NULL, y = NULL, z = NULL, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", dDepth = 1e-1, addbox = TRUE, add = FALSE, plot = TRUE){ xlim <- ylim <- zlim <- c(0, 1) if (!is.null(x)) xlim <- range(x, na.rm = TRUE) if (!is.null(y)) ylim <- range(y, na.rm = TRUE) if (!is.null(z)) zlim <- range(z, na.rm = TRUE) plist <- initplist(add) dot <- splitdotpersp(list(...), bty, FALSE, xlim, ylim, zlim, plist = plist, breaks = NULL) dots <- dot$points levels <- dots$levels dots$levels <- NULL if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) clog <- FALSE if (! is.null(dots$log)) { if (length(grep("c", dots[["log"]])) > 0) { dots[["log"]] <- gsub("c", "", dots[["log"]]) clog <- TRUE } if (dots[["log"]] == "") dots[["log"]] <- NULL } if (clog) { colvar <- log(colvar) clim <- log(clim) } if (is.null(levels)) { nlevs <- dots$nlevels if (is.null(nlevs)) nlevs <- 10 if (clog) levels <- exp(pretty(log(clim), nlevs)) else levels <- pretty(clim, nlevs) } nlevs <- length(levels) if (is.null(col)) col <- jet.col(nlevs) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (is.null(plist)) { do.call("perspbox", c(alist(xlim, ylim, zlim, phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) isconstant <- NULL ismatrix <- NULL if (length(x) == 1) isconstant <- c(isconstant, 1) else if (is.matrix(x)) ismatrix <- c(ismatrix, 1) if (length(y) == 1) isconstant <- c(isconstant, 2) else if (is.matrix(y)) ismatrix <- c(ismatrix, 2) if (length(z) == 1) isconstant <- c(isconstant, 3) else if (is.matrix(z)) ismatrix <- c(ismatrix, 3) if (length(isconstant) > 1) stop ("only one of the values 'x' 'y', or 'z' can be one value") if (length(ismatrix) > 1) stop ("only one of the values 'x' 'y', or 'z' can be a matrix") if (length(isconstant) > 1) stop ("only one of the values 'x' 'y', or 'z' can be one value") if (length(ismatrix) == 0 & length(isconstant) == 0) stop ("exactly one of the values 'x' 'y', or 'z' should be a matrix or one value") ismapped <- c(isconstant, ismatrix) if (ismapped == 3) { segm <- createsegms(x, y, z, colvar, c("x", "y", "z"), dot, col, clim, dDepth, plist, levels, addbox) } else if (ismapped == 1) { segm <- createsegms(y, z, x, colvar, c("y", "z", "x"), dot, col, clim, dDepth, plist, levels, addbox) } else { segm <- createsegms(x, z, y, colvar, c("x", "z", "y"), dot, col, clim, dDepth, plist, levels, addbox) } if (iscolkey) { if (is.null(colkey$at)) colkey$at <- levels if (nlevs > 1) { # for colors: dz <- c(-diff(levels[1:2]), diff(levels[(nlevs-1):nlevs])) * 0.5 clim <- range(levels) + dz } plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "contour3D", breaks = NULL) } plist <- plot.struct.3D(plist, segm = segm, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/mesh.R0000644000176200001440000000155312016727411012704 0ustar liggesusers## ============================================================================= ## Creates a rectangular grid from 2 or 3 vectors (x, y, z) ## ============================================================================= mesh <- function(x, y, z = NULL) { # x, y, z are vectors if (is.null(z)) Mgrid.matrix(x, y) else Mgrid.array(x, y, z) } Mgrid.matrix <- function(x, y) { Nx <- length(x) Ny <- length(y) list( x = matrix(nrow = Nx, ncol = Ny, data = x), y = matrix(nrow = Nx, ncol = Ny, data = y, byrow = TRUE) ) } Mgrid.array <- function(x, y, z) { Nx <- length(x) Ny <- length(y) Nz <- length(z) list( x = array(dim = c(Nx, Ny, Nz), data = x), y = aperm(array(dim = c(Ny, Nx, Nz), data = y), c( 2, 1, 3)), z = aperm(array(dim = c(Nz, Ny, Nx), data = z), c( 3, 2, 1)) ) } plot3D/R/arrows3D.R0000644000176200001440000002235413011036704013450 0ustar liggesusers## ============================================================================= ## 3-D arrows function ## ============================================================================= arrows3D <- function(x0, y0, z0, x1 = x0, y1 = y0, z1 = z0, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", type = "triangle", add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, NULL, c(x0, x1), c(y0, y1), c(z0, z1), plist = plist, breaks = breaks) len <- length(x0) if (length(y0) != len) stop("'y0' should have same length as 'x0'") if (length(z0) != len) stop("'z0' should have same length as 'x0'") if (length(x1) != len) stop("'x1' should have same length as 'x0'") if (length(y1) != len) stop("'y1' should have same length as 'x0'") if (length(z1) != len) stop("'z1' should have same length as 'x0'") if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks, col) if (ispresent(colvar)) { if (length(colvar) != len) stop("'colvar' should have same length as 'x0', 'y0' and 'z0'") if (length(col) == 1) col <- c(col, col) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { if (is.null(col)) col <- "black" if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- rep(col, length.out = len) iscolkey <- FALSE } if (is.null(plist)) { do.call("perspbox", c(alist(x = range(c(x0, x1)), y = range(c(y0, y1)), z = range(c(z0, z1)), phi = phi, theta = theta, plot = plot, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) length <- dot$points$length if (is.null(length)) length <- 0.2 angle <- dot$points$angle if (is.null(angle)) angle <- 30 code <- dot$points$code if (is.null(code)) code <- 2 lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lty <- dot$points$lty if (is.null(lty)) lty <- 1 Proj <- project (0.5*(x0 + x1), 0.5*(y0 + y1), 0.5*(z0 + z1), plist) alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = len) arr <- list(x.from = x0, x.to = x1, y.from = y0, y.to = y1, z.from = z0, z.to = z1, col = Col, length = rep(length, length.out = len), code = rep(code , length.out = len), angle = rep(angle , length.out = len), lwd = rep(lwd , length.out = len), lty = rep(lty , length.out = len), type = rep(type , length.out = len), alpha = alpha, proj = Proj) class(arr) <- "arr" if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "arrows3D", breaks = breaks) plist <- plot.struct.3D(plist, arr = arr, plot = plot) setplist(plist) invisible(plist$mat) } ## This part is adapted from (my) package "shape"... ArrType <- function (x0, y0, x1, y1, length = 0.4, angle = 30, code = 2, adj = 1, type = "curved", col = "black", lty = 1, lwd = 1, ...) { if (length(unique(type)) > 1) { nr <- length(x0) length <- rep(length, length.out = nr) angle <- rep(angle, length.out = nr) code <- rep(code, length.out = nr) adj <- rep(adj, length.out = nr) col <- rep(col, length.out = nr) lty <- rep(lty, length.out = nr) lwd <- rep(lwd, length.out = nr) for (t in unique(type)) { ii <- which(type == t) Arrow (x0[ii], y0[ii], x1[ii], y1[ii], length[ii], angle[ii], code[ii], adj[ii], type = t, col[ii], lty[ii], lwd[ii], ...) } } else Arrow(x0, y0, x1, y1, length, angle, code, adj, type = type[1], col, lty, lwd, ...) } Arrow <- function (x0, y0, x1, y1, length = 0.4, angle = 30, code = 2, adj = 1, type = "curved", col = "black", lty = 1, lwd = 1, ...) { if (all (is.na(x0)) | all(length == 0)) return() sel <- function (val, ii) { if (length(val) == 1) return(val) else return(val[ii]) } ii <- which(length <= 0) if (length(ii) > 0) { col <- rep(col, length.out = length(x0)) col[ii] <- "transparent" # to avoid from seeing a "." (segments, arrows) } if (type == "simple") { arrows(x0, y0, x1, y1, code = code, length = length/2.54, angle = angle, lty = lty, col = col, lwd = lwd, ...) return() } width <- 2* tan(angle/180) * length segments(x0, y0, x1, y1, col = col, lty = lty, lwd = lwd, ...) user <- par("usr") pin <- par("pin") pin <- pin/max(pin) sy <- (user[4] - user[3])/pin[2] sx <- (user[2] - user[1])/pin[1] angle <- atan((y1 - y0)/(x1 - x0) * sx/sy)/pi * 180 angle[is.nan(angle)] <- 0 angle[x1 < x0] <- 180 + angle[x1 < x0] xx <- x1 yy <- y1 if (sy < 0 & sx < 0) angle <- angle + 180 else if (sx < 0) angle <- angle + 180 if (length(code) > 1) { code <- rep(code, length.out = length(xx)) ii <- which (code %in% c(2, 3)) if (length(ii) > 0) Arrow.head(x0 = xx[ii], y0 = yy[ii], angle = angle[ii], col = sel(col, ii), adj = sel(adj, ii), lty = sel(lty, ii), length = sel(length, ii), width = sel(width, ii), type = sel(type, ii), lwd = sel(lwd, ii)) ii <- which (code %in% c(1, 3)) if (length(ii) > 0) { angle[ii] <- 180 + angle[ii] xx[ii] <- x0[ii] yy[ii] <- y0[ii] Arrow.head(x0 = xx, y0 = yy, angle = angle, col = col, adj = adj, lty = lty, length = length, width = width, type = type, lwd = lwd) } } else { if (code %in% c(2, 3)) Arrow.head(x0 = xx, y0 = yy, angle = angle, col = col, adj = adj, lty = lty, length = length, width = width, type = type, lwd = lwd) if (code %in% c(1, 3)) { angle <- 180 + angle xx <- x0 yy <- y0 Arrow.head(x0 = xx, y0 = yy, angle = angle, col = col, adj = adj, lty = lty, length = length, width = width, type = type, lwd = lwd) } } } Arrow.head <- function (x0, y0, angle = 0, length = 0.4, width = length/2, adj = 0.5, type = "triangle", col = "black", lty = 1, lwd = 2, npoint = 5) { adj <- adj[1] if (type == "curved") { rad <- 0.7 len <- 0.25 * pi mid <- c(0, rad) x <- seq(1.5 * pi + len, 1.5 * pi, length.out = npoint) rr <- cbind(mid[1] - rad * cos(x), mid[2] + rad * sin(x)) mid <- c(0, -rad) x <- rev(x) rr <- rbind(rr, cbind(mid[1] - rad * cos(x), mid[2] - rad * sin(x))) mid <- c(rr[nrow(rr), 1], 0) rd <- rr[1, 2] x <- seq(pi/2, 3 * pi/2, length.out = 3 * npoint) rr <- rbind(rr, cbind(mid[1] - rd * 0.5 * cos(x), mid[2] - 0.5 * rd * sin(x))) rr[, 1] <- rr[, 1] * 2.6 rr[, 2] <- rr[, 2] * 3.45 } else if (type %in% c("cone", "triangle")) { x <- c(-0.2, 0, -0.2) y <- c(-0.2, 0, 0.2) rr <- 6.22 * cbind(x, y) } else if (type %in% c("circle", "ellipse")) { if (type == "circle") width <- length rad <- 0.1 mid <- c(-rad, 0) x <- seq(0, 2 * pi, length.out = 15 * npoint) rr <- 6.22 * cbind(mid[1] + rad * sin(x), mid[2] + rad * cos(x)) } if (adj == 0.5) rr[, 1] <- rr[, 1] - min(rr[, 1])/2 if (adj == 0) rr[, 1] <- rr[, 1] - min(rr[, 1]) user <- par("usr") pcm <- par("pin") * 2.54 sy <- (user[4] - user[3])/pcm[2] sx <- (user[2] - user[1])/pcm[1] nr <- max(length(x0), length(y0), length(angle), length(length), length(width), length(lty), length(col)) if (nr > 1) { x0 <- rep(x0, length.out = nr) y0 <- rep(y0, length.out = nr) angle <- rep(angle, length.out = nr) length <- rep(length, length.out = nr) width <- rep(width, length.out = nr) col <- rep(col, length.out = nr) lty <- rep(lty, length.out = nr) } RR <- rr for (i in 1:nr) { dx <- rr[, 1] * length[i] dy <- rr[, 2] * width[i] angpi <- angle[i]/180 * pi cosa <- cos(angpi) sina <- sin(angpi) RR[, 1] <- cosa * dx - sina * dy RR[, 2] <- sina * dx + cosa * dy RR[, 1] <- x0[i] + RR[, 1] * sx RR[, 2] <- y0[i] + RR[, 2] * sy polygon(RR, col = col[i], border = col[i], lty = lty[i], lwd = lwd) } } plot3D/R/plot.struct.R0000644000176200001440000007216712522376576014300 0ustar liggesusers## ============================================================================= ## Plotting the information in the plotting list ## ============================================================================= plotdev <- function(...) { x <- plot.plist(getplist(), ...) invisible(x) } ## ============================================================================= plot.plist <- function(x, ...) { if (length(x) == 0) stop("nothing to draw") dot <- list(...) if (x$type == "2D") { x <- plot2Dplist(x, ...) setplist(x) return(invisible(x)) } if (length(x$img) > 0) { x <- mapimg(x) setplist(x) } dot <- list(...) if (length(dot) != 0) { projectnames <- c("theta", "phi", "xlim", "ylim", "zlim", "scale", "expand", "r", "d") if (sum( projectnames %in% names(dot)) > 0) x <- proj3D (x, dot[projectnames]) shadenames <- c("ltheta", "lphi", "shade", "lighting") if (sum( shadenames %in% names(dot)) > 0) if (! is.null(x$poly)) x$poly <- color3D(x$poly, x$scalefac, dot[shadenames], dot$lighting, dot[["alpha"]]) if ("alpha" %in% names(dot)) x <- alpha3D(x, dot[["alpha"]]) } x$persp$box <- FALSE x <- plot.struct.3D (x, plot = TRUE) if (x$type == "23D") { x <- plot2Dplist(x, ...) setplist(x) } invisible(x) } ## ============================================================================= plot.struct.3D <- function(plist, pt = NULL, CIpt = NULL, poly = NULL, segm = NULL, labels = NULL, arr = NULL, other = NULL, plot = TRUE) { if (plot) { if (is.null(plist$plt)) plist$plt$ori <- par("plt") if (!is.null(plist)) par(plt = plist$plt$main) if (!plist$persp$box) plist <- plotbox(plist) } plist <- update.3D(plist, pt, CIpt, poly, segm, labels, arr, other, expand = plot) if (plot) { # if (length(plist$img) > 0) { # plist <- mapimg(plist) # setplist(plist) # } plotlist3D(plist) if (plist$persp$bty == "f") drawfullbox(plist) if (! is.null(plist$colkey)) drawallcols(plist) par(plt = plist$plt$ori) par(mar = par("mar")) } invisible(plist) } ## ============================================================================= alpha3D <- function(plist, alpha) { # makes colors transparant if (alpha == 1 | alpha == 0) return (plist) plist$poly$col <- setalpha(plist$poly$col, alpha) plist$poly$border <- setalpha(plist$poly$border, alpha) plist$pt$col <- setalpha(plist$pt$col, alpha) plist$pt$bg <- setalpha(plist$pt$bg, alpha) plist$CIpt$col <- setalpha(plist$CIpt$col, alpha) plist$CIpt$bg <- setalpha(plist$CIpt$bg, alpha) plist$CIpt$CIpar$col <- setalpha(plist$CIpt$CIpar$col, alpha) plist$labels$col <- setalpha(plist$labels$col, alpha) plist$segm$col <- setalpha(plist$segm$col, alpha) plist$arr$col <- setalpha(plist$arr$col, alpha) if (! is.null(plist$numkeys)) for (i in 1:plist$numkeys) plist$colkey[[i]]$col <- setalpha(plist$colkey[[i]]$col, alpha) return(plist) } ## ============================================================================= color3D <- function(poly, scalefac, shade, lighting, hasalpha = NULL) { # lighting and shading shade$lighting <- NULL shade <- check.shade(shade, lighting) if (is.null(hasalpha)) if (any(!is.na(poly$alpha))) { shade$alpha <- poly$alpha shade$alpha[is.na(shade$alpha)] <- 1 } light <- setuplight(shade$lphi, shade$ltheta) [1:3] px <- poly$x * scalefac$x py <- poly$y * scalefac$y pz <- poly$z * scalefac$z isthree <- which(is.na(px[4,])) if (length(isthree) == ncol(px)) Normals <- normal.points.tri(rbind(px[1,], py[1,], pz[1,]) , rbind(px[2,], py[2,], pz[2,]) , rbind(px[3,], py[3,], pz[3,]) ) else if (length(isthree) == 0) Normals <- normal.points(rbind(px[1,], py[1,], pz[1,]) , rbind(px[3,], py[3,], pz[3,]) , rbind(px[4,], py[4,], pz[4,]) , rbind(px[2,], py[2,], pz[2,]) ) else { Normals <- list(u = rep(0, ncol(px)), v = rep(0, ncol(px)), w = rep(0, ncol(px))) NN <- normal.points.tri(rbind(px[1,isthree], py[1,isthree], pz[1,isthree]) , rbind(px[2,isthree], py[2,isthree], pz[2,isthree]) , rbind(px[3,isthree], py[3,isthree], pz[3,isthree]) ) Normals$u[isthree] <- NN$u Normals$v[isthree] <- NN$v Normals$w[isthree] <- NN$w isfour <- which(!is.na(px[4,])) NN <- normal.points(rbind(px[1,isfour], py[1,isfour], pz[1,isfour]) , rbind(px[3,isfour], py[3,isfour], pz[3,isfour]) , rbind(px[4,isfour], py[4,isfour], pz[4,isfour]) , rbind(px[2,isfour], py[2,isfour], pz[2,isfour]) ) Normals$u[isfour] <- NN$u Normals$v[isfour] <- NN$v Normals$w[isfour] <- NN$w } ii <- which (! is.na(poly$col) & poly$col != "transparent" ) if (length(ii) > 0) { pcol <- facetcols.shadelight(light, Normals, poly$col, shade) poly$col[ii] <- pcol[ii] } ii <- which (! is.na(poly$border)) if (length(ii) > 0) { pcol <- facetcols.shadelight(light, Normals, poly$border, shade) poly$border[ii] <- pcol[ii] } poly } ## ============================================================================= proj3D <- function(plist, dot) { if (!is.null(dot$theta)) plist$persp$theta <- dot$theta if (!is.null(dot$phi)) plist$persp$phi <- dot$phi lims <- c(!is.null(dot$xlim), !is.null(dot$ylim), !is.null(dot$zlim)) if (sum(lims) > 0) { SS <- function(x, y, z) { sel <- rep(TRUE, length.out = length(x)) if (lims[1]) sel[x < min(dot$xlim) | x > max(dot$xlim)] <- FALSE if (lims[2]) sel[y < min(dot$ylim) | y > max(dot$ylim)] <- FALSE if (lims[3]) sel[z < min(dot$zlim) | z > max(dot$zlim)] <- FALSE return(sel) } plist <- selectplist(plist, SS) } if (!is.null(dot$xlim)) plist$xlim <- dot$xlim if (!is.null(dot$ylim)) plist$ylim <- dot$ylim if (!is.null(dot$zlim)) plist$zlim <- dot$zlim if (!is.null(dot$scale)) plist$dot$scale <- dot$scale if (!is.null(dot$expand)) plist$dot$expand <- dot$expand lim <- setlim (plist$xlim, plist$ylim, plist$zlim, plist$dot$scale, plist$dot$expand) plist$scalefac <- lim if (!is.null(dot$r)) plist$dot$r <- dot$r if (!is.null(dot$d)) plist$dot$d <- dot$d plist$mat <- transmat (plist$persp$phi, plist$persp$theta, plist$scalefac, plist$dot$r, plist$dot$d) # update projections if (!is.null(plist$pt)) plist$pt$proj <- project(plist$pt$x.mid, plist$pt$y.mid, plist$pt$z.mid, plist) if (!is.null(plist$CIpt)) plist$CIpt$proj <- project(plist$CIpt$x.mid, plist$CIpt$y.mid, plist$CIpt$z.mid, plist) if (!is.null(plist$labels)) plist$labels$proj <- project(plist$labels$x, plist$labels$y, plist$labels$z, plist) if (!is.null(plist$poly)) plist$poly$proj <- project(colMeans(plist$poly$x, na.rm = TRUE), colMeans(plist$poly$y, na.rm = TRUE), colMeans(plist$poly$z, na.rm = TRUE), plist) if (!is.null(plist$segm)) plist$segm$proj <- project(0.5*(plist$segm$x.from + plist$segm$x.to), 0.5*(plist$segm$y.from + plist$segm$y.to), 0.5*(plist$segm$z.from + plist$segm$z.to), plist) if (!is.null(plist$arr)) plist$arr$proj <- project(0.5*(plist$arr$x.from + plist$arr$x.to), 0.5*(plist$arr$y.from + plist$arr$y.to), 0.5*(plist$arr$z.from + plist$arr$z.to), plist) return(plist) } ## ============================================================================= ## updates plist ## ============================================================================= update.3D <- function(plist, pt = NULL, CIpt = NULL, poly = NULL, segm = NULL, labels = NULL, arr = NULL, other = NULL, expand = TRUE) { # ------------------------------------------------------------------------------ # update plist with new elements # ------------------------------------------------------------------------------ if (any(plist$setlim)) { PL <- list(pt = pt, CIpt = CIpt, poly = poly, segm = segm, labels = labels, arr = arr, imgnr = plist$imgnr) } if (is.null(plist$pt)) plist$pt <- pt else if (! is.null(pt)) { plist$pt$x.mid <- c(plist$pt$x.mid, pt$x.mid) plist$pt$y.mid <- c(plist$pt$y.mid, pt$y.mid) plist$pt$z.mid <- c(plist$pt$z.mid, pt$z.mid) plist$pt$col <- c(plist$pt$col, pt$col) plist$pt$pch <- c(plist$pt$pch, pt$pch) plist$pt$bg <- c(plist$pt$bg, pt$bg) plist$pt$cex <- c(plist$pt$cex, pt$cex) plist$pt$lwd <- c(plist$pt$lwd, pt$lwd) plist$pt$alpha <- c(plist$pt$alpha, pt$alpha) plist$pt$proj <- c(plist$pt$proj, pt$proj) } if (is.null(plist$CIpt)) plist$CIpt <- CIpt else if (! is.null(CIpt)) { plist$CIpt$x.to <- rbind(plist$CIpt$x.to, CIpt$x.to) plist$CIpt$y.to <- rbind(plist$CIpt$y.to, CIpt$y.to) plist$CIpt$z.to <- rbind(plist$CIpt$z.to, CIpt$z.to) plist$CIpt$x.from <- rbind(plist$CIpt$x.from,CIpt$x.from) plist$CIpt$y.from <- rbind(plist$CIpt$y.from,CIpt$y.from) plist$CIpt$z.from <- rbind(plist$CIpt$z.from,CIpt$z.from) plist$CIpt$nCI <- c(plist$CIpt$nCI, CIpt$nCI) plist$CIpt$x.mid <- c(plist$CIpt$x.mid, CIpt$x.mid) plist$CIpt$y.mid <- c(plist$CIpt$y.mid, CIpt$y.mid) plist$CIpt$z.mid <- c(plist$CIpt$z.mid, CIpt$z.mid) plist$CIpt$len <- c(plist$CIpt$len, CIpt$len) plist$CIpt$lty <- c(plist$CIpt$lty, CIpt$lty) plist$CIpt$lwd <- c(plist$CIpt$lwd, CIpt$lwd) plist$CIpt$col <- c(plist$CIpt$col, CIpt$col) plist$CIpt$pch <- c(plist$CIpt$pch, CIpt$pch) plist$CIpt$bg <- c(plist$CIpt$bg, CIpt$bg) plist$CIpt$cex <- c(plist$CIpt$cex, CIpt$cex) plist$CIpt$proj <- c(plist$CIpt$proj, CIpt$proj) plist$CIpt$alpha <- c(plist$CIpt$alpha, CIpt$alpha) plist$CIpt$CIpar$col <- c(plist$CIpt$CIpar$col, CIpt$CIpar$col) plist$CIpt$CIpar$lwd <- c(plist$CIpt$CIpar$lwd, CIpt$CIpar$lwd) plist$CIpt$CIpar$lty <- c(plist$CIpt$CIpar$lty, CIpt$CIpar$lty) plist$CIpt$CIpar$alen <- c(plist$CIpt$CIpar$alen, CIpt$CIpar$alen) } if (is.null(plist$labels)) plist$labels <- labels else if (! is.null(labels)) { plist$labels$x <- c(plist$labels$x, labels$x) plist$labels$y <- c(plist$labels$y, labels$y) plist$labels$z <- c(plist$labels$z, labels$z) plist$labels$labels <- c(plist$labels$labels, labels$labels) plist$labels$adj <- c(plist$labels$adj, labels$adj) plist$labels$cex <- c(plist$labels$cex, labels$cex) plist$labels$col <- c(plist$labels$col, labels$col) plist$labels$font <- c(plist$labels$font, labels$font) plist$labels$srt <- c(plist$labels$srt, labels$srt) plist$labels$proj <- c(plist$labels$proj, labels$proj) plist$labels$alpha <- c(plist$labels$alpha, labels$alpha) } if (! is.null(poly)) { if (is.null(plist$imgnr)) { plist$imgnr <- 0 plist$img <- list() } if (length(poly$img) > 0) { Img <- poly$img for (ii in 1: length(Img)) { img <- Img[[ii]] plist$imgnr <- plist$imgnr + 1 if (expand) { if (is.null(img$mapped)) img$mapped <- TRUE if (!img$mapped) { Poly <- with (img, polyfill(x, y, z, col[sl$list], NAcol, facets, border, sl, lwd, lty, sl$Proj[sl$list], alpha = alpha)) poly <- addPoly(poly, Poly) } } plist$img[[plist$imgnr]] <- img } } # if (expand) plist$poly <- addPoly(plist$poly, poly) } if (expand & length(plist$img) >0 ) plist <- mapimg(plist) if (is.null(plist$segm)) plist$segm <- segm else if (! is.null(segm)) { plist$segm$x.from <- c(plist$segm$x.from, segm$x.from) plist$segm$y.from <- c(plist$segm$y.from, segm$y.from) plist$segm$z.from <- c(plist$segm$z.from, segm$z.from) plist$segm$x.to <- c(plist$segm$x.to, segm$x.to) plist$segm$y.to <- c(plist$segm$y.to, segm$y.to) plist$segm$z.to <- c(plist$segm$z.to, segm$z.to) plist$segm$proj <- c(plist$segm$proj, segm$proj) plist$segm$lwd <- c(plist$segm$lwd, segm$lwd) plist$segm$lty <- c(plist$segm$lty, segm$lty) plist$segm$col <- c(plist$segm$col, segm$col) plist$segm$alpha <- c(plist$segm$alpha, segm$alpha) } if (is.null(plist$arr)) plist$arr <- arr else if (! is.null(arr)) { plist$arr$x.from <- c(plist$arr$x.from, arr$x.from) plist$arr$y.from <- c(plist$arr$y.from, arr$y.from) plist$arr$z.from <- c(plist$arr$z.from, arr$z.from) plist$arr$x.to <- c(plist$arr$x.to, arr$x.to) plist$arr$y.to <- c(plist$arr$y.to, arr$y.to) plist$arr$z.to <- c(plist$arr$z.to, arr$z.to) plist$arr$proj <- c(plist$arr$proj, arr$proj) plist$arr$code <- c(plist$arr$code, arr$code) plist$arr$angle <- c(plist$arr$angle, arr$angle) plist$arr$length <- c(plist$arr$length, arr$length) plist$arr$lwd <- c(plist$arr$lwd, arr$lwd) plist$arr$lty <- c(plist$arr$lty, arr$lty) plist$arr$col <- c(plist$arr$col, arr$col) plist$arr$type <- c(plist$arr$type, arr$type) plist$arr$alpha <- c(plist$arr$alpha, arr$alpha) } return (plist) } ## ============================================================================= ## plots points, polygons, segments, labels, arrows ## ============================================================================= plotlist3D <- function(plist) { pt <- plist$pt CIpt <- plist$CIpt poly <- plist$poly segm <- plist$segm labels <- plist$labels arr <- plist$arr other <- plist$other # ------------------------------------------------------------------------------ # project (x, y, z) to plane (x, y) and count number of different structures # ------------------------------------------------------------------------------ numStruct <- 0 if (! is.null(poly)) { pol <- trans3D(x = poly$x, y = poly$y, z = poly$z, pmat = plist$mat) numStruct <- numStruct + 1 } if (! is.null(other)) { stop ("structure 'other' undefined") numStruct <- numStruct + 1 } if (! is.null(CIpt$x.from)) { CI.to <- trans3D(x = CIpt$x.to, y = CIpt$y.to, z = CIpt$z.to, pmat = plist$mat) CI.from <- trans3D(x = CIpt$x.from, y = CIpt$y.from, z = CIpt$z.from, pmat = plist$mat) CI.mid <- trans3D(x = CIpt$x.mid , y = CIpt$y.mid , z = CIpt$z.mid , pmat = plist$mat) numStruct <- numStruct + 1 } if (! is.null(pt)) { pt.mid <- trans3D(x = pt$x.mid , y = pt$y.mid , z = pt$z.mid , pmat = plist$mat) numStruct <- numStruct + 1 } if (! is.null(segm)) { segm.to <- trans3D(x = segm$x.to, y = segm$y.to, z = segm$z.to, pmat = plist$mat) segm.from <- trans3D(x = segm$x.from, y = segm$y.from, z = segm$z.from, pmat = plist$mat) numStruct <- numStruct + 1 } if (! is.null(arr)) { arr.to <- trans3D(x = arr$x.to, y = arr$y.to, z = arr$z.to, pmat = plist$mat) arr.from <- trans3D(x = arr$x.from, y = arr$y.from, z = arr$z.from, pmat = plist$mat) numStruct <- numStruct + 1 } if (! is.null(labels)) { lab <- trans3D(x = labels$x, y = labels$y, z = labels$z, pmat = plist$mat) numStruct <- numStruct + 1 } List <- c(pt$proj, CIpt$proj, poly$proj, segm$proj, labels$proj, arr$proj, other$proj) if (length(List) == 0) return() sortlist <- sort.int(List, index.return = TRUE)$ix # ------------------------------------------------------------------------------ # check if there is only one types and plot if true # ------------------------------------------------------------------------------ if (numStruct == 1) { if (! is.null(pt)) { points(pt.mid$x[sortlist], pt.mid$y[sortlist], col = pt$col[sortlist], pch = pt$pch[sortlist], cex = pt$cex[sortlist], lwd = pt$lwd[sortlist], bg = pt$bg[sortlist]) } else if (!is.null(poly)) { # only polygons polygon(pol$x[ ,sortlist], pol$y[ ,sortlist], lwd = poly$lwd[sortlist], lty = poly$lty[sortlist], border = poly$border[sortlist], col = poly$col [sortlist]) } else if (!is.null(segm)) { # only segments segments(segm.from$x[sortlist], segm.from$y[sortlist], segm.to$x [sortlist], segm.to$y[sortlist], col = segm$col[sortlist], lwd = segm$lwd[sortlist], lty = segm$lty[sortlist]) } else if (!is.null(labels)) { # only labels text(x = lab$x[sortlist], y = lab$y[sortlist], labels = labels$labels[sortlist], col = labels$col[sortlist], adj = labels$adj[sortlist], cex = labels$cex[sortlist], font = labels$font[sortlist], srt = labels$srt[sortlist[1]]) } else if (!is.null(arr)) { # only simple arrows ArrType (arr.from$x[sortlist], arr.from$y[sortlist], arr.to$x[sortlist], arr.to$y[sortlist], arr$length[sortlist], arr$angle[sortlist], arr$code[sortlist], col = arr$col[sortlist], type = arr$type[sortlist], lwd = arr$lwd[sortlist], lty = arr$lty[sortlist]) } if (is.null(CIpt)) return() } # it is a mix of types Lpt <- length(pt$proj) LCIpt <- length(CIpt$proj) Lpoly <- length(poly$proj) Lsegm <- length(segm$proj) Llabels <- length(labels$proj) Larr <- length(arr$proj) Lother <- length(other$proj) LCI <- Lpt + LCIpt LCP <- LCI + Lpoly LCPS <- LCP + Lsegm LCPSL <- LCPS + Llabels LCPSLA <- LCPSL + Larr Ltot <- LCPSLA + Lother type <- rep(0, Ltot) # 0 = points type[sortlist > Lpt & sortlist <= LCI] <- 1 # points + CI type[sortlist > LCI & sortlist <= LCP] <- 2 # polygons type[sortlist > LCP & sortlist <= LCPS] <- 3 # segments type[sortlist > LCPS & sortlist <= LCPSL] <- 4 # labels type[sortlist > LCPSL & sortlist <= LCPSLA] <- 5 # arrows type[sortlist > LCPSLA ] <- 6 # other - undefined plotit <- function(ii) { i <- sortlist[ii] if (type[ii] == 0) { # points points(pt.mid$x[i], pt.mid$y[i], col = pt$col[i], pch = pt$pch[i], cex = pt$cex[i], bg = pt$bg[i]) } else if (type[ii] == 1) { # points + CI io <- i - Lpt nCI <- CIpt$nCI[io] for(j in 1:nCI) arrows(CI.from$x[io, j], CI.from$y[io, j], CI.to$x[io, j], CI.to$y[io, j], angle = 90, length = CIpt$CIpar$alen[io], code = 3, col = CIpt$CIpar$col[io], lty = CIpt$CIpar$lty[io], lwd = CIpt$CIpar$lwd[io]) if (CIpt$dopoints) points(CI.mid$x[io], CI.mid$y[io], col = CIpt$col[io], pch = CIpt$pch[io], cex = CIpt$cex[io], bg = CIpt$bg[io]) } else if (type[ii] == 2) { io <- i - LCI polygon(pol$x[, io], pol$y[, io], lwd = poly$lwd[io], lty = poly$lty[io], border = poly$border[io], col = poly$col[io]) } else if (type[ii] == 3) { io <- i - LCP segments(segm.from$x[io], segm.from$y[io], segm.to$x[io], segm.to$y[io], col = segm$col[io], lwd = segm$lwd[io], lty = segm$lty[io]) } else if (type[ii] == 4) { io <- i - LCPS text(x = lab$x[io], y = lab$y[io], labels = labels$labels[io], col = labels$col[io], adj = labels$adj[io], cex = labels$cex[io], font = labels$font[io], srt = labels$srt[io[1]]) } else if (type[ii] == 5) { io <- i - LCPSL ArrType (arr.from$x[io], arr.from$y[io], arr.to$x[io], arr.to$y[io], arr$length[io], arr$angle[io], arr$code[io], col = arr$col[io], type = arr$type[io], lwd = arr$lwd[io], lty = arr$lty[io]) } else if (type[ii] == 6) { io <- i - LCPSLA dp <- extractdots(other$dot, i) stop("structure 'other' not defined") } } sapply(FUN = plotit, 1:length(sortlist)) # for (i in 1:length(sortlist)) plotit(i) } selectplist <- function (plist, SS) { # if (! is.null(plist$pt)) { pt <- plist$pt ipt <- with (pt, SS(x.mid, y.mid, z.mid)) if (sum(ipt) > 0) plist$pt <- with(pt, list(x.mid = x.mid[ipt], y.mid = y.mid[ipt], z.mid = z.mid[ipt], col = col[ipt], pch = pch[ipt], cex = cex[ipt], bg = bg[ipt], alpha = alpha[ipt], proj = proj[ipt])) else plist$pt <- NULL } # if (!is.null(plist$CIpt)) { CIpt <- plist$CIpt ipt <- with (CIpt, SS(x.mid, y.mid, z.mid)) if (sum(ipt) > 0) plist$CIpt <- with (CIpt, list(x.to = x.to[ipt,], y.to = y.to[ipt,], z.to = z.to[ipt,], x.from = x.from [ipt,], y.from = y.from[ipt,], z.from = z.from[ipt,], nCI = nCI[ipt], x.mid = x.mid[ipt], y.mid = y.mid[ipt], z.mid = z.mid[ipt], length = CIpt$length[ipt], col= col[ipt], pch = pch[ipt], bg = bg[ipt], cex = cex[ipt], alpha = alpha[ipt], proj = proj[ipt], CIpar = list (col = CIpar$col[ipt], lwd = CIpar$lwd[ipt], lty = CIpar$lty[ipt], alen = CIpar$alen[ipt]))) else plist$CIpt <- NULL } # polygons if (length(plist$poly$x) > 0) { xm <- colMeans(plist$poly$x, na.rm = TRUE) ym <- colMeans(plist$poly$y, na.rm = TRUE) zm <- colMeans(plist$poly$z, na.rm = TRUE) remove <- NULL if (any(is.nan(xm))) remove <- c(remove, which(is.nan(xm))) if (any(is.nan(ym))) remove <- c(remove, which(is.nan(ym))) if (any(is.nan(zm))) remove <- c(remove, which(is.nan(zm))) if (! is.null(remove)) { remove <- unique(remove) xm[is.nan(xm)] <- 0 ym[is.nan(ym)] <- 0 zm[is.nan(zm)] <- 0 } ip <- SS(xm, ym, zm) if (! is.null(remove)) ip[remove] <- FALSE if (sum(ip) > 0) plist$poly <- with (plist$poly, list(x = as.matrix(x[,ip]), y = as.matrix(y[,ip]), z = as.matrix(z[,ip]), col = col[ip], border = border[ip], lwd = lwd[ip], lty = lty[ip], alpha = alpha[ip], isimg = isimg[ip], proj = proj[ip])) else plist$poly <- NULL } else plist$poly <- NULL # images imgxrange <- NULL imgyrange <- NULL imgzrange <- NULL if (length(plist$img)> 0 ) { for (i in plist$imgnr:1) { img <- plist$img[[i]] # because col has one row and column less than x, y, z Col <- img$col if (nrow(Col) != nrow(img$z)) Col <- rbind(Col, Col[nrow(Col),]) if (ncol(Col) != ncol(img$z)) Col <- cbind(Col, Col[,ncol(Col)]) # expand all values of x and y if (is.vector(img$x)) { XY <- mesh(img$x, img$y) img$x <- XY$x; img$y <- XY$y } Nx <- nrow(img$z) Ny <- ncol(img$z) remove <- NULL if (any(is.na(img$x))) remove <- c(remove, which(is.na(img$x))) if (any(is.na(img$y))) remove <- c(remove, which(is.na(img$y))) if (any(is.na(img$z))) remove <- c(remove, which(is.na(img$z))) if (! is.null(remove)) { remove <- unique(remove) img$x[is.na(img$x)] <- 0 img$y[is.na(img$y)] <- 0 img$z[is.na(img$z)] <- 0 } ipt <- SS(img$x, img$y, img$z) if (! is.null(remove)) { ipt[remove] <- FALSE img$x[remove] <- NA img$y[remove] <- NA img$z[remove] <- NA } if (sum(ipt) > 0) { zset <- min(img$z[ipt], na.rm = TRUE) Select <- img$z; Select[] <- ipt Noselect <- which(!ipt) Col[Noselect] <- "transparent" img$z[Noselect] <- NA #zset arrsel <- which (Select == 1, arr.ind = TRUE) xr <- range(arrsel[,1]) yr <- range(arrsel[,2]) xsel <- xr[1] : xr[2] ysel <- yr[1] : yr[2] if (is.vector(plist$img[[i]]$x)) plist$img[[i]]$x <- plist$img[[i]]$x[xsel] else plist$img[[i]]$x <- img$x[xsel, ysel] if (is.vector(plist$img[[i]]$x)) plist$img[[i]]$y <- plist$img[[i]]$y[ysel] else plist$img[[i]]$y <- img$y[xsel, ysel] plist$img[[i]]$z <- img$z[xsel, ysel] plist$img[[i]]$col <- Col[xsel, ysel] imgxrange <- range( c(imgxrange, plist$img[[i]]$x), na.rm = TRUE) imgyrange <- range( c(imgyrange, plist$img[[i]]$y), na.rm = TRUE) imgzrange <- range( c(imgzrange, plist$img[[i]]$z), na.rm = TRUE) } else { plist$img[[i]] <- NULL plist$imgnr <- plist$imgnr - 1 } } } if (!is.null(plist$labels)) { labels <- plist$labels il <- with (labels, SS(x, y, z)) if (sum(il) > 0) plist$labels <- with (labels, list(x = x[il], y = y[il], z = z[il], labels = labels[il], adj = adj[il], cex = cex[il], col = col[il], font = font[il], alpha = alpha[il], proj = proj[il])) else plist$labels <- NULL } if (!is.null(plist$segm)) { segm <- plist$segm is <- with (segm, SS(colMeans(rbind(as.vector(x.from), as.vector(x.to))), colMeans(rbind(as.vector(y.from), as.vector(y.to))), colMeans(rbind(as.vector(z.from), as.vector(z.to))))) if (sum(is) > 0) plist$segm <- with (segm, list(x.from = as.vector(x.from)[is], y.from = as.vector(y.from)[is], z.from = as.vector(z.from)[is], x.to = as.vector(x.to)[is], y.to = as.vector(y.to)[is], z.to = as.vector(z.to)[is], proj = proj[is], lwd = lwd[is], lty = lty[is], alpha = alpha[is], col = col[is])) else plist$segm <- NULL } if (!is.null(plist$arr)) { arr <- plist$arr is <- with (arr, SS(colMeans(rbind(as.vector(x.from), as.vector(x.to))), colMeans(rbind(as.vector(y.from), as.vector(y.to))), colMeans(rbind(as.vector(z.from), as.vector(z.to))))) if (sum(is) > 0) plist$arr <- with (arr, list(x.from = as.vector(x.from)[is], y.from = as.vector(y.from)[is], z.from = as.vector(z.from)[is], x.to = as.vector(x.to)[is], y.to = as.vector(y.to)[is], z.to = as.vector(z.to)[is], proj = proj[is], lwd = lwd[is], lty = lty[is], col = col[is], code = code[is], angle = angle[is], length = length[is], type = type[is], alpha = alpha[is])) else plist$arr <- NULL } # new ranges xs <- c(plist$pt$x.mid, plist$CIpt$x.to, plist$CIpt$x.from, plist$poly$x, plist$labels$x, plist$segm$x.from, plist$segm$x.to, plist$arr$x.from, plist$arr$x.to, imgxrange) if (length(xs) > 0) plist$xlim <- newlim(xs) ys <- c(plist$pt$y.mid, plist$CIpt$y.to, plist$CIpt$y.from, plist$poly$y, plist$labels$y, plist$segm$y.from, plist$segm$y.to, plist$arr$y.from, plist$arr$y.to, imgyrange) if (length(ys) > 0) plist$ylim <- newlim(ys) zs <- c(plist$pt$z.mid, plist$CIpt$z.to, plist$CIpt$z.from, plist$poly$z, plist$labels$z, plist$segm$z.from, plist$segm$z.to, plist$arr$z.from, plist$arr$z.to, imgzrange) if (length(zs) > 0) plist$zlim <- newlim(zs) return (plist) } newlim <- function(xx) { lim <- range(xx, na.rm = TRUE) if (any(is.infinite(lim))) return(c(-0.1,0.1)) if (diff(lim) == 0) lim <- lim * c(0.8, 1.2) if (diff(lim) == 0) lim <- lim + c(-0.1, 0.1) return(lim) } plot3D/R/functions.R0000644000176200001440000007003712602432373013764 0ustar liggesusers## ============================================================================= ## ============================================================================= ## General utility functions ## ============================================================================= ## ============================================================================= ## ============================================================================= ## Extend/average to embrace points, but not exceeding boundaries ## ============================================================================= extendvec <- function(x) { ll <- length(x) c(x[1] + 0.5*(x[1] - x[2]), x, x[ll] + 0.5*(x[ll] - x[ll-1])) } extend <- function(x, na.rm = TRUE) { if (na.rm & any(is.na(x))) return(extend.na(x)) x <- rbind(x[1,], x, x[nrow(x),]) x <- cbind(x[,1], x, x[,ncol(x)]) ii <- 2:nrow(x) jj <- 2:ncol(x) 0.25*(x[ii, jj] + x[ii-1, jj] + x[ii, jj-1] + x[ii-1, jj-1]) } # extending, but ignoring the NAs extend.na <- function(x) { x <- rbind(x[1,], x, x[nrow(x),]) x <- cbind(x[,1], x, x[,ncol(x)]) nisna <- !is.na(x) x[!nisna] <- 0 ii <- 2:nrow(x) jj <- 2:ncol(x) Sum <- (x[ii, jj] + x[ii-1, jj] + x[ii, jj-1] + x[ii-1, jj-1]) Count <- nisna[ii, jj] + nisna[ii-1, jj] + nisna[ii, jj-1] + nisna[ii-1, jj-1] Res <- Sum/Count Res[is.nan(Res)] <- NA return(Res) } meangrid.na <- function(x) { nisna <- !is.na(x) x[!nisna] <- 0 nr <- nrow(x) nc <- ncol(x) Sum <- x[-1, -1] + x[-1, -nc] + x[-nr, -1] + x[-nr, -nc] Count <- nisna[-1, -1] + nisna[-1, -nc] + nisna[-nr, -1] + nisna[-nr, -nc] Res <- Sum/Count Res[is.nan(Res)] <- NA return(Res) } meangrid <- function(x, na.rm = FALSE) { if (na.rm & any(is.na(x))) return(meangrid.na(x)) else return(0.25*( x[-1, -1] + x[-1, -ncol(x)] + x[-nrow(x), -1] + x[-nrow(x), -ncol(x)])) } ## ============================================================================= ## something can be toggled off by putting it = FALSE, NA, NULL ## ============================================================================= ispresent <- function(var) { if (length(var) > 1) return(TRUE) ispresent <- TRUE if (is.null(var)) ispresent <- FALSE else if (is.na(var)) ispresent <- FALSE else if (length(var) == 1) if (is.logical(var)) if (!var) ispresent <- FALSE return(ispresent) } ## ============================================================================= ## Segment function that allows for multiple lwd - not necessary? -not used ## ============================================================================= Segments <- function (x0, y0, x1, y1, col, lty, lwd, ...) { nD <- length(x0) doseg <- function(i, ...) { lines (x = c(x0[i], x1[i]), y = c(y0[i], y1[i]), col = col[i], lty = lty[i], lwd = lwd[i], ...) } lapply (1:nD, FUN = doseg) } ## ============================================================================= ## List to draw legend/contour ## ============================================================================= check.args <- function(ll) { addit <- ! is.null(ll) if (length(ll) == 0) addit <- FALSE else if (is.logical(ll[[1]])) if (length(ll[[1]]) == 1) if (ll[[1]] == FALSE) addit <- FALSE side <- "zmin" if (addit) { # should have at least side argument if (is.list(ll)) { if (!is.null(ll$side)) side <- ll$side ll$side <- NULL } else ll <- list() } list(add = addit, side = side, args = ll) } ## ============================================================================= ## Segments to plot contours on bottom or top panel ## ============================================================================= contourfunc <- function(contour, x, y, z, plist, cv = NULL, clim = range(cv), dDepth = NULL, addbox = TRUE) { if (is.null(dDepth)) dDepth <- contour$args$dDepth if (is.null(dDepth)) dDepth <- 1e-1 levels <- contour$args$levels nlevels <- contour$args$nlevels if (is.null (nlevels )) nlevels <- 10 if (! is.null(contour$args$x)) x <- contour$args$x if (! is.null(contour$args$y)) y <- contour$args$y if (! is.null(contour$args$z)) z <- contour$args$z contour$args$x <- contour$args$y <- contour$args$z <- NULL if (is.null(cv)) cv <- z contour$args$lighting <- contour$args$shade <- NULL contour$args$levels <- contour$args$nlevels <- NULL if (! is.null(levels)) line.list <- contourLines(x, y, cv, levels = levels) else line.list <-contourLines(x, y, cv, nlevels = nlevels) col <- contour$args$col if (is.null(col)) col <- "black" if (length(col) == 1) col <- c(col, col) crange <- diff(clim) N <- length(col) -1 getcol <- function(v) col[1 + trunc((v - clim[1])/crange*N)] contour$args$col <- contour$args$dDepth <- NULL segm <- NULL for (side in contour$side) { if (side == "zmin") zz <- min(plist$zlim) else if (side == "zmax") zz <- max(plist$zlim) else if (side == "z") zz <- NULL else if (!is.numeric(as.numeric(side))) stop ("cannot add contour on side ", side) else zz <- as.numeric(side) if (side == "z") { # contour *on* the persp plot Nx <- length(x) Ny <- length(y) dx <- c(diff(x), 1) # 1= for last value dy <- c(diff(y), 1) for (i in 1:length(line.list)) { xto <- line.list[[i]]$x yto <- line.list[[i]]$y # find embracing values : first interval ix <- findInterval(xto, x) iy <- findInterval(yto, y) # next interval ixp1 <- pmin(ix+1, Nx) iyp1 <- pmin(iy+1, Ny) # interpolation factor xfac <- (xto-x[ix])/dx[ix] yfac <- (yto-y[iy])/dy[iy] # interpolate zz <- (1-yfac)*((1-xfac)*z[cbind(ix,iy) ]+xfac*z[cbind(ixp1,iy)]) + yfac*((1-xfac)*z[cbind(ix,iyp1)]+xfac*z[cbind(ixp1,iyp1)]) Col <- getcol(line.list[[i]]$level) segm <- do.call("addlines", c(alist(segm, line.list[[i]]$x, line.list[[i]]$y, z = as.vector(zz), col = Col, plist = plist), contour$args)) } } else for (i in 1:length(line.list)) segm <- do.call("addlines", c(alist(segm, line.list[[i]]$x, line.list[[i]]$y, z = rep(zz, length(line.list[[i]]$x)), col = getcol(line.list[[i]]$level), plist = plist), contour$args)) if (side != "z" & addbox) segm <- addlines(segm, x = c(x[1], x[length(x)],x[length(x)], x[1], x[1]), y = c(y[1], y[1], y[length(y)],y[length(y)], y[1]), z = rep(zz, length.out = 5), col = "black", plist = plist) } segm$proj <- segm$proj + dDepth*plist$persp$expand # put it on foreground... return(segm) } ## ============================================================================= ## polygons if image is to be drawn on bottom or top panel ## ============================================================================= XYimage <- function(poly, image, x, y, z, plist, col, breaks) { if (is.null(image$args$col)) image$args$col <- col if (! is.null(image$args$x)) x <- image$args$x if (! is.null(image$args$y)) y <- image$args$y if (! is.null(image$args$z)) z <- image$args$z image$args$x <- image$args$y <- image$args$z <- NULL lwd <- image$args$lwd if (is.null(lwd)) lwd <- 1 lty <- image$args$lty if (is.null(lty)) lty <- 1 image$args$lwd <- image$args$lty <- NULL for (side in image$side) { if (side == "zmin") zz <- plist$zlim[1] else if (side == "zmax") zz <- plist$zlim[2] else if (!is.numeric(as.numeric(side))) stop ("cannot add image on side ", side) else zz <- as.numeric(side) zmat <- matrix(nrow = length(x), ncol = length(y), data = zz) poly <- do.call("addimg", c(alist(poly, x, y, z = zmat, colvar = z, breaks = breaks, plist = plist, lwd = lwd, lty = lty), image$args)) } return(poly) } ## ============================================================================= ## Functions that account for occurrence of decreasing values... ## ============================================================================= FindInterval <- function(x, vec, ...) { if (all(diff(vec) < 0)) { vec <- rev(vec) res <- c(length(vec):1) [findInterval(x, vec, ...)]-1 } else res <- findInterval(x, vec, ...) res [ res == 0] <- 1 res } ## .. and of NAs Approx <- function(x, y, ...) { if (all(is.na(x))) return(list(y = rep(NA, length = length(y)), x = y)) if (diff(range(x, na.rm = TRUE)) == 0) warning("Warning in approx: all 'x' values are the same") if (any(is.na(c(x, y)))) { ii <- unique(c(which(is.na(x)), which(is.na(y)))) x <- x[-ii] y <- y[-ii] } approx(x, y, ...) } ## ============================================================================= ## ============================================================================= ## expands a sorted index list to matrix rows and columns ## ============================================================================= ## ============================================================================= expand.sort <- function(sortlist, Dim) { # can be improved! II <- matrix(nrow = Dim[1], ncol = Dim[2], data = 1:Dim[1]) ix <- II[sortlist] # indices to x-values in sorted list II <- matrix(nrow = Dim[1], ncol = Dim[2], data = 1:Dim[2], byrow =TRUE) iy <- II[sortlist] # indices to y-values in sorted list list(x = ix, y = iy) } ## ============================================================================= ## ============================================================================= ## Projection depth ## ============================================================================= ## ============================================================================= project <- function (x, y, z, plist, ignorez = TRUE) { if (is.null(plist)) stop("a 3D plot has not yet been created") if (ignorez) z <- 0 # it is done like this in persp (plot.c) TV <- cbind(as.vector(x), as.vector(y), as.vector(z), 1) %*% plist$mat return (-TV[ ,4]) } ## ============================================================================= ## ============================================================================= ## wrapper over trans3d that returns arrays with original dimensions ## ============================================================================= ## ============================================================================= trans3D <- function(x, y, z, pmat) { # trans3d expects vectors as input XX <- trans3d(x = as.vector(x), y = as.vector(y), z = as.vector(z), pmat = pmat) # convert x- and y to an array with original dimensions if (! is.vector(x)) { XX$x <- array(dim = dim(x), data = XX$x) XX$y <- array(dim = dim(x), data = XX$y) } return(XX) } ## ============================================================================= ## ============================================================================= ## Function to change the resolution of matrices - ## ============================================================================= ## ============================================================================= changeres <- function(resfac, x, y, z, colvar = NULL, na.rm = FALSE) { if (is.matrix(x)) return(changeres_mat(resfac, x, y, z, colvar, na.rm)) else return(changeres_vec(resfac, x, y, z, colvar, na.rm)) } changeres_vec <- function(resfac, x, y, z, colvar = NULL, na.rm = FALSE) { resfac <- abs(rep(resfac, length.out = 2)) diffx <- diff(x) diffy <- diff(y) XX <- x YY <- y RX <- 1/resfac[1] RY <- 1/resfac[2] if (resfac[1] > 1) for (i in 1: (resfac[1]-1)) XX <- c(XX, x[-length(x)] + diffx * i*RX) else if (resfac[1] < 0.99) XX <- x[as.integer(seq(1, nrow(z), length.out = nrow(z)*resfac[1]))] if (resfac[2] > 1) for (i in 1: (resfac[2]-1)) YY <- c(YY, y[-length(y)] + diffy * i*RY) else if (resfac[2] < 0.99) YY <- y[as.integer(seq(1, ncol(z), length.out = ncol(z)*resfac[2]))] XX <- unique(sort(XX)) YY <- unique(sort(YY)) z <- remapxy(z, x = x, y = y, xto = XX, yto = YY, na.rm) if (! is.null(colvar)) colvar <- remapxy(colvar, x = x, y = y, xto = XX, yto = YY, na.rm) list(x = XX, y = YY, z = z, colvar = colvar) } changeres_mat <- function(resfac, x, y, z, colvar = NULL, na.rm = FALSE) { resfac <- abs(rep(resfac, length.out = 2)) xx <- 1:nrow(z) yy <- 1:ncol(z) XX <- changeres(resfac, xx, yy, x)$z YY <- changeres(resfac, xx, yy, y)$z RR <- changeres(resfac, xx, yy, z, colvar) list(x = XX, y = YY, z = RR$z, colvar = RR$colvar) } ## ============================================================================= ## Maps a matrix 'z' from (x, y) to (xto, yto) by linear 2-D interpolation ## ============================================================================= remapxy <- function(z, x, y, xto, yto, na.rm = FALSE) { if (na.rm & any(is.na(z))) return(remapxyNA (z, x = x, y = y, xto = xto, yto = yto)) # a simple function with linear interpolation - only for x and y a vector Nx <- length(x) Ny <- length(y) dx <- c(diff(x), 1) # 1= for last value dy <- c(diff(y), 1) # find embracing values : first interval ix <- FindInterval(xto, x) iy <- FindInterval(yto, y) # interpolation factor xfac <- (xto-x[ix])/dx[ix] yfac <- (yto-y[iy])/dy[iy] # expand for all combinations.. gg <- expand.grid(ix, iy) ix <- gg[,1] iy <- gg[,2] # next interval ixp1 <- pmin(ix+1, Nx) iyp1 <- pmin(iy+1, Ny) gg <- expand.grid(xfac, yfac) xfac <- gg[,1] yfac <- gg[,2] # interpolate M <-(1-yfac)*((1-xfac)*z[cbind(ix,iy) ]+xfac*z[cbind(ixp1,iy)]) + yfac*((1-xfac)*z[cbind(ix,iyp1)]+xfac*z[cbind(ixp1,iyp1)]) return (matrix(nrow = length(xto), ncol = length(yto), data = M)) } remapxyNA <- function(z, x, y, xto, yto) { Nx <- length(x) Ny <- length(y) dx <- c(diff(x), 1) dy <- c(diff(y), 1) ix <- FindInterval(xto, x) iy <- FindInterval(yto, y) xfac <- (xto - x[ix])/dx[ix] yfac <- (yto - y[iy])/dy[iy] gg <- expand.grid(ix, iy) ix <- gg[, 1] iy <- gg[, 2] ixp1 <- pmin(ix + 1, Nx) iyp1 <- pmin(iy + 1, Ny) gg <- expand.grid(xfac, yfac) xfac <- gg[, 1] yfac <- gg[, 2] f <- zz <- matrix(nrow = length(xfac), ncol = 4) zz[ , 1] <- z[cbind(ix, iy)] f[ , 1] <- (1 - yfac) *(1 - xfac) zz[,2] <- z[cbind(ix, iyp1)] f[,2] <- yfac * (1 - xfac) f[,3] <- (1 - yfac) * xfac zz[,3] <- z[cbind(ixp1, iy)] f[,4] <- yfac * xfac zz[,4] <- z[cbind(ixp1, iyp1)] naii <- is.na(zz) f[naii] <- 0 zz[naii] <- 0 rows <- rowSums(f) f <- f/rowSums(f) M <- f[,1] * zz[,1] + f[,2] * zz[,2] + f[,3] * zz[,3] + f[,4] * zz[,4] return(matrix(nrow = length(xto), ncol = length(yto), data = M)) } ## ============================================================================= ## ============================================================================= ## Colors ## ============================================================================= ## ============================================================================= ## ============================================================================= ## Generates color vector based on variable values ## ============================================================================= variablecol <- function(colvar, col, NAcol, clim, breaks) { if (is.null(breaks)) { ncol <- length(col) colvar[colvar < min(clim)] <- NA colvar[colvar > max(clim)] <- NA rn <- clim[2] - clim[1] ifelse (rn != 0, Col <- col[1 + trunc((colvar - clim[1])/rn * (ncol - 1)+1e-15)], Col <- rep(col[1], ncol)) # + tiny: since R 3.2.2 } else { zi <- .bincode(colvar, breaks, TRUE, TRUE) Col <- col[zi] } Col[is.na(Col)] <- NAcol return(Col) } ## ============================================================================= ## Check/extend colors for NAs and adapt range ## ============================================================================= checkcolors <- function(colvar, col, NAcol, lim) { colvar[colvar < min(lim)] <- NA colvar[colvar > max(lim)] <- NA if (length(col) == 1) col <- c(col, col) N <- length(col) - 1 col <- c(NAcol, col) rr <- diff(lim) if (rr == 0) rr <- lim[1] *1e-3 colvar[is.na(colvar)] <- lim[1] - 1/N*rr lim [1] <- lim[1] - 1/N*rr list(col = col, colvar = colvar, lim = lim) } ## ============================================================================= ## Colors for facets and border ## ============================================================================= createcolors <- function(isfacets, border, Cols) { isnaborder <- FALSE if (length(border) > 0) isnaborder <- is.na(border) if (is.na(isfacets)) { if (isnaborder) border <- Cols Cols[] <- NA } else if (isfacets) { # facets added if (isnaborder) { border <- Cols border[] <- NA } } else { if (is.na(border)) # no facets border <- Cols Cols[] <- "white" } if (length(border ) == 1) { bb <- border border <- Cols border[] <- bb } list(border = border, facet = Cols) } ## ============================================================================= ## check dimensionality of colvar and colors - for inttype = 2 ## ============================================================================= check.colvar.2 <- function(colvar, z, col, clim, alpha) { iscolvar <- ispresent(colvar) if (iscolvar) { if (any (dim(colvar) - dim(z)) != 0) stop("dimension of 'colvar' should be equal to dimension of 'z'") if (! is.null(clim)) { if (length(clim) != 2) stop("'clim' should be a two-valued vector with the ranges of 'colvar'") colvar[colvar < min(clim)] <- NA colvar[colvar > max(clim)] <- NA } # check colors if (length(col) == 1) if (is.na(col)) col <- NULL if (is.null(col)) col <- jet.col(100) if (length(col) == 1) { col <- c(col, col) } } else { if (is.null(col)) col <- rep("grey", 2) else col <- rep(col[1], 2) # take first color } if (! is.null(alpha)) col <- setalpha(col, alpha) list(colvar = colvar, col = col) } ## ============================================================================= ## check dimensionality of colvar and colors ## ============================================================================= check.colvar.persp <- function(colvar, z, col, inttype, clim, alpha) { iscolvar <- ispresent(colvar) if (iscolvar) { if (inttype == 2 & any (dim(colvar) - dim(z)) != 0) stop("dimension of 'colvar' should be equal to dimension of 'z'") else if (inttype != 2){ if (all (dim(colvar) - dim(z)) == 0) colvar <- meangrid(colvar, inttype == 3) # averages of colvar else if (any (dim(colvar) - dim(z) != -1)) stop("dimension of 'colvar' should be equal to dimension of 'z' or have one row and one column less") } if (! is.null(clim)) { if (length(clim) != 2) stop("'clim' should be a two-valued vector with the ranges of 'colvar'") colvar[colvar < min(clim)] <- NA colvar[colvar > max(clim)] <- NA } # check colors if (length(col) == 1) if (is.na(col)) col <- NULL if (is.null(col)) col <- jet.col(100) if (length(col) == 1) { col <- c(col, col) } } else { if (is.null(col)) col <- rep("grey", 2) else col <- rep(col[1], 2) # take first color } if (! is.null(alpha)) col <- setalpha(col, alpha) list(colvar = colvar, col = col) } ## ============================================================================= ## ranges, scaling factors ## ============================================================================= setlim <- function(xlim, ylim, zlim, scale, expand) { if (is.null(scale)) scale <- TRUE if (is.null(expand)) expand <- 1 xs <- 0.5 *abs(diff(xlim)) ys <- 0.5 *abs(diff(ylim)) zs <- 0.5 *abs(diff(zlim)) xc <- 0.5 *sum(xlim) yc <- 0.5 *sum(ylim) zc <- 0.5 *sum(zlim) if (! scale) { ss <- max (xs, ys, zs) xs <- ss; ys <- ss; zs <- ss } xs <- ifelse (xs == 0, 1, 1 / xs) ys <- ifelse (ys == 0, 1, 1 / ys) zs <- ifelse (zs == 0, 1, expand / zs) list(x = xs, y = ys, z = zs, xc = xc, yc = yc, zc = zc, expand = expand) } ## ============================================================================= ## Shade and lighting-related parameters ## ============================================================================= check.shade <- function(shadedots, lighting) { if (is.null(shadedots$lphi)) shadedots$lphi <- 0 if (is.na(shadedots$lphi)) shadedots$lphi <- 0 if (is.null(shadedots$ltheta)) shadedots$ltheta <- -135 if (is.na(shadedots$ltheta)) shadedots$ltheta <- -135 shadedots$type <- "none" if (! is.null(lighting)) { if (is.character(lighting)) shadedots$type <- "light" else if (is.logical(lighting)) { if (lighting) shadedots$type <- "light" } else if (is.list(lighting)) { if (!is.null(lighting$type)) shadedots$type <- lighting$type else shadedots$type <- "light" lighting$type <- NULL shadedots <- c(shadedots, lighting) } } if (! is.null(shadedots$shade)) if (! is.na(shadedots$shade) & shadedots$type == "none") # lighting overrules shade shadedots$type <- "shade" if (is.null(shadedots$shade)) shadedots$shade <- NA return (shadedots) } ## ============================================================================= ## Split dots in part related to persp/other + set clog, labels ## ============================================================================= splitdotpersp <- function(dots, bty = "b", lighting = NULL, x = NULL, y = NULL, z = NULL, plist = NULL, shade = NA, lphi = 0, ltheta = -135, breaks) { dots$bty <- bty namespersp <- c("xlim", "ylim", "zlim", "xlab", "ylab", "zlab", "main", "sub", "r", "d", "scale", "expand","box", "axes", "nticks", "ticktype", "col.ticks", "lwd.ticks", "bty", "cex.axis", "col.axis", "font.axis", "xaxs", "yaxs", "col.panel", "lwd.panel", "col.grid", "lwd.grid", "cex.lab", "col.lab", "font.lab", "cex.main", "col.main", "font.main", "alpha") setlim <- c(!is.null(dots$xlim), !is.null(dots$ylim), ! is.null(dots$zlim)) # log of color variable clog <- dots$clog if (is.null(clog)) { clog <- FALSE if (! is.null(dots[["log"]])) { if (length(grep("c", dots[["log"]])) > 0) { dots[["log"]] <- gsub("c", "", dots[["log"]]) if (dots[["log"]] == "") dots[["log"]] <- NULL clog <- TRUE } } } if (clog & ! is.null(breaks)) { warning("cannot combine log = 'c' and 'breaks' - removing log = 'c'") clog <- FALSE } # labels if (is.null(dots$xlab)) dots$xlab <- "x" if (is.null(dots$ylab)) dots$ylab <- "y" if (is.null(dots$zlab)) dots$zlab <- "z" # ranges if (! is.null(plist)) { dots$xlim <- plist$xlim dots$ylim <- plist$ylim dots$zlim <- plist$zlim scalefac <- plist$scalefac } else if (! is.null(x)) { if (is.null(dots$xlim)) dots$xlim <- range(x, na.rm = TRUE) if (is.null(dots$ylim)) dots$ylim <- range(y, na.rm = TRUE) if (is.null(dots$zlim)) dots$zlim <- range(z, na.rm = TRUE) scalefac <- setlim (dots$xlim, dots$ylim, dots$zlim, dots$scale, dots$expand) } else scalefac <- list(x = NULL, y = NULL, z = NULL, xc = NULL, yc = NULL, zc = NULL) # shade and lighting parameters shadedots <- list(ltheta = ltheta, lphi = lphi, shade = shade) shadedots <- check.shade(shadedots, lighting) Persp <- c(dots[ names(dots) %in% namespersp], clog = clog, setlim = setlim) if (! is.null(dots$alpha)) { if (! is.numeric(dots$alpha)) stop("'alpha' should be numeric") if (length(dots$alpha) > 1) stop("'alpha' should be one number") if (dots$alpha < 0 | dots$alpha > 1) stop("'alpha' should be a number inbetween 0 and 1") } list(persp = Persp, points = dots[!names(dots) %in% c(namespersp, "clog", "alpha")], shade = c(shadedots, xs = scalefac$x, ys = scalefac$y, zs = scalefac$z, alpha = dots$alpha), clog = clog, alpha = dots$alpha) } ## ============================================================================= ## Expanding arguments in dots (...) ## ============================================================================= repdots <- function(dots, n) { if (is.function(dots)) { return(dots) } else return(rep(dots, length.out = n)) } expandsortdots <- function(dot, sortlist) { ls <- length(sortlist) expsort <- function(dot) { if (length(dot) > 1) rep(dot, length.out = ls) [sortlist] else dot } lapply(dot, expsort) } setdots <- function(dots, n) lapply(dots, repdots, n) ## ============================================================================= ## Extracting element 'index' from dots (...) ## ============================================================================= extractdots <- function(dots, index) { ret <- lapply(dots, "[", index) ret <- lapply(ret, unlist) # flatten list return(ret) } ## ============================================================================= ## set mfrow and ask ## ============================================================================= setplotpar <- function(ldots, nv, ask) { nmdots <- names(ldots) # nv = number of variables to plot if (!any(match(nmdots, c("mfrow", "mfcol"), nomatch = 0))) { nc <- min(ceiling(sqrt(nv)), 3) nr <- min(ceiling(nv/nc), 3) mfrow <- c(nr, nc) } else if ("mfcol" %in% nmdots) mfrow <- rev(ldots$mfcol) else mfrow <- ldots$mfrow if (! is.null(mfrow)) mf <- par(mfrow = mfrow) ## interactively wait if there are remaining figures if (is.null(ask)) ask <- prod(par("mfrow")) < nv && dev.interactive() return(ask) } ## ============================================================================= ## Split plotting parameters in general (main) and point parameters ## ============================================================================= splitpardots <- function(dots) { clog <- dots$clog if (is.null(clog)) { clog <- FALSE if (! is.null(dots$log)) { if (length(grep("c", dots[["log"]])) > 0) { dots[["log"]] <- gsub("c", "", dots[["log"]]) if (dots[["log"]] == "") dots[["log"]] <- NULL clog <- TRUE } } } nmdots <- names(dots) # plotting parameters : split in plot parameters and point parameters plotnames <- c("xlab", "ylab", "zlab", "xlim", "ylim", "zlim", "main", "sub", "log", "asp", "bty", "xaxs", "yaxs", "xaxt", "yaxt", "breaks", "ann", "axes", "frame.plot", "panel.first", "panel.last", "cex.lab", "col.lab", "font.lab", "las", "tck", "tcl", "mgp", "cex.axis", "col.axis", "font.axis", "cex.main", "col.main", "font.main") # plot.default parameters ii <- names(dots) %in% plotnames dotmain <- dots[ii] # point parameters ip <- !names(dots) %in% c(plotnames, "add", "clog", "alpha") dotpoints <- dots[ip] # alpha if (! is.null(dots$alpha)) { if (! is.numeric(dots$alpha)) stop("'alpha' should be numeric") if (length(dots$alpha) > 1) stop("'alpha' should be one number") if (dots$alpha < 0 | dots$alpha > 1) stop("'alpha' should be a number inbetween 0 and 1") } list (points = dotpoints, main = dotmain, add = dots$add, clog = clog, alpha = dots$alpha) } plot3D/R/slice3D.R0000644000176200001440000001367613132163262013245 0ustar liggesusers## ============================================================================= ## 3-d representation using slices in x, y or z ## ============================================================================= # x, y, z vectors or arrays, colvar: array addslice <- function(poly, x, y, z, colvar, xs = NULL, ys = NULL, zs = NULL, plist, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, lwd = 1, lty = 1, clim = NULL, shadedot = NULL, lighting = FALSE, alpha = NULL) { if (! ispresent(colvar)) stop("'colvar' has to be defined and be an array of dimension 3") # check dimensionality DD <- dim(colvar) if (length(DD) != 3) stop("'colvar' has to be an array of dimension 3") if (DD[1] != length(x)) stop("dimension of 'colvar' not compatible with length of 'x'") if (DD[2] != length(y)) stop("dimension of 'colvar' not compatible with length of 'y'") if (DD[3] != length(z)) stop("dimension of 'colvar' not compatible with length of 'z'") crange <- diff(clim) N <- length(col) -1 # Colors for NA values if (any (is.na(colvar)) & ! is.null(NAcol) ) { CC <- checkcolors(colvar, col, NAcol, clim) clim <- CC$lim col <- CC$col colvar <- CC$colvar } # Function to add images on a plane as polygons image.plane <- function(xs, ys, zs, paint = FALSE, i = 0) { if (i == 1) # all xs are same ix <- FindInterval(xs[1], x, all.inside = TRUE) else ix <- FindInterval(xs, x, all.inside = TRUE) if (i == 2) iy <- FindInterval(ys[1], y, all.inside = TRUE) else iy <- FindInterval(ys, y, all.inside = TRUE) if (i == 3) iz <- FindInterval(zs[1], z, all.inside = TRUE) else iz <- FindInterval(zs, z, all.inside = TRUE) # colorvar cv <- matrix(nrow = nrow(xs), ncol = ncol(xs), data = colvar[cbind(ix, iy, iz)]) # add polygon poly <<- addimg(poly, xs, ys, zs, colvar = cv, plist = plist, col = col, NAcol = NAcol, breaks = breaks, border = border, facets = facets, resfac = 1, clim = clim, lwd = lwd, lty = lty, ltheta = shadedot$ltheta, lphi = shadedot$lphi, shade = shadedot$shade, lighting = lighting, alpha = alpha) } # end function imageplane # Function to first create a plane and then draw an image on it add.plane <- function(xs, ys, zs, i = 0) { M <- mesh(xs, ys, zs) image.plane (M$x[,,], M$y[,,], M$z[,,], i = i) # [,,] to make sure it is an array } # end function addplane if (any(diff(c( is.matrix(xs), is.matrix(ys), is.matrix(zs)))) != 0) stop ("'xs', 'ys' and 'zs' should be a matrix if one of them is") if (is.matrix(xs)) { # xs,.. are matrices defining the plane on which to plot if (any (dim(xs) != dim(ys))) stop("'xs' and 'ys' should have same dimension") if (any (dim(xs) != dim(zs))) stop("'xs' and 'zs' should have same dimension") image.plane(xs, ys, zs, paint = TRUE) } else { # xs, ys, zs define the positions in x, y, z on which to plot if (! is.null(xs)) for (x.s in xs[!is.na(xs)]) add.plane(x.s, y, z, 1) if (! is.null(ys)) for (y.s in ys[!is.na(ys)]) add.plane(x, y.s, z, 2) if (! is.null(zs)) for (z.s in zs[!is.na(zs)]) add.plane(x, y, z.s, 3) } return(poly) } ## ============================================================================= ## main slice3D function ## ============================================================================= slice3D <- function(x, y, z, colvar, ..., phi = 40, theta = 40, xs = min(x), ys = max(y), zs = min(z), col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, lighting, x, y, z, plist = plist, shade, lphi, ltheta, breaks = breaks) if (is.null(col)) if (is.null(breaks)) col <- jet.col(100) else col <- jet.col(length(breaks)-1) iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) breaks <- check.breaks(breaks, col) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x), y = range(y), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) lwd <- ifelse(is.null(dot$points$lwd), 1, dot$points$lwd) dot$points$lwd <- NULL lty <- ifelse(is.null(dot$points$lty), 1, dot$points$lty) dot$points$lty <- NULL Poly <- addslice(NULL, x, y, z, colvar, xs = xs, ys = ys, zs = zs, plist = plist, col = col, NAcol = NAcol, breaks = breaks, border = border, facets = facets, clim = clim, shadedot = dot$shade, lwd = lwd, lty = lty, lighting = lighting, alpha = dot$alpha) if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "slice3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = Poly, plot = plot) setplist(plist) invisible(plist$mat) }plot3D/R/isosurf3D.R0000644000176200001440000001661612513125725013641 0ustar liggesusers## ============================================================================= ## 3-D visualisation of volumetric data using isosurfaces ## ============================================================================= # x, y, z vectors or arrays, colvar: array isosurf3D <- function(x, y, z, colvar, ..., phi = 40, theta = 40, level = mean(colvar, na.rm = TRUE), isofunc = createisosurf, col = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = 0.5, ltheta = -135, lphi = 0, add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, lighting, shade = shade, ltheta = ltheta, lphi = lphi, x, y, z, plist = plist, breaks = NULL) if (! ispresent(colvar)) stop("'colvar' has to be defined and be an array of dimension 3") DD <- dim(colvar) if (length(DD) != 3) stop("'colvar' has to be an array of dimension 3") cr <- range(colvar, na.rm = TRUE) na <- level[level > cr[2] | level < cr[1]] if (length(na) > 0) stop("cannot calculate isosurfaces - change 'level': valid range ", formatC(cr[1]), " - ", formatC(cr[2])) nlevel <- length(level) if (is.null(col)) { if (nlevel == 1) col <- "grey" else col <- jet.col(nlevel) } else if (length(col) != nlevel) stop ("number of colors in 'col' must equal number of levels") if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x), y = range(y), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) Poly <- list() # calculate isosurface for all levels for (i in 1:nlevel) { Tri <- isofunc (x, y, z, colvar, level[i]) Col <- rep(col[i], length.out = nrow(Tri)/3) lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lty <- dot$points$lty if (is.null(lty)) lty <- 1 X <- matrix(nrow = 3, data = Tri[ ,1]) Y <- matrix(nrow = 3, data = Tri[ ,2]) Z <- matrix(nrow = 3, data = Tri[ ,3]) proj <- project(colMeans(X), colMeans(Y), colMeans(Z), plist) if (! dot$shade$type == "none") Col <- facetcols.tri (Tri, Col, dot$shade) Col <- createcolors(facets, border, Col) alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA Poly <- list( x = cbind(Poly$x, rbind(X, NA)), y = cbind(Poly$y, rbind(Y, NA)), z = cbind(Poly$z, rbind(Z, NA)), col = c(Poly$col, Col$facet), border = c(Poly$border, Col$border), lwd = c(Poly$lwd, rep(lwd, length.out = ncol(X))), lty = c(Poly$lty, rep(lty, length.out = ncol(X))), isimg = c(Poly$isimg, rep(0, length.out = ncol(X))), alpha = c(Poly$alpha, rep(alpha, length.out = ncol(X))), img = Poly$img, proj = c(Poly$proj, proj)) } class(Poly) <- "poly" if (iscolkey) { colkey$at <- 1:nlevel colkey$labels <- level zlim <- c(0.5, nlevel + 0.5) plist <- plistcolkey(plist, colkey, col, zlim, clab, FALSE, type = "isosurf3D", breaks = NULL) } plist <- plot.struct.3D(plist, poly = Poly, plot = plot) setplist(plist) invisible(plist$mat) } ## ============================================================================= ## plotting triangles ## ============================================================================= triangle3D <- function(tri, colvar = NULL, ..., phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, lighting = FALSE, shade = 0.5, ltheta = -135, lphi = 0, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) { if (add) plist <- getplist() else plist <- NULL if (! is.matrix(tri)) stop("'tri' should be a matrix with 3 columns") if (ncol(tri) != 3) stop("'tri' should be a matrix with 3 columns") if (nrow(tri)%%3 != 0) stop("'tri' should be a matrix with number of rows a multiple of 3") # split in x, y, z x <- matrix(nrow = 3, data = tri[, 1]) y <- matrix(nrow = 3, data = tri[, 2]) z <- matrix(nrow = 3, data = tri[, 3]) len <- ncol(x) # number of triangles dot <- splitdotpersp(list(...), bty, lighting, x, y, z, plist = plist, shade, lphi, ltheta, breaks = breaks) # colors if (ispresent(colvar)) { if (length(colvar) != len) stop("'colvar' should have same length as number of triangles") if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks, col) if (length(col) == 1) col <- c(col, col) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { if (is.null(col)) col <- "grey" if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- rep(col, length.out = len) iscolkey <- FALSE } if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x, na.rm = TRUE), y = range(y, na.rm = TRUE), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lty <- dot$points$lty if (is.null(lty)) lty <- 1 alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = len) proj <- project(colMeans(x), colMeans(y), colMeans(z), plist) if (! dot$shade$type == "none") Col <- facetcols.tri (tri, Col, dot$shade) Col <- createcolors(facets, border, Col) Poly <- list(x = rbind(x, NA), y = rbind(y, NA), z = rbind(z, NA), col = Col$facet, border = Col$border, lwd = rep(lwd , length.out = len), lty = rep(lty , length.out = len), isimg = rep(0, length.out = len), img = NULL, alpha = alpha, proj = proj) class(Poly) <- "poly" if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "triangle3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = Poly, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/text3D.R0000644000176200001440000001325612566547344013145 0ustar liggesusers ## ============================================================================= ## text in 3D ## ============================================================================= # x, y, z, colvar: same length text3D <- function(x, y, z, labels, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) { plist <- initplist(add) x <- as.vector(x) y <- as.vector(y) z <- as.vector(z) if (length(y) != length(x)) stop("'y' should have same length as 'x'") if (length(z) != length(x)) stop("'z' should have same length as 'x'") if (length(labels) != length(x)) stop("'labels' should have same length as 'x'") dot <- splitdotpersp(list(...), bty, NULL, x, y, z, plist = plist, breaks = breaks) if (ispresent(colvar)) { if (length(colvar) != length(x)) stop("'colvar' should have same length as 'x', 'y' and 'z'") colvar <- as.vector(colvar) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } if (is.null(col)) if (is.null(breaks)) col <- jet.col(100) else col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks, col) iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { if (is.null(col)) col <- "black" if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- rep(col, length.out = length(x)) iscolkey <- FALSE } if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x), y = range(y), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) Proj <- project(x, y, z, plist) # sort labels according to view setargs <- function(dot, default) { if (is.null(dot)) rep(default, length.out = length(x)) else if (is.vector(dot) & length(dot) > 1) stop("cannot use a vector for arguments of 'text3D'") else rep(unlist(dot), length.out = length(x)) } alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = length(x)) tlist <- list(x = x, y = y, z = z, labels = labels, col = Col, adj = setargs (dot$points$adj, 0), cex = setargs (dot$points$cex, 1), font = setargs(dot$points$font, 1), srt = setargs(dot$points$srt, 0), alpha = alpha, proj = Proj) if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "label3D", breaks = breaks) plist <- plot.struct.3D (plist, labels = tlist, plot = plot) setplist(plist) invisible(plist$mat) } ## ============================================================================= ## text in 2D ## ============================================================================= text2D <- function(x, y, labels, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, add = FALSE, plot = TRUE) { if (add) plist <- getplist() else plist <- NULL plist <- add2Dplist(plist, "text", x = x, y = y, labels = labels, colvar = colvar, col = col, NAcol = NAcol, breaks = breaks, colkey = colkey, clim = clim, clab = clab, ...) setplist(plist) if (!plot) return() x <- as.vector(x) y <- as.vector(y) if (length(y) != length(x)) stop("'y' should have same length as 'x'") if (length(labels) != length(x)) stop("'labels' should have same length as 'x'") dots <- splitpardots(list(...)) if (! is.null(colvar)) { if (is.null(col)) if (is.null(breaks)) col <- jet.col(100) else col <- jet.col(length(breaks)-1) if (dots$clog) { colvar <- log(colvar) if (! is.null(clim)) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) { colkey <- check.colkey(colkey, add) if (! add) par.ori <- par(plt = colkey$parplt) colkey$breaks <- breaks } if (length(colvar) != length(x)) stop ("length of 'colvar' should be equal to length of 'x', and 'y'") if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (! is.null(dots$alpha)) col <- setalpha(col, dots$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { Col <- col if (is.null(Col)) Col <- "black" if (! is.null(dots$alpha)) Col <- setalpha(Col, dots$alpha) iscolkey <- FALSE } if (! add) dots$main <- start2Dplot(dots$main, x, y) do.call("text", c(alist(x, y, labels = labels, col = Col), dots$points)) if (iscolkey) { drawcolkey(colkey, col, clim, clab, dots$clog) if (! add) par(plt = par.ori) par(mar = par("mar")) } } plot3D/R/persp3D.R0000644000176200001440000001761512522370555013303 0ustar liggesusers## ============================================================================= ## Perspective plot, x, y matrix or vector; z = matrix ## ============================================================================= persp3D <- function(x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, resfac = 1, image = FALSE, contour = FALSE, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, inttype = 1, curtain = FALSE, add = FALSE, plot = TRUE){ plist <- initplist(add) dot <- splitdotpersp(list(...), bty, lighting, x, y, z, plist = plist, shade, lphi, ltheta, breaks = breaks) # check dimensionality if (! is.vector(x) & length(dim(x)) == 1) x <- as.vector(x) if (! is.vector(y) & length(dim(y)) == 1) y <- as.vector(y) if (! is.vector(x) & length(dim(x)) > 2) stop("'x' should be a vector or a matrix") if (! is.vector(y) & length(dim(y)) > 2) stop("'y' should be a vector or a matrix") if ((is.matrix(x) & ! is.matrix(y)) | (is.matrix(y) & ! is.matrix(x))) stop ("'x' and 'y' should be of same type, i.e. either a vector or a matrix") if (is.matrix(x)) { if (any(dim(x) != dim(y))) stop ("'x' and 'y' not of same dimension") if (curtain) stop("cannot combine 'x' a matrix and 'curtain = TRUE'") } if (! is.matrix(z)) { if (length(z) > 1) stop("'z' should be a matrix or one value") if (is.vector(x)) z <- matrix(nrow = length(x), ncol = length(y), data = z) else z <- matrix(nrow = nrow(x), ncol = ncol(x), data = z) } else if (! is.matrix(x)) { if (length(x) != nrow(z)) stop("'x' should be of length = nrow(z)") if (length(y) != ncol(z)) stop("'y' should be of length = ncol(z)") } else if (any(dim(z) != dim(x))) stop ("'z' and 'x' not of same dimension") # resolution if (! is.matrix(x)) { if (any(resfac != 1)) { # change resolution res <- changeres(resfac, x, y, z, colvar) x <- res$x ; y <- res$y ; z <- res$z colvar <- res$colvar } # swap if decreasing if (all(diff(x) < 0)) { x <- rev(x) if (is.null(dot$persp$xlim)) dot$persp$xlim <- range(x) else if (diff(dot$persp$xlim) < 0) stop("'persp' expects increasing xlim") if (ispresent(colvar)) colvar <- colvar[nrow(colvar):1, ] z <- z[nrow(z):1, ] } if (all(diff(y) < 0)) { y <- rev(y) if (is.null(dot$persp$ylim)) dot$persp$ylim <- range(y) else if (diff(dot$persp$ylim) < 0) stop("'persp' expects increasing ylim") if (ispresent(colvar)) colvar <- colvar[, (ncol(colvar):1)] z <- z[, (ncol(z):1)] } } # check if col or colvar already have the colors to be used if (is.character(colvar) & is.matrix(colvar)) { col <- colvar colvar <- NULL } if (is.null(colvar) & is.matrix(col)) { pmat <- persp3Db(x = x, y = y, z = z, col = col, ..., phi = phi, theta = theta, NAcol = NAcol, breaks = breaks, border = border, facets = facets, panel.first = panel.first, bty = bty, lighting = lighting, shade = shade, ltheta = ltheta, lphi = lphi, add = add, plot = plot) return(invisible(pmat)) } image <- check.args(image) contour <- check.args(contour) if (image$add & is.matrix(x)) stop("cannot combine 'x' a matrix and 'image'") if (contour$add & is.matrix(x)) stop("cannot combine 'x' a matrix and 'contour'") cv <- colvar if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) # check colvar and colors CC <- check.colvar.persp(colvar, z, col, inttype, clim, dot$alpha) colvar <- CC$colvar col <- CC$col Extend <- inttype == 2 if (ispresent(colvar)) { if (is.null(clim) & is.null(breaks)) clim <- range(colvar, na.rm = TRUE) else if (is.null(clim)) clim <- range(breaks, na.rm = TRUE) iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } } else iscolkey <- FALSE if (is.null(plist)) { do.call("perspbox", c(alist(x, y, z, phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } breaks <- check.breaks(breaks, col) if (is.function(panel.first)) panel.first(plist$mat) # polygon plotting if (! is.matrix(x)) { X <- matrix(nrow = nrow(z), ncol = ncol(z), data = x) Y <- matrix(nrow = nrow(z), ncol = ncol(z), data = y, byrow = TRUE) } else { X <- x Y <- y } lwd <- ifelse (is.null (dot$points$lwd), 1, dot$points$lwd) lty <- ifelse (is.null (dot$points$lty), 1, dot$points$lty) Poly <- paintit (colvar, X, Y, z, plist, col, NAcol, clim, border, facets, lwd, lty, dot, Extend, breaks = breaks) if (curtain) { P <- list(x = NULL, y = NULL, col = NULL, border = NULL, lwd = NULL, lty = NULL, proj = NULL, img = list(), isimg = NULL) zmin <- plist$zlim[1] Nx <- length(x) Ny <- length(y) P <- add.poly(P, cbind(rep(x[1], Ny), rep(x[1], Ny)), cbind(y, y), cbind(rep(zmin, Ny), z[1,]), colvar[1,], col, NAcol, breaks, clim, facets, border, lwd, lty) P <- add.poly(P, cbind(rep(x[Nx], Ny), rep(x[Nx], Ny)), cbind(y, y), cbind(rep(zmin, Ny), z[Nx,]), colvar[Nx-1,], col, NAcol, breaks, clim, facets, border, lwd, lty) P <- add.poly(P, cbind(x, x), cbind(rep(y[1], Nx), rep(y[1], Nx)), cbind(rep(zmin, Nx), z[,1]), colvar[, 1], col, NAcol, breaks, clim, facets, border, lwd, lty) P <- add.poly(P, cbind(x, x), cbind(rep(y[Ny], Nx), rep(y[Ny], Nx)), cbind(rep(zmin, Nx), z[,Ny]), colvar[, Ny-1], col, NAcol, breaks, clim, facets, border, lwd, lty) if (! dot$shade$type == "none") { P <- color3D(P, plist$scalefac, dot$shade, lighting) if (!facets) P$col[] <- "white" } # depth view of the points P$proj <- project(colMeans(P$x, na.rm = TRUE), colMeans(P$y, na.rm = TRUE), colMeans(P$z, na.rm = TRUE), plist) Poly <- list(x = cbind(Poly$x, P$x), y = cbind(Poly$y, P$y), z = cbind(Poly$z, P$z), col = c(Poly$col, P$col), border = c(Poly$border, P$border), proj = c(Poly$proj, P$proj), lwd = c(Poly$lwd, P$lwd), lty = c(Poly$lty, P$lty), isimg = c(Poly$isimg, P$isimg), img = Poly$img ) class(Poly) <- "poly" } # images and contours if (image$add) Poly <- XYimage (Poly, image, x, y, z, plist, col, breaks = breaks) if (contour$add) segm <- contourfunc(contour, x, y, z, plist, cv = cv, clim = clim) else segm <- NULL if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "persp3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = Poly, segm = segm, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/polygon3D.R0000644000176200001440000001745312532030450013625 0ustar liggesusers## ============================================================================= ## 3-D polygon function ## ============================================================================= polygon3D <- function(x, y, z, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, NULL, x, y, z, plist = plist, breaks = breaks) checkinput <- function (x) { if (is.matrix(x)) { x <- as.vector(x) if (is.na (x[length(x)]) ) x <- x[-length(x)] } x } x <- checkinput(x) y <- checkinput(y) z <- checkinput(z) if (length(y) != length(x)) stop("'y' should have same length as 'x'") if (length(z) != length(x)) stop("'z' should have same length as 'x'") # check for NAs (and number of polygons) len <- 1 if (any (is.na(x) | is.na(y) | is.na(z))) { i1 <- which(is.na(x)) i2 <- which(is.na(y)) i3 <- which(is.na(z)) ii <- unique(c(i1, i2, i3)) if (1 %in% ii | length(x) %in% ii) stop ("first or last element of 'x', 'y', or 'z' cannot be 'NA'") di <- diff(sort(c(0, ii, length(x)+1)))-1 if (min(di) == 1) stop ("two consecutive elements of 'x', 'y', or 'z' cannot be 'NA'") x[ii] <- NA y[ii] <- NA z[ii] <- NA len <- length(ii) + 1 # number of polygons! xx <- yy <- zz <- matrix(nrow = max(di) + 1, ncol = len, data = NA) ii <- c(0, ii, length(x)+ 1) for (i in 1 : len) { iseq <- (ii[i]+1): (ii[i+1]-1) xx[1:length(iseq), i] <- x[iseq] yy[1:length(iseq), i] <- y[iseq] zz[1:length(iseq), i] <- z[iseq] } } else { xx <- matrix(ncol = 1, data = c(x, NA)) yy <- matrix(ncol = 1, data = c(y, NA)) zz <- matrix(ncol = 1, data = c(z, NA)) } breaks <- check.breaks(breaks, col) if (ispresent(colvar)) { if (length(colvar) != len) stop("'colvar' should have same length as number of polygons (= 1+ number of NAs in 'x', 'y' and 'z')") if (is.null(col)) col <- jet.col(100) if (length(col) == 1) col <- c(col, col) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { if (is.null(col)) col <- "grey" if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- rep(col, length.out = len) iscolkey <- FALSE } # The colors of facets and border Col <- createcolors(facets, border, Col) if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x, na.rm = TRUE), y = range(y, na.rm = TRUE), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lty <- dot$points$lty if (is.null(lty)) lty <- 1 alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = len) Poly <- list(x = xx, y = yy, z = zz, col = Col$facet, border = Col$border, lwd = rep(lwd , length.out = len), lty = rep(lty , length.out = len), alpha = alpha, isimg = rep(0, length.out = len)) Poly$proj <- project(colMeans(xx, na.rm = TRUE), colMeans(yy, na.rm = TRUE), colMeans(zz, na.rm = TRUE), plist) class(Poly) <- "poly" if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "polygon3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = Poly, plot = plot) setplist(plist) invisible(plist$mat) } ## ============================================================================= ## 2-D polygon and triangle function ## ============================================================================= polygon2D <- function(x, y, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, clim = NULL, clab = NULL, add = FALSE, plot = TRUE) { plist <- initplist(add) plist <- add2Dplist(plist, "polygon", x = x, y = y, colvar = colvar, col = col, NAcol = NAcol, breaks = breaks, border = border, facets = facets, colkey = colkey, clim = clim, clab = clab, ...) setplist(plist) if (! plot) return() dots <- splitpardots(list(...)) checkinput <- function (x) { if (is.matrix(x)) { x <- as.vector(x) if (is.na (x[length(x)]) ) x <- x[-length(x)] } x } x <- checkinput(x) y <- checkinput(y) if (length(y) != length(x)) stop("'y' should have same length as 'x'") # check for NAs (and number of polygons) len <- 1 if (any (is.na(x) | is.na(y))) { i1 <- which(is.na(x)) i2 <- which(is.na(y)) ii <- unique(c(i1, i2)) if (1 %in% ii | length(x) %in% ii) stop ("first or last element of 'x', or 'y' cannot be 'NA'") di <- diff(sort(c(0, ii, length(x)+1)))-1 # if (min(di) == 1) # stop ("two consecutive elements of 'x' or 'y' cannot be 'NA'") x[ii] <- NA y[ii] <- NA len <- length(ii) + 1 # number of polygons! xx <- yy <- matrix(nrow = max(di) + 1, ncol = len, data = NA) ii <- c(0, ii, length(x)+ 1) for (i in 1 : len) { iseq <- (ii[i]+1): (ii[i+1]-1) xx[1:length(iseq), i] <- x[iseq] yy[1:length(iseq), i] <- y[iseq] } } else { xx <- matrix(ncol = 1, data = c(x, NA)) yy <- matrix(ncol = 1, data = c(y, NA)) } breaks <- check.breaks(breaks, col) if (ispresent(colvar)) { if (length(colvar) != len) stop("'colvar' should have same length as number of polygons (= 1+ number of NAs in 'x', 'y' and 'z')") if (is.null(col)) col <- jet.col(100) if (length(col) == 1) col <- c(col, col) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dots$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) { colkey <- check.colkey(colkey, add) if (! add) par.ori <- par(plt = colkey$parplt) colkey$breaks <- breaks } if (! is.null(dots$alpha)) col <- setalpha(col, dots$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { if (is.null(col)) col <- "grey" if (! is.null(dots$alpha)) col <- setalpha(col, dots$alpha) Col <- rep(col, length.out = len) iscolkey <- FALSE } # The colors of facets and border Col <- createcolors(facets, border, Col) if (! add) dots$main <- start2Dplot(dots$main, x, y) do.call("polygon", c(alist(x, y, col = Col$facet, border = Col$border), dots$points)) if (iscolkey) { drawcolkey(colkey, col, clim, clab, dots$clog) if (! add) par(plt = par.ori) par(mar = par("mar")) } } plot3D/R/hist3D.R0000644000176200001440000002370712707661517013126 0ustar liggesusers## ============================================================================= ## 3-D histograms, x, y matrix or vector; z = matrix ## ============================================================================= hist3D <- function(x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, image = FALSE, contour = FALSE, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, space = 0, opaque.top = FALSE, zmin = NULL, add = FALSE, plot = TRUE) { if (! is.matrix(z)) stop("'z' should be a matrix") if (! is.vector(x) & length(dim(x)) != 1) stop("'x' should be a vector") if (! is.vector(y) & length(dim(y)) != 1) stop("'y' should be a vector") if (length(x) != nrow(z)) stop("'x' should be of length = nrow(z)") if (length(y) != ncol(z)) stop("'y' should be of length = ncol(z)") if (any(space > 0.9)) stop(" 'space' too large, should be smaller or equal to 0.9") else if (any(space < 0.0)) stop(" 'space' cannot be smaller than 0") space <- rep(space, length.out = 2) / 2 plist <- initplist(add) ll <- list(...) dot <- splitdotpersp(ll, bty, lighting, extendvec(x), extendvec(y), z, plist = plist, shade, lphi, ltheta, breaks = breaks) # swap if decreasing if (length(x) > 0 & all(diff(x) < 0)) { x <- rev(x) if (is.null(dot$persp$xlim)) dot$persp$xlim <- range(x) else if (diff(dot$persp$ylim) < 0) stop("'persp' expects increasing ylim") else if (diff(dot$persp$xlim) < 0) stop("'persp' expects increasing xlim") if (ispresent(colvar)) colvar <- colvar[nrow(colvar):1, ] z <- z[nrow(z):1, ] } if (length(y) > 1 & all(diff(y) < 0)) { y <- rev(y) if (is.null(dot$persp$ylim)) dot$persp$ylim <- range(y) else if (diff(dot$persp$ylim) < 0) stop("'persp' expects increasing ylim") if (ispresent(colvar)) colvar <- colvar[, (ncol(colvar):1)] z <- z[, (ncol(z):1)] } image <- check.args(image) contour <- check.args(contour) if (contour$add) cv <- colvar if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks,col) CC <- check.colvar.2(colvar, z, col, clim, dot$alpha) topcol <- (! is.null(dot$alpha) & opaque.top) if (topcol) col2 <- check.colvar.2(colvar, z, col, clim, NULL)$col colvar <- CC$colvar col <- CC$col if (ispresent(colvar)) { if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) # colors crange <- diff(clim) N <- length(col) - 1 cmin <- clim[1] if (is.null(breaks)) Cols <- matrix(nrow = nrow(z), col[1 + trunc((colvar - cmin)/crange*N)]) else Cols <- matrix(nrow = nrow(z), col[.bincode(colvar, breaks, TRUE, TRUE)]) Cols [is.na(Cols)] <- NAcol if (topcol) { if (is.null(breaks)) Col2 <- matrix(nrow = nrow(z), col2[1 + trunc((colvar - cmin)/crange*N)]) else Col2 <- matrix(nrow = nrow(z), col2[.bincode(colvar, breaks, TRUE, TRUE)]) Col2 [is.na(Col2)] <- NAcol } } else { iscolkey <- FALSE Cols <- rep(col , length.out = length(z)) if (topcol) Col2 <- rep(col2, length.out = length(z)) } # mapping from centre to interfaces extend <- function(x) { # This does exceed the x- y boundaries N <- length(x) x <- c(x[1] - (x[2]-x[1]), x, x[N] + (x[N]-x[(N-1)])) ii <- 2:length(x) 0.5*(x[ii] + x[ii-1]) } # expand x and y to grid XYmesh <- mesh(x, y) if (length (x) > 1) xx <- extend(x) else xx <- dot$persp$xlim if (length (y) > 1) yy <- extend(y) else yy <- dot$persp$ylim if (is.null(plist)) { do.call("perspbox", c(alist(range(xx), range(yy), dot$persp$zlim, phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (! is.null(panel.first)) panel.first(plist$mat) # viewing order ind <- expand.sort(1:length(XYmesh$x), dim(XYmesh$x)) ix <- ind$x; iy <- ind$y # The colors Col <- createcolors(facets, border, Cols) if (topcol) Col2 <- createcolors(facets, border, Col2) # the polygons: # 2 # 3 4 # 1 # 5 = top polygon # shading? isshade <- dot$shade$type != "none" islight <- FALSE if (isshade) { to5facets <- function(val) as.vector(matrix(ncol = 5, data = rep(val, length(ix)), byrow = TRUE)) light <- setuplight(dot$shade$lphi, dot$shade$ltheta) # the normals are known for rectangles: norms <- matrix(nrow = 5, byrow = TRUE, data = c(0, -1, 0, 0, 1, 0, -1, 0, 0, 1, 0, 0, 0, 0, 1) ) if (dot$shade$type == "shade") { shade <- abs(dot$shade$shade) Sum <- 0.5*(norms[,1]*light[1] + norms[,2]*light[2] + norms[,3]*light[3] +1) Shade <- to5facets (Sum^shade) } else { isshade <- FALSE islight <- TRUE Normals <- list(u = to5facets(norms[, 1]), v = to5facets(norms[, 2]), w = to5facets(norms[, 3])) } } PolyX <- NULL PolyY <- NULL PolyZ <- NULL COL <- BORD <- NULL dx <- diff(xx)*space[1] dy <- diff(yy)*space[2] # basal and top points of the column; x and y positions if (is.null(zmin)) zmin <- min(dot$persp$zlim) z.k <- rep(zmin, length(z)) z.kp1 <- as.vector(z) x.i <- xx[ix ]+dx[ix] x.ip1 <- xx[ix+1]-dx[ix] y.j <- yy[iy ]+dy[iy] y.jp1 <- yy[iy+1]-dy[iy] # the facet coordinates PolyX <- cbind(rbind(x.i , x.ip1, x.ip1, x.i ), rbind(x.ip1, x.i , x.i , x.ip1), rbind(x.i , x.i , x.i , x.i ), rbind(x.ip1, x.ip1, x.ip1, x.ip1), rbind(x.i , x.ip1, x.ip1, x.i )) PolyY <- cbind(rbind(y.j , y.j , y.j , y.j ), rbind(y.jp1, y.jp1, y.jp1, y.jp1), rbind(y.j , y.jp1, y.jp1, y.j ), rbind(y.j , y.jp1, y.jp1, y.j ), rbind(y.j , y.j , y.jp1, y.jp1)) PolyZ <- cbind(rbind(z.k , z.k , z.kp1, z.kp1), rbind(z.k , z.k , z.kp1, z.kp1), rbind(z.k , z.k , z.kp1, z.kp1), rbind(z.k , z.k , z.kp1, z.kp1), rbind(z.kp1, z.kp1, z.kp1, z.kp1)) # facet colors if (!topcol) COL <- rep(Col$facet , 5)#[i,j] else COL <- c(rep(Col$facet , 4), Col2$facet)#[i,j] if (!topcol) BORD <- rep(Col$border, 5)#[i,j] else BORD <- c(rep(Col$border, 4), Col2$border)#[i,j] if (isshade) { if (facets) { RGB <- t(col2rgb(COL)) * Shade / 255 COL <- rgb(RGB) if (! is.null(dot$alpha)) { if (!topcol) COL <- setalpha(COL, dot$alpha) else { ialph <- 1:(4*length(Col$facet)) COL[ialph] <- setalpha(COL[ialph], dot$alpha) } } } if (! is.na(border)){ RGB <- t(col2rgb(BORD)) * Shade / 255 BORD <- rgb(RGB) if (! is.null(dot$alpha)) BORD <- setalpha(BORD, dot$alpha) } } else if (islight) { if (facets) COL <- facetcols.shadelight (light, Normals, COL, dot$shade) if (! is.na(border)) BORD <- facetcols.shadelight (light, Normals, BORD, dot$shade) } if (any(is.na(PolyZ))) { # Karline added this 27-01-2016 ii <- 1:ncol(PolyZ) i1 <- apply(PolyZ[1:4,], MARGIN = 2, FUN = function(x) any(is.na(x))) ii <- ii[!i1] PolyX <- PolyX[,ii] PolyY <- PolyY[,ii] PolyZ <- PolyZ[,ii] BORD <- BORD[ii] COL <- COL[ii] } PolyX <- rbind(PolyX, NA) PolyY <- rbind(PolyY, NA) PolyZ <- rbind(PolyZ, NA) Proj <- project(colMeans(PolyX, na.rm = TRUE), colMeans(PolyY, na.rm = TRUE), colMeans(PolyZ, na.rm = TRUE), plist, TRUE) lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lty <- dot$points$lty if (is.null(lty)) lty <- 1 alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = ncol(PolyX)) Poly <- list(x = PolyX, y = PolyY, z = PolyZ, col = COL, border = BORD, lwd = rep(lwd , length.out = ncol(PolyX)), lty = rep(lty , length.out = ncol(PolyX)), isimg = rep(0, length.out = ncol(PolyX)), alpha = alpha, proj = Proj) class(Poly) <- "poly" if (image$add) Poly <- XYimage (Poly, image, x, y, z, plist, col, breaks = breaks) if (contour$add) segm <- contourfunc(contour, x, y, z, plist, cv, clim) else segm <- NULL if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "hist3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = Poly, segm = segm, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/sphere.R0000644000176200001440000000763012522355227013244 0ustar liggesusers## ============================================================================= ## 3-d spherical surface ## ============================================================================= spheresurf3D <- function(colvar = matrix(nrow = 50, ncol = 50, data = 1:50, byrow = TRUE), ..., phi = 0, theta = 0, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, contour = FALSE, colkey = NULL, resfac = 1, panel.first = NULL, clim = NULL, clab = NULL, bty = "n", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, inttype = 1, full = FALSE, add = FALSE, plot = TRUE) { plist <- initplist(add) r <- 1 # sphere radius if (!is.matrix(colvar)) stop("'colvar' should be a matrix or absent") X <- seq(0, 2*pi, length = nrow(colvar)) Y <- seq(0, pi, length = ncol(colvar)) # change resolution if (any(resfac != 1)) { res <- changeres(resfac, X, Y, colvar) X <- res$x Y <- res$y colvar <- res$z } # check contours contour <- check.args(contour) cv <- colvar M <- mesh(X, Y) x <- with (M, -r*cos(x)*sin(y)) y <- with (M, -r*sin(y)*sin(x)) z <- with (M, -r*cos(y)) dot <- splitdotpersp(list(...), bty, lighting, x, y, z, plist = plist, shade, lphi, ltheta, breaks = breaks) DD <- dim(x) if (is.null(col)) if (is.null(breaks)) col <- jet.col(100) else col <- jet.col(length(breaks)-1) CC <- check.colvar.persp(colvar, z, col, inttype, clim, dot$alpha) colvar <- CC$colvar col <- CC$col if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) Extend <- inttype == 2 if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x), y = range(y), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } breaks <- check.breaks(breaks, col) if (is.function(panel.first)) panel.first(plist$mat) Poly <- paintit(colvar, x, y, z, plist, col, NAcol, clim, border, facets, dot$points$lwd, dot$points$lty, dot, Extend, !full, breaks = breaks) if (contour$add) { contour$side <- NULL #"z" Pmin <- min(Poly$img[[1]]$sl$Proj) # minimal projection depth behind which lines not drawn col.lines <- contour$args$col if (is.null(col.lines)) col.lines <- "black" segm <- NULL if (is.null( contour$args$nlevels)) contour$args$nlevels <- 10 if (is.null( contour$args$levels)) contour$args$levels <- pretty(range(cv, na.rm = TRUE), contour$args$nlevels) line.list <- do.call("contourLines", alist(x = X, y = Y, z = cv, nlevels = contour$args$nlevels, levels = contour$args$levels)) contour$args$nlevels <- contour$args$col <- contour$args$levels <- NULL for (i in 1:length(line.list)) { clines <- line.list[[i]] X <- clines$x; Y <- clines$y x <- -r*cos(X)*sin(Y) y <- -r*sin(Y)*sin(X) z <- -r*cos(Y) sl <- sortlistvec(x, y, z, plist, ignorez = FALSE) isel <- which(sl$Proj > Pmin) if (length(isel) > 1) { segm <- do.call("addlines", c(alist(segm, x[isel], y[isel], z[isel], col = col.lines, plist = plist, ignorez = FALSE), contour$args)) } } if (! is.null(segm)) segm$proj <- segm$proj + 1e-1 # put it on foreground... } else segm <- NULL if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "spheresurf3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = Poly, segm = segm, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/persp3Db.R0000644000176200001440000000627512513137362013442 0ustar liggesusers## ============================================================================= ## main function, with input of colors, no colorvar ## ============================================================================= persp3Db <- function(x = seq(0, 1, length.out = nrow(col) +1), y = seq(0, 1, length.out = ncol(col) +1), z, col, ..., phi = 40, theta = 40, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, panel.first = NULL, bty = "b", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, add = FALSE, plot = TRUE){ if (is.vector(x)) { if (length(x) == nrow(col)) x <- extendvec(x) if (length(x) != nrow(col) + 1) stop ("length of 'x' should be = rows of 'col' +1") } else if (is.matrix(x)) { if (nrow(x) == nrow(col) & ncol(x) == ncol(col)) x <- extend(x) if (nrow(x) != nrow(col) + 1) stop ("rows of 'x' should be = rows of 'col' +1") if (ncol(x) != ncol(col) + 1 ) stop ("columns of 'x' should be = columns of 'col' + 1") } if (is.vector(y)) { if (length(y) == ncol(col)) y <- extendvec(y) if (length(y) != ncol(col) + 1) stop ("length of 'y' should be = columns of 'col' +1") } else if (is.matrix(y)) { if (nrow(y) == nrow(col) & ncol(y) == ncol(col)) y <- extend(y) if (nrow(y) != nrow(col) + 1) stop ("rows of 'y' should be = rows of 'col' +1") if (ncol(y) != ncol(col) + 1 ) stop ("columns of 'y' should be = columns of 'col' + 1") } if (nrow(z) == nrow(col) & ncol(z) == ncol(col)) z <- extend(z) if (nrow(z) != nrow(col) + 1) stop ("rows of 'z' should be = rows of 'col' +1") if (ncol(z) != ncol(col) + 1 ) stop ("columns of 'z' should be = columns of 'col' + 1") plist <- initplist(add) dot <- splitdotpersp(list(...), bty, lighting, x, y, z, plist = plist, shade, lphi, ltheta, breaks = breaks) if (is.null(plist)) { do.call("perspbox", c(alist(x, y, z, phi = phi, theta = theta, plot = plot, colkey = FALSE, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) if (! is.matrix(x)) { x <- matrix(nrow = nrow(z), ncol = ncol(z), data = x) y <- matrix(nrow = nrow(z), ncol = ncol(z), data = y, byrow = TRUE) } lwd <- ifelse (is.null (dot$points$lwd), 1, dot$points$lwd) lty <- ifelse (is.null (dot$points$lty), 1, dot$points$lty) sl <- Sortlist(x, y, z, plist, Polar = FALSE) if (dot$shade$type != "none") col <- facetcols (x, y, z, col, dot$shade, Extend = FALSE) alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA # Draw colored polygons Poly <- list() Poly$img <- list(list(x = x, y = y, z = z, col = col, sl = sl, NAcol = NAcol, facets = facets, border = border, lwd = lwd, lty = lty, alpha = alpha, mapped = FALSE)) # plot it plist <- plot.struct.3D(plist, poly = Poly, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/aaa.R0000644000176200001440000000123712220252056012464 0ustar liggesusers## ==================================================================== ## A local environment for non user-visible data, ## ==================================================================== .plot3D <- new.env() .plot3D$plist <- list() .plot3D$refresh <- TRUE refresh <- function(set = TRUE) # internal function... .plot3D$refresh <- set getplist <- function() .plot3D$plist setplist <- function(plist) .plot3D$plist <- plist initplist <- function(add) { if (add) plist <- getplist() else plist <- NULL # test for setting the correct plt parameters: if (!add & .plot3D$refresh) { plot.new() par(new = TRUE) } plist } plot3D/R/ribbon3D.R0000644000176200001440000002171012517100416013403 0ustar liggesusers## ============================================================================= ## Perspective plot, x, y matrix or vector; z = matrix ## ============================================================================= ribbon3D <- function(x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, resfac = 1, image = FALSE, contour = FALSE, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, space = 0.4, along = "x", curtain = FALSE, add = FALSE, plot = TRUE) { plist <- initplist(add) if (any(space > 0.9)) stop("'space' too large, should be smaller than or equal to 0.9") else if (any(space < 0.1)) stop("'space' cannot be smaller than 0.1") space <- rep(space, length.out = 2) # in x- and y # input check if (length(grep("x", along)) == 0 & length(grep("y", along)) == 0) stop ("'along' should contain at least one of 'x' or 'y'") if (! is.vector(x) & length(dim(x)) != 1) stop("'x' should be a vector") if (! is.vector(y) & length(dim(y)) != 1) stop("'y' should be a vector") if (length(x) != nrow(z)) stop("'x' should be of length = nrow(z)") if (length(y) != ncol(z)) stop("'y' should be of length = ncol(z)") if (any(resfac != 1)) { # change resolution res <- changeres(resfac, x, y, z, colvar) x <- res$x ; y <- res$y ; z <- res$z colvar <- res$colvar } rx <- range(x) ry <- range(y) if (length(grep("x", along)) > 0) { dY <- 0.5*(1 - space[2]) * diff(y) dY <- c(dY[1], dY, dY[length(dY)]) ry <- ry + c(- dY[1], dY[length(dY)]) } if (length(grep("y", along)) > 0) { dX <- 0.5*(1 - space[1]) * diff(x) dX <- c(dX[1], dX, dX[length(dX)]) rx <- rx + c(- dX[1], dX[length(dX)]) } dot <- splitdotpersp(list(...), bty, lighting, rx, ry, z, plist = plist, shade, lphi, ltheta, breaks = breaks) # swap if decreasing if (! is.matrix(x) & all(diff(x) < 0)) { if (is.null(dot$persp$xlim)) dot$persp$xlim <- rev(range(x)) x <- rev(x) if (ispresent(colvar)) colvar <- colvar[nrow(colvar):1, ] z <- z[nrow(z):1, ] } if (! is.matrix(y) & all(diff(y) < 0)) { if (is.null(dot$persp$ylim)) dot$persp$ylim <- rev(range(y)) y <- rev(y) if (ispresent(colvar)) colvar <- colvar[, (ncol(colvar):1)] z <- z[, (ncol(z):1)] } image <- check.args(image) contour <- check.args(contour) if (contour$add) cv <- colvar if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks,col) CC <- check.colvar.2(colvar, z, col, clim, dot$alpha) colvar <- CC$colvar col <- CC$col if (ispresent(colvar)) { if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) } else iscolkey <- FALSE rx <- range(x) ry <- range(y) if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x), y = range(y), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) # draw ribbons as polygons shade <- dot$shade$shade if (is.null(dot$shade$shade)) dot$shade$shade <- NA Nx <- dim(z) [1] Ny <- dim(z) [2] lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lty <- dot$points$lty if (is.null(lty)) lty <- 1 Poly <- list(x = NULL, y = NULL, col = NULL, border = NULL, lwd = NULL, lty = NULL, img = NULL, alpha = NULL, proj = NULL) zmin <- min(plist$zlim[1], min(z, na.rm = TRUE)) if (curtain & zmin == min(z, na.rm = TRUE)) zmin <- as.double(zmin - diff(range(plist$zlim)) * 1e-6) # to avoid triangle rather than quad if (length(grep("x", along)) > 0) { X <- cbind(x, x) for (i in 1 : Ny) { ind <- length(Poly$col) + 1 Y <- cbind(rep(y[i]+dY[i+1], Nx), rep(y[i]-dY[i], Nx)) Poly <- add.poly(Poly, X, Y, cbind(z[,i], z[,i]), colvar[,i], col, NAcol, breaks, clim, facets, border) if (curtain) { Poly <- add.poly(Poly, X, cbind(rep(y[i]-dY[i], Nx), rep(y[i]-dY[i], Nx)), cbind(rep(zmin, Nx), z[,i]), colvar[,i], col, NAcol, breaks, clim, facets, border) Poly <- add.poly(Poly, X, cbind(rep(y[i]+dY[i+1], Nx), rep(y[i]+dY[i+1], Nx)), cbind(rep(zmin, Nx), z[,i]), colvar[,i], col, NAcol, breaks, clim, facets, border) ye1 <- y[i]-dY[i] ye2 <- y[i]+dY[i+1] Poly <- list(x = cbind(Poly$x, c(x[1], x[1], x[1], x[1], NA)), y = cbind(Poly$y, c(ye1, ye2, ye2, ye1, NA)), z = cbind(Poly$z, c(zmin, zmin, z[1,i], z[1,i], NA)), col = c(Poly$col, Poly$col[ind]), border = c(Poly$border, Poly$border[ind]), img = Poly$img) ind <- length(Poly$col) Poly <- list(x = cbind(Poly$x, c(x[Nx], x[Nx], x[Nx], x[Nx], NA)), y = cbind(Poly$y, c(ye1, ye2, ye2, ye1, NA)), z = cbind(Poly$z, c(zmin, zmin, z[Nx,i], z[Nx,i], NA)), col = c(Poly$col, Poly$col[ind]), border = c(Poly$border, Poly$border[ind]), img = Poly$img) } } } if (length(grep("y", along)) > 0) { Y <- cbind(y, y) for (i in 1 : Nx) { ind <- length(Poly$col) + 1 X <- cbind(rep(x[i]+dX[i+1], Ny), rep(x[i]-dX[i], Ny)) Poly <- add.poly(Poly, X, Y, cbind(z[i,], z[i,]), colvar[i,], col, NAcol, breaks, clim, facets, border) if (curtain) { Poly <- add.poly(Poly, cbind(rep(x[i]-dX[i], Ny), rep(x[i]-dX[i], Ny)), Y, cbind(rep(zmin, Ny), z[i,]), colvar[i,], col, NAcol, breaks, clim, facets, border) Poly <- add.poly(Poly, cbind(rep(x[i]+dX[i+1], Ny), rep(x[i]+dX[i+1], Ny)), Y, cbind(rep(zmin, Ny), z[i,]), colvar[i,], col, NAcol, breaks, clim, facets, border) xe1 <- x[i]-dX[i] xe2 <- x[i]+dX[i+1] Poly <- list(x = cbind(Poly$x, c(xe1, xe2, xe2, xe1, NA)), y = cbind(Poly$y, c(y[1], y[1], y[1], y[1], NA)), z = cbind(Poly$z, c(zmin, zmin, z[i,1], z[i,1], NA)), col = c(Poly$col, Poly$col[ind]), border = c(Poly$border, Poly$border[ind]), img = Poly$img) ind <- length(Poly$col) Poly <- list(x = cbind(Poly$x, c(xe1, xe2, xe2, xe1, NA)), y = cbind(Poly$y, c(y[Ny], y[Ny], y[Ny], y[Ny], NA)), z = cbind(Poly$z, c(zmin, zmin, z[i,Ny], z[i,Ny], NA)), col = c(Poly$col, Poly$col[ind]), border = c(Poly$border, Poly$border[ind]), img = Poly$img) } } } alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA Poly$alpha <- rep(alpha, length.out = length(Poly$col)) if (! dot$shade$type == "none") Poly <- color3D(Poly, plist$scalefac, dot$shade, lighting) Poly$proj <- project(colMeans(Poly$x, na.rm = TRUE), colMeans(Poly$y, na.rm = TRUE), colMeans(Poly$z, na.rm = TRUE), plist) Poly$lwd <- rep(lwd , length.out = length(Poly$col)) Poly$lty <- rep(lty , length.out = length(Poly$col)) Poly$isimg <- rep(0 , length.out = length(Poly$col)) class(Poly) <- "poly" if (image$add) Poly <- XYimage (Poly, image, x, y, z, plist, col, breaks = breaks) if (contour$add) segm <- contourfunc(contour, x, y, z, plist, cv, clim) else segm <- NULL if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "ribbon3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = Poly, segm = segm, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/ImageOcean.R0000644000176200001440000000116612426157207013745 0ustar liggesusers## ============================================================================= ## Plot Ocean bathymetry ## ============================================================================= ImageOcean <- function(...) { dots <- list(...) if (is.null(dots$xlab)) dots$xlab <- "longitude" if (is.null(dots$ylab)) dots$ylab <- "latitude" if (is.null(dots$clab)) dots$clab <- "depth, m" if (is.null(dots$NAcol)) dots$NAcol <- "black" HH <- get("Hypsometry") # import package data set from /data zz <- HH$z zz[zz>0] <- NA do.call("image2D", c(alist(zz, x = HH$x, y = HH$y), dots)) } plot3D/R/Contour.R0000644000176200001440000000773212500057741013406 0ustar liggesuserscontour2D <- function (z, x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), ..., col = NULL, NAcol = NULL, colkey = NULL, resfac = 1, clab = NULL, add = FALSE, plot = TRUE) { if (length(col) == 1) if (is.na(col)) col <- NULL dots <- list(...) plist <- initplist(add) plist <- add2Dplist(plist, "contour", z = z, x = x, y = y, col = col, NAcol = NAcol, colkey = colkey, resfac = resfac, clab = clab, ...) setplist(plist) # log transformation of z-values (log = "c", or log = "z") zlog <- FALSE if (! is.null(dots$log)) { if (length(grep("z", dots[["log"]])) > 0) { dots[["log"]] <- gsub("z", "", dots[["log"]]) zlog <- TRUE } if (length(grep("c", dots[["log"]])) > 0) { dots[["log"]] <- gsub("c", "", dots[["log"]]) zlog <- TRUE } if (dots[["log"]] == "") dots[["log"]] <- NULL } # z ranges zlim <- dots[["zlim"]] if (is.null(zlim)) zlim <- dots[["clim"]] else if (!is.null(dots[["clim"]])) stop ("only one of 'zlim' and 'clim' can be specified") dots[["zlim"]] <- dots[["clim"]] <- NULL if (is.null(zlim)) { if (length(which(!is.na(z))) == 0) zlim <- c(0, 1) else zlim <- range(z, na.rm = TRUE) } levels <- dots$levels dots$levels <- NULL if (is.null(levels)) { nlevs <- dots$nlevels if (is.null(nlevs)) nlevs <- 10 if (zlog) levels <- exp(pretty(log(zlim), nlevs)) else levels <- pretty(zlim, nlevs) } nlevs <- length(levels) if (is.null(col)) col <- jet.col(nlevs) if (! is.null(dots$alpha)) col <- setalpha(col, dots$alpha) dots$alpha <- NULL if (nlevs > 1) { # for colors: dz <- c(-diff(levels[1:2]), diff(levels[(nlevs-1):nlevs])) * 0.5 zlim <- range(levels) + dz } iscolkey <- is.colkey(colkey, col) if (iscolkey) { colkey <- check.colkey(colkey) if (!add) plist$plt$main <- colkey$parplt } par (plt = plist$plt$main) if (! is.vector(x) | ! is.vector(y)) { if (is.array(x)) { if (length(dim(x)) != 1) stop ("'x' should be a vector or array of dimension 1") x <- as.vector(x) } if (is.array(y)) { if (length(dim(y)) != 1) stop ("'y' should be a vector or array of dimension 1") y <- as.vector(y) } if (! is.vector(x) | ! is.vector(y)) stop ("'x' and 'y' should be a vector") } if (is.null (x)) x <- seq(0, 1, length.out = nrow(z)) if (is.null (y)) y <- seq(0, 1, length.out = ncol(z)) # change resolution if (any(resfac != 1)) { res <- changeres(resfac, x, y, z) x <- res$x y <- res$y z <- res$z } # decreasing values of x and y if (all(diff(x) < 0)) { if (is.null(dots$xlim)) dots$xlim <- rev(range(x)) x <- rev(x) z <- z[nrow(z):1, ] } if (all(diff(y) < 0)) { if (is.null(dots$ylim)) dots$ylim <- rev(range(y)) y <- rev(y) z <- z[, (ncol(z):1)] } # labels if (is.null(dots[["xlab"]])) dots[["xlab"]] <- "x" if (is.null(dots[["ylab"]])) dots[["ylab"]] <- "y" # contours if (zlog) if (!is.null(dots$levels)) dots$levels <- log(dots$levels) if (any (is.na(z)) & !is.null(NAcol)) { do.call("image2D", c(list(z = z, x = x, y = y, col = "transparent", NAcol = NAcol, add = add, colkey = FALSE, plot = plot), dots)) add <- TRUE } if (!plot) return() do.call("contour", c(list(z = z, x = x, y = y, col = col, levels = levels, add = add), dots)) if (iscolkey) { if (is.null(colkey$at)) colkey$at <- levels drawcolkey(colkey, col, zlim, clab, FALSE) par(plt = plist$plt$ori) } par(mar = par("mar")) } plot3D/R/plot2D.R0000644000176200001440000002260612512732162013116 0ustar liggesusers## ============================================================================= ## function that makes a box type in 2D ## ============================================================================= start2Dplot <- function(dots, x, y) { dd <- dots dd$type <- "n" bty <- dots$bty dots$bty <- NULL if (is.null(bty)) bty <- "o" if (bty %in% c("b2", "g", "bl")) dd$bty <- NULL if (is.null(dd$xlab)) dd$xlab <- "x" if (is.null(dd$ylab)) dd$ylab <- "y" do.call("plot", c(alist(x, y), dd)) if (bty == "b2") grid(col = "grey", lty = 1, lwd = 2) else if (bty == "g") { pu <- par("usr") rect(pu[1], pu[3], pu[2], pu[4], col = grey(0.925), border = grey(0.925)) grid(col = "white", lty = 1, lwd = 2) } else if (bty %in% c("bl","bl2")) { pu <- par("usr") rect(pu[1], pu[3], pu[2], pu[4], col = "black") if (bty == "bl2") grid(col = "grey", lty = 1, lwd = 2) } return(dots) } ## ============================================================================= plot2Dplist <- function (plist, ...) { checkdots <- function(pdots, dots, add) { if (! add) { if (! is.null(dots$xlim)) pdots$xlim <- dots$xlim if (! is.null(dots$ylim)) pdots$ylim <- dots$ylim if (! is.null(dots$alpha)) pdots$alpha <- dots$alpha } pdots } img2Dnr <- cont2Dnr <- scat2Dnr <- arr2Dnr <- segm2Dnr <- rect2Dnr <- poly2Dnr <- text2Dnr <- 0 add <- FALSE dots <- list(...) p <- plist$twoD for (i in 1:length(p$order)) { plt <- p$order[i] if (plt == "image") { img2Dnr <- img2Dnr + 1 Dots <- checkdots(p$img2D[[img2Dnr]], dots, add) do.call ("image2D", c(alist(add = add), Dots)) } else if (plt == "contour") { cont2Dnr <- cont2Dnr + 1 Dots <- checkdots(p$cont2D[[cont2Dnr]], dots, add) do.call ("contour2D", c(alist(add = add), Dots)) } else if (plt == "scatter") { scat2Dnr <- scat2Dnr + 1 Dots <- checkdots(p$scat2D[[scat2Dnr]], dots, add) do.call ("scatter2D", c(alist(add = add), Dots)) } else if (plt %in% c("arrows", "ArrType")) { arr2Dnr <- arr2Dnr + 1 Dots <- checkdots(p$arr2D[[arr2Dnr]], dots, add) do.call ("arrows2D", c(alist(add = add), Dots)) } else if (plt == "segments") { segm2Dnr <- segm2Dnr + 1 Dots <- checkdots(p$segm2D[[segm2Dnr]], dots, add) do.call ("segments2D", c(alist(add = add), Dots)) } else if (plt == "rect") { rect2Dnr <- rect2Dnr + 1 Dots <- checkdots(p$rect2D[[rect2Dnr]], dots, add) do.call ("rect2D", c(alist(add = add), Dots)) } else if (plt == "polygon") { poly2Dnr <- poly2Dnr + 1 Dots <- checkdots(p$poly2D[[poly2Dnr]], dots, add) do.call ("polygon2D", c(alist(add = add), Dots)) } else if (plt == "text") { text2Dnr <- text2Dnr + 1 Dots <- checkdots(p$text2D[[text2Dnr]], dots, add) do.call ("text2D", c(alist(add = add), Dots)) } add <- TRUE } invisible(plist) } ## ============================================================================= add2Dplist <- function(plist, method, ...) { dots <- list(...) if (is.null(plist) | length(plist) == 0) { setlim <- c(!is.null(dots$xlim), !is.null(dots$ylim), !is.null(dots$zlim)) plist <- list(type = "2D", xlim = dots$xlim, ylim = dots$ylim, zlim = dots$zlim, setlim = setlim, twoD = list(order = NULL), plt = list(main = par("plt"), ori = par("plt"))) } if (plist$type == "3D") plist$type <- "23D" # stop ("cannot merge 2D and 3D plotting functions") p <- plist$twoD p$order <- c(p$order, method) if (method == "image") { if (is.null(p$img2Dnr)) { p$img2Dnr <- 0 p$img2D <- list() } p$img2Dnr <- p$img2Dnr + 1 p$img2D[[p$img2Dnr]] <- dots } else if (method == "contour") { if (is.null(p$cont2Dnr)) { p$cont2Dnr <- 0 p$cont2D <- list() } p$cont2Dnr <- p$cont2Dnr + 1 p$cont2D[[p$cont2Dnr]] <- dots } else if (method == "scatter") { if (is.null(p$scat2Dnr)) { p$scat2Dnr <- 0 p$scat2D <- list() } p$scat2Dnr <- p$scat2Dnr + 1 p$scat2D[[p$scat2Dnr]] <- dots } else if (method %in% c("arrows", "ArrType")) { if (is.null(p$arr2Dnr)) { p$arr2Dnr <- 0 p$arr2D <- list() } p$arr2Dnr <- p$arr2Dnr + 1 p$arr2D[[p$arr2Dnr]] <- dots } else if (method == "segments") { if (is.null(p$segm2Dnr)) { p$segm2Dnr <- 0 p$segm2D <- list() } p$segm2Dnr <- p$segm2Dnr + 1 p$segm2D[[p$segm2Dnr]] <- dots } else if (method == "rect") { if (is.null(p$rect2Dnr)) { p$rect2Dnr <- 0 p$rect2D <- list() } p$rect2Dnr <- p$rect2Dnr + 1 p$rect2D[[p$rect2Dnr]] <- dots } else if (method == "polygon") { if (is.null(p$poly2Dnr)) { p$poly2Dnr <- 0 p$poly2D <- list() } p$poly2Dnr <- p$poly2Dnr + 1 p$poly2D[[p$poly2Dnr]] <- dots } else if (method == "text") { if (is.null(p$text2Dnr)) { p$text2Dnr <- 0 p$text2D <- list() } p$text2Dnr <- p$text2Dnr + 1 p$text2D[[p$text2Dnr]] <- dots } plist$twoD <- p plist$colkeyargs <- dots$colkey class(plist) <- c("plist","list") plist } ## ============================================================================= ## plots (2-D) ## ============================================================================= # x, y, colvar: vector or matrix of same dimension plot2D <- function(x0, y0, x1, y1, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, add = FALSE, plot = TRUE, method = "arrows") { plist <- initplist(add) plist <- add2Dplist(plist, method, x0 = x0, y0 = y0, x1 = x1, y1 = y1, colvar = colvar, col = col, NAcol = NAcol, breaks = breaks, colkey = colkey, clim = clim, clab = clab, ...) setplist(plist) if (!plot) return() dots <- splitpardots(list(...)) # colors breaks <- check.breaks(breaks, col) if (! is.null(colvar)) { if (is.null(col)) col <- jet.col(100) if (dots$clog) { colvar <- log(colvar) if (! is.null(clim)) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) { colkey <- check.colkey(colkey) if (! add) plist$plt$main <- colkey$parplt setplist(plist) colkey$breaks <- breaks } if (length(colvar) != length(x0)) stop ("length of 'colvar' should be equal to length of 'x0', 'x1', 'y0' and 'y1'") if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (! is.null(dots$alpha)) col <- setalpha(col, dots$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { # no colvar Col <- col if (is.null(Col)) Col <- "black" if (! is.null(dots$alpha)) Col <- setalpha(Col, dots$alpha) iscolkey <- FALSE } par (plt = plist$plt$main) if (! add) dots$main <- start2Dplot(dots$main, c(x0, x1), c(y0, y1)) do.call(method, c(alist(x0, y0, x1, y1, col = Col), dots$points)) if (iscolkey) { drawcolkey(colkey, col, clim, clab, dots$clog) par(plt = plist$plt$ori) } par(mar = par("mar")) } ## ============================================================================= ## specific plot functions (2-D) ## ============================================================================= arrows2D <- function(x0, y0, x1 = x0, y1 = y0,..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, type = "triangle", add = FALSE, plot = TRUE) plot2D (x0, y0, x1, y1, ..., colvar = colvar, col = col, NAcol = NAcol, breaks = breaks, colkey = colkey, type = type, clim = clim, clab = clab, add = add, plot = plot, method = "ArrType") ## ============================================================================= segments2D <- function(x0, y0, x1 = x0, y1 = y0, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, add = FALSE, plot = TRUE) plot2D (x0, y0, x1, y1, ..., colvar = colvar, col = col, NAcol = NAcol, breaks = breaks, colkey = colkey, clim = clim, clab = clab, add = add, plot = plot, method = "segments") ## ============================================================================= rect2D <- function(x0, y0, x1 = x0, y1 = y0, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, add = FALSE, plot = TRUE) plot2D (x0, y0, x1, y1, ..., colvar = colvar, col = col, NAcol = NAcol, breaks = breaks, colkey = colkey, clim = clim, clab = clab, add = add, plot = plot, method = "rect") plot3D/R/surf3D.R0000644000176200001440000000634412522355123013120 0ustar liggesusers## ============================================================================= ## 3-D surfaces ## ============================================================================= # x, y, z, colvar: matrices surf3D <- function(x, y, z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "n", lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, inttype = 1, add = FALSE, plot = TRUE) { # check validity, class and dimensionality if (! is.matrix(x)) stop("'x' should be a matrix") if (! is.matrix(y)) stop("'y' should be a matrix") if (! is.matrix(z)) stop("'z' should be a matrix") if (ispresent(colvar)) if (! is.matrix(colvar)) stop("'colvar' should be a matrix or absent") DD <- dim(x) if (any (DD != dim(y)) ) stop("dimension of 'x' not equal to dimension of 'y'") if (any (DD != dim(z)) ) stop("dimension of 'x' not equal to dimension of 'z'") # check if col or colvar already have the colors to be used if (is.character(colvar) & is.matrix(colvar)) { col <- colvar colvar <- NULL } if (is.null(col)) if (is.null(breaks)) col <- jet.col(100) else col <- jet.col(length(breaks)-1) if (is.null(colvar) & is.matrix(col)) { pmat <- persp3Db(x = x, y = y, z = z, col = col, ..., phi = phi, theta = theta, NAcol = NAcol, border = border, facets = facets, panel.first = panel.first, bty = bty, lighting = lighting, add = add, plot = plot) return(invisible(pmat)) } plist <- initplist(add) dot <- splitdotpersp(list(...), bty, lighting, x, y, z, plist = plist, shade, lphi, ltheta, breaks = breaks) CC <- check.colvar.persp(colvar, z, col, inttype, clim, dot$alpha) colvar <- CC$colvar col <- CC$col if (ispresent(colvar)) { if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) } else iscolkey <- FALSE Extend <- inttype == 2 if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x), y = range(y), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } breaks <- check.breaks(breaks, col) if (is.function(panel.first)) panel.first(plist$mat) # polygons using painters algorithm Poly <- paintit(colvar, x, y, z, plist, col, NAcol, clim, border, facets, dot$points$lwd, dot$points$lty, dot, Extend, breaks = breaks) if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "surf3D", breaks = breaks) plist <- plot.struct.3D(plist, poly = Poly, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/colors.R0000644000176200001440000000471512213632060013246 0ustar liggesuserssetalpha <- function(Col, alpha) { if (is.null(Col)) return(Col) ii <- which (! is.na(Col)) if (length(ii) > 0) { pcol <- alpha.col (Col, alpha) Col[ii] <- pcol[ii] } Col } ## ============================================================================= ## Suitable colors ## ============================================================================= jet.col <- function (n = 100, alpha = 1) { # red-green-blue colors on scale of 0 to 1 red <- c(0, 0, 0, 255, 255, 128) green <- c(0, 0, 255, 255, 0, 0 ) blue <- c(143, 255, 255, 0, 0, 0 ) x.from <- c(0.0, seq(0.125, 1, by = 0.25), 1) # scale from 0-1 x.to <- seq (0, 1, length.out = n) expand <- function(col) approx(x = x.from, y = col, xout = x.to)$y return (rgb(expand(red), expand(green), expand(blue), maxColorValue = 255, alpha = alpha*255)) } jet2.col <- function (n = 100, alpha = 1) { red <- c(0, 0, 255, 255, 210) green <- c(78, 255, 255, 0, 0 ) blue <- c(255, 255, 0, 0, 0 ) x.from <- seq (0, 1, length.out = 5) x.to <- seq (0, 1, length.out = n) expand <- function(col) approx(x = x.from, y = col, xout = x.to)$y return (rgb(expand(red), expand(green), expand(blue), maxColorValue = 255, alpha = alpha*255)) } alpha.col <- function (col = "grey", alpha = 0.5) { RGBini <- col2rgb(col) return( rgb(t(RGBini), maxColorValue = 255, alpha = alpha*255)) } ramp.col <- function (col = c("grey", "black"), n = 100, alpha = 1) { RGBini <- col2rgb(col) x.from <- seq(0, 1, length.out = length(col)) x.to <- seq(0, 1, length.out = n) expand <- function(col) approx(x = x.from, y = col, xout = x.to)$y return (rgb(expand(RGBini["red",]), expand(RGBini["green",]), expand(RGBini["blue",]), maxColorValue = 255, alpha = alpha*255)) } gg.col <- function (n = 100, alpha = 1) { ramp.col(col = c("#0072B2", "#56B4E9", "#009E73", "#CC79A7", "#D55E00", "#000000"), n = n, alpha = alpha) } gg2.col <- function (n = 100, alpha = 1) { ramp.col(col = c("#0072B2", "#56B4E9", "#009E73", "#F0E442", "#CC79A7", "#D55E00", "#000000"), n = n, alpha = alpha) } MeanColors <- function(col) { rgb(t(rowMeans(col2rgb(col))), maxColorValue = 255) } plot3D/R/Image.R0000644000176200001440000005345613576357154013022 0ustar liggesusers ## ============================================================================= ## ============================================================================= ## image2D S3 functions - this code can be improved. ## ============================================================================= ## ============================================================================= image2D <- function(z, ...) UseMethod ("image2D") image2D.default <- function (z, ...) image2D.matrix(z, ...) ## ============================================================================= ## image2D function, input is a matrix ## ============================================================================= image2D.matrix <- function (z, x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), colvar = z, ..., col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, contour = FALSE, colkey = NULL, resfac = 1, clab = NULL, lighting = FALSE, shade = NA, ltheta = -135, lphi = 0, theta = 0, rasterImage = FALSE, add = FALSE, plot = TRUE) { if (rasterImage & theta != 0) stop ("cannot combine 'rasterImage' and 'theta' != 0") plist <- initplist(add) plist <- add2Dplist(plist, "image", z = z, x = x, y = y, col = col, NAcol = NAcol, breaks = breaks, border = border, facets = facets, contour = contour, colkey = colkey, resfac = resfac, clab = clab, theta = theta, rasterImage = rasterImage, ...) setplist(plist) if (!plot) return() if (is.character(z)) { ImageNULL (z = NULL, x = x, y = y, ..., col = z, NAcol = NAcol, border = border, facets = facets, rasterImage = rasterImage, angle = theta, add = add) return(invisible()) } if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) if (length(col) == 1) if (is.na(col)) col <- NULL dots <- splitpardots(list(...)) dotimage <- dots$main dotother <- dots$points iscolkey <- is.colkey(colkey, col) if (iscolkey) { colkey <- check.colkey(colkey) if (! add) plist$plt$main <- colkey$parplt setplist(plist) colkey$breaks <- breaks } par (plt = plist$plt$main) breaks <- check.breaks(breaks, col) # check contours iscontour <- ! is.null(contour) if (length(contour) == 0) iscontour <- FALSE else if (is.null(names(contour)) & is.logical(contour[[1]][1])) if (contour[[1]][1] == FALSE) iscontour <- FALSE else if (! is.list(contour)) contour <- list() # x- and y-values if (length(dim(x)) > 2 | length(dim(y)) > 2) stop("'x' or 'y' cannot be an array") if (is.null (x)) x <- seq(0, 1, length.out = nrow(z)) if (is.null (y)) y <- seq(0, 1, length.out = ncol(z)) if (is.matrix(x)) if (! is.matrix(y)) y <- matrix(nrow = nrow(x), ncol = ncol(x), data = y, byrow = TRUE) if (is.matrix(y)) if (! is.matrix(x)) x <- matrix(nrow = nrow(y), ncol = ncol(y), data = x) if (!lighting & is.na(shade)) colvar <- NULL else if (any(dim(colvar) - dim(z)) != 0) stop("'colvar' and 'z' not compatible") # change resolution if (any(resfac != 1)) { if (lighting | !is.na(shade)) res <- changeres(resfac, x, y, z, colvar) else res <- changeres(resfac, x, y, z) x <- res$x y <- res$y z <- res$z if (lighting | !is.na(shade)) colvar <- res$colvar } if (iscontour) { if (is.matrix(x)) stop ("cannot add contour if 'x' or 'y' is a matrix") contour$x <- x contour$y <- y if (dots$clog) contour$drawlabels = FALSE # to avoid strange values } # rotate rotate <- FALSE if (theta != 0 & ! rasterImage) { if (is.vector(x)) { rotate <- TRUE x <- matrix (nrow = nrow(z), ncol = ncol(z), data = x) y <- matrix (nrow = nrow(z), ncol = ncol(z), data = y, byrow = TRUE) } th <- theta*pi/180 Mat <- matrix(nrow = 2, data = c(cos(th), sin(th), -sin(th), cos(th))) XY <- cbind(as.vector(x), as.vector(y))%*%Mat x <- matrix(nrow = nrow(z), ncol = ncol(z), data = XY[, 1]) y <- matrix(nrow = nrow(z), ncol = ncol(z), data = XY[, 2]) } # Check for decreasing values of x and y if (! is.matrix(x) & all(diff(x) < 0)) { if (is.null(dotimage$xlim)) dotimage$xlim <- rev(range(x)) x <- rev(x) z <- z[nrow(z):1, ] if (! is.null(colvar)) colvar <- colvar[nrow(colvar):1, ] if (iscontour) contour$x <- x } if (! is.matrix(y) & all(diff(y) < 0)) { if (is.null(dotimage$ylim)) dotimage$ylim <- rev(range(y)) y <- rev(y) z <- z[, (ncol(z):1)] if (! is.null(colvar)) colvar <- colvar[, (ncol(colvar):1)] if (iscontour) contour$y <- y } useimage <- TRUE # default it to use the image function lightshade <- FALSE height <- NULL if (lighting | !is.na(shade)) { if (! rasterImage & ! is.matrix(x)) { xy <- mesh(x,y) x <- xy$x y <- xy$y } if (! rasterImage) useimage <- TRUE lightshade <- TRUE height <- z z <- colvar } Extend <- TRUE if (is.matrix(x)) { if (any (dim(x) - dim(y) != 0)) stop("matrices 'x' and 'y' not of same dimension") if (any (dim(x) - dim(z) > 0)) { if ((nrow(x) - nrow(z)) != (ncol(x) - ncol(z))) stop("matrices 'x' or 'y' and 'z' not compatible - should either be of dim(z) or dim(z)+1") if (any(dim(x) - dim(z) > 1)) stop("matrices 'x' or 'y' and 'z' not compatible - should either be of dim(z) or dim(z)+1") Extend <- FALSE } useimage <- FALSE } # log transformation of z-values (can be specified with log = "c", or log = "z" zlog <- FALSE if (! is.null(dots$clog)) zlog <- dots$clog if (! is.null(dotimage$log)) { if (length(grep("z", dotimage[["log"]])) > 0) { dotimage[["log"]] <- gsub("z", "", dotimage[["log"]]) zlog <- TRUE } if (length(grep("c", dotimage[["log"]])) > 0) { dotimage[["log"]] <- gsub("c", "", dotimage[["log"]]) zlog <- TRUE } if (dotimage[["log"]] == "") dotimage[["log"]] <- NULL } if (zlog) z <- log(z) # labels if (is.null(dotimage[["xlab"]])) dotimage[["xlab"]] <- "x" if (is.null(dotimage[["ylab"]])) dotimage[["ylab"]] <- "y" # z ranges zlim <- dotimage[["zlim"]] if (is.null(zlim)) zlim <- dotother[["clim"]] else if (!is.null(dotother[["clim"]])) stop ("only one of 'zlim' and 'clim' can be specified") dotimage[["zlim"]] <- dotother[["clim"]] <- NULL if (is.null(zlim)) { if (length(which(!is.na(z))) == 0) zlim <- c(0, 1) else if (is.null(breaks)) zlim <- range(z, na.rm = TRUE) else zlim <- range(breaks, na.rm = TRUE) } else if (zlog) zlim <- log(zlim ) if (! is.null(dots$alpha)) col <- setalpha(col, dots$alpha) colkeyZlim <- zlim colkeyCol <- col # Colors for values = NA if (! is.null(NAcol) ) { # any (is.na(z)) & if (! is.null(breaks)) { col <- c(NAcol, col, NAcol) breaks <- c(min(c(z, breaks), na.rm = TRUE)-1, breaks, max(c(z, breaks), na.rm = TRUE)+1) z[z < min(zlim)] <- NA z[z > max(zlim)] <- NA z[is.na(z)] <- breaks[1] } else { nc <- length(col) CC <- checkcolors(z, col, NAcol, zlim) zlim <- CC$lim col <- CC$col z <- CC$colvar } } if (! facets | is.na(facets)) { useimage <- FALSE if (! is.matrix(x)) { xy <- mesh(x,y) x <- xy$x y <- xy$y } } if (! useimage | rasterImage) { # use colored polygons if x- and y are matrix # create colors Col <- variablecol (z, col, NAcol, zlim, breaks) if (! is.na(shade) | lighting) Col <- facetcolsImage(x, y, height, dotimage[["xlim"]], dotimage[["ylim"]], NULL, shade, lighting, dots$alpha, ltheta, lphi, Col, NAcol) # empty plot dotimage$type <- "n" dotimage$xaxs <- "i" dotimage$yaxs <- "i" if (!add) { do.call("plot", c(alist(x = range(x), y = range(y)), dotimage)) # This used to make the background = NAcol - removed... # plotrect <- !is.null(NAcol) # if (plotrect) # if (NAcol != "white") { # usr <- par("usr") # rect(usr[1], usr[3], usr[2], usr[4], col = NAcol) # } } } if (! useimage ) { # function to draw polygon poly <- polyfill2D (x, y, Col, facets, border, dots$lwd, dots$lty, Extend) dots$lwd <- NULL do.call("polygon", c(alist(poly$x, poly$y, lwd = poly$lwd, border = poly$border, col = poly$col), dotother)) } else if (rasterImage) { Col <- matrix(nrow = nrow(z), data = Col) addraster (x, y, Col, dotimage[["xlim"]], dotimage[["ylim"]], theta, dotother) } else { dotimage$breaks <- breaks do.call("image", c(alist(z = z, x = x, y = y, col = col, add = add, zlim = zlim), dotimage)) } if (useimage & !is.na(border)) { do.call("abline", c(alist(h = 0.5*(y[-1]+y[-length(y)]), col = border), dotother)) do.call("abline", c(alist(v = 0.5*(x[-1]+x[-length(x)]), col = border), dotother)) } if (is.null(dotimage$frame.plot)) { if (!add) box() } else if (dotimage$frame.plot) box() # contours if (iscontour) { if (zlog) if (!is.null(contour$levels)) contour$levels <- log(contour$levels) if (! is.null(contour$col) &! is.null(contour$alpha)) contour$col <- setalpha(contour$col, contour$alpha) if (! rotate) do.call("contour", c(list(z = z, add = TRUE), contour)) else { # first calculate contours on unrotated values, then transform line.list <- do.call("contourLines", c(alist(z), contour)) templines <- function(clines) lines(cbind(clines[[2]], clines[[3]])%*%Mat) invisible(lapply(line.list, templines)) } } if (iscolkey) { drawcolkey(colkey, colkeyCol, colkeyZlim, clab, zlog) par(plt = plist$plt$ori) } par(mar = par("mar")) } ## ============================================================================= ## add rasterImage to plot ## ============================================================================= addraster <- function (x, y, col, xlim, ylim, angle, dots) { if (is.matrix(x) | is.matrix(y)) stop("'x' or 'y' cannot be a matrix if rasterImage is used") # check the x- and y-values, to be ~equally spaced and monotonously increasing/decreasing dx <- diff(x) if (any(dx == 0) | max(sign(dx)) != min(sign(dx))) stop("'x'-values should be increasing or decreasing, not constant") if (max(dx)/min(dx) > 1.1) stop("'x' should be quasi-equally spaced if rasterImage is used") dy <- diff(y) if (any(dy == 0) | max(sign(dy)) != min(sign(dy))) stop("'y'-values should be increasing or decreasing, not constant") if (max(dy)/min(dy) > 1.1) stop("'y' should be quasi-equally spaced if rasterImage is used") if (is.null(xlim)) xlim <- range(x) if (is.null(ylim)) ylim <- range(y) if (sign(dx[1]) != sign(diff(xlim))) col <- col[nrow(col):1, ] if (sign(dy[1]) == sign(diff(ylim))) col <- col[, ncol(col):1] col <- t(col) if (sign(diff(xlim)) == 1) xlim <- range(x) else xlim <- rev(range(x)) if (sign(diff(ylim)) == 1) ylim <- range(y) else ylim <- rev(range(y)) do.call("rasterImage", c(alist(as.raster(col), xlim[1], ylim[1], xlim[2], ylim[2], angle = angle), dots)) } ## ============================================================================= ## image2D function, z = NULL, col is a matrix of colors ## ============================================================================= ImageNULL <- function(z = NULL, x = seq(0, 1, length.out = nrow(col)), y = seq(0, 1, length.out = ncol(col)), ..., col, NAcol = "white", border = NA, facets = TRUE, rasterImage = FALSE, angle, add) { # check colors if (! is.character(col) | ! is.matrix(col)) stop ("'col' should be a matrix of colors if 'z' is NULL") # The plotting arguments dots <- splitpardots(list(...)) dotimage <- dots$main dotother <- dots$points if (! is.null(dots$alpha)) { DD <- dim(col) col <- matrix (nrow = DD[1], data = alpha.col(col, dots$alpha)) } # x- and y-values if (length(dim(x)) > 2 | length(dim(y)) > 2) stop("'x' or 'y' cannot be an array") Nr <- nrow(col) Nc <- ncol(col) if (is.null (x)) x <- seq(0, 1, length.out = Nr) if (is.null (y)) y <- seq(0, 1, length.out = Nc) # labels if (is.null(dotimage[["xlab"]])) dotimage[["xlab"]] <- "x" if (is.null(dotimage[["ylab"]])) dotimage[["ylab"]] <- "y" # Colors for values = NA col[is.na(col)] <- NAcol # empty plot dotimage$type <- "n" dotimage$xaxs <- "i" dotimage$yaxs <- "i" if (!add) { do.call("plot", c(alist(x = range(x), y = range(y)), dotimage)) plotrect <- !is.null(NAcol) if (plotrect) if (NAcol != "white") { usr <- par("usr") rect(usr[1], usr[3], usr[2], usr[4], col = NAcol) } } if (! rasterImage) { if (! is.matrix(x)) x <- matrix(nrow = Nr, ncol = Nc, data = x) if (! is.matrix(y)) y <- matrix(nrow = Nr, ncol = Nc, data = y, byrow = TRUE) if (any (dim(x) - dim(y) != 0)) stop("matrices 'x' and 'y' not of same dimension") if (any (dim(x) - dim(col) != 0)) stop("matrices 'x' or 'y' and 'col' not of same dimension") # function to draw polygon poly <- polyfill2D(x, y, col, facets, border, dots$lwd, dots$lty) do.call("polygon", c(alist(poly$x, poly$y, lwd = poly$lwd, border = poly$border, col = poly$col), dotother)) } else addraster (x, y, col, dotimage[["xlim"]], dotimage[["ylim"]], angle, dotother) if (!add) box() } ## ============================================================================= ## image2D function, input is an array ## ============================================================================= image2D.array <- function (z, margin = c(1, 2), subset, ask = NULL, ...) { DD <- dim(z) if (length(DD) != 3) stop ("Can only make image of 3-D array, 'z' has dimension ", length(DD)) if (length(margin) != 2) stop ("'margin' should contain two numbers, the x, y subscripts of which to make images") if ( max(margin) > 3 | min (margin) < 1) stop ("indexes in 'margin' should be inbetween 1 and 3") index <- (1:3) [- margin] if (index > 3 || index <1) stop ("'index' to loop over should be inbetween 1 and 3") x <- 1:DD[index] if (!missing(subset)){ if (is.numeric(subset)) { isub <- subset } else { e <- substitute(subset) r <- eval(e, as.data.frame(z), parent.frame()) if (!is.logical(r)) stop("'subset' must evaluate to logical") isub <- r & !is.na(r) isub <- which(isub) if (length(isub) == 0) stop("cannot continue: nothing selected - check 'subset'") } } else isub <- x np <- length(isub) ldots <- list(...) ## Set par mfrow and ask ask <- setplotpar(ldots, np, ask) if (ask) { oask <- devAskNewPage(TRUE) on.exit(devAskNewPage(oask)) } if (is.null(ldots$main)) { title <- names(z)[index][isub] if (is.null(title)) title <- isub } else title <- rep(ldots$main, length.out = length(isub)) # outer margin text Mtext <- ldots$mtext ldots$mtext <- NULL i1 <- 1 for (i in isub) { if (index == 1) zz <- z[i, , ] else if (index == 2) zz <- z[ ,i , ] else zz <- z[ ,, i ] if (margin[2] < margin[1]) zz <- t(zz) LL <- c(list(z = zz), ldots) LL$main <- title[i1] i1 <- i1+1 do.call(image2D, LL) } if (! is.null(Mtext)) mtext(text = Mtext, side = 3, outer = TRUE, line = par("oma")[3]-1 ) } ## ============================================================================= ## image2D of a list of matrices or arrays ## ============================================================================= image2D.list <- function (z, ...) { # check z: list with similar matrices or arrays of dimension at most 3 if ( all(c("x", "y", "z") %in% names(z))) { image2D.matrix(z = z$z, x = z$x, y = z$y, ...) } else { nz <- length(z) if (!inherits(z[[1]], c("matrix", "array"))) stop ("'z' should be a list with either matrices or arrays") DD <- dim(z[[1]]) if (length(DD) > 3 | length(DD) < 2) stop ("Can only make image of 2-D or 3-D array, 'z' has dimension ", length(DD)) for (i in 2 : nz) if (any(dim(z[[i]]) - DD != 0)) stop("elements of 'z' should have the same dimension, check element", i) # Set the mfrow argument - different from the usual if (inherits(z[[1]], "matrix")) { nc <- min(ceiling(sqrt(nz)), 3) nr <- min(ceiling(nz/nc), 3) } else { # differs from default in that it is not limited to 3 nc <- ceiling(sqrt(nz)) nr <- ceiling(nz/nc) } mfrow <- c(nr, nc) par(mfrow = mfrow) # Plotting arguments Ldots <- list(...) Ldots$mfrow <- mfrow if (!is.null(Ldots$main)) { main <- rep(Ldots$main, length.out = nz) Ldots$main <- NULL } else { main <- names(z) if (is.null(main)) main <- 1:nz } ask <- Ldots$ask if (is.null(ask)) ask <- TRUE Ldots$ask <- NULL # ylim and xlim can be lists and are at least two values yylim <- expanddotslist(Ldots$ylim, nz) xxlim <- expanddotslist(Ldots$xlim, nz) zzlim <- expanddotslist(Ldots$zlim, nz) zzlab <- expanddotslist(Ldots$clab, nz) if (ask) { oask <- devAskNewPage(TRUE) on.exit(devAskNewPage(oask)) } # Display the images if (inherits(z[[1]], "matrix")) { # outer margin text Mtext <- Ldots$mtext Ldots$mtext <- NULL for (i in 1:nz) { Ldots$main <- main[i] Ldots$xlim <- xxlim[[i]] Ldots$ylim <- yylim[[i]] Ldots$zlim <- zzlim[[i]] Ldots$clab <- zzlab[[i]] LL <- c(list(z = z[[i]]), Ldots) do.call(image2D, LL) } if (! is.null(Mtext)) mtext(text = Mtext, side = 3, outer = TRUE, line = par("oma")[3]-1 ) } else { # array margin <- Ldots$margin Ldots$margin <- NULL if (is.null(margin)) margin <- 1:2 if (length(margin) != 2) stop ("'margin' should contain two numbers, the x, y subscripts with which to make images") if ( max(margin) > 3 | min (margin) < 1) stop ("indexes in 'margin' should be inbetween 1 and 3") index <- (1:3) [- margin] subset <- Ldots$subset Ldots$subset <- NULL if (!is.null(subset)){ if (is.numeric(subset)) { isub <- subset } else { e <- substitute(subset) r <- eval(e, as.data.frame(z), parent.frame()) if (!is.logical(r)) stop("'subset' must evaluate to logical") isub <- r & !is.na(r) isub <- which(isub) if (length(isub) == 0) stop("cannot continue: nothing selected - check 'subset'") } } else isub <- 1:DD[index] nisub <- length(isub) # number of empty plots noplot <- prod(mfrow) - nz if (noplot == 0) noplot <- NULL else noplot <- 1:noplot # outer margin text Mtext <- Ldots$mtext Ldots$mtext <- NULL if (! is.null(Mtext)) Mtext <- rep(Mtext, length.out = nisub) else Mtext <- isub pline <- par("oma")[3]-1 # loop first over margin, then over data sets for (jj in 1:nisub) { j <- isub[jj] for (i in 1:nz) { if (index == 1) zz <- z[[i]][j, , ] else if (index == 2) zz <- z[[i]][ ,j , ] else zz <- z[[i]][ ,, j ] if (margin[2] < margin[1]) zz <- t(zz) Ldots$main <- main[i] Ldots$xlim <- xxlim[[i]] Ldots$ylim <- yylim[[i]] Ldots$zlim <- zzlim[[i]] Ldots$clab <- zzlab[[i]] LL <- c(list(z = zz), Ldots) do.call(image2D, LL) } # to make sure all figures are drawn for (i in noplot) plot(0, type = "n", xlab = "", ylab = "", axes = FALSE, frame.plot = FALSE) mtext(text = Mtext[jj], side = 3, outer = TRUE, line = pline) } } } } ## ============================================================================= ## Checking and expanding arguments in dots (...) with default ## ============================================================================= expanddots <- function (dots, default, n) { dots <- if (is.null(dots)) default else dots rep(dots, length.out = n) } # lists: e.g. xlim and ylim.... expanddotslist <- function (dots, n) { if (is.null(dots)) return(dots) dd <- if (!is.list(dots )) list(dots) else dots rep(dd, length.out = n) } plot3D/R/segments3D.R0000644000176200001440000000671212513125726013771 0ustar liggesusers## ============================================================================= ## 3-D segments function; no shading/light ## ============================================================================= segments3D <- function(x0, y0, z0, x1 = x0, y1 = y0, z1 = z0, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, NULL, c(x0, x1), c(y0, y1), c(z0, z1), plist = plist, breaks = breaks) len <- length(x0) if (length(y0) != len) stop("'y0' should have same length as 'x0'") if (length(z0) != len) stop("'z0' should have same length as 'x0'") if (length(x1) != len) stop("'x1' should have same length as 'x0'") if (length(y1) != len) stop("'y1' should have same length as 'x0'") if (length(z1) != len) stop("'z1' should have same length as 'x0'") if (ispresent(colvar)) { if (length(colvar) != len) stop("'colvar' should have same length as 'x0', 'y0' and 'z0'") if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks, col) if (length(col) == 1) col <- c(col, col) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { if (is.null(col)) col <- "black" if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- rep(col, length.out = len) iscolkey <- FALSE } if (is.null(plist)) { do.call("perspbox", c(alist(x = range(c(x0, x1)), y = range(c(y0, y1)), z = range(c(z0, z1)), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) lwd <- dot$points$lwd if (is.null(lwd)) lwd <- 1 lty <- dot$points$lty if (is.null(lty)) lty <- 1 alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = len) Proj <- project(0.5*(x0 + x1), 0.5*(y0 + y1), 0.5*(z0 + z1), plist) segm <- list(x.from = x0, x.to = x1, y.from = y0, y.to = y1, z.from = z0, z.to = z1, col = Col, lwd = rep(lwd , length.out = len), lty = rep(lty , length.out = len), alpha = alpha, proj = Proj) class(segm) <- "segments" if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "segments3D", breaks = breaks) plist <- plot.struct.3D(plist, segm = segm, plot = plot) setplist(plist) invisible(plist$mat) } plot3D/R/shade.R0000644000176200001440000002275512241726507013050 0ustar liggesusers## ============================================================================= ## ============================================================================= ## Shaded colors for 3-D images ## ============================================================================= ## ============================================================================= ## ============================================================================= ## Calculate surface normals from (x, y, z) matrices ## ============================================================================= normal.matrix <- function(x, y, z, Extend = TRUE, na.rm = FALSE) { # the x- y- and z matrices # x, y and z: matrices of same dimension if (Extend & !na.rm) { xx <- extend(x) yy <- extend(y) zz <- extend(z) } else if (Extend & na.rm) { xx <- extend.na(x) yy <- extend.na(y) zz <- extend.na(z) } else { xx <- x yy <- y zz <- z } # the facets: ii <- 1 : (nrow(xx)-1) jj <- 1 : (ncol(xx)-1) # normals in x, y, and z direction are matrices N.x <- N.y <- N.z <- matrix(nrow = nrow(xx)-1, ncol = ncol(xx)-1, data = NA) # choose points on each vertex for (i in ii) { ip1 <- cbind(i, jj+1) ip2 <- cbind(i+1 , jj) ip3 <- cbind(i+1 , jj+1) ip4 <- cbind(i , jj) p1 <- cbind(xx[ip1] , yy[ip1], zz[ip1]) p2 <- cbind(xx[ip2] , yy[ip2], zz[ip2]) p3 <- cbind(xx[ip3] , yy[ip3], zz[ip3]) p4 <- cbind(xx[ip4] , yy[ip4], zz[ip4]) # two vectors to represent these points V1 <- p2 - p1 V2 <- p3 - p4 # the (unnormalised) normals N.x [i, ] <- V1[, 2]*V2[, 3] - V1[, 3]*V2[, 2] N.y [i, ] <- -V1[, 1]*V2[, 3] + V1[, 3]*V2[, 1] N.z [i, ] <- V1[, 1]*V2[, 2] - V1[, 2]*V2[, 1] } # normalise Norm <- sqrt(N.x^2 + N.y^2 + N.z^2) # normalisation factor Norm[Norm == 0] <-1 list (u = N.x/Norm, v = N.y/Norm, w = N.z/Norm) } ## ============================================================================= normal.points <- function(p1, p2, p3, p4) { #x, y, z of 4 pts # two vectors to represent these points V1 <- p2 - p1 V2 <- p3 - p4 # the (unnormalised) normals N.x <- V1[2, ]*V2[3, ] - V1[3, ]*V2[2, ] N.y <- -V1[1, ]*V2[3, ] + V1[3, ]*V2[1, ] N.z <- V1[1, ]*V2[2, ] - V1[2, ]*V2[1, ] # normalise Norm <- sqrt(N.x^2 + N.y^2 + N.z^2) # normalisation factor Norm[Norm == 0] <-1 list (u = N.x/Norm, v = N.y/Norm, w = N.z/Norm) } ## ============================================================================= normal.points.tri <- function(p1, p2, p3) { #x, y, z of 3 pts # two vectors to represent these points V1 <- p2 - p1 V2 <- p3 - p1 # the (unnormalised) normals N.x <- V1[2, ]*V2[3, ] - V1[3, ]*V2[2, ] N.y <- -V1[1, ]*V2[3, ] + V1[3, ]*V2[1, ] N.z <- V1[1, ]*V2[2, ] - V1[2, ]*V2[1, ] # normalise Norm <- sqrt(N.x^2 + N.y^2 + N.z^2) # normalisation factor Norm[Norm == 0] <-1 list (u = N.x/Norm, v = N.y/Norm, w = N.z/Norm) } ## ============================================================================= ## Setup light based on light angles ## ============================================================================= # A translation to R from the C-code in plot3d.c setuplight <- function(phil, thetal) { # rotation in x-direction cosp <- cos(-phil/180*pi) sinp <- sin(-phil/180*pi) rotX <- matrix(nrow = 4, data = c(1, 0, 0, 0, 0, cosp, -sinp, 0, 0, sinp, cosp, 0, 0, 0, 0, 1)) VT <- diag(nrow = 4) %*% rotX # rotation in z-direction cost <- cos(thetal/180*pi) sint <- sin(thetal/180*pi) rotZ <- matrix(nrow = 4, data = c(cost, -sint, 0, 0, sint, cost, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1)) VT <- VT %*% rotZ light <- c(0, -1, 0, 1) %*% VT return(light) } ## ============================================================================= ## Create 3-D facet colors with shading or lighting. ## ============================================================================= facetcols.tri <- function(tri, col, shade){ Nr <- nrow(tri)/3 A <- array(dim = c(3, 3, Nr), data = t(tri)) if (length(col) != Nr) col <- rep(col, length.out = Nr) A[1,,] <- A[1,,] *shade$xs A[2,,] <- A[2,,] *shade$ys A[3,,] <- A[3,,] *shade$zs light <- setuplight(shade$lphi, shade$ltheta) [1:3] Normals <- normal.points.tri(A[,1,], A[,2,], A[,3,]) return(facetcols.shadelight(light, Normals, col, shade)) } ## ============================================================================= ## x-y-z is a matrix ## ============================================================================= facetcols <- function(x, y, z, col, shade, Extend = TRUE){ # +90 for "rotation to horizontal" if (Extend & length(col) != length(x)) col <- rep(col, length.out = length(x)) else if (!Extend & length(col) != prod(dim(x)-1)) col <- rep(col, length.out = prod(dim(x)-1)) light <- setuplight(shade$lphi, shade$ltheta) [1:3] Normals <- normal.matrix(x * shade$xs, y * shade$ys, z * shade$zs, Extend) return(facetcols.shadelight(light, Normals, col, shade)) } ## ============================================================================= ## facet colors with transparancy ## ============================================================================= facetcols.shadelight <- function(light, Normals, col, shade){ # we keep "transparent" colors ii <- which (col == "transparent") if (shade$type == "shade") Col <- facetcols.shade(light, Normals, col, shade$shade) else if (shade$type == "light") Col <- facetcols.light(light, Normals, col, shade) if (! is.null(shade$alpha)) Col <- setalpha(Col, shade$alpha) if (length(ii) > 0) Col[ii] <- "transparent" return(Col) } ## ============================================================================= ## facet colors with simplified phong lighting. ## ============================================================================= facetcols.light <- function(light, Normals, col, shade) { # defaults p <- list(ambient = 0.3, diffuse = 0.6, specular = 1., exponent = 20, sr = 0, alpha = 1) nmsC <- names(p) p[(namc <- names(shade))] <- shade # this is different from shaded colors - # Sum <- Normals$u*light[1] + Normals$v*light[2] + Normals$w*light[3] # use same as shaded.colors Sum <- 0.5*(Normals$u*light[1] + Normals$v*light[2] + Normals$w*light[3] +1) Is <- as.vector(p$specular * abs(Sum) ^ p$exponent) Id <- as.vector(p$diffuse * pmax(Sum, 0)) rgbcol <- t(col2rgb(col) / 255) Lrgbcol <- pmin((p$ambient + Id + p$sr * Is) * rgbcol + (1 - p$sr) * Is, 1) Lrgbcol[is.na(Lrgbcol)] <- 0 if (is.null(p$alpha)) p$alpha <- 1 # necessary for R < 3.0 rgb(Lrgbcol[,1], Lrgbcol[,2], Lrgbcol[,3], p$alpha) } ## ============================================================================= ## facet colors with shading ## ============================================================================= facetcols.shade <- function(light, Normals, col, shade){ if (is.na(shade)) return(col) shade <- abs(shade) if (shade < 0 | shade > 1) stop("'shade' should be a value inbetween 0 and 1") Sum <- 0.5*(Normals$u*light[1] + Normals$v*light[2] + Normals$w*light[3] +1) Shade <- Sum^shade Shade[is.na(Shade)] <- 0 RGB <- t(col2rgb(col)) * as.vector(Shade) / 255 col[] <- rgb(RGB) # alpha = 1 return(col) } facetcolsImage <- function (x, y, z, xlim, ylim, zlim, shade, lighting, alpha, ltheta, lphi, Col, NAcol) { if (is.null(xlim)) xlim <- range(x, na.rm = TRUE) if (is.null(ylim)) ylim <- range(y, na.rm = TRUE) if (is.null(zlim)) zlim <- range(z, na.rm = TRUE) xs <- 0.5 *abs(diff(xlim)) ys <- 0.5 *abs(diff(ylim)) zs <- 0.5 *abs(diff(zlim)) xs <- ifelse (xs == 0, 1, 1 / xs) ys <- ifelse (ys == 0, 1, 1 / ys) zs <- ifelse (zs == 0, 1, 1 / zs) if (! is.matrix(x)) { xy <- mesh(x,y) x <- xy$x y <- xy$y } light <- setuplight(lphi, ltheta) [1:3] Normals <- normal.matrix(x * xs, y * ys, z * zs, Extend = TRUE, na.rm = any(is.na(z))) ina <- which (is.na(Normals$u)) List <- list (shade = shade, alpha = alpha, type = "none") if (! is.null(lighting)) { if (is.character(lighting)) List$type <- "light" else if (is.logical(lighting)) { if (lighting) List$type <- "light" } else if (is.list(lighting)) { if (!is.null(lighting$type)) List$type <- lighting$type else List$type <- "light" lighting$type <- NULL List <- c(List, lighting) } } if (! is.null(shade)) if (! is.na(shade) & List$type == "none") # lighting overrules shade List$type <- "shade" if (is.null(List$shade)) List$shade <- NA # we keep "transparent" colors col <- Col ii <- which (col == "transparent") Col[] <- facetcols.shadelight(light, Normals, col, List) if (! is.null(alpha)) Col <- setalpha(Col, alpha) if (length(ina) > 0) Col[ina] <- NAcol if (length(ii) > 0 ) Col[ii] <- "transparent" return(Col) } plot3D/R/perspbox.R0000644000176200001440000003514712222313264013614 0ustar liggesusers# useable ranges for constants checklim <- function(lim) { if (diff(lim) == 0) lim <- lim * c(0.8, 1.2) if (diff(lim) == 0) lim <- lim + c(-0.1, 0.1) return(lim) } # ============================================================================== # Box around a perspective plot, x, y matrix or vector; z = matrix # ============================================================================== perspbox <- function(x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, bty = c("b", "b2", "f", "g", "bl", "bl2", "u", "n"), # predefined types ..., col.axis = "black", col.panel = NULL, lwd.panel = 1, col.grid = NULL, lwd.grid = 1, phi = 40, theta = 40, col = NULL, colkey = NULL, plot = TRUE){ dot <- list(...) plist <- list(type = "3D", plt = NULL, persp = NULL, alpha = dot$alpha) dot$alpha <- NULL dot$clog <- NULL # which ranges are imposed... plist$setlim <- c(dot$setlim1, dot$setlim2, dot$setlim3) dot$setlim1 <- dot$setlim2 <- dot$setlim3 <- NULL if (plot) plist$plt$ori <- par("plt") plist$persp$box <- FALSE plist$persp$expand <- ifelse (is.null(dot$expand), 1, dot$expand) # check inputs if (! is.matrix(z)) z <- diag(nrow = length(z), x = z) if (is.null (x)) x <- seq(0, 1, length.out = nrow(z)) if (is.null (y)) y <- seq(0, 1, length.out = ncol(z)) if (is.null(dot$xlim)) plist$xlim <- range(x) else plist$xlim <- dot$xlim if (is.null(dot$ylim)) plist$ylim <- range(y) else plist$ylim <- dot$ylim if (is.null(dot$zlim)) plist$zlim <- range(z) else plist$zlim <- dot$zlim plist$xlim <- checklim(plist$xlim) plist$ylim <- checklim(plist$ylim) plist$zlim <- checklim(plist$zlim) lim <- setlim (plist$xlim, plist$ylim, plist$zlim, dot[["scale"]], dot[["expand"]]) plist$scalefac <- lim dot$xlim <- dot$ylim <- dot$zlim <- NULL dot$scalefac <- NULL plist$mat <- transmat (phi, theta, plist$scalefac, dot$r, dot$d) if (is.null(dot$xlab)) dot$xlab <- "x" if (is.null(dot$ylab)) dot$ylab <- "y" if (is.null(dot$zlab)) dot$zlab <- "z" bty <- match.arg(bty)#, c("b", "b2", "f", "g", "bl", "bl2", "u")) if (bty == "n") dot$box <- FALSE plist$persp$bty <- bty plist$persp$drawbox <- TRUE if (! is.null(dot$box)) if (!dot$box) plist$persp$drawbox <- FALSE if (plist$persp$drawbox) { if (bty != "u") { col.axis <- "black"; col.panel <- NULL lwd.panel <- 1; col.grid <- NULL; lwd.grid <- 1 } back <- bty %in% c("b", "b2", "u") if (bty == "b2") col.grid <- "grey" else if (bty == "g") { col.panel <- grey(0.925) col.axis <- "grey" lwd.grid <- 2 col.grid <- "white" } else if (bty == "bl") { col.panel <- "black" } else if (bty == "bl2") { col.panel <- "black" col.axis <- "grey" lwd.grid <- 2 col.grid <- "grey" } if (back & is.null(col.panel)) { col.panel <- "white" #par("bg") toggled off as this opens a window... # if (col.panel == "transparent") # col.panel <- "white" } } # drawbox plist$persp$panel <- list(col.axis = col.axis, col.panel = col.panel, lwd.panel = lwd.panel, col.grid = col.grid, lwd.grid = lwd.grid) if (is.null(col)) col <- jet.col(100) iscolkey <- is.colkey(colkey, col = col) if (plot) plist$plt$main <- par("plt") if (iscolkey) { colkey <- check.colkey(colkey) plist$plt$main <- colkey$parplt } dot$col <- dot$border <- NULL plist$dot <- dot plist$persp$theta <- theta plist$persp$phi <- phi if (plot) { plist <- plotbox(plist) par(plt = plist$plt$ori) } class(plist) <- c("plist", "list") setplist(plist) invisible(plist$mat) } ## ============================================================================= ## plot box based on plist ## ============================================================================= plotbox <- function (plist) { par(plt = plist$plt$main) plist$persp$box <- TRUE plist$mat <- do.call("persp", c(alist(plist$xlim, plist$ylim, z = matrix(nrow = 2, ncol = 2, data = plist$zlim), phi = plist$persp$phi, theta = plist$persp$theta, border = NA, col = NA), plist$dot)) if (plist$persp$drawbox) { P <- !visibility(plist$xlim, plist$ylim, plist$zlim, plist$mat) # e.g for theta <90 P <- c(FALSE, TRUE, TRUE, FALSE, TRUE, FALSE) with (plist$persp$panel, { panels <- (!is.null(col.panel) | lwd.panel != 1) if (panels) color.panels(P, plist$xlim, plist$ylim, plist$zlim, plist$mat, col.panel, lwd.panel, col.axis) if (!is.null(col.grid)) grid.panels(P, plist$xlim, plist$ylim, plist$zlim, plist$mat, col.grid, plist$dot$nticks, lwd.grid) }) } plist } ## ============================================================================= ## Set background color to backward panels ## ============================================================================= color.panels <- function(P, xlim, ylim, zlim, pmat, col, lwd, border) { if (is.null(border)) border <- NA if (is.null(col)) col <- "white" panelcol <- function(linex, liney, linez, col, border = NA) { XX <- trans3D(x = linex, y = liney, z = linez, pmat = pmat) polygon(XX$x, y = XX$y, col = col, lwd = lwd, border = NA, lty = 1) lines(XX$x, y = XX$y, col = border, lwd = lwd, lty = 1) } for (ii in 1:6) { if (P[ii]) { # panel is visible p <- Face[ii, ] pts <- Vertex[p, ] pts <- rbind(pts, pts[1,]) # to make sure that box is closed panelcol(linex = xlim[pts[,1]], liney = ylim[pts[,2]], linez = zlim[pts[,3]], col = col, border = border) } } } ## ============================================================================= ## gridlines on panels - maybe this can be shorter?? ## ============================================================================= grid.panels <- function(P, xlim, ylim, zlim, pmat, gcol, nticks, lwd) { addsegments <- function(x0, x1, y0, y1, z0, z1, col) { # trans3D projects and converts XX$x- and XX$y to a matrix XY0 <- trans3D(x = x0, y = y0, z = z0, pmat = pmat) XY1 <- trans3D(x = x1, y = y1, z = z1, pmat = pmat) segments(XY1$x, XY1$y, XY0$x, XY0$y, col = col, lwd = lwd) } if (is.null(nticks)) nticks <- 5 xseq <- pretty(xlim, nticks) yseq <- pretty(ylim, nticks) zseq <- pretty(zlim, nticks) xseq <- xseq [ -c(1, length(xseq))] yseq <- yseq [ -c(1, length(yseq))] zseq <- zseq [ -c(1, length(zseq))] npx <- length(xseq) npy <- length(yseq) npz <- length(zseq) if (P[1]) addsegments(xseq, xseq, rep(ylim[1], npx), rep(ylim[1], npx), rep(zlim[1], npx), rep(zlim[2], npx), col = gcol) if (P[1]) addsegments(rep(xlim[1], npz), rep(xlim[2], npz), rep(ylim[1], npz), rep(ylim[1], npz), zseq, zseq, col = gcol) if (P[3]) addsegments(rep(xlim[1], npz), rep(xlim[1], npz), rep(ylim[1], npz), rep(ylim[2], npz), zseq, zseq, col = gcol) if (P[3]) addsegments(rep(xlim[1], npy), rep(xlim[1], npy), yseq, yseq, rep(zlim[1], npy), rep(zlim[2], npy), col = gcol) if (P[2]) addsegments(xseq, xseq, rep(ylim[2], npx), rep(ylim[2], npx), rep(zlim[1], npx), rep(zlim[2], npx), col = gcol) if (P[2]) addsegments(rep(xlim[1], npz), rep(xlim[2], npz), rep(ylim[2], npz), rep(ylim[2], npz), zseq, zseq, col = gcol) if (P[4]) addsegments(rep(xlim[2], npy), rep(xlim[2], npy), yseq, yseq, rep(zlim[1], npy), rep(zlim[2], npy), col = gcol) if (P[4]) addsegments(rep(xlim[2], npz), rep(xlim[2], npz), rep(ylim[1], npz), rep(ylim[2], npz), zseq, zseq, col = gcol) if (P[5]) addsegments(xseq, xseq, rep(ylim[1], npx), rep(ylim[2], npx), rep(zlim[1], npx), rep(zlim[1], npx), col = gcol) if (P[5]) addsegments(rep(xlim[1], npy), rep(xlim[2], npy), yseq, yseq, rep(zlim[1], npy), rep(zlim[1], npy), col = gcol) if (P[6]) addsegments(rep(xlim[1], npy), rep(xlim[2], npy), yseq, yseq, rep(zlim[2], npy), rep(zlim[2], npy), col = gcol) if (P[6]) addsegments(xseq, xseq, rep(ylim[1], npx), rep(ylim[2], npx), rep(zlim[2], npx), rep(zlim[2], npx), col = gcol) } # code based on plot3d.c # points on edges (x,y,z) Vertex <- matrix(ncol = 3, byrow = TRUE, data = c( 1, 1, 1, #xlim[1], ylim[1], zlim[1] 1, 1, 2, #xlim[1], ylim[1], zlim[2] 1, 2, 1, 1, 2, 2, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2)) # the points of Vertex belonging to a face Face <- matrix (ncol = 4, byrow = TRUE, data = c( 1, 2, 6, 5, 3, 7, 8, 4, 1, 3, 4, 2, 5, 6, 8, 7, 1, 5, 7, 3, 2, 4, 8, 6 )) visibility <- function(xlim, ylim, zlim, pmat) { Near <- vector(length = 6) for (ii in 1:6) { p <- Face[ii, ] pt <- Vertex[p[1], ] u0 <- c(xlim[pt[1]] , ylim[pt[2]], zlim[pt[3]], 1) pt <- Vertex[p[2], ] u1 <- c(xlim[pt[1]] , ylim[pt[2]], zlim[pt[3]], 1) pt <- Vertex[p[3], ] u2 <- c(xlim[pt[1]] , ylim[pt[2]], zlim[pt[3]], 1) pt <- Vertex[p[4], ] u3 <- c(xlim[pt[1]] , ylim[pt[2]], zlim[pt[3]], 1) v0 <- u0 %*% pmat v1 <- u1 %*% pmat v2 <- u2 %*% pmat v3 <- u3 %*% pmat # Visibility test. */ # Determine whether the surface normal is toward the eye. */ d <- v1/v1[4] - v0/v0[4] e <- v2/v2[4] - v1/v1[4] Near[ii] <- (d[1]*e[2] - d[2]*e[1]) < 0 } return(Near) } ## ============================================================================= ## Transformation matrix - see plot.c (R-core) ## ============================================================================= transmat <- function (phi, theta, scalefac, r, d) { if (is.null(r)) r <- sqrt(3) if (is.null(d)) d <- 1 ph <- phi / 180 * pi th <- theta / 180 * pi # center at origin M <- diag(nrow = 4) M[4, 1:3] <- c(-scalefac$xc, -scalefac$yc, -scalefac$zc) VT <- diag(nrow = 4) %*% M # scale to -1,1 M <- diag(nrow = 4, x = c(scalefac$x, scalefac$y, scalefac$z, 1)) VT <- VT %*% M # rotation in x-direction, x-y plane to horizontal (-90) cosp <- cos(-0.5*pi) sinp <- sin(-0.5*pi) rotX <- matrix(nrow = 4, data = c(1, 0, 0, 0, 0, cosp, -sinp, 0, 0, sinp, cosp, 0, 0, 0, 0, 1)) VT <- VT %*% rotX # azimuthal rotation in y-direction cosp <- cos(-th) sinp <- sin(-th) rotY <- matrix(nrow = 4, data = c(cosp, 0, sinp, 0, 0, 1, 0, 0, -sinp, 0, cosp, 0, 0, 0, 0, 1)) VT <- VT %*% rotY # elevation rotation in x-direction cosp <- cos(ph) sinp <- sin(ph) rotX <- matrix(nrow = 4, data = c(1, 0, 0, 0, 0, cosp, -sinp, 0, 0, sinp, cosp, 0, 0, 0, 0, 1)) VT <- VT %*% rotX # translate to origin M <- diag(nrow = 4) M[4, 3] <- -r - d VT <- VT %*% M # perspective M <- diag(nrow = 4) M[3, 4] <- -1/d VT <- VT %*% M return(VT) } ## ============================================================================= ## Draw visible edges of box ## ============================================================================= drawfullbox <- function(plist) { P <- visibility(plist$xlim, plist$ylim, plist$zlim, plist$mat) addsegments <- function(x0, x1, y0, y1, z0, z1) { XY0 <- trans3D(x = x0, y = y0, z = z0, pmat = plist$mat) XY1 <- trans3D(x = x1, y = y1, z = z1, pmat = plist$mat) segments(XY1$x, XY1$y, XY0$x, XY0$y, col = "black") } xlim <- plist$xlim ylim <- plist$ylim zlim <- plist$zlim if (P[1]) addsegments(xlim, xlim, rep(ylim[1], 2), rep(ylim[1], 2), rep(zlim[1], 2), rep(zlim[2], 2)) if (P[1]) addsegments(rep(xlim[1], 2), rep(xlim[2], 2), rep(ylim[1], 2), rep(ylim[1], 2), zlim, zlim) if (P[3]) addsegments(rep(xlim[1], 2), rep(xlim[1], 2), rep(ylim[1], 2), rep(ylim[2], 2), zlim, zlim) if (P[3]) addsegments(rep(xlim[1], 2), rep(xlim[1], 2), ylim, ylim, rep(zlim[1], 2), rep(zlim[2], 2)) if (P[2]) addsegments(xlim, xlim, rep(ylim[2], 2), rep(ylim[2], 2), rep(zlim[1], 2), rep(zlim[2], 2)) if (P[2]) addsegments(rep(xlim[1], 2), rep(xlim[2], 2), rep(ylim[2], 2), rep(ylim[2], 2), zlim, zlim) if (P[4]) addsegments(rep(xlim[2], 2), rep(xlim[2], 2), ylim, ylim, rep(zlim[1], 2), rep(zlim[2], 2)) if (P[4]) addsegments(rep(xlim[2], 2), rep(xlim[2], 2), rep(ylim[1], 2), rep(ylim[2], 2), zlim, zlim) if (P[5]) addsegments(xlim, xlim, rep(ylim[1], 2), rep(ylim[2], 2), rep(zlim[1], 2), rep(zlim[1], 2)) if (P[5]) addsegments(rep(xlim[1], 2), rep(xlim[2], 2), ylim, ylim, rep(zlim[1], 2), rep(zlim[1], 2)) if (P[6]) addsegments(rep(xlim[1], 2), rep(xlim[2], 2), ylim, ylim, rep(zlim[2], 2), rep(zlim[2], 2)) if (P[6]) addsegments(xlim, xlim, rep(ylim[1], 2), rep(ylim[2], 2), rep(zlim[2], 2), rep(zlim[2], 2)) }plot3D/R/image3D.R0000644000176200001440000000775112522375015013230 0ustar liggesusers## ============================================================================= ## images in 3-D ## ============================================================================= createsurfs <- function (x, y, z, colvar, names = c("x", "y", "z"), resfac) { if (is.null (x) & is.null(colvar) | is.null (y) & is.null(colvar)) stop ("'colvar' cannot be NULL if ", names[1], " and/or ", names[2], " are NULL") if (is.null (x)) x <- seq(0, 1, length.out = nrow(colvar)) if (is.array(x)) { if (length(dim(x)) == 1) x <- as.vector(x) else if (length(dim(x)) == 2) x <- as.matrix(x) } if (! is.null(colvar)) { if (is.vector(x) & length(x) != nrow(colvar)) stop (names[1], " should be a vector of length = nrow(colvar) or be NULL") else if (is.matrix(x)) if (any(dim(x) - dim(colvar) < 0) | any(dim(x) - dim(colvar) > 1)) stop(names[1], " not compatible with 'colvar'") } if (! is.matrix(x) & ! is.vector(x)) stop(names[1], " should be a vector, a matrix or one value") if (is.null (y)) y <- seq(0, 1, length.out = ncol(colvar)) if (is.array(y)) { if (length(dim(y)) == 1) y <- as.vector(y) else if (length(dim(y)) == 2) y <- as.matrix(y) } if (! is.null(colvar)) { if (is.vector(y) & length(y) != ncol(colvar)) stop (names[2], " should be a vector of length = ncol(colvar) or be NULL") else if (is.matrix(y)) if (any(dim(y) - dim(colvar) < 0) | any(dim(y) - dim(colvar) > 1)) stop(names[2], "not compatible with 'colvar'") } if (! is.matrix(y) & ! is.vector(y)) stop(names[2], "should be a vector, a matrix or one value") if (is.vector(x) & ! is.vector(y) | is.vector(y) & ! is.vector(x) ) stop (names[1], " and ", names[2], " should both be a vector or both a matrix") if (any(resfac != 1)) { res <- changeres(resfac, x, y, colvar) x <- res$x y <- res$y colvar <- res$z } if (is.vector(x)) { M <- mesh(x, y) x <- M$x y <- M$y } z <- matrix(nrow = nrow(x), ncol = ncol(x), data = z) list(A = x, B = y, C = z, colvar = colvar) } ## ============================================================================= ## main function ## ============================================================================= image3D <- function(x = NULL, y = NULL, z = NULL, ..., colvar = NULL, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, border = NA, facets = TRUE, colkey = NULL, resfac = 1, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", inttype = 1, add = FALSE, plot = TRUE){ isconstant <- NULL if (length(x) == 1) isconstant <- c(isconstant, 1) if (length(y) == 1) isconstant <- c(isconstant, 2) if (length(z) == 1) isconstant <- c(isconstant, 3) if (length(isconstant) != 1) stop ("one of the values 'x' 'y', or 'z' should be one value") if (isconstant == 3) { ll <- createsurfs(x, y, z, colvar, c("x", "y", "z"), resfac) x <- ll$A y <- ll$B z <- ll$C } else if (isconstant == 1) { ll <- createsurfs(y, z, x, colvar, c("y", "z", "x"), resfac) y <- ll$A z <- ll$B x <- ll$C } else { ll <- createsurfs(x, z, y, colvar, c("x", "z", "y"), resfac) x <- ll$A z <- ll$B y <- ll$C } if (any(resfac != 1)) colvar <- ll$colvar pmat <- surf3D (x = x, y = y, z = z, colvar = colvar, phi = phi, theta = theta, col = col, NAcol = NAcol, breaks = breaks, border = border, facets = facets, colkey = colkey, panel.first = panel.first, clim = clim, clab = clab, bty = bty, inttype = inttype, add = add, plot = plot, ...) invisible (pmat) } plot3D/R/voxel3D.R0000644000176200001440000000627012517352105013275 0ustar liggesusers## ============================================================================= ## 3-D visualisation of volumetric data using points ## ============================================================================= # x, y, z vectors, colvar: array voxel3D <- function(x, y, z, colvar, ..., phi = 40, theta = 40, level = mean(colvar, na.rm = TRUE), eps = 0.01, operator = "=", col = NULL, NAcol = "white", breaks = NULL, colkey = FALSE, panel.first = NULL, bty = "b", add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, NULL, x, y, z, plist = plist, breaks = breaks) if (length(level) != 1 & operator != "<>" ) stop ("'level' should be one number if 'operator' not equal to '<>'") else if (length(level) != 2 & operator == "<>" ) stop ("'level' should be two numbers if 'operator' equals '<>'") if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x), y = range(y), z = range(z, na.rm = TRUE), phi = phi, theta = theta, colkey = colkey, plot = plot, col = col), dot$persp)) plist <- getplist() } if (is.function(panel.first)) panel.first(plist$mat) vox <- createvoxel (x, y, z, colvar, level, eps, operator) if (is.null(vox)) { rc <- range(colvar, na.rm = TRUE) stop("no points selected - change 'level': valid range ", formatC(rc[1]), " - ", formatC(rc[2])) } if (operator == "=") colvar <- vox$z else colvar <- vox$cv do.call("scatter3D", c(alist(x = vox$x, y = vox$y, z = vox$z, add = TRUE, col = col, NAcol = NAcol, breaks = breaks, colkey = FALSE, plot = plot, alpha = dot$alpha), dot$points)) plist <- getplist() invisible(plist$mat) } ## ============================================================================= createvoxel <- function (x, y, z, colvar, level = mean(colvar, na.rm = TRUE), eps = 0.01, operator = "=") { if (! ispresent(colvar)) stop("'colvar' has to be defined and be an array of dimension 3") # check dimensionality DD <- dim(colvar) if (length(DD) != 3) stop("'colvar' has to be an array of dimension 3") if (DD[1] != length(x)) stop("dimension of 'colvar' not compatible with length of 'x'") if (DD[2] != length(y)) stop("dimension of 'colvar' not compatible with length of 'y'") if (DD[3] != length(z)) stop("dimension of 'colvar' not compatible with length of 'z'") clim <- range(colvar, na.rm = TRUE) eps <- diff(clim) * eps if (operator == "=") ijk <- which(abs(colvar - level) < eps , arr.ind = TRUE) else if (operator == "<") ijk <- which(colvar < level, arr.ind = TRUE) else if (operator == ">") ijk <- which(colvar > level, arr.ind = TRUE) else if (operator == "<>") ijk <- which(colvar > level[1] & colvar < level[2], arr.ind = TRUE) else stop ("'operator' should be one of '=', '<', or '>'") if (nrow(ijk) > 1) list (x = x[ijk[,1]], y = y[ijk[,2]], z = z[ijk[,3]], cv = colvar[ijk]) } plot3D/R/legendplot.R0000644000176200001440000003153314040460655014111 0ustar liggesusers## ============================================================================= ## Create a color key ## ============================================================================= createKey <- function(x, clim = NULL, col = NULL, NAcol = "black") { if (is.null(col)) col <- jet.col(100) if (is.null(clim)) clim <- range(x) else x[x > max(clim) | x < min(clim)] <- NA cmin <- clim[1] crange <- diff(clim) N <- length(col) -1 Col <- col[1 + trunc((x - cmin)/crange*1.00000000001*N)] Col[is.na(x)] <- NAcol Col } ## ============================================================================= ## wrapper around plotting functions that includes a legend ## ============================================================================= drawlegend <- function (legend, New = TRUE, pm = NULL) { if (!legend$plot) return() if (New) par(new = TRUE) usr <- par("usr") Plt <- par(plt = legend$parleg) # legend parameters legendargs <- formalArgs("legend") colkeypar <- legend[names(legend)%in%legendargs] if (is.null(colkeypar$legend)) colkeypar$legend <- "" if (is.null(colkeypar$x)) colkeypar$x <- "center" if (! is.null(pm)) pmar <- par(mar = pm) plot(0, type = "n", xlim = c(0,1), ylim = c(0,1), axes = FALSE, frame.plot = FALSE, yaxs = "i", xaxs = "i", xlab = "", ylab = "") do.call("legend", colkeypar) par(plt = Plt) par(usr = usr) if (New) par(new = FALSE) if (! is.null(pm)) par(mar = pmar) } ## ============================================================================= ## Outer margins set with oma, e.g. for pairs plots ## ============================================================================= omapairs <- function(arglist, legend, legend.side = 4, oma = NULL, X = NULL, FAC = 50){ legend$plot <- FALSE if (is.null(X)) X <- do.call("legend", legend)$rect if (is.null(oma)) oma <- c(4, 4, if (!is.null(arglist$main)) 6 else 4, 4) pin <- par("pin") dh <- X$h*FAC*pin[2]/4.535 dw <- X$w*FAC*pin[1]/5.135 if (legend.side == 1) { oma <- oma + c(dh, 0, 0, 0) } else if (legend.side == 2) { oma <- oma + c(0, dw, 0, 0) } else if (legend.side == 3) { oma <- oma + c(0, 0, dh, 0) } else if (legend.side == 4) { oma <- oma + c(0, 0, 0, dw) } oma } ## ============================================================================= ## Size of the legend and the main plot ## ============================================================================= legendsize <- function(legend, legend.side = 4, parplt = par("plt"), cex = 1) { legendplot <- legend$plot legend$plot <- FALSE X <- do.call("legend", legend)$rect cexplt <- cex dw <- X$w dh <- X$h dd <- 0.02 dd2 <- 0.01 #0.12 parleg <- parplt if (legend.side == 1) { parplt <- parplt + c(0, 0, dh + 0.1 * cexplt[1], 0) parleg[4] <- parplt[3] - dd2*cexplt[2] } else if (legend.side == 2) { parplt <- parplt + c(dw + 0.08*cexplt[1], 0, 0, 0) parleg[2] <- parplt[1] - dd2*cexplt[2] } else if (legend.side == 3) { parplt <- parplt - c(0, 0, 0, dh + 0.05*cexplt[1]) parleg[3] <- parplt[4] + dd2*cexplt[2] } else if (legend.side == 4) { parplt <- parplt - c(0, dw + 0.02*cexplt[1], 0, 0) parleg[1] <- parplt[2] + dd2*cexplt[2] } legend$plot <- ifelse(is.null(legendplot), TRUE, legendplot) legend$parleg <- check.plt(parleg) legend$parplt <- check.plt(parplt) return(legend) } ## ============================================================================= ## main functions for plotting with a legend ## ============================================================================= legendplot <- function(..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) legend.plt( ..., method = "plot", legend = legend, legend.side = legend.side, legend.cex = legend.cex, legend.pars = legend.pars) legendmatplot <- function(..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) legend.plt(..., method = "matplot", legend = legend, legend.side = legend.side, legend.cex = legend.cex, legend.pars = legend.pars) legendhist <- function(..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) legend.plt(..., method = "hist", legend = legend, legend.side = legend.side, legend.cex = legend.cex, legend.pars = legend.pars) legendpairs <- function(..., legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) legend.oma(..., method = "pairs", legend = legend, legend.side = legend.side, legend.cex = legend.cex, legend.pars = legend.pars) legend.plt <- function(method = "plot", ..., #add = FALSE, legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) { if (method == "pairs"){ P <- legend.oma(..., method = "pairs", legend = legend, legend.side = legend.side, legend.cex = legend.cex, legend.pars = legend.pars) return(invisible(P)) } if (! is.list(legend)) legend <- list(legend = legend) arglist <- as.list(match.call(expand.dots = TRUE)) arglist[1] <- NULL arglist[formalArgs(legend.plt)] <- NULL if (length(inot <- which (names(arglist) == ""))) { formalnames <- names(formals(method)) names(arglist)[inot] <- formalnames[inot] } plot.new() par(new = TRUE) pltori <- par("plt") # if legend is only element, and this is unnamed, then it is the legend labels if (length(inot <- which (names(legend) == ""))) { if (length(inot) > 1) stop(" 'legend' cannot have more than one unnamed argument") names(legend)[inot] <- "legend" } if (is.null(legend$legend)) legend$legend <- "" if (is.null(legend$x)) { if (legend.side == 1) legend$x <- "bottom" else if (legend.side == 2) legend$x <- "left" else if (legend.side == 3) legend$x <- "top" else if (legend.side == 4) legend$x <- "right" else legend$x <- "center" } # normal position of legend, as in the default method if (legend.side == 0) { do.call(method, arglist) do.call("legend", legend) return(invisible(list(plt.legend = pltori, plt.main = pltori))) } # plotting parameters for the legend and main plot cexplt <- rep(legend.cex, length.out = 2) parplt <- pltori parleg <- pltori # determine size of the legend if (is.null(legend.pars)) { legend <- legendsize(legend, legend.side = legend.side, parplt = parplt, cex = cexplt) } else { legend$parleg <- check.plt(legend.pars$plt.legend) legend$parplt <- check.plt(legend.pars$plt.main) if(is.null(legend$plot)) legend$plot <- TRUE } drawlegend(legend, New = FALSE)#, pm = c(2,2,2,2)) par(plt = legend$parplt, new = TRUE) do.call(method, arglist) par(mar = par("mar")) invisible(list(plt.legend = legend$parleg, plt.main = legend$parplt)) } # a legend while setting the outer margins legend.oma <- function(method = "pairs", ..., #add = FALSE, legend = list(), legend.side = 4, legend.cex = 1, legend.pars = NULL) { if (! is.list(legend)) legend <- list(legend = legend) arglist <- as.list(match.call(expand.dots = TRUE)) arglist[1] <- NULL arglist[formalArgs(legend.oma)] <- NULL if (length(inot <- which (names(arglist) == ""))) { formalnames <- names(formals(method)) names(arglist)[inot] <- formalnames[inot] } cexplt <- rep(legend.cex, length.out = 2) # if legend is only one element, and this is unnamed, then it is the legend labels if (length(inot <- which (names(legend) == ""))) { if (length(inot) > 1) stop(" 'legend' cannot have more than one unnamed argument") names(legend)[inot] <- "legend" } if (is.null(legend$legend)) legend$legend <- "" if (is.null(legend$x)){ if (legend.side == 1) legend$x <- "bottom" if (legend.side == 2) legend$x <- "left" if (legend.side == 3) legend$x <- "top" if (legend.side == 4) legend$x <- "right" } plot.new() # determine size of the legend oma <- par("oma") if (! is.null(legend.pars$oma)) arglist$oma <- legend.pars$oma else if (is.null(arglist$oma)) arglist$oma <- omapairs(arglist, legend, legend.side) par (oma = arglist$oma) # Note: for unknown reason I need to call plot.new twice... plot.new() do.call(method, arglist) # par(opar) par(new = TRUE, oma = oma, mfrow = c(1,1)) plot.new() if (is.null(legend$plot)) legend$plot <- TRUE drawlegend(legend, New = FALSE, pm = c(2,2,2,2)) par(oma = oma) return(invisible(list(oma = arglist$oma))) } ## ============================================================================= ## wrapper around plotting functions that includes a legend ## ============================================================================= colorkeyplot <- function(..., colorkey = list(), colorkey.side = 4) colorkey.plt (method = "plot", ..., colorkey = colorkey, colorkey.side = colorkey.side) colorkeymatplot <- function(..., colorkey = list(), colorkey.side = 4) colorkey.plt (method = "matplot", ..., # add = FALSE, colorkey = colorkey, colorkey.side = colorkey.side) colorkeyhist <- function(..., colorkey = list(), colorkey.side = 4) colorkey.plt (method = "hist", ..., colorkey = colorkey, colorkey.side = colorkey.side) colorkeypairs <- function(..., colorkey = list(), colorkey.side = 4) colorkey.oma (method = "pairs", ..., colorkey = colorkey, colorkey.side = colorkey.side) colorkey.plt <- function(method = "plot", ..., # add = FALSE, colorkey = list(), colorkey.side = 4) { arglist <- as.list(match.call(expand.dots=TRUE)) arglist[formalArgs(colorkey.plt)] <- NULL arglist[1] <- NULL if (length(inot <- which (names(arglist) == ""))) { formalnames <- names(formals(method)) names(arglist)[inot] <- formalnames[inot] } plot.new() par(new = TRUE) pltori <- par("plt") ck <- colorkey ck$clim <- ck$clab <- ck$col <- ck$breaks <- ck$clog <- NULL colkey <- check.colkey(ck) colkey$plot <- TRUE colkey$side <- colorkey.side col <- colorkey$col breaks <- colorkey$breaks if (is.null(col)) if (is.null(breaks)) col <- jet.col(100) else col <- jet.col(length(breaks) - 1) # breaks <- check.breaks(breaks, col) if (! is.null(breaks)) clim <- range(breaks) else clim <- colorkey$clim clog <- colorkey$clog if (is.null(clog)) clog <- FALSE # The drawcolkey(colkey, col = col, clim = clim, clab = colorkey$clab, clog = clog, New = FALSE) par(plt = colkey$parplt, new = TRUE) do.call(method, arglist) par(mar = par("mar")) invisible(list(plt.legend = colkey$parleg, plt.main = colkey$parplt)) } # a color key while adjusting the outer margin colorkey.oma <- function(method = "pairs", ..., # add = FALSE, colorkey = list(), colorkey.side = 4) { arglist <- as.list(match.call(expand.dots=TRUE)) arglist[formalArgs(colorkey.oma)] <- NULL arglist[1] <- NULL if (length(inot <- which (names(arglist) == ""))) { formalnames <- names(formals(method)) names(arglist)[inot] <- formalnames[inot] } plot.new() oma <- par("oma") colorkey$side <- colorkey.side ck <- colorkey ck$clim <- ck$clab <- ck$col <- ck$breaks <- ck$clog <- NULL colkey <- check.colkey(ck) # settings of the color key colkey$plot <- TRUE colkey$side <- colorkey.side col <- colorkey$col breaks <- colorkey$breaks if (is.null(col)) if (is.null(breaks)) col <- jet.col(100) else col <- jet.col(length(breaks) - 1) # breaks <- check.breaks(breaks, col) if (! is.null(breaks)) clim <- range(breaks) else clim <- colorkey$clim clog <- colorkey$clog if (is.null(clog)) clog <- FALSE # par(new = TRUE) CP <- colkey$parleg # pars of the colorkey in plt units if (is.null(arglist$oma)) arglist$oma <- omapairs(arglist, colkey, colorkey.side, X = list(h = diff(CP[3:4]), w = diff(CP[1:2])), FAC = 150) par (oma = arglist$oma) plot.new() do.call(method, arglist) par(new = TRUE, mfrow = c(1,1), oma = oma, mar = c(2,1,2,2)) plot.new() drawcolkey(colkey, col = col, clim = clim, clab = colorkey$clab, clog = clog, New = FALSE) par(mar = par("mar"), oma = oma) invisible(list(oma = arglist$oma)) } plot3D/R/colorlegend.R0000644000176200001440000003144412516646022014252 0ustar liggesusers ## ============================================================================= ## ============================================================================= ## Color key functions ## ============================================================================= ## ============================================================================= ## ============================================================================= ## Check if necessary to draw a color key ## ============================================================================= is.colkey <- function(colkey, col) { if (is.logical(colkey)) return(colkey) if (is.list(colkey)) return(TRUE) if (! is.null(colkey)) stop("'colkey' should be a list, a logical or NULL") iscolkey <- ispresent(col) if (iscolkey) { if (length(col) == 1) iscolkey <- FALSE else if (length(col) == 2 & col[1] == col[2]) iscolkey <- FALSE } return(iscolkey) } ## ============================================================================= ## function to extract default parameter values if not overruled ## ============================================================================= overrulepar <- function(main, subset) { nmsC <- names(main) main[(namc <- names(subset))] <- subset if (length(noNms <- namc[!namc %in% nmsC]) > 0) warning("unknown names in colkey parameter subset: ", paste(noNms, collapse = ", ")) return(main) } ## ============================================================================= ## color key parameter check ## ============================================================================= check.colkey <- function(colkeypar, add = FALSE) { if (!is.list(colkeypar)) colkeypar <- list() parameter <- list(side = 4, plot = TRUE, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, col.clab = NULL, cex.clab = par("cex.lab"), side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL, at = NULL, labels = TRUE, tick = TRUE, line = NA, pos = NA, outer = FALSE, font = NA, lty = 1, lwd = 1, lwd.ticks = 1, col.box = NULL, col.axis = NULL, col.ticks = NULL, hadj = NA, padj = NA, cex.axis = par("cex.axis"), mgp = NULL, tck = NULL, tcl = NULL, las = NULL) colkeypar$parleg <- colkeypar$parplt <- NULL colkey <- overrulepar(parameter, colkeypar) if (is.numeric(colkey$labels)) colkey$labels <- as.logical(colkey$labels) if (is.null(colkey$side)) colkey$side <- 4 # plt parameters of legend colkey <- key.parleg(colkey, add) return(colkey) } ## ============================================================================= key.parleg <- function(colkey, add) { # the plotting parameters dw <- 0.03*colkey$width rp <- colkey$shift parplt <- par("plt") if (colkey$side == 1) { if (! add) parplt <- par("plt") + c(0, 0, 0.145, 0) dd <- 0.145 + colkey$dist dp <- (parplt[2] - parplt[1]) * (1-colkey$length)/2 parleg <- c( parplt[1] + dp+rp, parplt[2] - dp+rp, parplt[3] - dd, parplt[3] - dd + dw) } else if (colkey$side == 2) { if (! add) parplt <- par("plt") + c(0.1, 0, 0, 0) dd <- 0.1 + colkey$dist dp <- (parplt[4] - parplt[3]) * (1-colkey$length)/2 parleg <- c( parplt[1] - dd, parplt[1] - dd + dw, parplt[3] + dp+rp, parplt[4] - dp+rp) } else if (colkey$side == 3) { if (! add) parplt <- par("plt") - c(0, 0, 0, 0.08) dd <- 0.02 + colkey$dist dp <- (parplt[2] - parplt[1]) * (1-colkey$length)/2 parleg <- c( parplt[1] + dp+rp, parplt[2] - dp+rp, parplt[4] + dd, parplt[4] + dd + dw) } else if (colkey$side == 4) { if (! add) parplt <- par("plt") - c(0, 0.08, 0, 0) dd <- 0.02 + colkey$dist dp <- (parplt[4] - parplt[3]) * (1-colkey$length)/2 parleg <- c(parplt[2] + dd, parplt[2] + dd + dw, parplt[3] + dp+rp, parplt[4] - dp+rp) } colkey$parleg <- check.plt(parleg) colkey$parplt <- check.plt(parplt) return(colkey) } ## ============================================================================= ## function to save the color key settings in the plotting list ## ============================================================================= plistcolkey <- function (plist, colkeypar, col, zlim, zlab = NULL, zlog = FALSE, New = TRUE, type = "scatter3D", breaks) { if (is.null(plist$colkey)) { plist$colkey <- list() plist$numkeys <- 1 } else plist$numkeys <- plist$numkeys + 1 if (! is.null(breaks)) colkeypar$breaks <- breaks plist$colkey[[plist$numkeys]] <- list(par = colkeypar, col = col, clim = zlim, clab = zlab, clog = zlog, New = New, type = type) plist } ## ============================================================================= ## functions to draw the color key ## ============================================================================= drawallcols <- function(plist) { for (colkey in plist$colkey) drawcolkey(colkey$par, colkey$col, colkey$clim, colkey$clab, colkey$clog, colkey$New) } ## ============================================================================= drawcolkey <- function (colkeypar, col, clim, clab = NULL, clog = FALSE, New = TRUE) { if (!colkeypar$plot) return() parleg <- check.plt(colkeypar$parleg) Plt <- par(plt = parleg) PP <- par() if (New) par(new = TRUE) usr <- par("usr") col.clab <- colkeypar$col.clab cex.clab <- colkeypar$cex.clab side.clab <- colkeypar$side.clab line.clab <- colkeypar$line.clab adj.clab <- colkeypar$adj.clab font.clab <- colkeypar$font.clab addlines <- colkeypar$addlines if (is.null(cex.clab)) cex.clab <- par("cex.lab") ix <- 1 minz <- min(clim) maxz <- max(clim) # the parameters for the axis axispar <- colkeypar nbins <- length(col) binwidth <- (maxz - minz)/nbins if (! is.null(axispar$breaks)) { nbreaks <- length(axispar$breaks) axispar$labels <- axispar$breaks minz <- 0.5 maxz <- nbreaks+0.5 clim <- c(minz, maxz) binwidth <- (maxz - minz)/nbins iyb <- seq(minz, maxz, by = binwidth) if (clog) iyb <- exp(iyb) } iy <- IY <- seq(minz + binwidth/2, maxz - binwidth/2, by = binwidth) if (clim[1] > clim[2]) col <- rev(col) if (clog) { iy <- exp(iy) if (colkeypar$side %in% c(2, 4)) { Log <- "y" } else { Log <- "x" } } else Log <- "" iz <- matrix(IY, nrow = 1, ncol = length(iy)) if (! is.numeric(cex.clab)) cex.clab <- 1. if (! is.null(axispar$breaks)) axispar$at <- iyb # remove arguments not in axis function axispar$side <- axispar$length <- axispar$width <- axispar$plot <- NULL axispar$parleg <- axispar$parplt <- axispar$dist <- NULL axispar$shift <-axispar$col.box <- axispar$breaks <- NULL axispar$col.clab <- axispar$cex.clab <- axispar$side.clab <- NULL axispar$line.clab <- axispar$adj.clab <- axispar$font.clab <- NULL axispar$addlines <- NULL if (colkeypar$side %in% c(2, 4)) { ylim <- clim if (Log == "y") ylim <- exp(ylim) image(ix, iy, iz, xaxt = "n", yaxt = "n", xlab = "", log = Log, ylab = "", col = col, main = "", ylim = ylim) if (addlines) abline(h = seq(mean(iy[1:2]), mean(iy[(nbins-1):nbins]), length.out = nbins-1)) do.call("axis", c(list(side = colkeypar$side, mgp = c(3, 1, 0), las = 2), axispar)) } else { xlim <- clim if (Log == "x") xlim <- exp(xlim) image(iy, ix, t(iz), xaxt = "n", yaxt = "n", xlab = "", log = Log, ylab = "", col = col, main = "", xlim = xlim) if (addlines) abline(v = seq(mean(iy[1:2]), mean(iy[(nbins-1):nbins]), length.out = nbins-1)) do.call("axis", c(list(side = colkeypar$side, mgp = c(3, 1, 0), las = 1), axispar)) } if (is.null(side.clab)) title(main = clab, cex.main = cex.clab, col.main = col.clab, line = line.clab, adj = adj.clab, font = font.clab) else if (side.clab == 1) title(xlab = clab, cex.lab = cex.clab, col.lab = col.clab, line = line.clab, adj = adj.clab, font.lab = font.clab) else if (side.clab == 2) title(ylab = clab, cex.lab = cex.clab, col.lab = col.clab, line = line.clab, adj = adj.clab, font.lab = font.clab) else if (side.clab == 3) title(main = clab, cex.main = cex.clab, col.main = col.clab, line = line.clab, adj = adj.clab, font = font.clab) else { if (is.null(adj.clab)) adj.clab <- NA if (is.null(line.clab)) line.clab <- 2 mtext(side = side.clab, text = clab, cex = cex.clab, col = col.clab, line = line.clab, adj = adj.clab, font = font.clab) } if (clog) { if (colkeypar$side %in% c(2, 4)) par (ylog = FALSE) else par (xlog = FALSE) } box(col = colkeypar$col.box) par(plt = Plt) par(usr = usr) par(xlog = PP$xlog) par(ylog = PP$ylog) if (New) par(new = FALSE) } ## ============================================================================= ## ============================================================================= ## R-function to draw a color key ## ============================================================================= ## ============================================================================= colkey <- function(col = NULL, clim, clab = NULL, clog = FALSE, add = FALSE, cex.clab = NULL, col.clab = NULL, side.clab = NULL, line.clab = NULL, adj.clab = NULL, font.clab = NULL, side = 4, length = 1, width = 1, dist = 0, shift = 0, addlines = FALSE, breaks = NULL, at = NULL, labels = TRUE, tick = TRUE, line = NA, pos = NA, outer = FALSE, font = NA, lty = 1, lwd = 1, lwd.ticks = 1, col.axis = NULL, col.ticks = NULL, col.box = NULL, hadj = NA, padj = NA, cex.axis = par("cex.axis"), mgp = NULL, tck = NULL, tcl = NULL, las = NULL) { if (is.null(col)) if (is.null(breaks)) col <- jet.col(100) else col <- jet.col(length(breaks) - 1) breaks <- check.breaks(breaks, col) if (! is.null(breaks)) clim <- range(breaks) colkey <- list(side = side, plot = TRUE, length = length, width = width, dist = dist, shift = shift, addlines = addlines, cex.clab = cex.clab, col.clab = col.clab, side.clab = side.clab, line.clab = line.clab, adj.clab = adj.clab, font.clab = font.clab, breaks = breaks, at = at, labels = labels, tick = tick, line = line, pos = pos, outer = outer, font = font, lty = lty, lwd = lwd, lwd.ticks = lwd.ticks, col.box = col.box, col.axis = col.axis, col.ticks = col.ticks, hadj = hadj, padj = padj, cex.axis = cex.axis, mgp = mgp, tck = tck, tcl = tcl, las =las) if (is.numeric(colkey$labels)) colkey$labels <- as.logical(colkey$labels) if (is.null(colkey$side)) colkey$side <- 4 dw <- 0.03*colkey$width parplt <- par("plt") if (! add & colkey$side %in% c(1, 3)) { py <- 0.5*(parplt[3] + parplt[4]) dp <- (parplt[2] - parplt[1]) * (1-colkey$length)/2 colkey$parleg <- c( parplt[1]+dp, parplt[2]-dp, py - dw/2, py+dw/2) } else if (! add & colkey$side %in% c(2, 4)) { px <- 0.5*(parplt[1] + parplt[2]) dp <- (parplt[4] - parplt[3])*(1-colkey$length)/2 colkey$parleg <- c( px - dw/2, px +dw/2, parplt[3]+dp, parplt[4]-dp) } else colkey <- key.parleg(colkey, add = TRUE) colkey$parplt <- parplt if (clog) clim <- log(clim) drawcolkey (colkey, col, clim = clim, clab = clab, clog = clog, New = add) par(mar = par("mar")) # to prevent R from setting defaultplot = false } ## ============================================================================= ## checks the validity of the plotting arguments "plt" ## ============================================================================= check.plt <- function(plt) { if (!(plt[1] < plt[2] & plt[3] < plt[4])) stop("figure margins too large") eps <- 1e-10 if (!(plt[1] > -eps & plt[2] < 1+eps & plt[3] > -eps & plt[4] < 1+eps)) stop("plot region too large") return(plt) } plot3D/R/scatter3D.R0000644000176200001440000002347112516630155013612 0ustar liggesuserslines3D <- function(x, y, z, ...) { dot <- list(...) if (is.null(dot$type)) dot$type <- "l" plist <- do.call("scatter3D", c(alist(x, y, z), dot)) invisible(plist) } points3D <- function(x, y, z, ...) { dot <- list(...) if (is.null(dot$type)) dot$type <- "p" plist <- do.call("scatter3D", c(alist(x, y, z), dot)) invisible(plist) } ## ============================================================================= ## scatterplot in 3D ## ============================================================================= scatter3D <- function(x, y, z, ..., colvar = z, phi = 40, theta = 40, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, panel.first = NULL, clim = NULL, clab = NULL, bty = "b", CI = NULL, surf = NULL, add = FALSE, plot = TRUE) { plist <- initplist(add) dot <- splitdotpersp(list(...), bty, NULL, x, y, z, plist = plist, breaks = breaks) x <- as.vector(x) y <- as.vector(y) z <- as.vector(z) len <- length(x) if (length(y) != len) stop("'y' should have same length as 'x'") if (length(z) != len) stop("'z' should have same length as 'x'") if (len > 1 & ispresent(colvar)) { if (length(colvar) != len) stop("'colvar' should have same length as 'x', 'y' and 'z'") colvar <- as.vector(colvar) if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (dot$clog) { colvar <- log(colvar) clim <- log(clim) } if (is.null(col)) if (is.null(breaks)) col <- jet.col(100) else col <- jet.col(length(breaks)-1) iscolkey <- is.colkey(colkey, col) if (iscolkey) colkey <- check.colkey(colkey) if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) if (length(Col) == 1) Col <- rep(Col, length.out = len) } else { if (is.null(col)) col <- "black" if (! is.null(dot$alpha)) col <- setalpha(col, dot$alpha) Col <- rep(col, length.out = len) iscolkey <- FALSE } if (is.null(plist)) { do.call("perspbox", c(alist(x = range(x), y = range(y), z = range(z, na.rm = TRUE), phi = phi, theta = theta, plot = plot, colkey = colkey, col = col), dot$persp)) plist <- getplist() } breaks <- check.breaks(breaks, col) # droplines with a fitted surface fit <- NULL if (! is.null(surf)) { if (! is.list(surf)) stop("'surf' should be a 'list' or 'NULL'") fit <- surf$fit surf$fit <- NULL } if (! is.null(fit)){ if (! is.null(CI)) { if (! is.null(CI$z)) stop("cannot combine a confidence interval (CI) on 'z' with 'fit' in 'surf'") } else CI <- list() if (length(fit) != length(z)) stop("'fit', argument of 'surf' should be of equal size of 'z'") disttoz <- fit - z CIz <- matrix(ncol = 2, data = c(-disttoz, disttoz)) CIz[CIz > 0] <- 0 CI$z = CIz CI$alen = 0 } # confidence intervals isCI <- is.list(CI) if (isCI) CI <- check.CI(CI, len, 3) if (is.null(CI) & any (Col == "transparent")){ ii <- Col != "transparent" x <- x[ii] y <- y[ii] z <- z[ii] Col <- Col[ii] len <- length(x) } if (is.function(panel.first)) panel.first(plist$mat) if (! is.null(surf)) { if (is.null(surf$colvar)) surf$colvar <- surf$z if (is.null(surf$breaks)) surf$breaks <- breaks if (is.null(surf[["col"]])) { surf$col <- col if (is.null(surf$clim)) surf$clim <- clim } if (is.null(surf$clim)) surf$clim <- range(surf$colvar) surf$colvar[surf$colvar < min(surf$clim)] <- NA surf$colvar[surf$colvar > max(surf$clim)] <- NA surf$z[surf$z < dot$persp$zlim[1]] <- NA surf$z[surf$z > dot$persp$zlim[2]] <- NA spoly <- do.call("addimg", c(alist(poly = NULL, plist = plist), surf)) } else spoly <- NULL sseg <- NULL # segments dtype <- dot$points$type dot$points$type <- NULL lwd <- dot$points$lwd ; if (is.null(lwd)) lwd <- 1 lty <- dot$points$lty ; if (is.null(lty)) lty <- 1 alpha <- dot$alpha; if (is.null(alpha)) alpha <- NA alpha <- rep(alpha, length.out = len) if (is.null(dtype)) dtype <- "p" # droplines if (dtype == "h") { zmin <- dot$persp$zlim[1] Proj <- project(x, y, 0.5 *(z + zmin), plist, FALSE) sseg <- list(x.from = x, x.to = x, y.from = y, y.to = y, z.from = rep(zmin, len), z.to = z, col = Col, lwd = rep(lwd , length.out = len), lty = rep(lty , length.out = len), alpha = alpha, proj = Proj) class(sseg) <- "segments" # segments between points } else if (dtype %in% c("b", "l", "o")) { # segment color = mean of point colors LCol <- Col if (length(LCol) > 1) { LCol <- cbind(Col[-1], Col[-len]) LCol <- apply(LCol, MARGIN = 1, FUN = MeanColors) if (! is.null(dot$alpha)) LCol <- setalpha(LCol, dot$alpha) } Proj <- project(0.5*(x[-len]+x[-1]), 0.5*(y[-len]+y[-1]), 0.5*(z[-len]+z[-1]), plist) sseg <- list(x.from = c(sseg$x.from, x[-len]), x.to = c(sseg$x.to, x[-1]), y.from = c(sseg$y.from, y[-len]), y.to = c(sseg$y.to, y[-1]), z.from = c(sseg$z.from, z[-len]), z.to = c(sseg$z.to, z[-1]), col = c(sseg$col, LCol), lwd = c(sseg$lwd, rep(lwd , length.out = len-1)), lty = c(sseg$lty, rep(lty , length.out = len-1)), alpha = c(sseg$alpha, alpha), proj = c(sseg$proj, Proj)) class(sseg) <- "segments" } pch <- dot$points$pch if (is.null(pch)) pch <- 1 bg <- dot$points$bg if (is.null(bg)) bg <- 1 cex <- dot$points$cex if (is.null(cex)) cex <- 1 if (dtype == "l") dopoints <- FALSE else dopoints <- TRUE CIpt <- NULL pt <- NULL if (! is.null(CI)) { # points and confidence intervals CIpt <- list(x.from = NULL, y.from = NULL, z.from = NULL, x.to = NULL, y.to = NULL, z.to = NULL, x.mid = x, y.mid = y, z.mid = z, col = Col, pch = rep(pch, length.out = len), cex = rep(cex, length.out = len), bg = rep(bg, length.out = len), alpha = alpha ) class(CIpt) <- "CIpt" CIpt$CIpar <- CI #[c("lty", "lwd", "col")] # length of arrow head CIpt$CIpar$alen <- rep(mean(par("fin")) * CI$alen, len) if (is.null(CIpt$CIpar$col)) CIpt$CIpar$col <- Col if (is.null(CIpt$CIpar$lwd)) CIpt$CIpar$lwd <- 1 if (is.null(CIpt$CIpar$lty)) CIpt$CIpar$lty <- 1 # define par settings for all points CIpt$CIpar <- setdots(CIpt$CIpar, len) addCI <- function(x.from, y.from, z.from, x.to, y.to, z.to, tr) { tr$x.from <- cbind(tr$x.from, x.from) tr$y.from <- cbind(tr$y.from, y.from) tr$z.from <- cbind(tr$z.from, z.from) tr$x.to <- cbind(tr$x.to, x.to) tr$y.to <- cbind(tr$y.to, y.to) tr$z.to <- cbind(tr$z.to, z.to) tr } if (! is.null(CI$x)) # CI in x direction CIpt <- addCI(x - CI$x[ ,1], y, z, x + CI$x[ ,2], y, z, CIpt) if (! is.null(CI$y)) CIpt <- addCI(x, y - CI$y[ ,1], z, x, y + CI$y[ ,2], z, CIpt) if (! is.null(CI$z)) CIpt <- addCI(x, y, z - CI$z[ ,1], x, y, z + CI$z[ ,2], CIpt) # upscale to 3 columns each nCI <- ncol(CIpt$x.from) CIpt$nCI <- rep(nCI, len) if (nCI < 3) { n0 <- matrix(nrow = len, ncol = 3 - nCI, data = NA) CIpt$x.from <- cbind(CIpt$x.from, n0) CIpt$y.from <- cbind(CIpt$y.from, n0) CIpt$z.from <- cbind(CIpt$z.from, n0) CIpt$x.to <- cbind(CIpt$x.to, n0) CIpt$y.to <- cbind(CIpt$y.to, n0) CIpt$z.to <- cbind(CIpt$z.to, n0) } CIpt$dopoints <- TRUE } else if (dopoints) { # points - remove NAs ii <- which(!is.na(x) & !is.na(y) & !is.na(z)) pt <- list(x.mid = x[ii], y.mid = y[ii], z.mid = z[ii], col = Col[ii], pch = rep(pch, length.out = length(ii)), lwd = rep(lwd, length.out = length(ii)), cex = rep(cex, length.out = length(ii)), bg = rep(bg, length.out = length(ii)), alpha = alpha ) class(pt) <- "pt" } Proj <- project(x, y, z, plist) if (! is.null(CI)) CIpt$proj <- Proj else if (! is.null(pt)) pt$proj <- Proj if (iscolkey) plist <- plistcolkey(plist, colkey, col, clim, clab, dot$clog, type = "scatter3D", breaks = breaks) # plot it plist <- plot.struct.3D(plist, pt = pt, CIpt = CIpt, poly = spoly, segm = sseg, plot = plot) setplist(plist) invisible(plist$mat) } # Note: check.CI is in file scatter.R plot3D/R/scatter.R0000644000176200001440000001506612602434033013415 0ustar liggesuserslines2D <- function(x, y, ...) { dot <- list(...) if (is.null(dot$type)) dot$type <- "l" do.call("scatter2D", c(alist(x, y), dot)) } points2D <- function(x, y, ...) { dot <- list(...) if (is.null(dot$type)) dot$type <- "p" do.call("scatter2D", c(alist(x, y), dot)) } ## ============================================================================= ## Scatterplots (2-D) ## ============================================================================= scatter2D <- function(x, y, ..., colvar = NULL, col = NULL, NAcol = "white", breaks = NULL, colkey = NULL, clim = NULL, clab = NULL, CI = NULL, add = FALSE, plot = TRUE) { plist <- initplist(add) plist <- add2Dplist(plist, "scatter", x = x, y = y, colvar = colvar, col = col, NAcol = NAcol, breaks = breaks, colkey = colkey, clim = clim, clab = clab, CI = CI, ...) setplist(plist) if (!plot) return() dots <- splitpardots(list(...)) isCI <- is.list(CI) if (isCI) CI <- check.CI(CI, length(x), 2) if (is.null(col) & is.null(breaks)) col <- jet.col(100) else if (is.null(col)) col <- jet.col(length(breaks)-1) breaks <- check.breaks(breaks, col) if (! is.null(colvar)) { if (dots$clog) { colvar <- log(colvar) if (! is.null(clim)) clim <- log(clim) } iscolkey <- is.colkey(colkey, col) if (iscolkey) { colkey <- check.colkey(colkey) if (! add) plist$plt$main <- colkey$parplt setplist(plist) colkey$breaks <- breaks } if (length(colvar) != length(x)) stop ("length of 'colvar' should be equal to length of 'x' and 'y'") if (is.null(clim)) clim <- range(colvar, na.rm = TRUE) if (! is.null(dots$alpha)) col <- setalpha(col, dots$alpha) Col <- variablecol(colvar, col, NAcol, clim, breaks) } else { # no colvar Col <- col if (is.null(Col)) Col <- "black" if (! is.null(dots$alpha)) Col <- setalpha(Col, dots$alpha) iscolkey <- FALSE } useSegments <- FALSE par (plt = plist$plt$main) if (! is.null(dots$points$type)) if (dots$points$type %in% c("b", "l", "o")) if (length(Col) > 1 ) useSegments <- TRUE if (useSegments) { Type <- dots$points$type len <- length(x) if (Type %in% c("b", "o")) # no distinction is made.. dots$points$type <- "p" else dots$points$type <- "n" # mean of point colors for line colors LCol <- cbind(Col[-1], Col[-len]) LCol <- apply(LCol, MARGIN = 1, FUN = MeanColors) if (! is.null(dots$alpha)) LCol <- setalpha(LCol, dots$alpha) if (! add) dots$main <- start2Dplot(dots$main, x, y) add <- TRUE if (isCI) { plot.CI.2d(CI, x, y, Col) isCI <- FALSE } do.call("points", c(alist(x, y, col = Col), dots$points)) dots$points$type <- NULL do.call("segments", c(alist(x[-len], y[-len], x[-1], y[-1], col = LCol), dots$points)) } else if (! add) { dots$main <- start2Dplot(dots$main, x, y) if (isCI) { plot.CI.2d(CI, x, y, Col) isCI <- FALSE } do.call("points", c(alist(x, y, col = Col), dots$points)) } else { if (isCI) { plot.CI.2d(CI, x, y, Col) isCI <- FALSE } do.call("points", c(alist(x, y, col = Col), dots$points)) } if (iscolkey) { drawcolkey(colkey, col, clim, clab, dots$clog) par(plt = plist$plt$ori) } par(mar = par("mar")) } ## ============================================================================= ## Confidence interval check for scatters (2D and 3D) ## ============================================================================= check.CI <- function(CI, len, dim) { if (dim == 2 & !is.null(CI$z)) stop("'CI' should not contain confidence intervals in the 'z' direction for 2-D plot") if (dim == 2 & is.null(CI$x) & is.null(CI$y)) stop("'CI' should contain confidence intervals the 'x' and/or 'y' direction") if (dim == 3 & (is.null(CI$x) & is.null(CI$y) & is.null(CI$z))) stop("'CI' should contain confidence intervals in 'x', 'y', or 'z' direction") if (!is.null(CI$x)) { if (! is.matrix(CI$x)) stop("'CI$x' should be a matrix") if (ncol(CI$x) != 2) stop("'CI$x' should be a matrix with two columns, with lower and upper value") if (nrow(CI$x) != len) stop("number of rows of matrix 'CI$x' should be equal to number of points") } if (!is.null(CI$y)) { if (! is.matrix(CI$y)) stop("'CI$y' should be a matrix") if (ncol(CI$y) != 2) stop("'CI$y' should be a matrix with two columns, with lower and upper value") if (nrow(CI$y) != len) stop("number of rows of matrix 'CI$y' should be equal to number of points") } if (!is.null(CI$z)) { if (! is.matrix(CI$z)) stop("'CI$z' should be a matrix") if (ncol(CI$z) != 2) stop("'CI$z' should be a matrix with two columns, with lower and upper value") if (nrow(CI$z) != len) stop("number of rows of matrix 'CI$z' should be equal to number of points") } parameter <- list(alen = 0.01, lty = par("lty"), lwd = par("lwd"), col = NULL) CIpar <- CI CIpar$x <- CIpar$y <- CIpar$z <- NULL CIpar <- overrulepar(parameter, CIpar) CIpar$x <- CI$x CIpar$y <- CI$y CIpar$z <- CI$z CIpar } ## ============================================================================= ## CI in 2-d ## ============================================================================= plot.CI.2d <- function(CI, x, y, Col) { # very-very simple CIpar <- CI[c("lty", "lwd", "col")] if (is.null(CIpar$col)) CIpar$col <- Col if (! is.null(CI$x)) { # CI in x direction len <- par("fin")[1] * CI$alen do.call("arrows", c(alist(x, y, x-CI$x[, 1], y, angle = 90, length = len), CIpar)) do.call("arrows", c(alist(x, y, x+CI$x[, 2], y, angle = 90, length = len), CIpar)) } if (! is.null(CI$y)) { len <- par("fin")[2] * CI$alen do.call("arrows", c(alist(x, y, x, y-CI$y[, 1], angle = 90, length = len), CIpar)) do.call("arrows", c(alist(x, y, x, y+CI$y[, 2], angle = 90, length = len), CIpar)) } } plot3D/MD50000644000176200001440000000602514052217320011726 0ustar liggesusers8324b4d29c20513238d241e2062b23d6 *DESCRIPTION da1e01dbdca869888421b35a34ad35c8 *NAMESPACE 0a80a44e0f2528ebde34c6d9cd1f87b0 *R/Contour.R fe9eedbf8a372f99ad0ba76a5683b31a *R/Image.R f80617020bb2fe60b394e072bd8bad33 *R/ImageOcean.R e019961c83da53f12d0f0e77ea0b3dc8 *R/aaa.R 1609e15637e70f852f05f8d4e783151c *R/arrows3D.R 9db80a7267996fe80e0c686e92f8deb5 *R/box3D.R 23d04968cde3c0e51b1fd157b74568bd *R/colorlegend.R 5058e2c042e2b87ca92caad9bcefb9fd *R/colors.R cf821f2b5b6f3dd735c1a8bdbd2e7c31 *R/contour3D.R d868a80f8cc0d470bf6d7cf385f00424 *R/functions.R dd51d8d858984cdb55ad8a6f18cb9d8a *R/hist3D.R c3096b2b411bb9893455c5e47fa15754 *R/image3D.R 0ae7db26f4a255144c70ab5c200ebd9d *R/isosurf3D.R a1eb4dfc8e6b4a6b5358150dec4bb7eb *R/isosurface.R 81352d6646ca3ca25e62153821bcba68 *R/legendplot.R 04a3b33ad4fa38316d86bba0f7c250ed *R/mesh.R cbee792bc4a94cb459e8b812eb785aa2 *R/paintit.R 5cd97864cc07a5f55ecf04e734e7b678 *R/persp3D.R 985523238b7098d6c04e15fc8bcee0ee *R/persp3Db.R d0864d4e6b5e9070bd76471e0e73aa22 *R/perspbox.R 3929edff71e9e35417386c0c808777d9 *R/plot.struct.R 641122ac3447f9dd7b867aaf1d26baf0 *R/plot2D.R 6f3733892863c04293336178a328cae6 *R/poly3D.R 6a642725df6922e58f247037e4c90312 *R/polygon3D.R c1c646ebe1d9e6aca71d5d0794dd2333 *R/ribbon3D.R e6fd552fcc3e5ab1011b90e0cd754b5e *R/scatter.R 5a7e972a09133649e8058f1b5d934ef9 *R/scatter3D.R 07adfdde39e9d269b71001918de6ab16 *R/segments3D.R 20d24fdf31c66880086a475e4d92f673 *R/shade.R 71ab957dd72672fbe27285e5d02692d2 *R/slice3D.R 68c58ae1aee9dc7d2d39e4ad69b1d69d *R/slicecont3D.R a2e0dec9476132b7bd6d8a354c59afbf *R/sphere.R 9445f839f15dba7508b4dbd3e5519610 *R/surf3D.R e2d77258cec95d9bdc1e228cfa42c4e3 *R/text3D.R 2263e46b1476561ac00e4008c6f5efd6 *R/voxel3D.R e74c4e9f5bc3f4ce3dd131358f06880d *data/Hypsometry.rda 24350ff23500aa1acd0b67fd1fcbe432 *data/Oxsat.rda 8991c3e6b7a55d7befc709f0a1a7f126 *inst/doc/plot3D.pdf 2acc349279e6fc0513a7768085db90c5 *inst/doc/volcano.pdf 475bd457396ebaee37f6440d580c95de *man/Image.Rd a72fe34a4255ce174ecc3ced3b80854e *man/ImageOcean.Rd 24ece144edfe5deb5fe4a59ac7848dde *man/Oxsat.Rd 3cf4ea72ce21d6ec8d040ac2285a9419 *man/arrows3D.Rd fead9d80c3b4e455deb01c37b9ddcd95 *man/colorkey.Rd b5d149f18a9931b548d48ca10d982605 *man/colors.Rd 4a6b82ffa42dc43b67991ab1f41ce271 *man/contour3D.Rd 6671c7516233535dd5e81d54fc7dc4f9 *man/image3D.Rd d5bd2ca8b51feee254eccc24888424a3 *man/legendplot.Rd c45a9ba10d1cd3c1390b79cb99a51222 *man/mesh.Rd e2cb4798e450df8b75d4d17b767cbeb4 *man/persp3D.Rd d25f5211ac3d9198881257fc66766b79 *man/perspbox.Rd 33e9c1f1aeae3c5c2ed0857fb242c03c *man/plot3D.Rd 21103021fc607f1dc263216b00d2ed00 *man/plotdev.Rd f70d3bc2eba2e68e8af8377254b02e4c *man/scatter.Rd 2b218dcfb76bbe1953b73e3d71d9ae35 *man/slice3D.Rd 51aad1d83735084de8106b0b25780bbc *man/surf3D.Rd 367f43a219a424a297e55f6b1a8ec1ca *man/trans3D.Rd 8991c3e6b7a55d7befc709f0a1a7f126 *vignettes/plot3D.pdf 9a99181530ac142a4bceb4aac7a85271 *vignettes/plot3D.rnw 3d5294a453c8adf7d54a91043828ea33 *vignettes/vignettes.bib 2acc349279e6fc0513a7768085db90c5 *vignettes/volcano.pdf 6516059ac55cf55f6cfb073eae96eebb *vignettes/volcano.rnw plot3D/inst/0000755000176200001440000000000013162157040012373 5ustar liggesusersplot3D/inst/doc/0000755000176200001440000000000013162157040013140 5ustar liggesusersplot3D/inst/doc/volcano.pdf0000644000176200001440000140236014051144675015312 0ustar liggesusers%PDF-1.5 % 1 0 obj << /Type /ObjStm /Length 3089 /Filter /FlateDecode /N 52 /First 397 >> stream xiw{Ŧ.X)QeHIl D$, @Pc6Mۗ>J!Hd&VߋHv;338aD'E :Dh18"Mln86#|5@4nfthDsM-h&‚qpus1<5b8'e1ub8!qtx2l#poAkZ"l$:VJ4"̈lj har]@k Z-brML\7mA 04bY,xСlb:p/e XIlBpc1bk uj:(Spb Љm Wn%nM\X1lMЇݤ^vEޗ&ܤ'%oGMr玜bL-1>I5=7 pM<25[k \cHWEEZ+=]Ȗ(nt9u7}췣s>V!@5ƶGn eЊ:I q Aܫ'd il󁟜#C4b4 f&Fu.'`T0ll qԍ%9l E) [u,SMpu>)WO]Ta@&&̌˜Ɣ`2g(چV|@f2u:B>sB5m<[ի^3M+>6hr1)y #m69<},H% ,%{%1G? !0F%`ܩeY^le h9Stt. uI]C6GԧP?8VJEKt4CF4O ivC/&4iŞGv!= R!̷&f f2ϑc 烶cn7Uw3E3t؄ _ :xJ#@ 7ÜӋZ,`t ڸo=o~L3F?\e}JK{ HSW2;D,XMD 4TV8f0KgJWc@?f˥ hoCAjļb#mO)&}act%bc-xbw9/n1wYؘ_zxsy}}b .mԷd>  >J;2_COlnnݓ>"1#zIp50ꗍv{z]}>n:ݽ/p"=(;ԃ%QmӚܛy y3$Aj؄=?Xޥo`NJ{ۯa^\š\<^<2䍦n::} i,ތY-]&Om]A^Nټ۱A*F*ZU9\閾 vX:-+/ ϋy{ҭmW+9ryzqNi9X<;%: \" 쬤4l„F=1^׉ RyHbJ2M!l$Yw.HX4R7 5jB@*)S P[?-M D6H$2_ 8-ԷT:9~[V/p3V/F+s\݇1l,[_[.1L6cvԽ ᠈cl*f/g@++WWImj>7ʯ2$kS\(ν}ݺyþUpnwͻ=43%czޘ3f5h/R/f7J*՛Vo-o/w݇[޸W޼9G3G3խRu{vf6V[zA_omr,o]k?*~ܫ4j3\oE݃xylIvtm=>8~rp$>:>|}LJ}|'5Ͳrܓ>wKFCW@SBi񇬡(EXkh`pL@Z)d9b"s@LDL@vrg{0h!NY1G,DLD<,tEZ%!z9#rp׍#Gc|~҇_@_"Ծz|FN[]Nn~:RmVΩ=/+W!ϨoL G5~OTwBuߨk?I.=6rO}{^Nk=9P7zoKIwc%KKR\JЍbvk$EJKB~Ѕ(n7ۃߨ/*\Q7pCU-tto| ITURPRp/ Sܶ !o`:DX Ĥ5脊NB*)I2`*0H N1{2YV |@Gx"`_}B~2endstream endobj 54 0 obj << /Subtype /XML /Type /Metadata /Length 1654 >> stream GPL Ghostscript 9.50 volcano, 3D plots, 2D plots, R 2021-05-19T10:18:04+02:00 2021-05-19T10:18:04+02:00 LaTeX with hyperref package Fifty ways to draw a volcano using package plot3DKarline Soetaert endstream endobj 55 0 obj << /Type /ObjStm /Length 2886 /Filter /FlateDecode /N 52 /First 413 >> stream xYU}+(V>n $cdDǘAqkIwg2#ߒUDVQ!KP\\f qVDpsNUuW?ƌ~uֽsխ  L*ϔ P,BwY wASø \ q3 ,agBB@0a4D+(&}@3)d!p,!K03%8gz Wp><mh [t0p 6`\|ϥ̂` GFB'#`R4gH&Е;9 PHm0۷y]e4ϼG΀S>#4ߺl%w=#:u\Lyq|rk:vϑhuYJYn;=lpDa / Ҹ:5ypTݕaDNb+-6V֘coCjK2#]kq|WF;@ FT-Isi#:[Cmç *Uzu!O G;{pXu8,3,8;qpLDW7F0CGvaDɁkX+8́`5n\GπrOVz:=3sFQfhhT?n&Ѧh;uVzmc ,~R0N߫knA6XZi!d? BRE&D $7vǛ"/umFːƒ6K`KţF+kxp5tk sn@1 [sQuVkKOᱨ:yvȮƣѨ ˨KNo1]h=|o¾lpBL)U^`M!D!M~p!?Ė&y8Gj(XˣQREK=-{+k+5굼 hEysEY<*;|Yf$hB=O^x܃X=tg]rOUa~kFkȾa!3x0u1 01g>pzWp=6wK_'gou_pI}Gr'Ww՘Sgz ' ǽyXl(BSSVmX2('AkWN;\e<8 tF aOA% fJVD)BC2;j&EH}zh#%DJdP'r ܷ`a6{Z8^t\4t=2N5; in^pa-Zo$nL@sѲ~@*/pV *JQ _V*ῥ`B~)HI]%ܛ Aㄋ aJbLRD2^%| $GDY+_bζӡVEZ׀VAVTS*wqǝwy7݃{wjjs.Rkm?$%{?333k>z܉'N/ϟ>}zqq̙3O/--=cqirHϩl4.Es5vpB[__|j|O< RWVdq@3(׊|/S¯P/[(d bH;@Y+VLO=<̳>{/?/K/odޭ|+_}_ʕ+_z7x3[oy{\\v>GU~Gw'4vvg;U~7>1=??գ/⫯:|onV7o~քj)(S =BKx8"aBJxA)pU PqyW* (ȷTC[-Ꮔ 'ÖV .oeSTm񷟑]l /˭1r}~OF  #N McI &44@$w11' ,aGYdFhpűRXLV) SD# M ʁ @9 %"!"bc!&1%)rdUFZ2_%:|4Zs9.@kHК$2B4%Xe?8Q"V, QA+-T0㡌w'OB p!xD!Y:lT1'K_؇cZ Aі:`QAVa?e1ه#_)2O>&Lʣ"qqKyD"ײLi1چo> stream xY[o[~8p_ tyHHjh(,ZH3trzg|)ihݣ2(iA.^ViuphFC~sh9G 5<_C0vdu)E*0AMNcjB,2 `kz:##;M Lrk<#1?Jy"~zV­nn뚱mv+N}br1.I@(mS cy#]ĈF֞? VyyPzsNzN,l`,F^9':@NiPm!Ogbu~KM-wae0T#/B7U Ա٣"ѯr^q`B3{<F=A"x-ClPv|SpJ믚!J0AMhL1Sxqv-/2#ƕ Cq\m\փ8?0>`~zB*4OOK9Oaۉ#b'%[a.dT|P)8qj9&bäAd2u!1[D5CC=Y !9`sL-c=ֲeZdbҀ"4NdD0X/P<A Cëk`CD !Lo'~2 m 1D~}EWE\>l{ظ*SeBNs{Y:M7۫`wO0D7]أI)$l1bOxSU-5$?=k*lWxUċʥ ΎŋŨE3e/k~_.B+&e35J`eFBm3cmk1yӷ"Lp@BB}eSIK@5=6-D,)0^.{"7kޖ܍ Lht\Ǒ8;m=]@f[&m ]$Ƃ4[h;X({w&e+~ueySE-eWmúGEz+xWcѶ s5Vu]y@Lu ]5"f o9VE?& Wپ;y̶j iV- _i_{uKTcD lw}wC^5UN?)W,I.5-}J( C瑞c^rEhhZ?D X.="|ɥrI^m& z5+]u(8\8*ߧ؂~UċP{QxU"E|$XM1/-9Оc'j7jU~֤Ijn~&GeY}xc1Yj,FM7@8v*콬Ż7?)9W8?T'uZâHՌaoxVes挱i9;oAYa/eևendstream endobj 109 0 obj << /Filter /FlateDecode /Length 791 >> stream xMO1+VsmzZTzIMPz 3i!hPZ'wgعh?w>R6g"n2W¶#< <[*sU)˝u\mQ!Bbad+m k!>ʺ86h;$AtQkPpm*JVy-U*O45W1"^&nf|lC BJiRf~*+2Ph)/,ØEkqrlvʀ'H<^Vi.Diph ˀ6+׾s pO\qRs0_e{Hf{8SxMb4A(т/`pv7+3+$%Ic; ;H iaHl Y1 TUljvNH/{!KZfqvEf.d;{2Ge*uF476)dC@.ֶ N<۷.d8Sw{=Ccz7Ksi ^ 8j`d*A}1 אYEӌ}. 4zFFw+/t2y.ݥ\"u);D7> pw=?,>EJ-9+A}[ \endstream endobj 110 0 obj << /Filter /FlateDecode /Length 867 >> stream xW=s@+4NLtGAA( VIffh\iݞ\ߓ[eٺR&u):/s>H- -I3$,f#\NvypA~;s3n^6Oby0j8BKvD5wdײ.Ϟ"|wyy:uR\LAo663ήP.o;Vo 4 "l cs rY,KS}i/]ܓ4Se_i+,[75{zՠC@[^ Ab%65\bt-ѥrbU9ϱnI 7&IY-oNl‚RkF5!ϊ.M;Q7 ipQo۾g)_!|I%4t9& ٜ#ϧڎe)z>*'endstream endobj 111 0 obj << /Filter /FlateDecode /Length 829 >> stream xXMo1XE]@^Z%I$M-Yoq! T+̎=fuJFyɚ?-- V?-_C7ehRAՖz޴8!o*[A&UͨkrXeN@ōО ZJ /ZXʸsFwR捐 kgRdb0xtm^AVH VMLʈ)^RSgLyBtWXBZ%Mr 5쬂'qHCY,q x٨rnZD O~_>RsJr*M yh l{=0mQFQkoP2L,mh(5\E "> stream xUMOA Xq|H*m/CBHE$Az&< $$JT{c߳WyPzD=*x^& "ʺ;6Ge[ϣu7s U+v޴ed^tF6iZ5bxѴs!L cֱ5xVl8lưe! 0?>AzͽPDwRt? kTri!`Ч}}t~'Kս6)bm+N^J"~Xۘ}`6!CL!d\TDEuw?"J"-QB1")? &cWqHf. HghExJ(!9&Em[4NRMGҾWfsiBۻE^lJb(;t8DUtIb;LH6+8ܯ/> stream xX TS־1$SB[op-VQ(*(A@&eFfd!:v^VVݗ.oz_',s};2ƪ#XE^3^!"_'nwHfТGuj-×q f2Yx%|W|DP@`3qA}|C}AQoFE;}zll4ioM??"5<,PN+:?-?"ai Z<&geov?k<l6㵙^y 3Y͌aܙfL`1 $Ɠb1S Y,a\2f93Yb^gV1n33 c^bxf83c왗Wd4<ܯ3jbBl`_pVXo0i@\́]akrPcb=~lizI+jm,{퍄eiINvЅk# \Zp>:)16!8Cn&%⤘VA;:%w9rTA fQ[Q&I- Ad~B~P~*򩫚3|Mt+8s)r@,>ByʌuA?p"^(✛~3 hTƦ[p{|zu}jq "WI]4go& <,98[q[={07L/$j@Gd̙yp$Hpo9AתGBf>gp1RMy*j}*?CJnsl@Pū=0<IAI.a:Ⱦ!qc-d,z(ގZnMŽٵׄ3>аqޑ sƽ[ߙvv9Z>ܴ9s0_aa4pX%Z/4=G+2@7|Z5Z<"Vj:zm}呞p?$!y:.'Y=T?)"<P(tKhPݽaX\3gȪ (4k8};t܂t@H~qFxiѤخEsxsl썺fMK,,i5zƎ0X-G`8gHA|iA kcsRaBn~AK}qYvWj5, Y>M՚=łX}rj;K^#3rWvF ]JS!Ԛ!I**#TMcG۽V\ [K® 0"U }i&)s)4a16~6~rӯџyYm 5jb]{hV$>5/.5~%ʃ*V^ }6eitYqb1WYt"kDLHIhfh0@ ehڸ9SPz W>jecE)E-ae3DWuKuՕ5]Υ-x%S&}D忶]rB~x6ڢ6hƷD腻|hدʧãt }P 'wW'Bf^ڽby7WΫ Gsڪ[Z(&g#g{Qԇ)ݓT1Tbo x|Qؠ i{ h@b'"'0nUQ@kbY-|Kqby(wov+* ,5}ʪM>jߘE#{kIHoGjO\| mluSBd[?\p׿^Q"xׯnuAJ;œRʱcp]pݲ\goO=P3bp%(WTYiqU) 2cedG(P;f rOF&nBΨxKgNhMݽ?etveqzM^1$&Vܰ3k1ӮIlB9<-~HA#v}c%1[t@?.5]C\~7qU)n}9xZgPu/,fdgfS +xf3)pVV@dWAiXϥBUzG4 ʠOV RsrsSIu6wѷͮM fҼkUZ!:ȠRܔdG|zIELG`p|Yli1֨|RM3+nwߡ-4yippgiJ n1=ff W4YǩLRl_p/DFJl hѾ";/E>Jm=1-C3)ENW(.xȡUJhI+l$ֵuB#䙀{ .j %i.{Җ)GCƗ:d_`?tQr,N001sx, k d=|''#!䮻\"*b5} VK;@8 w\CCP ;h_g2lnO>*M%8d$.T6"u"G=j90Md4RG[OK^(I +Mؒ)ւwJAki{TJjM!P()kC St1dЎUe R)=R۶qGͳt8=۽3ժރ!1E6q1qs?h:[uCimp4F3Wv^h2̟Oʖ)4 t@IȀؕve""f&9t0o##9$ZŇ @!@2qo!"OW+|; PB7ؘ5.WR35*9!ݝp3` J :etN-CK׹ۊEoҨkşw|=Id~IW_bc+xRăێwoP.{W@=co`sbrxڝ:›8K$xϛq=vG-%zJ5K"N!1Bs\ۮ;l[r)  XJ0qITFSW[;o]][* 5NnIG yك#H?UI_gwOdEG v Mu綾7~ުO| @_(D!_"sqSt {F!4=1N>1qթt6Dt7⶚%RZQ6@rhc:96 $endstream endobj 114 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 833 >> stream x5klSug;=Z;.n P\f̘$8kڝ=u6Zu-Kw:H$F 8BHBDB ^Ձ~1Q`u|y~/C EaeM;MѭEz #+.#V~e3X0䯯ػazC&.U*﬐쵵*VNGP]סGjW:ݲ\ۼqc___T R[uImr@&UzTWV.MTeԪ=N=z6 Kca(1yd-jcf|.dЊhec`͖[蓴:׈vUJη_H`u`D~vSY}V@PC˹] ŋwm;n8wh-tqpK qLLar̩#AKv-jh<)9rLk/\ˢo,~]daw~{ jjӢ`=IZI 8BPwaByD6l Wأ,pSdns/x;רH8t[w=9/ '`Ǣ EA_|ԗa6Xj5G,|anGG{ 8~2#0GtLyWn,hkP p{;A ?|n3> _f?%|7 'Z\1Lh9xRߓB$GOP6-CL?ߤendstream endobj 115 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 5789 >> stream xXyTS׺?9NSA V[g+N:<2$@/ ca  sZoVlZZVws{;AwuZ,B{~߷-(+KBdi(K}`mdo{ @Fv¡h`9XXF%/ 84aiB|"T%a!RO0oPfm߱tY(t՞hbvCMACOrwơm#mD1oM&Vˎe߻;/z.h^W752?qOe_xK!84CH81ndsυ_Ui#rg|d<0 Fpzv$ @ؾM|rHk^_N'qP֛ D0l, ؆dz~vm!85H=@h OKm^݋}$BjqVq hJ5a/ʍaRA}Dd;+GaF4⏫h"~,&RrqHZ~te\&hJxT‘饭o 2yu|k#,%!{[gsb.PL|&sVS%c+F= )m⪌B<]0&voiߴB60$EFC6|LǏ0Z ~&V&'Q$n^kVK qBBq}!(%$ڨ@8xC$G_ ya0]V& !#7#ҷwE􄱰Ѵl+PpnۤǒrP%NùvQ}zDՇڦ۵yY8n2*O+ {E (P![]f6tNMVQ ܜ!3˾Qcz֛;#7 E! jv`t(>^)+ pȯ8/w]RWUSZ^UW7v8=]KڦXX0 r+x0sF^&Wv&aѓxLt~,ĢhQNΩF:BD  *Ko_J*Oڡt&&Wi"+XVVX*LMKhs 벒s!>ěQ}5t#T*zdV8hQ0Jb쨬26` QE"o$BIxr4vO6m=喛PRpUU.0k7ع~rU jUY٫Rmj!7ߏˑ%' W1tFO/X17?=mDu67|VngDߎ ϰP,;v .fn@_|왜J8 M>U`7*]Bnwj&R[քyΌt(>L h)]u `)%>J+./%tqW m[uS] o"\5UqS)Ӓ>*;,@ eST~n<蚪򒺯Sx'z=O:  pr%:uu/0"~ˌ#hau`-Z KlnU bvfY q}Ϡd(!>!ČBD23D dތB13*K8:?CvUm6bo >C=tVؓ&QBvKwPRu0EqH{BQ`iҍ{q䜱xQ5s&1dOkEP*RU(*azppkh>9ګ| Ve=OrԪl`Cv%j2aƿ9/5\ܳ-l-|%\Y+f w yGzq Z=@x,*&j"Q$(KѤ%+)J#U'i9WD]*v8x)AY OBjO3n쉦ih9Z&ȝ$'< RA{@;_e?Zy6 }d6/>A;;Ţc .q> zntKz±і(HjH^ (k4PCd?\5?OdVv].W,qooxt5 ѴE4#JX ^->-~gutܮɂD$R:$`{yGæ2"ˮ =AY` \9}_է5!Ҵ*=X{ԅK#di5g"./o! ^v,f\[}_;} }sܳ8o:r3T*)Re:cӌsN- w&]cDOSRk|uy4ۗ8.­?jR奀op5OjM~6j1B~ YE7N&;JRC- (1v;=HcaYE h)u  C  p^ 8F~^B`^ fY(p?ezhx}E-HBVV37GnX\ ZUms SXVة4iY d\sU3PE"VKe<$BtB~/g'ruFg? F &K $, tn&ST?fv[6\eݫw=T 6Y40i~m*0y[E- ?-w{[7\vXrg.NeIU5q%x( BM ZGdkW`:nL|< _LV6Qp*3n!Ay|T*@ȅ=K&\Z6bk*CCBC+jk++k )n;š;(玀߅nCߺ\ .8bԠiXزp׵R5 n1`a!Wx _es .@,Εزya!p_!l !` 蚍m$ P{04ng3 PN:Y<ɑ 2O?U? ?hGE~rnW~7ڞx<MK4 qNs{$t`EOx%-UU)JP)N7ёΟlio2ia ZLlhZHǾ)s/N| / j /0WHn8;. 1r} W;6rF꘤\!TJU>F#eC &ݼb#[Nl3sp#0AŝGI"ǫ ;#[I0Uz{p^}q] ax$"Ģr,}yO4W,D=+w[N ߱k 䂼(~ ceW`+mUq~!.ni^nZ5X\.6,L/c"x7Rmq‚.($ia i#!ɛcp4L錊۾(9TBb>!iCUmp'ލuK?%ůZ߸u.~/MsI<~nڸj[]H/ׇ8~+_!_$;>;̌d51![g-4Sn?֔ՏCZ:D1n6ksm9%ƨ"i|Hӻ)߆Ha>cvĺvK>wQQendstream endobj 116 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 5775 >> stream xYiXS>1xP|=J*8yN((3$$ ;caCTZm8UQ[;\گ>6}o'A}?~׻w-}<gɺ-kne 7ǍýOGD ^a_eǰsq!Ca`xp2K"O5kDGb#ׅDŇ_#bR2_8{ (z)1DiQ˅ )%Ԕ(:ad( ŋvw&.MZ&Z*-=1L !{apb/1/GhB@!^"b ~yW,s/;o''鷛P>||ꀆ쁏_hxow 8D1=lۆ߈y#2G3ͧʑG^:F~A~~!cDŽ0fW:yKZcW%'@29t}Iq8(leS7%!{WNHq"8,uiLq,zG[ZO5PC$:i"?u(qA7\_y¡;N"$ a##po ]7 0@/&ʹY<Z;]iN0܅3@.HPhsJ '(t~#x5nz|7!alQ!U(-ED_@ $QO:!rAN8x`u>g4;$4 DC/V~ Ap `+9nWw?~{Ix0,o rv)GK Ӓ8(m])I쉿uġ52YwnK89dw&QKB p /þ ooMHb% nE0U q4IG7 b^7){O gwKp^pUa$/n;OgU W*%l⚍[W]a; G|u&ȧD6UYT/U40FpIu"f}Y1jWtxwcɣ@g*>/3wʬ&kĢ|FLz muC/c_?&U U6y@ʵ kU09:y06p4JAaj/u]!MVD>FmC= lt]?ʋ=%{ u[͠j1Ny;f=!= ( Cwޔ1*<M|&G(,Ppy;p,8 iygbpm<ɯuqb͗G-@o.8j/: T2%E)VwpTB\z8s=Y@!K/kj&{ s/H$Sgat~/ /rNHr"#YTHy*gG KB }ViOTfDjm55M[>o=ozcHV@OaO0x݃+]T6"e3HYZDn {"p/pi'/1UUj`mz79sb=KC $P8UnH@)Z8wc#QC\qOnҥׂ`-Yw "(] rAzɜvPjrgu'Sx!`^Mb+j7gjLPk(Viҵ*v4Zsaˣw;Le jp;DL/he:;:=)g^ ތ;zjC lp3Y!ʭ-vPn|"h}Gku4]ד-HIS8,I{|grh2N1OPcaeE'ot٘*?9= ]20X錾3Dq lI7JYHJpYX9xvٺDP^:u+A hzJ;uAULd,dT:!+VIx*>yEnr&%*,u/fB %NbNZ[JO\ѪihnN]xdc<)\RRꩺt͠dS)rNl MY_Q`oGܼ\Ak`9r en jFFZқ!7pT |KDӳ4m~uϝcZ5SN&22SIo{3_߮ZʏJf-[#p)]5Wj^H59;8N8"6$%/jz\. Б?uD&qWHbdp0#7` {B71["_w>Hpo.]UgIwgjc?et]Wۀz HV[ZyӻyyiJmCX+0|E km,{2A{W l 2;ᢏ>脡<7tN,U U,>{TW52Id3fhnN Ϗ&biS'G[*6#Er$L.Բkg8M02 '̥ ]iz6='lh?ZY~mM@=|}5"}64*#Ug3,j1;{a]Z[n#V:zO6nJd*EYUal0ʨbP7LeR$[A4yƑnm%5 s{5ڹ;Ψ+z<גpHQ8m›u41ѮL媌u5jRC9p|D_NA_Ŷx'æFc {p |jsOJAv~xpO2O r5/z]< +]΢Q,qQា4(}[owWT&W`)#D;QT@B`9O9 ˿@`/t֗6?Qݮe+Sá6 A UmPHsL?V+j%,Ϫ*20&|:kFА^y1k3 G^ Gíp=zU׿@{M&u %8NX[dT]ׂqɞ( h:MUE8afR2[*c[q@e+SPduA:p-G+.?WNrg"/ORȔ*F, ]D)֦i@<%+ȲkifwLR grѣj=.>7!_o=عzQuVMDiVړ_Z8DŲ< s!Y*AA(r!N h$%.U`)"٘UFmӬ}a@ 4$4m"Jp"!sCBn*U#Ld%Zد?4XH*Vm~Κe;Zju.1p&fo$O@qdo}!(W')S*!w/fy\ GmC)驕9R'7F ,P\6]R`)TMfY2OaP7 ϐ)d@fܤQoy?Te2Pab)fח]ϸ>y+mrv,?8 4:|HY,~s$+2+2 9)Czr>endstream endobj 117 0 obj << /Filter /FlateDecode /Length 1250 >> stream xVn6Ϣߠ%Uddm@"6ɢu8)گ﹤F\( Wsj$ Oo+n!Jm_7kXX>颌Y/!Gyx뻨mYZ.RʓشKW| $F9QK5vI_v:mx4 )&0c# ГQB(߮q\L#Y i,slz"VX%8=+S䥛s LJM ު(v7%T:tJ:R9&})RjM}`>)6DAԛN9э5u1v$u̝=w]Ӧ v iT$%E/tu%ˈ_5z\rh8?#S|[7.Ƕ`ת2nTX=uWeeߖ,p7=w9!܎-0)jTxۂՑ{ vq]76{7 x-|6cO[rLF\֦DqwH->XIuzsy R8>xT4`QypxA_Z7C\ŋLL9"穋gL猉ibD&f Y%w:}+r - +/ q=kP9;+Y̪uϫ%xBi85ccqK8YZJvd6[0QJμ0U}U51Bm s2?.E4{ V&YdAZO)VvcRS0qFWҢp.|qCfc6`I.0&) &*Z2U]Yc^V#EGӂL?Pϭ%~ܞNN<9>Fpw݄Asy4Цb %|>!oh?B~HՉu.}>$ +].% v.5'@ x<) aӻa,h>^^}-=j\*"yb_7Gol 'ϰzZ~endstream endobj 118 0 obj << /Filter /FlateDecode /Length 494 >> stream xSr@ ,Bp eFIvRhEv<lRE .pXZ E.мBݟlͩrl왠wT[m5(?4@]Ӱ JWa D ?> stream x}Vit![LV Ec(eI9%P7)pB`l K^%ےY̼]ɒlK"pl&@;$M’BҞtM\~tds#{yڟN4)ľt6j EH%2usYRUT|u7nXڵ3(+UK3wk|);RjOdk֬YZ]VYU5*mq>eZYT'_̜)t2MN]V,%bQiYy*&xHS^M/{K~KLdψ-Vb "4) 50 cz(uT3MMTxMm=z*)Q@fsnͻo\hmSr?{o*U\ v)w%nKfFw-wyOG = jusQ%<[' Yt6_!u ]벷 n=2.abC-y[Ȥڅm I'rG51[4@ꬡ`ଳ"?vnm;r A]|/<շVobw04˱FɧPw6biS[=(\7yv],*6yd  Tӧ >%bqZ*#%z+o} W>m(Kj׶{ҾDO.ލyY)oxX4:TG;戡}ZEm-r+~2<Ѹئ-kjE)Hz>>/!{EcIOy_KֿKQbJ*3iJJ{ `\}0\jg k`!OͫLxG RE^Sk$|ץ"6ƉTzpB> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKXX" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( lnGP )=P ]E%Nɷ~Nw9϶+캎O6{tw5EU(@QEQEQLHFHʟQFG""OkeYW䍜@UIިCec߃]5dCeRH5jj+Cec߃@Kw?nHl玥7ZPO$6_R]/ֵTҶ_ًvܘalg>5BnOHl玥7G$6_R]ZWFMؑ_l?Rh5"Tr35]d_m?!: Kw?nźUYzG$Yk'b :qPEKb$6_R]/ֵ2!: Kw?n º֡|ϳjsAz<QroA\/ ԿWsZ#VW[5itw3PY@-*[+֎,oAG!HEX/?)蔩UY{UW[gdF# N_FoX/ofwõtFEPP_cp֊F%= \2!oa~R{ nrח~eD ֚"#y-02G~,բ|86Ba 1GLGn=#k NQrn~/2s]g2ϥ ?fr@H}KFtc 2O7o4c>_~uOӐ$mPb8A8g9ϡ~ Tw8PА1]SK v"y*KN_RƍtN.01YfXo`e#eջ$켵 Z8`G˜1]۰%Ġ~;\USKջX2[ E++=ɆYUgo94)f)̉/ +G wf'XiAœ,TBre֞\m-éX.ez[+S~_;2evK Ҁ[$I 5U.4`fYm!yW>vsP_Azdk)Srw3gx{Kn"L34?g"Cն N?F+fmzGdm>Qy ڌ= IܷU4ہqj>YQ>[K=J3{պJOYLu>6VӼK Jc>ERWg\:1%wg/Fv>n4h_@~6cb7cLvh"eBA>=+𞻤`h֟ږ?i$?hM(۷9xt{hyG-qK2IlM͟άVWŸ)>ar}OVR*B,$m>hc}۳d=ڭI}w>Cz >W)[,ʪAnv3ViEA|epcc~tjOErW][Na栅'X7卬>| vy3Gٷ|%X|F?uOE]`k_FW51<-3Fh"eBA>=+ҴۘΓ\}@aypn~vWY 0^]}#ʑۨWQCx R{1j*:E$d2Xptݝc8E2MZl.K,/R=!EKإ&V6Z,JZfx3t^4k4O TbЎAmHgҬa9Y#Ea fjs:ލmiko4r3ȼF9Vr*ǎ$up )j搖P:隱_C_Sg95 y=MLq,{OtaU'_ ΫJRqciIO. F׀>\U[k u(; #~_lQ"qK[c%̝̌>tT^&FF0$mlΌ}ֲhߠTkmOQ${2x?Ġ?ϵXe-lavKv1=~URw<`P#;j/,1!\8?0q^ E'?C]*QW}暿̭/mW6- A&pHz? 6i%'NKNQnl[n\pƃ.JGMtf}ļl$ I9Ҫq^voӲw]8mykVoKv.VeךNz*`KtbG=8؊D$'Y#u !A+@xuWх}zx3| עKLش,żvkQr^^}|ך;T'Ŀ:֬:Ҙ눳Z((/VԲHB Y2j:Eo.ckĥݜ`-A#?7L[0ymU3'+$vȬ> зѬ{VU N ;_/٘RQ"m͜1t" 2WjysjжnFN3ܼ$ַO-b2|wЈr6؃_ҽhۺꝟc.ZvOB-?Oo'uK[R"u1+),|M[ޫH0Eѷ'^ҙ[Iq6ǞfFRE~UQikvӵEX6,2~Iut7Mײk4Q8}ɧ,͜EmVFTt_z\F-Khuqi-2G+sڵZEwm dFR2pԧh?ϪWtv/?)nKk@9?*Ӯ4i/@F6cbc\;|n0O =W{%kkKHRf]'U'VV.kO1b?\{-NxRXYȊea%Bi b,G`g?.[[:jw(E:: ~5=/aF=x56jfIcro]\G? H]#EHYs*z;ď89׮|K.rWb{bnw%3_ETT$Tp>%Pϸn1ںl}NYzg\T:|1yQFu,Q\$wA1 c+x Mr牭~L7˰$X1w޹%Eb[˙'O4}So+!"'>MyƜU?RХJZG `׽q:;RA+ۏ5){lZzk#Ęx_][w紏[xs1lX_Ǖ;(T=,PMѭ\<']Y[hتڝfB[wy(+.gF#@ 檑].jOX |ҽkd{+*L3#6_Ŭ9Z>G?bיTθzN=d?uWF?ZKW<'5~~O~6s1_5fN]:j*+#ReN@R#aI.r7 A Wq5-ͦ-nf2Rێ3lsElQEQE2h'dY"J8`x 3C"Mndѕa=q>)m&bгwzs3ONKĢ='QMo iѸg#s:WLu˳c2yR{K|;yo3!_CՇ :1:Ҙ'ТtwfKKb?oÖRjvkxom<ؕEc x=qⰫ5#'?C+aEPEPY>%t?g1֜Grx.~RdPs+L0PWlC3jR{?NJSǵe{kDLs%X\EAWeܦ* mn'U|/{ qcq%%R^LJA2x⼬2Zn>X􋎖ktb鶱[Ā-y$#'2sW{gg7z?#~+ >Ñ4m~ZZ־휵U,>,HQGvEʍП^*FGCCP 0(\0a[lKK=W}:5Q)vF%!d#NVr>IjwUIfJi!,A2@=3w9(9jߛR Hw#.A3]j=n 23ߚ>FPK u\3TTS:yǩ-֨ÑRE̫_b&+o]!'k8N@F|%F6o#rLY<#ߌNJlCHw "ç6N15AÑ}-\D $u#8S;VM~:zܮ/K_C_SP_#Q<3oվie'UgO&7.ۏ3zv^3UlbV<55A;XOFY"c\?9ij*G6{RDž1|a$ ߪF=x56jfIcro]\Gշ H]#öHYs*z'WvYjuwL!ӚVF:u^}K丸[@k SC!^ckB D6*JC43\ȣMn%r#}pw_+մـ<FeRqiGb%FdO?5I韧lZ۰vE C3ֲo{v9M]*R#jh[E4DGqV>oJWF95Q"M߉HTS}jÌ 1zG\huZF'ƹ[g _]ƭ 'j3!uJ kA# 1U ˤ1jg=OᱏiZ1#ݦc٭U[W3? ȫ׌-k:ݱkO hOE]`k_`㊯.~ӛjEa;$V]Df,K}8ǩX Xt9 $YX#{2c3mT7|ڤ24:$2@%O#0ErZݶlڎrуp`H$U)I tK<:jY$_C_Sakk:+Ǎ&W gF=}*ܠؙDZׇGbNf<7C߅9\Mqgט<#;@EunNNp6mukk?tpF>&x[iPkz\}OX^XbA*Gz[j@n3&"0<x8#Se*MtݴIn.+«eb0P9_?.VIIivB cG_jTIFM{.MΜdX<,X$7qE`yi 풕gv8vI$/#*(X )].y殥8ΤiUo5gԛ^LPف![qBLTP=VْF# OMߣ]~ubOȳ[NƂHȣ vi w@;"xV^"G{3PɄ-whAjt ?_Bx7x6/=:_B QZRC$"_Lx#[vq"s،px=EAK[X]eQ,9YvWK~R}s ޣoo U_7}w^[[^hEqye 13kxATtM IZ{M(DrWf8>qүxAK%)-nեkשM4j(MOd02;8N@ɑ$h*}FAb[-Q.^0w  6 9a8VOYLu43qF(Oa\淮Zj3֛cz ݭk򓄂{9w GB1F*o>!x]"Lcs` :Զ-!dI?~tt%YLk?a_+\Or?4>DGj7lA*11? 8mDiwS,{("ࠏR3ӏ:LҴMQau)SL#nmI| j)?k 7ē^=:hd[ \w#lǵfnOM|JFz7Dj$i?]mO ѵk]t[伺 FW;u#̐.(sӤsF sL o@DiI uvZb$''ҷUKS-nn`I$< ΒqI?UݍUff16̜U˃HvZ BOV'tfum"g{l(p2Eh$e|?J$(ag$?U'Y NK;@ep^<ʷԓ>+n2C.9,#>uFnO>e&ד$w6wF,<i\H?ʛdGt n}+6Ě+GJiuZwnZ5K JcO'K JcGS\'^\{U*:t97xֵO" 5ϛ}} 1gbn=خs]"65H`K[ O5Ц̵VOa ssڷh}n}ihL$N#D̤P S2 ErZݶlڎrуp`H$U)I tK<:jY$|KWCns>!kE/,g-p͉PsW .[d׽SJYqnC/8_pޯ6[/.+m%F?\7ƣt7s)[Õ茍Q،LzNkv1>ڼ?̇߱ռ9ga=O[Ԡ`)1#k'q&=A>^ߗsU͌{VhƜm#|wo֬ii7 sZeێj}g;y[GV7$wDADɻz,T|^3{PfS~oz-p޵ÑҹR.)vp1_帵Z |TUg!{ \\ڛ&'TdlI<łQB9c 5uዋ_IͥÈ?2ۂ0:uF&yGm߳s(^. H.|=vdn}ފ:P_cp֊F%= Rz[^]g֮i<7Zh"䷒7P=(_C_SX- }l,,>^u5_Ŀ:֧8ItWV8{ ?ٗ/!aid$b\z=OC[&eMۇq6[^ho7ß6?Kwk[H P3wu8ê?h7ũEwsLhۅ@8xM]mKdpaӟoO,1\ƻqL6Ĉ>Զ j ()a^գk}lϫsZ7ߏU]4* rq+vHE'+YTғk?٭p>alt ^kT}2;UHV08E=V]6eV#>]mo+H\vy:(nDc4%Àd) P3UN}ҹ>G49 %ʴdE8"^S$O6\i/AI)F'Q-n)id^[V' Ksg>G;Nsd#vyyy$$~5/L!_ZΥ%+q唑b@?1Z ⷾ(pIL? G6֖W_1ǾX^ܠv<>)lEc:ҘZ|K Jc8Mj( ( i=ȍJzn̶=u;HDQ$o%H9B|K Jcj/?)!Mủs<fFU,b=92T92JYylsX$lW`βw&* BGS__Jpʟ4yY6⦺k~Lޗ"eHބd# ~1j;K44X ZS`Ubk3,\u9t?_Jz-e's[rWt?MhpXu$GQխuk: nN]sb%JUK?5M@Z[OeiC.Zc=p޽+@(0$#>\nŸm( jW?,!_ߩϗE+%$dA\Ot^%t?g1 5C99y:n7 >_~͋7}jnEd0m=29 7?4?_ O?|1Fyߦ}WM\M]X&xs3\yڹ :`GTRx7t٫5ҝmG]W i=ȍJzz[^]g֮i<7Zh"䷒7P=(|N#QRB>nƽwoLT_&*t>oAK+vZU]\Bv1۽|'P{Txos(I^\17/1}iT(cm_aŧIb҆*qGn"޹oNeBkScz3W4c!bcn/ݚ9'U 4F-Q|ƮkF]#ы_o5#ݦdzԡ5hOt~WF?Zc.3UxOE]`k_!Z6M9pq*ѭE2Yc'WXE,@IACoo;L^rwB*NrEQ_ϙۦߍP( d,1<)bK@9'sO9oY8[ ^.#< 5VOYLu@:iW~FH:¤g{T6ȒI&HF>ޣrKڶ+._sc5?h__HZ7m`8+^#oEŠ((M"!}5kz͵ݭ1|֘2Oq|K Jc j5x`_&Dd8*6r0~Vn- )e `X*zFr_άff!6*YN2$ᗧ+{fXyE9AA),EeU'oY vhı`r8-:z>=;JdkjjrÞ}3}>9m?.h[IJ7jv;D1cQՏqav%'Q֛jגtȉ-Ï-[ ^46'yhOKƫYj7fN۫`Nqipj=RYd׺E38SDqn]U?ڻx_wV&چŵUegަ/wn~p.#Q;TiY c8y!̣bn83# WW_בZoKm~oX%Mˁ-KΖ/$0<O{؊cWMG*#S[y6@~Cפ*Fx4}_*V6Ӿ%F,nKEΛvn#>]y1TR*8rO-M[QTu) X"@Cj)o 4Μ*J._#KPj3#XdܷkD`mzW-+vdX^~eNk<1;kyf/fc cSW h.61譎S:X5OB~u/a+[; VIEwu d#7C43qF(Oa\ߙm{jvu*HKy+ us߫d7=wH9lq\#3bT'1n"FFxzd/ܟjo/-7ֻ'ty7v"f )WϛsZnRGڹByNgiݨ-$|u/J6=n[_?#%6T۷};H*"2G޹5 eGWE5M9%jר^L[~ ?7ݙ?V8?Wl]_k^.FO֞&s72+Ω>{7:PZȿ<ָkw7>[2?A\q)xW]+VRc_.F\~?RZ3r[jTGAz~~>KYXA? 5ϛ}} 1gbn=د=_Q|zUѿ ALtaViJ]A :zi\T{y"޸qr899Ew9Ȭ.SHkoL"yx;; cj+!!A$$Zol結lTk}Jw:k3FfsZ5.]^[Mo1Kk3k>f2"E=7(Pr0ϯ5 On^kG6#I#*2GdgqZBkV׳[jR@]lADB)TMUwfR։-0Q ($OC]= 0$ m<}jCpLδqpHY#)2n\>9ҩ~Av)vf'!xjNg"TSZ=V9mB_kimfIUryvY&FN^Y!,p9sQ]iIJMr<Q[cx铜pj坲YkbFnʵH6]Zqc7Z\~|inY9#$gH7xr=Nn*PIp3z6^ۚ"ܖvI&S$ _C_SE^HESv/%Dl֢+aEPHrIm{H`lgqܣ3}9W{g='b.]^[Mo1Kk3k>f2 [\"c/2& G;T"Mb+`˸g{֔+ΐiq-4vɲ)h;yS[SY؅l>DH7$Uqx5KI=?엱D>`t^+gQN7(˛tT+xHSozksb޲ F"~֕֊Yf Ҭٍ+K1Y%8oOL Fo#Jzl+{-7l(UQ`N^ jPZoĆ Y0T9oh6W2Yrs3,k}O崓aɕT]g׏֡4-B4l3<օJpMܢtԟKk;D/b۸>ư/V:$\ ve ܾsӚhiwṰm-9tm(V *Wї6?f$cٱyc8Z0 bxc$D7\=,F㿵 wH/%q/, ?Whu+)zW[l1F7lzdPQP_X%hDǢ8?'Փ\p\@֭g(0Hq|a>^tic'gXK;P9$¨G3;DGJ^^/|c1]6Κ˨C2yow]P$'SsR[u2oIᇡJ% LYln%ݤ!,RVT°,umgڊo|o޸mMa {yaz&;<wry1uUucqrXA SIRò^BeH$/ֺ(Pjor3+|2U) A{V <ڵΤa 8fy!򮚘"J҄Q+(Vp9 dO 3?ڗ .YmK?rf}VRi2ڗ .gZ5ݩ[ ouÈqzS"8TH$OԒI4( ( n S":#+%h{"1@R yK*~n^ BխU&eoFB e! jEs:frLkCNmS M,ǟZz{j_4㕦GHȊ#nr pO G綥K9Y4˫I)$o;N㩮 QE ,qFQ`(a@YmK?rCejwV:MFwk$Q]52h'dY"J8`x 3?ڗ .YmK?rgSI+IRi!TZYmK?r(hYmHS2= BiԿis+> mZR0iw3Et(iUm@c2}N@)kT6YZkn!55;T AIyi % r90 pjz)/m{v1ûo\HbAҖ* ,nC܈ħ|p?:OT59Kk˿2"MDTW#WEB*jmc-^mޛ x÷uq=RHieNc QE ,qFQ`(aN3~,sCGM9M=JhH]BAuҙ4Q2,H]d0<GqUj?dt?H_[\7.*){I3Wܿu6Q um&cȬ9nj+ 9*o.Ybe *+`0 =>W*sK ?.o.^ ЭtⵕR}oD2>»Zc:+4m *pFG#M֧?c?st^,7]-{Za7DI+i..9;C+cʩҮ 6wis7Su?F+dr/@Ħ&9!ynۏ9Ja3*QLU@>Ic0Oh[q8 ٴ qIڠ` z aER(((D7sZVSܣE)LțpN:jήp\K-wRc66`9jӺhg8tc B3n4; HF9G' :_0hsYM3R\~>5&j7݀ܤjU T`TWv4v\B&9P:tCskI'^8 yz`6[ <n .̉4GD'*Ĝ=ϦN3RhRt!T+;G#N=2jK;;kD6vDvB?AOC#K,#meVA294ǵnൖd $@1O<1\BKkeaAM((R088{ @dxJk[q$J,  v`W/IHq#Hyh6ьSN 0 ACHpjA4)hs VbV۸O'<⨼.ӬnLIƝX~lJڷb+kKxcƑĪ }-ZnemyQާM@\ΏO';J5o/߲[.?f:cv3G@dJnܹb  \S{45]VgSD֫ja%*dn^vJS"r@>d^͝Q\:ax ;-QEQEQEW3*8&[S I)Us$[rl tVCq52O|0Z /5obN˝:9#$`D$>tc>j,M899uhScD55TDUT`:)QEQEQEQEQEڴR{DҖTp1A_/ڦygo388/2O+v2c q zӾkwh~`njO%ʌkeQD0J_l[$gmWIUbӬY+;xIJ \,J79 xt$-'M3j?hJC5A}Nqm[VG1HUHppO>X]QC70:d] 駪<1W +xLmqNg*>NH҃1wcm:c)8'r{Z9_`6S1wd_#l+aO\qD)"<|RynӮ?'ϱϰTV86dhjEP̿ٷ9_Cl~*%򼿷?d{t냽x>֋06UV ۙgTN"N |'<x(*f>wFӮ>f\G[#Qg +L]6:Ӯ>WlaO;z|Uncl+0ˁ=hjēZ\^oS̓vp6'?18)Slj+DP2*d͹8$lp#EV$^+e{eY.Gڶ,SfU1@1QKz}-Gq7)i7ECis7VY#lH8<55 ( (/tkEr#c7d4R̶=u;HDQ$o%H9XAET5+]"K|hH E`f* M\h_'?$ 7I o5tu4W/ o2zjo"cW_.?`kf(5w:z+ 7Rf(5h[/$ 7G,_ Io&GSEr|/A34MsW? oXiQ/4,qbpJ㩤%sΖԼgiW^޴wz yBЊشw 񬑶ܤdz٭IQED'2NeHE>$R_\$rp8o8{;;VP-;DGJ$^{o5?5+=+rO~G=wk "'yԩjN;%hɼ톃u&I3>BI#U费3b{»m?N hfBW= >b[GI+s/2xOL23Ҳ%aku;wep $2t5ӄ#^7M~&N娬i067O[?c:ޫKl%zתЅeE4ԲRsQꮎ4RJ堭/ ϣ1k6/#>_Ůj×K-TS*ZOǿD]߄o ʾ>y3Gٷ|Sw!˅tTW/,p;A(* =_\ψ/t 3;p\ʸnyv:+=b%mʼn@% c'n1ս@ Hbq*Tf]ČVN "O%yysؑߑڶh|^b&gˇvyMw1|[U)m#-G?R)wyi&~^/`qӎft?xt>Ugڒ+q{DAK}S(0uq]\̺"`ap㏟<{u$zcg;C.vF54mOo~_9|1۩gP)IN[7m6ltt۟yO!}7Ӄ eq)6!iѰ88ooְw{ʮ~uщ 3f2Qe8m1ux􀺹MA؝<//vNG=9vPjM+߁o&^oUⓚȕFob֮jEhv'tqT4|TǍ546?~_082]\.rMm # '~fW1b˦1i<_?F_yuogBoe&<Րy_76B~[3/YgN[;4wm$G|?y׊N÷Va'(Q|nZi^}̚L6ΧjS&s}q|Fޣh\ɡnZt|7Q1~igJkF9x~R>ͅ?p1>a9]_ܟ<7vh/GٰN1 3wQCYA?۾NgKQMd2O|?)|ކ_n`2 ͺ\fN3}5vzV~8tԮ70r{=8;/]g' e<.-6ɷۙ 8v.qcx7xU?c]M%ck mHhp#?01|g?ysR~WF?Zֵs>m4ko*$f{] Eʅ}azRnǘKEr> VskOH / `QrO*㞵j=b%mʼn@% c'n1ަJ86I{ 3"E 1,բ|86Ba 1GLG!:E/`-En˙P3אo:ԯzqWd›_Y@SKXzUHp@U}{z՘lrs֊Rx9W'gh%ixcFmыYF-sb/F57xU?cT7xּq~q-#1w=fFϲA~>QmǾq5${xrh>5Eʅ}azW9s i1}&D N$9[]X}I~[qbnP }=gی{P_B6WE)IcdYT$`§/y,n\4l"c[Γks)9ӭ6Y-< `F>V ?(cddsH0bE,p=arwk%ٴfu wymo͜@zӨ' Y| ƿP̀חE9^3DCjW騍nU=:}LJo~G2|3죞Oz,EP@9#ڪYJJĊvP+B#1 ex_5NWx^-2 뇴Wzĸ ؑ:׮'/Ϡ|Ϯ_1Jj|*7q[y;伌A(MT_0rzV6q1 `Zso1^Z5y>S8RHxU&B%ֲ=:H_ʾޕV|k828cP5k60y?)V Fa `A^Qf*bFj gsԍG ]&%ix_F}ыYF-rV wX|F?uOE]`k\=d?uWF?ZzWf_>l53TY 0^]}#ʑۨVyT:E$d2Xptݝc8ZQ@_B6WE)IcdYT$`¹ir :eسl1cb c6AOO~cpauYݬfyD/5ޥŴ+6rGN[&a`QKXz>ÚACyc y{kӧDSIeQlUIHذWRUn#G kp24Xu"4-vZڿd率xao|9VQP>aJVKtp90:z ֳ;{~UF @A½EH_O9y_3|EĖ+#\]:$I(qozȚ_u t~~O'AZqp*!VfOⳗ=$O:+6^~+b@s = k> gsn60]pzs~=5. ^0F&{ZaVŠl~?m.dt*ZE2Zfqy(F99>H/2|GwPj2m7b|8<˨u_6-F#3-w?f&O=F: yۏ#^|ٺ?7'y`1JPk7zbG$^ecHC&7q:0CE|;}VlÁ':0hWV݁П9/7S$p8ϩ$tG|-|*fxMTKvV > o )3:я\|0Ve{mn=̌EK`:qĚ>gF?UfQʧɈO[?toEjk+*Z֭#>4h$`9uS3Hm(Fy8d;~to3mo6˃(X v2K'lunu Ч!;ڨ#/o햛|~2 ǧzqS斫nl.-*|G$fuv׮3on.bV69-B&-y8( Bֲ^YV+o4O( FTqێG},C?U?G.Wn)n>x4 +ea(#̸!q3)##i$P9 _w JXYE;!-R3S={s@p1OJΤ7:vL ?AK?3hZ^3:яwWF?Z%xY8Dc E]oUѿy^U٣O EvLEwikwI2G &7go;}_n;]r̚o|%%L RuO(_&qT("9qO Ҭ68bkؓTtbqOk4w+ bwRTdg֨L};0Z21kx̧uu$Q?<~coJjb5̗">N_B'VN*2LroU͙3ZĿ4&3J9eM82]gҲgҾ S6g3/ ͣ1jW1#6_ũ$>fzA GicA߿bsSU[W3? ȫ׌-kMV!yѹ<9%*8HY`? ";+ dg)sx! PNp8EtGX_vQ,Y9$~G5_bL5-ͦ-nf2Rێ3ls["]7c{ߞ~յLAECxIi:[H#a\߭IHVG򂬂C',9-|^":(E]鰾Dy@99yYc5,@{ Aiw0a]]5 ]).Egd4=ms&ju};ʶljw!7N˓u瞃Ryuֶ7,$G:9c{~ӵ7eU/Et%0>~t Kہ<>?tc>ie0ۂqgs։fw>λNy=xⲨԡ%n<*ɟrX ^U8-mZNON{Z*y &vSP2gWf/-(VRʳ͚bsny,"|mz\Zc9>)_"||]Orƕ>Q=100}ޜ}qfԸ>Y{YBQy:@Lia['op8aß۷LX64knq񑷜sn%SanY1tjO':ykޑcbd6޾6>W'xmwOGzg% ia<0m*ɷ//Y7Iʀx7g63 kg5__ mlᙊ}Ӓv=j?"mPouY8iN|'5~~O~6s1] g)QF2{'w VwUѿygHe$Y\B13VƵ!Źŷ-_JS~6qwujGd;kXŜIo||gpx#DCIo ǖ2=03_fT7uڪJǂƐ"j+5 #RgXG=)cvs 0P//D^UƆ"Vo1ɑcjd(8V"e:A,;ē vHr=zjr]C;$oW3@%dW9|H'džlk'CyO5$$$+B58;rA]Jf3Z-ԬoiQH<ޭqйxaƠ#@Lnj*xO_?=hv"FcCrrr$4M8F9]$ p{לU7~Z@ZiHè$#ɤY堈-v4p Tl11\Mj%J\k[~M* -nlLo1 =3[&դʡqqg7!dfk`z*͞*+-0{qm.B0QX6pq60[kO;avsH+xZK6c4$WKtmߐ} QEaxbXͼ!#Ԃ%\⮤wS1B5BV7 nlϸxl0ݗ?R~#O۪g~}{}T38+V~u,ͨ#>Ht[H(F |#`NsߦzM2`Ae.2_'j6fMѸ:ķr5P/8'j'z֎&rFsv]z/T24=dmn :d`}&hی8]w` 뀲#܂Jȿs3mˣ}qpj{=|S [ G=GZ?AF3tsOŬ1Pq4=Y3\= xj#FԱO Bo߱Fݹs)֪xjUѿ /4wԟ4"73}G$G 1܁X3Gea2l]۬.o!A Ȯ+ "%+1g$[6=Ho I!Źŷ-_JS~6qwuhà7ȗi"Aw8sߵmT:X5OB~t F )59Kk˿2"MDTW#WE>%ș?9+Fv;q6Z"V?5+FYG,Kw_IsO͟aZk5Gc4?3^:} y7s3_Ͼ4Qr0sv>7vc#k[ȷ:o nZT{zpWHTұrM`;8S[z,$4g'z$O4|}kջgf >s'cջWkE!fD40хgyƦ*a"ӗAtĖ*Νֲ|qҜYO_M|*-sQ&NqjQX׊A9|8j+j;箔 jF-,Ҧ>$ZJT%bdzcX??7xֲUkO kxOE]`k_B%jͩ朣֢fڈ9$@ɪ2kqhbpѡ_1]>K( ɉ&p>v wNs+SGK N7 hDlbSо8svח~eD ֚"#y-02G~/"l׶:+# Vbjf6Dyx=iMͽ>kp@/NGcдT.Gjq֥̾v v{S݋6K!p )|f}zi]wo?L1㳝N#QMڥҀG9NG'.Z̷mF@bȹ8AAWƖǝnxn|\}雾yٲ-q{ 5.i+?w:]D2@秠l"q+# *T6061q-aQ}?O~q'tJ2~8r49!soojtH!>cc:{VTW2W1nϜ{n i%K|Y~~G_ZVӺ߻­'mS o_ہ}6_q[LFOE6s6?] 6]|^'%/zUinqw:8 1sz=r 'AKEfIţy£F~sǯ 6}iEPA#KL|n;g8ZE/'`En˙P3^5I,!\ `^/_J1m$\Q;ܔFt& ) R+pcntz7HA,K0Мw.p{c<+#03'"I@?ҺUnpZ#jT#g9G[F!?bb9#ZQ}菥dvzCN2= ǚ ڥ_q`OelUa$QǺe r6N Q{]zƗ ŌVT. i0Ta0`"B<Q{x:7+2Ij4-3&FIn^hATc񝎧*8`:V~6g«[$L^3RY`GX˷$v#|C?($N K{3_Sne#Q=Ln27u;XYΒNylY!wʡJ s1tݕ3ExdUݹ9I>&vmoMs (sa.x U_ psƭH]?G[box{SYIOݳύ݌ t0}OHRPrA5MQΙ`\c  %'b)gc07Z_q*F6ۅܕ$Nr |DΌYXAWWuj֗ F 73BxX̧$3Gw<G̈8< ?#}ѧ/W?.Gv?Z6;} {~jơ99xtn&7^[?n&*XyGzg۶5sI ȫ׌-k%[ַ_iַUѿ \K7SrcZ;Xij }O@&ɮţy£F~sǯ vtVia|_~ιsvx4 N!eYJ*lFG)mcqmoz Vi10qO0rq*F+F=x56jfIcro]\G Is18JZ`Y$$g޹$fc6;L( ])*=e(mOcՠ[jH>B9keyK.2q>[dպVtƓljqo7)At ҍ._7H+^9NXHuNQe:Nܭ 5> lJN:x+T`c3?ַ/;V!!Y~!)3ǫCʾ`ڵxG?Z̸b  ͣ1kړ~^5O'OB?4k <ﳦ݌<. @舫7xּeɼUt4jAj:% Ke1r~d'`uQYEꀙ!k/.#ٷhFv( N!eYJ*lFG+3mfʱsWd''rb x2l 1nW53$im 9a޷w{unc1M%ciomEX>HZEUղ 7["lNޜמH@B?bչo`p>9SOzsz]H0%>S|ESWcn~'{q뜯B2OOsЖ+ˁܿeͼ#n0s"Sԁ7|4n_o4Arl|\O/_R2~˺9nw}󹳰Sm( JCϿ5p;~mQU,9"hGz`Is~}̷vψݻk~MOQϽC;q!uIzd.$ç+]tj5+?sέ ^i'ȑaѩ^7/w,$$m*{l9[0f(>32ėG_',+_8:õ:+=BT$q`1`c' xnzYh~w9t[Ycqʁ8lz[h16`v882>ߏ֖ܬ6 ]\u׵eQ*(E[FҥeL wd򪶶%$brokRRyr" }Ӯ225m|'bK; q*K4/̻m#;hŊ;pY-&x qWŇ=:kY#9nQ{G PIamI'Tp6܍|gq¦wnZk&Ua*Vz>k>lf 3#yR6,?%?ƶdO\oTK˹u+3&~gchx \civ\>'.?F#=5xBiRrv|AA\1ҹ?'F{iz2l?#_UgkQ䮭鯙 #_ =qÒ0 p >-g\K!Ǐp8 4F-}{}ZrOjTW 5O'OB?4k <ﳦ݌<. @舫7x־:tcw0ɼUt4jAj:% Ke1r~d'`uQYEꀙ!k/.#ٷhF(g(E:: ~4=+OEsZ[M1KaHm;+$6pHtT-;DGJ6S͹|zױN#QRF& ,ZS^k9V=GLvL +&x\YM?ioc+m&FҾ_:IUU`y9^1d6Dy[ӟ/XrVb<1D@A9KQ@a^V$}oi;Gq8$J#ZƒEqp# ιmj2F-U.H\gNNGCWkY;t1RqvqbW9i٘~ַbmQO/vGaw] * x3Il #7ֶVLm.XR+eaJ$pI 9|^b&gˇvyMw6iO8'ϧŽks$΃ċ] _޳ڳxH{`2Q ģk#qoj5goDZsZ뿡:[Kt񜛨ʏ's{cڵ>fD9d|3lsקL)yYTò{S%\\}bjyt}u +뷧}#s1xF"΂N/[g{Tv78Bs}ݥ> ;ۛn`AO*ӇyON9I|??pQN{~{]Z1\~ޒS_hz|*Z٦2O?N0~>dNK"l5qyqמQI>u۲XKoΏPYkKR_M*1 q/^8ޒf|C{!kZ[rxy54[&ݭ9(L1`[Ux϶O>XsbƳ1ĺ?S2ZKonE:sgYXA)Egl0>4zUѿ,+qgcu$W9=FoϲA&>>S7Ƕ1J]A :Ǣg :{ygh">bIUrp*Qص,a8ݍۻo8q1X=RE4ӮdZ]o\ θ9ab]M#[3M0" 1::(/w[G pѰElp:L=ZYZ(M+$HX# H9!Yc5,@{ `s?H~ԯg(wqԁw^B MRyŶ8*z kR=aX-D\}`XD2;aW#_3]@E#K{@n,q 4*-N 遏 a ĈD"w?]ݓ<2/xy7gy|˞+_OMw8(c>Vy_yj%[ʅ#(ѻ8n--B2̢1p?1|[:V:ܝ*6xU_vP8gҚڮ۩3‘f$~nH?Qʔҿ;yftm i-mYq]f(ٵFPO]C㝥켶vɏcZV[Is+OрbI` n|c:ԙ?7 98#ΐ}FTy\t9rT[-t1O_R-v3nP˸l#5:iCpXE:6r"'Sk)ŴxFi!TdFsiG-H( v*z܎\5JJ_cUW_9]pxkF]#ыTXxpǸ|Qz ?ben=Vqs~%Fq@/ ȫ׌-koi;Gq8$J#ZƒEqp# ιmj2F-U.H\gNNGCWkY;t1Rqvqbʊu4lvk[6('s#;A}rVWNBgF"ksMGQH,mbX#$g鞽+jhh6,ԩ(N96i:mX2rGl@h"h֞9oŁ-/9㢽w}H Ʃ]O=u c_q$L~^ӎcKމ|^MB9?Yv7dw ʘeCk%*Vf{Jojw*HX8W E3zjoG>smoTF:d#ven7qz7 7ARG<+ꑖ5Pvb݌og.ah 3zȺ$dDhJTwsVT?A+O3hZs+gxo/Z>xAK*Z6?ދE%zUѿɍ0QUele;.Ҩ)9$صEA_}0'z [++Rm! Ԁ3dɨ)VvpY^<d3ץnV}ZNiV0̜"3B FD`IF*p}qs^ ᳰ{Wtؓ31Dc30Ǿ:QX+C&4l׶:*~# A˪G;6ƒ=l7/9?8=8oi33@͵ȞQCerO<{LJ׉If]>Q<z}2u|8Ȩ6ň&{cx>ׯWny6m坖F?%\{tY&d܊?xT,,e'9N>:U< /?wb'cI#8|?P_K$q^"m6ӏI*%:z{XH"W|%ngӎ޵8j>ZRi/˴-XC9?63La(kR˙#Ms\FxNcj 4ɇ`\aSUzs'Z.o>t̷ߺ]iMDiϜ<ZtR|ݧ7~{tKhk=06atǏ42ӧDo#v9>R}{1Ӫ"H<ƜO?9cO$M ~s):UiDc'E>W'w)n#?2D>W?w?$w1Tz4AKp-5b^/'RE6i(8N~Q\?iE7>`߷o\{N7 hDlbSо8OE'ќߙm{jvu*HKy+ us߫5?5+ֽw ھ!g#6:8Ee!YEuT70Gfši:A>ʧp*8O}5=Đ>y6Mȩ޽:ylq\jGIor{j?&?A5^ωtůCȨJ67:?MU1שxOE]`k^Cڧ褯^7x־woaٗr}j(6P [iT WlZm>~S }vǽ=A;XOFY"c\?[++Rm! Ԁ3'7m)Kmލ<" ?zw$@zWWXRj:Eo.ckĥݜ`-A#?7L[SFD`IF*p}qS%?5+ÔxvjҤvKNƤ\:ºfcN731ҢInޕ% zjQ7TVvQIoi,ln$]~V髚S+/h8<_3;ZQkg8+O|:zJ~tO]yJ xy#9'\<[(OevJ~W-1 ?7[B[~*sS}SZ}-\o>Etm-6Ckkv'W |#Jͱn㺁7 QߥrM,7^F)+*aXd rEvW1w9XmMa {yaz&;<wry1uTQEɱmcq_ v5K?ӹF8,lL dq8{Amh#}?[l졒[#Q8'UC^Mh v_P1$c~BYMsK ~]C{-9-&[vZ`JF>³A(l{[[[Pmʬ/?Fx_֥ ).i-ڟْdx=t42l {7g^yĭ(}@HJ$ t?m2//7'Fl^>Q8{ +[_ .E-dKk}ϙlq,=%r yltεYYX[5Lj7EiR6ofv5|x[Mpo.Ԯ8c;>֏-tz'_f1}_WY_~n;2t] B8ڿ3Αwe20O`s+?],HeW9Ѹ;4jI01Qx{^^?ic~/nN:u.hmOy.N/{q't|0?\yOi:x Bi\䁜w?w_ Fib? {*n^_nϵn>lg$xT;WMl.CG{ɝQ @Vb1z Z[-̸|:xJg׽ub ?4_ #d1N{ۮ}Cuo ɾ7e'z)--6Ckkv'=qrM,7^F)+*aXd rEZtrn<l'L+UEU0/y,n\4l"c[Χ/tkEr#c^[ գ{PI7,2Ԏ,pDQgw8 $W/myw[}Z@i(7J$|@("kE,g[c8砯CWڦkem.7r=@G恦]\iOi7ebk˳Ԕ9)rN ܷ-"-9봜{,|<83C?\[M VH8ݎW684rU:N|\un)sE.:`8^*|ۻ,yb}y3 ЇK{ot}}og\p)qK0Nӝff叩UWѳz9!]$L~W-1^y?Mts)%hk%Z=黯Ҵ~_ֽ(|>a'KzV\]r(VSRy&ќ+5?^1m2G \rel}9U^v~>Vs.7"`:[6YZkn!55;T A^ejҔ!o;|n0O =W!-hbcq.%i b.pFN$WiEsstrn<l'L+]U\!E- ζtI{m*;dVBkFO-}< RHvV@u TWPaA{}chmJ)E򌲙]I<xZW2\"{nd%/F-3AA6(Ks(YQ]CFA *<%1I#X ֪}F.f$Qddjnl9@4V'kihQfi ̋L `$ea$Z"G20`ddAX!;6<[JIWXI$s׾*5I CQGP-B?/=3s(GL(P  ?P@#U=zymtKbG_íPӤ{85xk9+J1+mI'ORnɱx]Yܙl׍:$#'?uI_NO-}< RHvV@uՄ.Ks(YQ]CFA )ٿ[ǒC+.cV#,I<{? 85/IHܹ,Q̡eEu ~G#\&YZVɉ[nI<N3o'u`IGN~꒾(Ks(YQ]CFA *<%1I#X ֪ho8iq˘ՈO'j?hJC5A}Nq@r4lѶ$d54UYg'k*pqg} K,QJϹ qTddd?<$%Y"IF{PTpN2:i+IJ O"6Ui#xgEf!#%N8$} =A1=<jZe6op!,JI1$~&@t;Nv{ [Vq0BHd<ih }Qmio q1x8B1Ϲ4WgTP-4(  x {}>(ⶴ8iJ  ՚(ZnemyQާMN@`AoZV֖#T#A <,;!wIDjTBۈcȸAX{}ϭKEAkekfd6eryqǩ8}z(((( 0 AU+Xbq*b$88'sVh-ll̆ ^O.0'OL@`Aa [emK,kRAr t9,-mY #Q@@`AVG1HUHppO>@ X]QC70:dӈ  x @+Xbq*b$88'sKkcidd6[[tTawSV( 0 AU+Xbq*b$88'sVh z}Ane;T}N5f(!m1d\ X,=O>֛kekfd6eryqǩ8}z(((((uq'˕;yKF18=ibX4?j M}7uǵOEV-:bK ģ{ǎN@9TPmL76u98X f@ A+[VG1HUHppO>X]QC70:d+^Ibmtu ==iZđvТF4UqqS@YXB! s |q S?bxcMS@yWZ\{k ջxHnR2= MY>WF?ZֵYQEucqrXA S%Dʲ;Yp###Z3A{vd4}=2n<t$sa`QKXz>Ú$R_\$rp8o8{;;VS$ĺ^gOu!Ln]:TddR*,_ L4MG~ԯ `QŶbe.Sb_m4Mׇ\kG [w`:ȮוS[{SGO ,E]Ś53f 3϶ڼOu>U-U !o&ȹ}6d@X$##Jڑ7eIQ cX oiUXi?cx[gk$:˛(c0pdwֳYvqsV?-A34-A35FJYtWOxu]@#mD;mqUcWkÚ`s_I?އFx^dByX]FWv[ _yf@kO*}FDFLLbDC4bc<=3B M}H8Giϰ剝7'E2`u#=Kǧ(뿅VRBDoP7̝z=?Z%ܙ#h׫\f YPی';Uϱtu]zua'|A'/p`p>e>oQӖI$&ޙ+ Uk5bcwfE{9Fv˒j_yxܾ];5) rFT~\Ɗ uV u qVeƚwEۯ_kO*-5fs0Rۨ>5s ס= Tk pWg2qQ5*cu 1VLj䫪:?AK?3hZq?—-nu~3ci 65}} gbn=Kİ)67x־.VkcZxZ vfEʅ}azW9s i1}&D N$9]9 {X`4gMG #PІ=b%mʼn@% c'n1սYP^q$qlyal vv3j$ol結lT9o5 GHܬM F3L) +'Ŀ:ӚE'E,B)c$kk[xc]0e532?@5Q@W3&5ԮЬJSrA kFMB;e%vyߎ}a 8 @Z˷v0tkDxlq޺-B7R8Ҿ3d,5~G },p:W=KV6R-g@ocsǧ/?9; ~ ѷ`F&QmǾq5ܼ^l|[h'~gxOE]`kZ{hyG1s i1}&D N$9V/R_XjT_y~2vS7ywmh>Ͼ"*GnO@;#[``ngj3V* ^1I,l ꄌROEr6'6u3%gAPcliF U93;DGJK+I'Xmм82A^Y1|,l'֡Nci<.;P\WMƔjqRwmScq\GwZ7l2 ~-!YuÌ85Zbډb^@}j͎F@Nk#P+`LB>UZS\71.-7YPmunytoQI'ť&ctf]«\(YWG8$cNхsN6r=# %YO|0@"D4`61ѝ)xD.݂ 8~?~4 -Sl2|.}p~ tI܅$Q,{NvZMߩZ~G?bei[FыQ[~q~q-#1w=fFϲA~>QmǾq5x3:яwWF?Zѕv=kO A.ѹyc@PO=zJ.|A|46/6h^A)ۀ䟝U=kyzǬ^>-7Ԩd=ڊkwI2G &7go;A 09<:ѣGSKJW<9kyrV-,4S+сk\uZ8M1Xxʓ0oV|NqT< Hη.@ Rg ʔY^vA (.=UC[,cYTwN+6J:?,j hI;cf\FT15tlN3cNZs]hQ0z;~~LN3#6_ŬhxgFmы^~.4GsuX|'H7xְ5OH?^=wHѭ?,~H#~ЛQns +k.yQ&tTW3}G$G 1܁X3Gea2l]۬.o!A ȯH::+kRL[L[ye7n1gw^(0U]rd~"+>moz Vi10qO0rq*F(`t_C_SkVOYLtEPd"#@Yԓ^uG]դnTK7=O5rA.g r `˴V;x=Z[? *E'Zp_4pEaXT5{PP0Du$z`xo,!;c#+I'60z ƾ3߭-;_40Nk:kIrT=PZ9V#kgG|:͋/|ШK|t}Z P.<Ȇϕ#p'm.sznQl`2 ;>d봊3"em?oCMRN)_re9#t 5>8(5#hN70xy8sx8AT }' G+gJiݜ5zj_:x:| I.3/qgo |Emѭ/\q;)r{8N3{Ŀ:X|'H/?)5OH?^\f߁%k3s*Z֮gzZjXG7أn9xQ$c,ǰprzOC'He$Y\B13VƵ!Źŷ-_JS~6qwuh@6* Kp Vӳ[YݬfyD/5ޥŴ+6rGNyjo|/un!v/}\VmxPs 7=? k\ׅly3J| OA^ 9uV7-6P>R9j*(AR;&E[*!RMp^))6Y9wasZN7$xOιmRkۙXȐ+/ BO1ӊ8V{ul{u 38#[S^d+bXw\txmWWE[!b,s>n=y&qcTes[q[Ƥ&!}?REfۼ֮$QZmio4F-X_8yNG?BsgAqhZӑ=3Uq@ ȫ׌-kH|s[?%᫞t R?d?' ~v9J˳G^|iɝ5g)QF2{'w V )XL$v9KP@† bs+8ΎԇSp3~a)Mیm׶96*ĚKIA܌lp:i=ȍJz栎omME=B?dp9aLO,αwsrI=rח~eD ֚"#y-02G~q~:״ W2JCp3Tt8 |08ګdguQ PfѲ[|R+2p33OSF:ZZn Y+ e!!I&yIĠ|ȅy2oT}h_oFskt6 z);ztVqznĝWT4݋:tTo+A>T4o5ee'yʢJ62 Kk(0 SԎBb !_m >֧u`RqhWkQ+< ǿZ! 7!qʓ]I{u+P}WjZ ec&ʷQW<61]#ыKVW#җC*] ?Ӡы]a} $dUm_\'W'"^0赬vƱ<5?toE~c*vNowyZmuI-nOz[W`1aZK4f yc `;c9ڶ n'#,Fα@sQ}S2K6П30}߽Z먡n&9xE)+-"{M. l[0p@C]5dA@WRL(`@3ܞHU?B$= ՟(K2p /^z#dtQHfuCb,pd1ɩĻaorAh@]y<qĔq} M0|r;夳Qi-[lMv]hw]^qҙZ۠ #9''?f#zRlf."L$tہxRtFdNι~t:s[),<~5wZRNZDR16w0*!`j  FrW<pa6n9ՉM~^/!l\{\M"!XAYw8=1`dHNV_6y ?J1ieaKA5J17#i$7*cWH:>gd=v 3=k}A@pzךF<999K+G+ѕkK:p~c7k>P3.7I/^FkG;=2Ŷ0M\HݓeRILq*+tmu\iqͻ@27g>[tE2YYX$h@SYxy#Ui岚4$<D4L@tT2=kzuI_\Zf)R]|K Jc\i~ЫqA޾* ?;Z_8ўxrFPBޤOѷe`2q֗'~[-#BV{W%K/Pz4H޷m 3Gֵ#ЋLrCR{ '8P58 ¼Szw<^Z,in,XG+khTd[i lRDA95m5Ur\ƪvG6.PU:&dǚzU Jh{H~iSqZZmnz(^oiI{]rrpH{zW}~SԊK.92׽-ٖzw@T6?/ )`kio.w3rXZZ!~̴ dsՎ?!:y~GA]/?)UkO kxAX5O'b?kS09yo*Zѹfڈ9$@ɮ{z]eI}7اvg95ҞA{hwkqhbpѡ_1MZQ{%Hē8;f9ێuዋ_IͥÈ?2ۂ0:Eꀙ!k/.#ٷhF괸3sKE2a!,)SAE EsW&}^@yV.b` la TWO@~&%?5oR3iv;8ag O~]2N N=ZE5~chy#@gez2^f5Nb RGЉ8'ܕګ S!KkR\^kŜy*%٬NHnrO\m!UX'D?O+YmB nen7|=q"Q{}̎ROSDZ.hoﭖmQHIO渝GTtE!),J$⥒(0>5׋728Q&B4.c {Y!㷨`G,jw jUHocDVlNSdŗ#$ KAkz?)##o46)c CNh\\,yQQdS 'pһ+O K\[\ۛfԁVt Kd3Ev"_UY r,|v湘Ėz*/"dlRpkۡUJ:V&Űd. Zmn"ݼB@̋GΝ?:}Յsukx6n;C#*BH !|y%S ;馏NVƵ<5?toEb3c\?= HѮ~H$ΛSv3cON]09Տf;Xij }O@&ɮţy£F~sǯ iAj:% Ke1r~d'`ugCP0S>L/ۿg\o9;gZm )*aj4,.6VZ_;s젡'_]<HARa)/ΠWYwdmzoQ2Fz>M,yP[ϿPIS)ևđ |a ڵ"`/l:r}LBk͞"RySW2cU erUG>o134أ_ ӪmJ͠Ļ! NG&t~bGV<&!H"%#|yqA܂S?Cs8'$<\43;T^9&_ŨuMo ˤ1klUkGbP&?I"*Zu~%Fq@/ ȫ׌-kkFԩ88]h֢,+qgcu$V| ӡv/9 pH!T^G'TӢ^ůgIoysq@ͬ\a$*F\KooFDekkț395-T6@#V_V:A hIɣsrx鞔-á1DW)خA=88?J_7Bu)Mſ^4$fU?6:+:Ҙgp<[;kuGZ-=5[k{AL }qk<tIdS@ #skAB^3Rqyh]޷ =MaEnާP$$v3 |e\A$/&vϵei62kZ};W62:N=2t9cSw72ZxO\'z]EkoV.aA.I2}ZMw^EYX/?)˩Bk?"*K Jc7Y]dgqoSͅkUѿY>WF?Z֜ O,ƊYԓ\>̛t6E! ||*TWkY;t1Rqvqb/T󽵍De(1c׍Zj&d0m->g,>a{nsL$R)WG S|Dд/i2+.e@p@CXzYܰ%v$?uG~ԯ_ůg_kBk?"*'"^0赮7Y]dg7xֹ+Fԩ睃Uvj)1<)fv8 ROg :{ygh">bIUrp+M:*Zl|0Tnmݷg8/T=Df(1 땲u,FH}kem4."VTG#8 V[˨Xk,)k{gPFH=zVѬS亅p}=ɴYɛ= veӶm\U NZT\Nh4ЬrGUŎ;ri֓E^o˟18 j%x\{PUeTAM¹V%!}q־+y=έFn=CN)kSq¬^򈮏8>^,WCk";e*sBgcyr_E}L1Z^w$VdbGj"=IVI^½\/53J[.\*8>%3Ũu .޻F3Sxk?bb+>ŽSy~,g ]ko ;>|3O߷lWo/Z>xAK*ZldmiFj>朱\d09hǪ[hfȗUK-A,3ӓQ^Ysu4lvk[6('s#;(QEɤXby1TR"8rOoY8[ ^.#< 5VOYLtEPFn^RQ㎌G87E8}Ev3`z+.>xwfSJ\.۔+y]yD;vw-$"Án1\Z]Ϊ }q1Q׷_xWGgzʸ8[ "IWeIF[ZXszbvZDg|GW |S(o~U? Mw)_],w?X,iV;)Nx%5ι2zgi6u$Jю:ڸͺ~f$㑜}ǮO (d/?)Sy~,g ^_C_Syoec͉Kɜsҷ^ѭ4k6$c?s~{c]\d09 ȫ׌-kZuTt5t#oo$[s3Xg'"X.SHkoL"yx;; cj誾T=Df(1 땲u,FHFy5ӵhrg+ b@?M[Zx:hgSȼʃg "i2(E6"ϧ&'Nq}ȉz^E;/rs~aZ(q,݆ +ne/ږX.2-1ӷnxݝkI iK|9`3 RN.m~҆+N?nygI P(HzO3?w.IhRBt?SORmsqmUԝzenYBnOTo3d4K ͙ղN+G?7`ԭè\jSX ΚcF?!6:V ;qM-pbe<-m9B1e ۠b (ʮ;jNkGBlOxȮya4RfDzKm7@'jvaeÑ?=BYYR?oL`zt-2KۋB@!KqϿ[RɱjWv0|iƩqTR\6{ `3n{ƿ.CCj+n$׀?:]F([+ rD<>}; ;+sT_5qk1g=FoϲA&>>S7Ƕ1:3#cR7x֣a>ч-Z,i*mtW 22A1.s$bRzPnuy tuWu"]M#[3M0" 10ymcqDw6> :v*SN /%([r\X{F}bF3YL\7.<.SL0dynmC~v$Ոn7gkI[ jSugEt.-ItQF0qҐ0q+V<|ǚz;{cO7|!bҟҬ{]wr9*sJ\4MEMT}w ?bskG2ыZ3pV5~#xTz/WF?Z׎I8ƩE%z o/? اn|>q]7Κ˨C2yow]P$'SsR[u2oIᇡJ% LYln%ݤ!,RVT°,umgڊo|o޸땆trn<l'L+UA#&Mŀu*J1V#}sTBw )f+ R89#W5ߤX%hDǢ8?s6\-ͬVzdv{PKy)6r2Ԏ-:/?)9xE)+-"{M. l[0p@C@5Q@Q@Wm$qc#yՊ)y+&m2O۪>1hA*z}k^𽆴3D.9t$t>8dzC4oݯxa%t?g1אF8_)+׼K JcqSJ2bdT'xOE]`kZONѦؾ ٍvݎs޺xxfM)<0>w^SE.e P-q!v@Nyϵ?laQMO7Km4&KI{ABX`˜1jiXHf^ɸ,A33ssUmm]AuT0ymcqj^4lI*Ca<\y ;2yN]~TGZWT;Ʌ[s=}Q{MFvrw]j0Aӫ9@<kubbӐ < Ğ\ѓ==i<ϗvJ]5.b`yldR2s8ZI .]̬7u;p? Bcc=*vvF>p+8RRVF`lYJFcpzEh&ѭ0%!wcqvIf-/7pr Q=ͮڕ-8ZzE+3OݻUws]Lh) 2;8"i[$]K 2\@n|ߟJ]cjE{*Z߉'8>褯RsM}6Aϗ߽F2|Z cΚ˨C2yow]P$'SsR[u2oIᇡJ% LYln%ݤ!,RVT°,umgڊo|o޸mMa {yaz&;<wry1uUY\]:X#i^*zBUۙQsOa #&\{Y߂+;(䷴'sEaw Evbe *+`0 =W9#O|8zstpt&륢qztKK(dv~W-1FQ99?C,Q̡eEu ~GЫT[IÒ=\|;9?/T/:JZؘb|<#5S%9,# :1z Z[-̸|l[Eek l8$P0O=MECm0)QETF#t%|c I}@hWͤlX+Z)(N }qlS%9,# Կis+?:<Zuos$ZK$mpvBA|uS&9xE)(3/QԿis+Zt= )$Rw[Ӹ*L꣇ z{j_4㕧Q¥bEE,X$~O3sbD_;`;EC/V1+JDY䁒>'4gM~nu! q+~xߝYa/--:}pQVReU*G 8ӻu K(RGkhӸ?+̊×z{j_4㕧,Q̡eEu ~G[I4ip_Eh=e=/\Ӛ(HR2#HO.EV]Bw]g yVs.7"`:[SMP[Eek l8$P0O=ME(* 땲u,FHa饊9,# jR[09oW^ o t]tY![H2+ #O]2XBʊ0 22 AqMoج~_xziI,d.Yڦ'R7'[6ONMoS*q-"l|ռ[?"*H^j+ yo{o\ϮwXBʊ0 22 AqO.㱇q [fdcdtӟ맢yw #| [(2~)^dVpV~ ";&Xd9uӾbe *+`0 =>iw #/l%27+>C՛x3BͨY2]Y 9ɸ<]2XBʊ0 22 AqKx+@կ2ˍȹpVͥVVۦ`crNdTPzQE((*<%1I#X ֯@ A+x+y2d`Ljw1$s*i\ʣs\a̔H}>(ⶴ8iJ  ӭll̆ ^O.0'OtWקD)$p;+ u:]yOڥ#YLX͒y9=}+` UL-Ⲷ%5B @9 O4`Ѫqq7u/IH'Nӝ՜a=*-}u{-]$+ƬW$y9W(O F!9oZV֖#T#A 5Ȟkekfd6eryqǩ8}tr<%1I#X ֪}F.f$Qddjnl9[<jZe6op!,JI1$~&ghy[UfȻ t=@ O-}< RHvV@u:v `PV  x nc۬Am*i$i\f5b$^'5 GiB|Hf1 0ϩ8}>(ⶴ8iJ  +(wL:B<%1I#X ֨i=PM5Zel$'t Wb+kKxcƑĪ }&cb]Yܙl׍:$#'?uI_NO-}< RHvV@ulm, s+nʌ.8jr4ޢZ;}Nx-ly$25b2ē'Sη;gWMN`<'d|ݷb+kKxcƑĪ }z}Ane;T}N4uByF\dg2fX.> stream xRr@ W.x )3NtΰˤȲ,+ %.3,-F w_8ݩðrl`LTT }7RhjQ%aAꇟoP3p}O=FFdCB) ƂؔIJc/= #mک'GJ֬^Xa70Y6QBRL/S9[\adÃgl>kf5inF f'%sKʩ$xӜ]o|8>m.!fM߆ϾbiZ?9ŃsTyzOFĶ[]),?mw )YyMqE:yH98Ɯ-Vq]=4]ĕkė/*fj-ja^U endstream endobj 122 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 600 /Subtype /Image /Width 600 /Length 53873 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKXX" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (mFn+}v7vukS~\tzUjzejQ.bYQS袊@QEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQU57P]D2G~G@((((((((((((((() =·CӠ[uh퍱מZF't<גxTv} (х+E_!8&??fvY,gw9,JI=JF(B3}M:((((]rx~E;a"%Tq@VO#4*9}mT6sLsӥoQ\+o +&e>M~tC-:9ݞ@^<🅴'{YD9-Xgk v@@+?xr=$hS?2T¶f_*:+mO̿U)@?[xS_3/G+o +&eOVWLV|4i+H$E s<_ʀ;+mO̿UhZ?֐,1,a7'\HPYɪko+H[zI\Wc:0+ 2NlǛ")۫O$մ"1Fngړin_ y%qsvt#1 X'8灊Z>_5ݔηjbFA9AVՅn.,N2>ER)W@Wvj(!1q#w?881GuN.,bAABcrqE02#b:FOpWr#FuG4ع:NOز8a㓐 j+'ŧ6_{I@^y?nnQWjEcbF?sf56ZƝ) gUbr} @ jQEQEQEQEQEQEVd-]F^ L9B:lCg )^} h%?"vAWVP4s)JUrp2OMgGu/WƑ\fmG ::SZVEU(OʸQ3U?s71L$R^^PAlQY?Ë́:{-f+z#zzG[}ɬo|[?λ>"cEdm5˨ikr:1 zo Nzu @Q@Q@1XzZjXG7أn9x2.Տ4D^?toEaMޤcl-3F;Xij }O@& ckwqnnv @m[k@` $Ҳr1*8x#5\}EmʳG;g|'"^0赭j+'W5M ׇkP+qY:{HGǢT\fU@,m>}>D/7 $Xu5h|l-k,z[]&|򱝄 0?1F68_ XY-i$KM0Z)H6)u;DY%1 y6f h JC▝sj&:^"ʀ\), m ^H5:ePKsCTH89RO#WS}M70LcQ$W2!~:)I Ɓe35Α$yab4c8` 2{eke_nP9E! g<A ( >}S\v# zD~z=kVN^r/1|60aYOR;PQ@ X8RpI' E$b9c]`v4ȫ׌-Z ( ( ( ϺY<۔{ti@FrQ`9GxAxn"`h$xF&a4VocmimMjp`~]rrF܏5[q,t#` *r@|:' ]F{9B:\CgkN(+HVbx^[wFw˳K1S]{Ƹb\cO}Gb9TZVE%,qIۃ$nTqvmW ;FCŋH,}ZрX9&űi5#s >qާ[CZʲJ;؎=p ] G|ʻhR{IY(Ԑ(텦 02}-mr: 8ng.: d09JDeXؐ1n`NqN5wi-o *W6͇2Oʍ+IۂN@4cWzc{!)zg5EQEQEQET/Ld= g,@g$Ҁ-{ks,JͱTuf8FI*5[Y_f8qbHolk\9/3F8Oa(l|hc{`!񃃐b}N=bB3bcrd/Zd1GI(DApr>$ijǑ1To'ӧ\{Ě%qU,kfI#gc=IS­^MO-R"w'լ$S(q =? ʗ9"LrH2B"[g4]wVk/^G<}{ůTI{EfTeU%dUL*쌔hꐕ9KtFGӯ]A,RbAmAE^'*ߛ Z~7@\F=rN$ng(^mdWH>PW{hP}7MkQ@?q}?t _#'Vl+BÑ#: VV]\>`N$sU/ XI 2hY[|p8?,[ShDuOE]`k\k'#W_?toEqazW=,\&kQEyEPEP\ǰʅcfA2ڧp|)zu'I<}ch]rxg-p]ƋQgUG`ju&ha=O3g+PX1CU Y$lEdz ۮSѩ@oWX mGSצig.PrFaxse_W5X<z,iw2BŰB"f'?tH8*Z:][9DA}00~]HXg 3o%ikso=ŝ|[~j]ywr4sA8x`kUlb R5xV4 $7 ƀۮ%'YޕwI"Wְ]D#IF wKM[ * Rhcvel 1dd`qGcdԚ'BtE Nm!f'#Ug֢('j7^̍:_rƱ\[ZS'#*?78: ycyj߷;w)~xK>{ ma?( yo'XPkEvXFh{c;ezdxpM{_IymҳܥONrO?x-(Mk"[)ӗ5Ǥ{g'SԖ< :[y 'ʛ`|c&ƶsKuBH ի8";h<Ҳ'c(<+wJxMN qjX^V^u2Svd}3׬W\YCsz6Y683]4eUEWiWe򋉞<ƇzrFW$, `fMH!? 7 FGf>a׶dw]rH|}CG6{#kQEQEQET7v^kp6ECSW/Y,85HL,;lrT .e`ks'|XأbHpGhVy{"_/d02!8 !Y$tޠ('ℹ lyO|C?){2F9=cڹrQFJWO>-tO}ɍDkfL9p{YrƮi͉J8ָjKKt՛GQVkRRE Xq2YG80˙6{`Ox=*եVVۦ`crNdV}Ot:rݱ^7a$)֠(((6q}͔Ŗ+'(p@`Aǿ5bLY#EF&fA3ڑ<,Ż@?AΫ-VI3BQ' zwo$*m:%RVESր/QEB{BxJI&;HwW4Dž^@OɌ1_Qɯ?O_s0$ |Tf\(A۫Ȳ_J;G\1m%ؖoZq,I"P>4\bR2鏔z0|c'YҒ^_ס8vZE !  Z +'ѧ_@9#YK9y@iog֢+QEQEVg B$Y̨2X ;vz\Q}:ð;COaREP΃ 3O?4au)4GC+ҾM+N;FJGbBQN=Tº+-74g}"(H8}z [P_nfYfIg#d wtI+ܟS@/mZXI18>\m1tdM+\{#hdxc :mc*]9R:c7wז^+̶].kmnI#PхAݑjj6(k ?ɖ]T!rFKet@-;:sj5}qxLC(~Ud:- ԠyF4,7E"u$FA yHm_ͪU6mVEVLFH(Saq$KȺ]L*Yi9&o0)݀ { &7O [HR}Idch]-FM+FIu/#ueY<-jG;'r@$]n${{OtdGP}~a+ԩ@ףӴhO-V}"54qwkZ Kb1;C\)-FA`Ly;Im^m)y% >?h(Wdկ`4ۚcp "IcsF@8`<xEy觇r[T_"k;1t*m1 zT2( oїY:GϪkܺݤaP/cV'j(((i]͔J̄ w0YD1JQ*7*#TbSMm}#M.Lp6[r[)O'?7W\eꨢO+F LWwq a!{x;8:UmvcXxdćNAr [,-֠)f 7t=סkbXǧ^u%$KF>sV"ԬܵZGU<};U65Y1W=Ghܵ MÆ#KbJV2AW$¥?%r9Ws[\_=įU|u_lb~ȪFLG);8o1Ѵ3 Vm3Uqp ci}|;y-.U9ax : /VՄyYP~W$^TqO4)G QWM8)-OXx$X5O )2}z+g[H+OLaF&0%p+٥ZcxQqz_GP5XT/H8<`1]^\㽰|OF;kȼZqZ=#_VO|SĒFvef;dp0t'R_.t>Yt#|1jcxv>]iI;ON\U ! Дgc!'%fzQR&k[xjo 65}} gbn=5O''"^0赬ON]<Տf#ReN@E:dDd[$n}`N$sWx_j^1;[!wU2n W#WE-*`)@e}+7s5^Nmv#)Ckj8X|3cp*vԶ1dq[,1XZf$(1$v]Yi}[HeL:[T4dԑvfJY 9(vUJp`ڭunA0x95eP(lt٣idجH8#;9$Ǭ~6ZΎ3f ݍ #5Ѽ}..0 g %, 竜bN$}26"{Ua n%=C~HV`L>jpyP虲͸* V#EX((lk}'[WF?Z+˳ZWU?toEtՍ<[_5=`(((բm(Ksg2IxZ w?ϾczXexX]dE !{_xM|vdm鏣t5K^L} N=C WEI!ʌVA*N~i0ˀ3Xk-MI-y"4j>f"YRdžXI¶g4T4mh_$}NCI]4l6m#3 6c>qO7b_/7ʻ+x8: !(dZӛIJ2v4LD|I۱nN6 ƺ(xė6]48g3*˜dIՠ?Ϩ[̺|:{Mwp+Ul0K>@!k~ɣY[W/A˶sd>nWd :BsJ`942Oa1L h(!= 4mJF+M3rw`y,H@m;x ėص%vyzMEך~%ٟLK=<[yhM(a/wr9B~A Zj[)fKkvX>GKdgJ[KsJtye[YLM=1®h;ךE3M+ZLϲUW¥'(َg*uΞ6]@$|Yڥo½6q[j,0\m=M\) H+*治{@>I$>=\nSCTuZSjRE`3,9b==?*Q{IY iBCL}* jMxpr%$E?T|8WB]&91 Go'3Sq($ NAF9n&X. WgȠ씀C 0  Vbw;o H8X"?lCutL>NrIYrkЅ%N7gv 3WEԕ&f%iPO p08Gz֧=2A7n^ e\6C9] Z(广@Z4m÷ 4}BlOFL5aB`R=Ƹ]WX4M+|\yC*E-&v跶_jI۝?y ~;եKrnFJq\06e$h~mh(؄..Kqc<[Y??.?}zo4EdOoMƏI b_Zf-јjwgrTROoMƏI -"S5]p=F0u=Փ >A7?'7\@VO$ hAޛqkUkMW,*O px8OoMƏI q;67}Ko9bv#R0kcME{e*t2[$cpH5{s+ˡwxn D}vl97$c'Ѵf-B|xo9UaB"]z-Q@Q@Q@Q@Q@Q@H6#-skB gnنin bFg8_@ ]!H CE&Bn][qq,p-dԖ#([-iN|299 g0 aE<44y'8b7(t21:%t{1仉pOke7ڲHn{7|vm낼?t%e.Go)AȤ|bSh6HhQy([tK}Y޴>plZ_JFbOD@ ?0e2X*\+L p4{E+LqDm~X]',:UNtN*1X[[Mq ~\&!XxqsVhAEPEPEPEPEPEPQ][ EFco?R@ZFa [a3 $MSGO-L4e `BhEbiŶ+e6LE) r6X;*ލ.2p^܀pԎ;0x+5=&+ܲ:șċ iRs\/bSM3ʱ^mjmx$Q#rgk]/G#:RG3rNMv~Ŵsj:m$ m GºY({ך6w̑^z9!>^w_rrW%մ8[k,֖;bNBςUUvl_G39=~]:CM]0i6` ,jO%G'Y7`^`((u.jLu^WF?Zב|ElxTz/WF?Z׭KFcN6sZ($(((dD4L@tT2= 1%DPo$bQw?S[PO51{o d5Ed^n?$zQiZ"ͩ8&  x 3jF=!n/54ZBړp+ KGb8ҷ:e'",P}T-"ME֍8N%B~ON{o d4}^n?`M.M[7q1Dr3 z`u RL 3Afă',X19s@u:/k c'tk:3| 7gc;} k c'tkZ5OV@$L\o<`nXSW {>%غmg`F*t,:z((((((((lcmq IrdXBmِA,s kQ@/ӲXnϓ0\2?NWA^ι$-p6L`[n !TdynygXtoeAsj\# p N1M&t$r0yp`0䳀s89\0]a 'L8˓q嶀d8nnԧWD77E%bK|*0~^JN[QZQEQEQEQEQEQEQEQEQEk ӵui!ayȗ~:n,b خic!q&wB<rXG.^袀 ( ( (<'AǍO_)+<'`hcydWzǬKU p*|=c$.1U@5!x%O 07v3iE (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((()QiԄIchx{^|F:+үS-oRs⡇CӠ[uh퍱מZF't'Ysxe7; dK6ÀINf]rXg*#_SxNZtQEQEQEQEQECuuoeOwt R?d?' ~v9;Xij }O@&8 hiGXks2[2D%s$Tˮ[ Yb} o vv(@4袊(((((niSªd:ϵ.t_!"2;ۀuu5(((ꚜ>.Ԣԯ0r'u$קbY'ޓ,K%,%@I'+ۏD^=wHѭ?,~H#~ЛQnsM% 5v<6A$$Me8;[@ ,ۘ7'ڵ8 +1uwVa0Oy~aM:zcsEPEPE^!%l@zvUY8Q{ Edh_6ˈ~+7r89'ynos-T#?yv&7)BqN@6h%x,jQWP!P~'g_rEB g;ȧ]88cF1GI(DApq&gǑ1Yv,mtin\!)E%eo:4_h\\|185_G>sȲE%8`n%V+JCi+|JzWG^~;BۢDl7p} I9Ҝ>$I\Isb"9'4yzܚʫ*5(91ZS324w P9v=7'=:zPcuJK p\dw~ubuk(%WjLPy:r Ƞ VOUݿ6*nzH; Qb>4Ȯ|?)&Рob2<֢#b:FOpWr#Fu൘i눎cI;l0yt2pn$# 8= kUӳ2|rMc~Uu ci]CM~ \i1xRsӨP" @QDvPK:Ԙu_)AUծQWCtc$Fpqb5Et ep7I6{9 gIХ2{f¾;,92^AV??zygb`[G#\\i_y(}OE]`kZk+*Z֮~ڈY&cP?0h_FheYbD0ی`9z(}nP)QEQEWIw2ĬݕGVcd€,QY? <}t_ō태Au;ۛw]zmgͮ ^ 2څlUÔ#vT<Fp@ܼiFY)Wk QE ,qFQ`(aX5; I vɉ08)ʰ ;"ݮeo:4_h\\|185_G>sȲE%8`n%U{_ ,yZu0܄ X203kv.R ĄdGI2JpWkN\Isb"9'4yzܚʫ*5(91ZS324w P9v=7'=:zPcuJK p\dw~ubuk(%WjLPy:r Ƞ VOUݿ6*nzH; Qb>4Ȯ|?)&Рob2<֢#b:FOpWr#Fu& [[@ב b:.{E$o-+qWl뚂d\֯EvUV\W8 =30{kV@[w)+"+'Sc?wB|"VQEQE VV]\>`N$sU/ XI 2hY[|p8xcbxK뵍QUe#aB=uεxY? ȫ׌-k~zOixO]?4kOK&mۜK7<(nbCm$v'~,lO }v6*w #(G5bvcm$+iLaeon-v^-$OX:muې.3 | 6x`7Кޮy36vaEVEP7w1YZup!6F;T AT5bvcm$+iLaeon-v%/7=FVesס֠:Md"*'"^0赮v-?DU=wHѭ?,~H#~ЛQns󰲾"݈R]:j*+#ReN@R#aI.r7 A Wp5-ͦ-nf2Rێ3lsElQEW/Y,85HL,;lrT *gLYbr{@:5o |hU|XȆd.؇f z+x-HQ}Cə`5 vO 1ns5uQE.mq g\J~akro2y$=M` Dws5.+{"D-%b2^qz.l">es= W)X]V5&.Lk)_A[+O_JηF=W?ϵzG*d,gwe͹w>~FJzJ(2B( I<]Hy¬${kVO}=6hv5O"+[XYbrI% iԏPkzfbà7ȗi"Aw8sߵEQEQY֚DJ{8g4AΫ-VI3BQ' zwo$*m:%RVESֳt6M2\N. yw~"Ƞ9q%F-uq8U>C ۢi3/8<~'ݕ'ʛOuuoٿqqsZQEW?AΫ-VI3BQ' zwִ-'DfU7`؎AFG#97Aߋn.'bE<{ srAdPwI8U۲uAJ=ON^M#t8 VPU*B&*$ n(˜~=|ҝysUmUn^z8א}r֥$c 啑#ت0%<<Bp9PA)IVC&hv,lwwZSU}ɀI$2r92 R02 q^ɢJ@|đ4 FTiTca%+oo)Vr/;J*E4QU7)2pү..s2|O{5Y4<ϕT觑kVMW,@:lϾW5R\ c\xkMַ_i&6|D>c[*Z֮gzͷm_yd<}أۏ|k<9%*8HY`? zV," Rkv2]2@7O>O<2 Wee s?ϛ~69ދk`5袊(55KDeM #qh?T V[w0,(gENA*異I8U۲uAJ=ONgm~,e\AD2 AsK[[-[AWp} c7 LdO) |ҝysR{7hAn(˜~-T`Kyy<9T by?^A4IVC&VѲ+i{!L8Tn`cEll0*hۏ=ڥ?+(1ny5;o.ޞGL+$ TU8ǿ*:tYϱv0"I$qNG=x=e <{R02 q^lOg&&MMT[ҍT[E:O]Elf#hҩPh;'Kj,ckF9dl A 0WF?ZJ65oI᩼'`hUH#'ٝ>͸;(SR]J|'MEEs7yDrJTp7BԚ݌h+dϠ]gAEdfAangyvo}q=@QEQE/J`l.citF:(YB.3`}gJk7wm5ߖHF\*AP0q [g˃%X'8n,5[֖cXhu[6b~'Il\l154K󱮣KO&PyXN~^k9+RcLjJQgC`JF95ei\ GZq60yK~č3ڡ2-ڲco9,DI)_OԌ1s^!"X~dCU_ PIm#Im2ڳvn۸ˬe\_i*kبQقҝ<=%cOOAѸuYпPo=ܑy(1.} F|v2r~cO:XBn$RW88ĜHBelDh K%? nK{_9SY'sN(a{65oI᭯ ȫ׌-kfƻT##+/vs~\VLȣc168MQsƭ 8~aYUd=oo\z 6qq\xB)t0{sTB#?tr?? |TYJlg =+X[S5- /"ڼRep9IMr^,7/Ki<[19`5j-\R+Ġ$㯮+GOw )ѝVF|.~ 2~[ߣD6R[\lY<fc ca`WRi!5,+:Ħ@V}17*݁ ;Gb\ڰx|Jb@@B**-Q"=aI^ 񢯚b`",`!Hn74ԛѯ=+BH}BrFD %}֬ b.-VфCm>J 4 ٱkO vLuO'<|Vѿ?toEjEexOE]`kZq[k&Y[[ : љwFclpP1o-Lj.Thс2a=HJa8?HcVGDlenqs?0 e'irGB~ ~ס}FȜm!B =9}ڼRep9IM[ )V-$GS[7"Wo?@I_\SQdi-?/Cax[H刢ǑWpG\yR[\lY<fc ca`WR68|8TN4sLV}ג<>SՄm弤|T322T_I%4jkXebS +>Cn__7ߞH>;>k=V3Gy-EU1OnVlra~ r8biT/,#)bL\;n3#};&M>QsĻ"\$*yϗW;y3Gٷ|CrymszݏLT,8=(7}a8 >=^ )gjѐL=gی{;k`7@QEQEp!pnv7ALHA%r7y|Ck|OnX(\zAqӨwSLqBf[ATUX'* UGm[VMR,FJ7_ѽr9_yEfݝ3#}-$﹊f Np$e˩\zB)W>wvx6q$ GqXM'5Y vrJp7 R>߻^Jj1uOr[ XQWV2* vsZQI([gtLJ/p&:oTT?3!HS$;w̗v)β+ػe aAp¸jB_ y,=p=ʤt1*Kb.Y ۋ$VYPH.' n#;}ĮT$*_qJ!zOw[L~gy3Gٷ|n"6ML0&QQ\^l|[h'~aɠYqIc{UQ$n݀( 1p'$ =; z@h&Es۳d=ڊޢ(((.hd2*7S~ »3Sq($ NAF9n&HgmXg)0  $I 8v\m,@܌00);M6/ľ Mh#\̲Y#ӯL㆞fnqQ^ѦjOد%XO(M2( `@ǚ9܀pԯku߳Xs#Y͙'$brh''&o^[9-V6 6셍A#] άjS5:#WY[[\Qsw G^a60:Pl[Dn?($1od9kcM]0i6` ,jO%G'Y7`^RUf:RKB gd jz(`QEy'%\gZcE7xּR?ۏD^?toEz ALUjkOM=`/-ń^\[Mtadc}MmQ^Yf.V\1 $1@7sgӢ(((+3Sq($ NAF9n'v.hd2*7S~ 4 (Z G5 T` $ P6G i 6F\E f2rބD<rZ m@(P10I6[g$i!'ˍ0'v* Pw 2\"C2 LR*{= N3ZE}>=Q HBxL%nR2})^7`|VIlݞ}j9wÙ-|܃*2c8iR%x5Or|%c?%>FX'F _b+?5|mdf'fKgi.%%JF-m~]2 z+Ks"r!RvbB料5HBA#:mvUP*OcOstU4NV05',915HǼ +XZE>dF93lAKַnV VU5Fy"(Œf3-c1׭׋]2Gqc͊KɜR^WF?Z֩沼'"^0赭jΣOM=`/-ń^\[Mtadc}MN$CQ[qp0Jil@1wkN((((K +F߃)~0N "2=( . ' lAV<=5ֶβѢࣖݔ*,G]hQ൶ek Y\ȶ'̈#G&PH;b br:ƛg$ =V`m9XXԞJOl3`n^Uj++XܭHbny^BJEV ( (<3+cڧ褯]7xּAǍO_)+<'`hcyd]#?,H鹶'5Ep7WknC@ZHR hUK4.x*c$ʣvZQLB'Ԃ3BVqm{v$;/7VBCoMł Bcʖ+hě߾ bI3z^,](!l ;H'~aEPEP^mSRWׄH8E%z]#?,H鹶'5纫^[k7s - D-*4{A hW9x3Nդu"\[ Hm鸰RXaP7bVT&9׺k@I-n BTۨyq>@P~-;y}Z;]<'ǡ%WGD<0Ut ZA|Aapz+, #,\n֭ιcl%`+aEPEP|ElxTz/WF?Z׏H8E%z {/' أv<>ݫZ fq^:j*+8͔ mׯ}B]2{d`ofT /#-k5X17R(U`\- 3q~ { Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@+ EnckO "@p@Pk1xoIdhtq ֝JpVYr[+KU-6e $DFEb30h H^ g8 <0&3c8ZtQ@Q@Q@Q@Q@Q@Q@Q@Q@Q@x-U=}<.c$V؉AjZTg E$b9c]`v5y?-[o6PD@ h`R ,yٿsgkN.EPEPEPEPEPEPEPEPEPEPBu[3w=El1 E$b9c]`v5Em:Ҝ#Dyrk*3O#Mom(ZLa“@֢_jln[ixd댎άPEP^)wxT3*_)(|'5~~O~6s1] v<6A$$MgxOE]`kZi=o6q̷b fqp >2鶴9Vah›uݝl˛@` $Ҳr1*8x# + :ܼHFq7g>UQH((dO,αwsrI=fmMBW\Gisq^ycYi͝PdU#SzyZEi }I/ }Fx?-Υmӏ,āclrT"y[mq8*;{5]^%Iє3 ˑa S@e>g,vPK:]LPy>)_)AWծQWCtc$Fpqb :oҙ+Z \X~%7c=8MRy=³a_y֢ +'6.l`Γ{d,|vrx6iͽW91#v>FP:cמF5[~/UZq|ZƝ) gUbr} @ hQ@Q@Q@Q@V~oqu]fҋ/|B9Le~e]@ַqܦ7ۣM*3 r=ECk$1iYF)sToJ_ٶͦGvRF$bbo!p1z@VT6uIQpry:(F=6wO\3f+Mw G$};~z gbʼn1SYTUmen S9̖Y$$#-ABc'$Pw)Vg؃,X& kn-Y _Sݒ7=]oFA'^<~?v4QEQE^PE}kJۂMpLubSԭs<ޟsp16wqZ^]ƅAF8$+pMCoi/f97%QHd+#.$`֠(((_a-,7,{s@XI$'T&{qZBz K`8#?un2@/^[XD$bVmWnʣ1 2OaT/cxE9 ZEk{e Zyz4a{AW'^r˺ʻ 8'ր oO͹LoFTg%z/Hb!oijЍS6 ޔ,mL(줌I 6Bc9Nn3!Э=mB6 Т*8ZtQ@`_] NF_1¡T4u99\,ʹ>vebK8ٳO!,Ϳc`R9b$mÚWjj&UX7-ՔQےX bH9$wpGVM:#ّ \rl`[j躥֝s$y{KWHʯC+`,Ggz.jo?mmyn[rvCKO'\FHp=$?5ͅkÔHbET!obqw4mb[k7ncdrؚ»m yC,7a l@Hi.|Om0tzBd3Gr1p =g:IŵyEWAEPUl-5Wְ]D$ч~OV( ?+<=J?{#>;g<hw5шq hTnSNҹ<>&c"ZxB2rFj(((+?_?tm-[g/p oèZSVү,|/P<;n#8ր)xnX+8^+yK@xx$eG8A^i/tlE2ŷek)EAb@K!QEW=䎄.x=xWiwm*iy?\WmȨhdF$@>db@? ܐqf:O?ʀ7-yH^ߙ $ (~~^(m'M3Ư9FqSPEPEPL~$p $dzV`A{kVO}{w$ȧˍ4qgr8 VQEQEQECwmַ h\H5W@I_}{ycb)#Y,85HL,;lrT ^FȗY%fN8{b 7+~5$i/=j*7UA ۴|'_ˌP,b<^M#BG?8va% =9~y?ib 0rOׯ4o^& r1#~]‹شE{ Jaqg?2+t88?ZEzXB~b1qdcLr5Q@Q@dcbxK뵍QUe#aB=u&O0WaR8^@}p q7^3\Vث\[XLtxO]?4kOK&mۜ{ ma?( yo'XPkEzQE_*]#:A:ItK,]Ao'p ^;5Yvo!3n\~m4ۘV6fifR]!"0~eN]#5/ti.>)庿r쎄#vq˲ZR0 ^ Q{!v 8,_-W-pOA`}4}gk6 )}x/7csWR }m ՞6 2*?.a׶dw]rH|}CG6{#kPEPEPEPEP9YڅGmvwpѱ빎Tt`06 >I* 0gߚ|ko]ҥȎ?M!^љC4 cYo#uxj"/#<4e QEdo'K0B~R'x9H eyq>;#"tQJ<NGEKpqdꃄIY{ :OZ@|ܷ_\j7헛Pz ;z~^T2 U$gۊ[4Eh$8qz62 kw*e2F#bNwүI(X 9¨p9>5k]P4|RPcO"(-pΑ6ϮpN{cN;Scu}\y`YC/~@1Ž&ȅP1wZƍkp+#kG?=(??h G(Cr1^GOlOyE ŘN #}e 5˹zb @(+'_~y}JCwX#"1wSOF_3f,z)uWs_GcV/vDG@ׄUѿY>WF?ZֵQEQEQEs՜\AT}F| jGw OOFoNPa \ĒqF}Zl&ޝ*\2@=ld3@57WKN2)8#@QEP n5m^\+Ȫyh$!Kx^mCXCaU$3:# &$6?ˎj_uh\WNHġJH&AZ,uq$[Gq^@B1ͅKFXW'n+?Œ^c',""2Kor?@@"L ~SHS5ݜM k4c#>@A=BXIQ[u# u 0V+m+|Q 3r(Rmt\ɶFs3x<Z{:klW< I.=Jpx"4--6Ckkv'(((*aYʨ*o]PHPn%ɸI2hc*w8ǠĶ>O&&8Q--jnt[uTQ'&+˸<q^hf?)vLOH} umN .vAڀ8)h W8~ܶ*֣w%ü-+'?T exGpuKP1Vb@({"n|mFw8'Vd0'qOWXDg8'bibPvxu??v\t#sʾߛ p VH 38APY_xC^5j+vvCD$>Y:/M֣|ͼYp#55,4˨ac['Ӭk(K4V$H\䐠~(Q@Q@Q@Q@֚DJ{8g5FCh4c-Rwb!nnH,w M#t8 VPU*B(+3eBÑBic'gXK;P9$€9jIiS&#;rGDp*b؀2ۙ`D#I+!Pe'I:Ce,!HLGh9;5Emܱ$ȘZv9nq)B#VHTx@2e99=@,frw(m),[3x,d1ncR20\~p8l_ Q:>R r?-._E䪗 欏˗c7<oH沖Q7)xWkyRlPh;r0SX& 5n;af*_>;:WkwDE^^u.|I"*m[yWg ?`fv(68nf<(IJ1c8'"^0赭SȤ iE:dDd[$n}&77fms۽WΓkg, 9d c9U`vjuu!8D Xfw8s{UipfQHzmŜܠ EfBXܛ/F29 7szXoKoircےHwJy9/7UEy_0RbX ߬s(UmvcXxdćNAr gx\Ddq# T+oqpEqFj&bQTDn7Ip mt1eԯ{Kx-#x:O"q$E@"1[KolmcGk:&tX1%~2E'EK,2ZaEv.bA Y9ȮvV)Mvdpuͮ$8搆Tl ^Aas6ro.u4"ǔHQ‘RHZ2[[{Hx`-$cAcP[i5ϒkxS2ffmL{UF.H]]k}a}:H#Pv_2ߑ[cPgV_41t[QL͵m 䛽r:Cw9P]IjOԶӮc=bCbV"?{'(-iZMM=d 8*|˗۱ 78,ȭgW6G%HXƭ EY[$m~}w!}VWGxr,HaBNӑ&IZl:|j *TG$K3)tJE%/ypUB*+4yUPi8a[$RvU`X'ws0 ?˩KKq=B``)$8~Go.i%6[-)˂3e"14SfFn c"8{W*$hmbayAcI_ƀ6d#ة)ەz\;iݥc\>ء\F88N`ܫJPq6g 'HpU*6%ljyl)ju;O*݅%$ĂB{:(((((tPyvY]leʾORi>4V zuWF?ZֵQEQEQEKuζɾ=R5V엗W)J퍻EQT #ݙcesVhEw7o߷R1?s"NVj2#tkV9^YvdmUyFF H,#VE ,Eg0l.-m"HF ,$n7ny\[ =;FmW(7 Musba &v*2D#rɒZ_@Ҵ궗F 8 *̐"c|Mof"ŌSaq8s]3ވS\jtͦ=IDrc4quTཱིԭu|ƍ%íVqʸBrG2 [V*@'{\/|3K}j6=-ɋ=?9=Fk4O#|叧aYvQ ez׈'YMs#=cڒAs@2-ƚ/&Ư/ wLv<bpҴu&2Bb{cY!8"8V<@mU̴[2enr[3 63MSلms䵸yEcccv(((((((rIO\.ȗ ".fA ~sfNڮ-c42kF`1 ۵K($mҹۻC;i E;;@W@X9cvr@8'/ w[VI"xQm 1ߵTe}gʉ3$^dc'?h 0 B,qO6iyw;.Cxxlǜe5;gwFѶ.@c(e H P (-JcKgYQl_02Y" E A` okXVl xܦy oL-1ohr.ʘX1F$e!F@ˡ$ EC\rUyǰe##P֎MyA'-w6 4D #NL`3jGh+F{hɆ9vK*;:u6 +^^I'{2[;IpY,wp*R7A%m)]. G ȧe܈TپxkΑ1E9$wZ^pUay3yV͜b|ȍ4rg- '#oܭHQmǾq5ܼ^l|[h'~gxOE]`kZOmT,8=(7}a8 >=^ )gjѐL=gی{I'Pj/.-&:0ݎ21>]!ḸbHb%v46o o;5Z\ER((EEM=*\%Ɣk!Cb+ #'S!ieb#p塾.1~p9a I,ܩ-TaH kc2ʍt D2 BLX2${MP>VDvye=o&j9M#@pU(ZGM= HWkrn6#`x';hI!vy0c{X` ? }*Ba7Of(ϒ1WJZtEXEVC ( ( ( ( ( ( (2;rpܕ$Y[6o61>ӧJwn;^ ؤ++ytDs֥I:]^Gi5fi#z;GzQ8?ʀ%dʌY@۞ǎ gxbwŤO򋙱XȁsD."r)*.9mI-=Vb(bi(m8 R:Hp+֓pDL\N@Ec&(ZI"omڟuc9kQ@Q@Q@Q@Q@Q@Q@Q@][ EFco?YFa [a3 $բ2uM>lϲI0BN#K7# :a NU{+]EVc@! ʣnNFku2oV~@|G^~Y8yasm*NhNԚ٤#uh$[yxnU ehqe8C6ecܟ$ XǾG 3 O<r۬F`fkWiA f@LdTd!\ RklZR ]<{knJߴ//H 6 ڠTM]0i6` ,jO%G'Y7`fsNYll,chlpgl ;H'~((x:ƹ_Q\V???toEkVOUѿ@Q@Q@Q@Q@Q@!դ-R/rFYOyޢL0ȂriӧY&ShQ\0Kvd9l  Eih[JsY&8$ɀ_?3[Ҽeʹ̘Q!F_1PpҀ7h^ҋ"x8InN2 +f8btN-k`Weej]ma,,%֫īŔ,jFݎIH!QG5QX /_dN>SW6KaN"p P¸ ""ڬD,6V l"n\6n<vU#KU^O*y2$)ERV f"0 @7pX?KCusmF-2r2Xd.bg-#[X仏Gd7~eyL|ƤDd ꜱ.>R߽t{E+LqDm~X]',:U*Ϣv4[Nzahɀ sptdӵV I!$A؍SwLg=8j+aEPEPEPEPEPEPEPEPEPU/ӲXnϓ0\2?NWAtP{t^KydesHU$n[bsme+EiyI 0+ ]AL0]>]7[Ym|Ő\ڿ&Hf4=u)Q Ql{@?)IfX(-Sƻ2m.\9mp)~(((((((((((׼jCq.-d$6tX),0(V?ZXb\I୐O\,8((((-5wj~[} sﮖH+V_"%dR:{P~n4h_@~6cb7cLvh"eBA>=*" 1L®0T;<{h6.c=[ 7V*Bst5 mc߻92BSOil-V$4+dw9>TDjBK8Ğ@a6o|g. Ӣ)QEQEQEQEUK/)> stream xRr@ W.x )3NtΰˤPdYyXqHɤ qnǀw>7'aw0cGm8}x7B<pMkTawPa+j, >tCY+|PJ~ 6%xFlRo0sH[fv*)9ɑ5+!Vlp 7MT8+PTh=AYpY{ϚY~fOsĒ%Tψaή7>\ngNXN/G_\[JD}ιQs*pxl@'# Dz{b-.q;<䦸 "j> stream x흉ev=0 !JN@㕀xDW$چKlb:JhOQbAQWw{n՞-3;Y;ΧW{ǗwVջU UVZjժUVZjժUVZjժUVZjժUVZjժUVrFB-AAf`i5E<{ZTSă'RQfPsC8bO~r(M|WT[(M]PSp#.=JS)a>4V%WU1j)QBMÉ\mȨ8)⑼9plhr1sLl(__ǑD-}V( 4|b*##[1s\8N]9يMqV#U S⭠ርG (c&q8WrW#Xq=+ TR<.rU@ HWp$P#-׿U2|UG5M<{DL[ _ȑDz{{Goz*)r‘s*#%8.& R9V*#&IABaJ8Y⑐c/ o3Ԯp8Wr$S#)Ƹu^S0GV"U 4Hyт8f86b*jxdI8`iIxَ+}=oJ𼧚'9FK ˜9q 6#%}qD*泧N_!^o*e]E96셋2G6}UG?7]+J$@! ȱaTWqD Ճ_σS˄a9W 訛[X53GNSHlGyr2Shc$:Ȳ|9ZqD bhkàWX@9 ~_)/v{3C=8:8ZdM( K8"W_ /a: 1.?p9Iw (G0t|<Џj&֨qLnd $g_ƑNՏG08pp ݻwWqS,a >b6M, w 98ҪJq±*#  |58H͑9yO?+H&G9B1b~ؑ#tUGz5A<',tcx睃ln±/|9ҫ W:80^1q) H޾*# +={, cc<\@_-Ƞ&G섅8 Ϥ8qco#g[ƑD&GB_M8f c<#U^H mh#nE8818 ȎM6Wq^6 ]6Z񈙰D3<4!l1O i'GőHϿA WS) r#e)Wys$\Tb_61+\.;9C=. eUA|h/F -S8zwG ㍔GH$lt Tth#)TqwR[*mUG2qlh3#Z~cg9A9pR9w(dѣ@U1TcI80H?xq?.#pfGtE  Vہ'|R GpfGt30瘭ṗ<@+)Wys ga!3csG bWp$@9A=x"rVÚ|J+Zs9ccp޽{l6@rU1 Gqv;;{{{n644+Gpf=aA q68ri.ݺS@^ÿڵ PX jx}u|A8 vm*[A^@rp8a2|3wn/Ad?c*/ pf-a<1YoY.#\?|1kC@vaSAN 8s9@x .uI 9A@IQAUQa!S9PA8Յ0n$xn3H$' (t Sz f1aSAbڅ{0OB݌c۶aāA0(l·:ksaկ*q)9%at-  @{`a$g_ƑUdACEoc rbuK9.Ν;!ǫaä82 ԁE ՌǷ 8 Ѧ^F8O_#ʡCyph*#/]σU ☁1γ0Ob y94PnWxBaKMxQ, b@VFp9Tt"˰9f̘9^)B-YA->xQ@@ h7e'S! P|4L8!ţm:X8>^A21讌䛇)WCh8zueC>66 >ŀrVp4$9%O?_qi9t\ >ŀ n!5GC⑏ G׫p W2 ##51GPFc Վ%iB!@m71 c-R+1 `,W7 ="l W(#,:CVNbLM8a|mՐCKW1"yPC,ա9B<* fv&)H 1ƴ t5Ř9NP#Bx:P +#9"A(ɭJ3K.${ hip\s,[&GJqUUS#?_I\@0xYxb\}5hw ۷oG G0)Vys<ғ4\w<׃ܹa@j:Ws@Zd~ᐭ>gG + _N xlݺUMr\9nr`p+ў?RAvb  $ [naG\vv=\~; b0_őaTG-Ȉ%pRȅC4Il#yHi-";D,.q,qır篼$ŧ|8rW9ǃFƸDvxtuY*q!CCAʁ#/` +xp#A~``2}.sAR9V Ն+{ܤۡn8%?2Xc/8;Yڅ_I0 ڵ իHCWyp(4 Oy<O_0_l9*w`(F 2J1 `(pa)hr|e^ 62ȽcZ9 ȅa, t SbDLN(TRq5r%Ơr, RՆ!G1bL.hȿbqcs,B+ RGAƓxeRaqv/0sw8G#WL8aq2Y44bp@ AViUV$ ge<1J3V0ٲa@G1̱q B*׃>3D! [+O[1l1}s\w1ÌceU&MWBBA KAxQqA+xq$뗖qŕHс%r,QWu?Rr4\o+H@19:3 e[})Ui8&Z[ăMlҌ1 ` ́@ lvh#a6߭ģҺ ql=05N=;7 r@[5eDy* #po!(!G@L  IB:5p4PWwRCbcRʁAVp+ Rm"1r4R|M8"J @X9G jy$-4Pz JC +V`5q3*rJ!GH18,6(*yqSh ckF:Q[EqT)aY6+%]ZmYD8Fw7x5fj*n]Q5 O*-Ox\M5 bo^,TWZp=jWgno4K6wO*q$:iK=ۦ_C L9`-Ér]sVUm-)$b }/%k|G*l ?峖x@|Ch|ZrZ#wҖy*(8 }5Q|up'+2pT%;?VcOewo8͞h-sVW}&9 ۱W"9!B_OL^ᾚhܰi 7 {4[G~v4l*45_OLJ➷gА(;SϪ'*Jf#M}"ǟ b`RCM㟱tiUDx&O:6_E-%_}ڌWMVsO*]@Z,:63,Z>e۴$Z9X݆BbP{ {3^{QD7mZ~*iD#oص_f$~-T {.qX}5ai|56(lB18$L=H1^s[;S8쾚05;Bpiss`K:U2m)<K/S5&&y[8gc&8f%AHMcp}4^{<}+9kx+D0ixgCvm8LLDHhKg75x&,fފ};;_%: |E;wo9ѦRr(_M5W[!18fXiA9쩄?Gx;,OA?+G2*C l1t׎J%a 8~tTIf|{y< Z| "a `lB8/g3_%۽Rd L\#Wb-m+@%ѾI}cu@˗s3g"721J~)G_a3=b2MA}%<+eіV |ٷoB/xb&yx?@U+mP!lU xW)1s\8N]?>m`Az%G|_We_ŋG<_Mhb [+Lס<W%/XP^o#Ë}eJʠ+TS{c1s\8˓,uS6Bl)1|eVj0X#k@]>'tXq=+ TR<.ʜ*WZX Tk% m2B\aq|5g  ]`,O+| *6Q>'sX|e6B\Rh' b=݌ǒhbزWSlFl!6(V[zi|Yz{{Goz*)+(טLMhJWDaЮfcs(F _BC TsUnK+0kЫQ*?{h|%yژ(Vbq[*!Wb Dr/q-!O%lN[N ={ FK ˜9q 6W>O\zWc8aE}V G%HaۚϬՠuݞzU.rl eDҳf/[lN6SqBsi8STkpX}6MW(g0 Wޒ-}C~%%9KVFpD"_MHWg+r,@'i*l P@-ZUP_K8|Gyr2Shc?X/m VqXjY+}!iZ_ rms} /90ĸtq&q߱&X2wG$,ϖ#^2t}F|!!DŽ a H8Ni? @v 8W: !$,} B:?b0?+  92X&*hTE?E&{v#+BeJŢ!%LMgq|Cܔ LXr_HX,e >b6M, wHcU))9q[ЌԢo0lp? Kj{r 8XP8u)&q[7Ka\ݧG?1h͈I$G$@Χ~ @Ugq5H_YpZdMO!2Ve#4|T8Q ;"}V;bq(d#MðOr8zR9v =r.qLCsAԟM86l,%͐[ Ha'Sxi8 | #pac߇9 +t}ojmf_xx$*rC_:{,XybY q̛ Hᾊ1K } G%tG$I8 )|Ljod&_)ա+_OXcYgRR81^ UQ>@Jat}!oL*&BqmWSO?ݓ9f c41#&VI}5sx rÜ"wHṾ8^֮W]7GD+]zӅOPu9AꫨO1"3t?ttt̨\;Ya\,ơ,ôXFxCl+}u)嘎9hu8:DgF_z鍿>vLICqɡ-p̎Ł5Y%&_7$_o=KE#r}#Gћ!>Aᓃ9;)Q!(6*HX? ,yc~R@F= !ny rXFe|D7 _8*(ΝA1cC},g a {@٢}.8[a!秀µT ^z 1`^<8,T4|+8Pg]J3S5C iN ?cbE) b@ +~8pؚ18H@4q9ΡnPUv_{rQN)g݊@py jc[öcqCu΅WC]||ۯ!ᘁ9!:;exc[ c acs_rt 蕲G7PrY_|M9T#a19F;w!G A:r¡/o9hA'"aT4O-pk8U2jśW_1Ȼޔ Wxh`t{oOOφ 0ƚ5Bc vC 㗿:`$rA8ڞ 6uVn8t_J+sAdETNy; bk ?ԭHVS%V1!rGAwaeҷO,lB8#2NAcgy0ǵcۑ#MnxRcZwgFc[909+(syr1gy RP@?ZY{VVE% fq#r8lb怏% ౽{^{-ٶmA.jT8"GRs枹q|}Y䰅q)iS㦛 !{aD<(G9|9\q| KXr9Ρjڅ_nWG1,k6Cfq 99; V18`wmݫplJ@FFA^@rp+_IqpXs^Y{Wsrq;qv{  ~08y9#Zs): rd+{:xc 7|\y޵y!])r_Jg8|UWp)W!٘,qM t!_]w8=X},iH1A^/>ҎpV S9PA8@ n$xn3Hİwڒ#18X8,>ʒb 1B={]]_f۶ # 2n8ӒXJ9rH9pL8ڔq0`_1&y98ec9;brg.J'-W 'F@(XRK. /;wBW!GHà+ﻌKs89dcV>< 8M8Yg`6=b6%"Ǔc.8rxȱ$ oWFWpL‘8hA30FyqW[x yM8tc.%ǒd˹W9q98K  [m^ d|<֏d3p,i48Sm^r<"S9nj30}+]%Wdٲ#EH  z׭ϱWqL3+95a1 ahx@-mmӱ?>jtppa +)#ǒFsVr8_|_ M} q( vçpXPa*?F9Кjx0ロcL}\ > mcI`jU8Zt+e_-g(| bpws@_6(1v)Ǖ]-Gb9|FǠ[8r,i</P7l&dÄc^ 9{%PW B1ȃC8&5s|/σJ 1ƴ t5}uwzq:wy!Gk\8|n+drxi…cϞ-u_-[&GJq+/ᆣ/☋1?8+P&M(پ};9QFͱpZy9_ma̝K8ت]se_]9 h-2?ăp([9Z!+W?W- b,E([nU.hs~; ᶮS#Gk,?gXyq9rm@-#]VN{+r퐃$heh-ʏϓ#V`cP<NPCʱp!K| 'jpZa]C^~Z@vq / *+ ǹPCBqK@weO 4"՜8&Aġ#|S]xp8|OZvD.ۊn_2hE8d+qsx񶺋9eW1]I@xa!beipt1sg_]%q,}?+/]PTe-@m`;xAhGWW?E|us@! RT8h@r]M蚣0[8@߃cx૫TB!JqZ6_0;mcy7G{'K+ ڵ իH1rQP㊂Hg2hAXI8fykU8ᰔpL~#8ršt 9 bnJ A}A.Dc),#=pk儃^.X$-dx Ƹx\9K"ȱp,e[-#5Gk9褎 G 7Nq 8@9 0"ı`,[+#-Gk99\p4Vd !^`xǣFÏZR g *C%Pccc|. 5- sÏZVHZjXi8n+= [a'_5#)Gk9RqZqzIPž074!rCX9ɡcc.bDqa&LtR'M 6C/"<+ A|?[Qw;Gk8D"V 60D0V+ Ap N[8Z+!OGa0V@90 + RtbJI{7rVC{ǡ 6jE0 WG|NA}[C?㊊pHCjǔ8kY`_!up_N)u%XS_C$a@aǟ  )kXA8xg!ƺuCAC%XSXg4bZs.(Q8qn,GyluS>0A+ѷǣ,HʱJ+Gilo1 nk,XS)X66 Z@Y 6!k*P8TW|e(URu "@_*Y8TstWCZ9Jm+;V.B뺱z G]9v,Gmhu@6#_pT×8_v,3s l,ā{*`+×96sC03ahĵɥ _m=e=2>6qDZbxƁ ͕t"bHWU csE9p#K㨌u@_ TqEd\Ud,\QR@Pbe,3(ϴ`<vJ0r TsTVr@P󰒶2pTV8Gl%v {XRJ4QmU-;E}Uph-a(DcUD諊CᨬJ*MB|Up@9k+/*(MZVU @l-E8 x@*Ó H3pU9Yb4!GmDhVA1jIm說(UVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjR7Hp-ϛU?&͏s;UZ'''Usb֪*U𙛸h- ʯXHÕR/yIUU*-!>򫓶w쾪Jk 0_U1W3% *WiUE"G嫠_ _VU _!k J _ϗCR,_峖T+|]"|n. ( !sku^(CUFa_jа煴}^yҫB_)2$SIʟRYA7[3^6-[VɶeIֲjiUDx&O:6_-_Z{8CH3^fjRZ, myZPV_b fi0UIUЪUmV򵖧OHϡkWZBʓzA?o9 )l2NհMׯ_q#uAel|E>螃7];#WZѾB]<;ߦk'roBf$~-_ji zAekeK6WCaԛf_m g!OU%SzvU90ҥK#ÚkҖ}e|eNh,&v4O9$_2/C =M @|%gP_dW' ^r}GEhRV%$Gxcl&9ΆKC} Ujӆ GkEj2cLg)Ѡd|GxGM/e0I!Ǯx+b*qڹpD8ڼҼ#0\lwԧ4:J3@=[3VH-vKHgO%v8"ފc+`T8.PшV+g>1GXP[X8|e9_%d#4ð0j->{a؈aA'GMCRgnlB8/g3_E*r'ŷpX|W_VO-jf;#}%q+<roC|:>X ?Ei xO%iWg O+K YCX_ O4` RȲJ}6_Z z{{Goz*)*5WZ 0L25+9-&9D%6Elr`1b"UcժD_Z77phү}CI+c1 ?<9F2pL2ᅽb+E6WRҊ+/$ϲCvWD&q%|e,/2YMTb6X1N 1d,mADξOphmu19( Z'U 8o6׺tV}1.nGzWc*ѯ=4*37uIU|m{9ǛD_0|0zo_VXa O9ZLxF baOV[%^#ę)M-g"+H$0oؐu+=O)3  ̱q#- xH+->ú5Y)|uG_qϛ'<)?->ú5YN|'Ж7FK ˜9q 6JsQdzLa]eX4#'<ķ 쩓+tw!=HpX |xNwXs*e]E96셋2GecDi|E8 +R_E4"}oGWaW$Ҝ  D1$@! ȱa$'Y+i]~%ekt+T~S>NL /2GP~%ek|%8]c ?7mLxJՠWqD*lM_d8N|ZZ mcv3V!R{pGyr2ShcXґa`F_LX@B(_MbhkCK .{!!aceTsq98`g<|ol+i03y4W __.&(_I8@ GqȟW>}4#`,hk ~һ~E}|9|%眄tdhU0+9$'^K+kE(=8 1.?p9Iw Sa?L>>[Bs:2)Jy5eN* bj_T KbVF eOvd1Y˔T_krЯF ǜJ_~5b0?x " |rpN8NS8ݻe_)s 8+eRECK[& 44%_yQ-pXye Ǵibٽpl_ 2&l&,Ssb> XV^H!l4Vc926.8XP8kΊ4NaZgK!2X|tAܶ}UUA isdwyO? D_jNɡ^IoZO&Pc2N0\,~~Sp  80i; WD:+9uU1}0X*ԄǖwF_Epږ eX?8%iw< >}C1ƳYIX!\OaؒCBnð%Sz4Ix_\8z{{<ѿsl*tmi8L2 `UX- aC Ѥ@PAڳgA1,8UЩOuW9̾\]._}ð!〫ԦC0Xyq,@I9@Kq8zqӃ* +j\< !9;$l[f_%7;qbB>TcP<͓8ٛSߙWQd2J[6jXާ5RqwNlrV*8opbq̛'6m }L_WHL7 %^6 ^6jxuL*fa,H+ШYXOQR|e {65AnV-lEۭ\>xMH^:pL'D*[o" |AۤsfPZͷs+K5Cݠ}NzcbsV8C ȁAC ?Q7htv+K 8|C߸a9]<(VyO᠈r7:gaQ{rQN9Ο+1Ԋ8C_% [fSIg p k닰a\M:|σo~Ko6af`sƬNc atl=V Khh90({L|ob|5}raQ6]ϼ)鴁a z&3csG b|}h?$4ԃ'ЇF`ڟZÚ|J4 gn{[ / 9~ ccFqhsOJZG&߃!38wK8FFAr9sx裼8|f/GyqwAg8nfxp{(͛7ڥ-Jvɡ*/}\a׮|VAq68 s8n9H@]뮓@s˹% qdpPl3z m?ȍمHP/mOg@CᐋGWW!Ǔ M%30ğ̍c2,t Sz urd|SAbڅ{0OB݌c۶aāA5Ɏ9tR- Pm<-9rͧvLsFcѦTѵs0&y98L9!\9&get䳺\9\jec@(XR`,aEsN*iwxt4G7sVp`_:и!ogs8TZ&30Gv{1GX"r&FKƁ 6s,g}v/ tWaec*#?_U/>ů&pw}lll8|֢c۪%(#G+1r5b`w}7ǘ@kpç-D}UuR8G.!G߫p W2 ##~GCöh+U5V;#DAqF] bu4A8K96\I(^t>r1@ݴB8 Q1\8"s $j,rYhE8Vqsx4e 9pLzp#>'C8O3rbW⬅01FFֲ 8ƹUB j[ sL攮L Z`l?_甼lv 1w r ţp"WQ 1 Eيe^+P"kՃz'1e~R<0U*jtx8[wJocX8 D!0ƞ_~qw `@k)Dž"իW bW7CWPhxAMnŖr![yw`(F 2J1 `(pa)px_X.9rDܝsf/gA( bnJ 1k- " r #4vQMX>3XN8_-8`Sq bXc9AՄcGWi+eRPn+I:.8)65+/cXI06Vr#GqǓ/4.8 h,808p@H9;W6dg *C\`GְШAV-2YXt`\C1}x  E |*EIpD_p*6QXdq͖- r<1dE!Ulō﹖@[ pC°U%YcG1xxs<8֯_X[qIXi8o7{ /;փP,spGErJ±~iW2l45 CCY@6-8~Xi8D4Vizu!k 811G__+u?)7V*V 6=O7o+(@ s1\gA༹lo~79٪xZ[MlRss +(xׯoК8c%m9 wX9[3Bc`{Xr\8B? `W8MDsf%hMػT AǾ?Hŷ56>Ղ m|l=HyfBic Z9!Ȑd+^K]OG `¿[/Cmn\J{(Y9dhhHUhc8B9Nq(K{qJ`ׄc@+0¸atcA-\Ǥ8UdZJq8`%(,֕"`,s̃d C댶 RSI';+0 Z,}MH gȮ񧂿=m$accݺN *R8$cEp:-@AEpK=uXHk ^d+C7 $r Y6+uS>FW}p@5oUYleT_8j+mR?jY6+%]Zm4"0!k1[%X626S!+=c8M=ˆtjBd:A^|UpfO񕙣L .-}ԳlXWJ-=נJf+UZQ&[·t2-rKϲR>Za=ܶһ62 w>JOv60%ƺ_ۜBI GyWa^I,@7AyfV|TBe'^uBQE !Ӆm =W%|RjeyLeZ"6 1_u#U3?}%qVDkuCiEksBc@lŎ74r*0SVB@V@R94 G9VNȷ)cb04-C8Gi-@U 4el,od+Xbg %4%hQ5[UqPf./>ڪ'uT[0[Y4%R*JRx_nb,f+˭iJ,XDcURp[d,l)xCm%7TVb2oMSn8b*XX`0BM[Uv[m+6Wl@T5 jLcUV`"s6K[A9Vgn,DWP, 'i&>HpԵyTsԪW'pZRBO@¹Vt?OjJ)Rӿ +VUjժUVZjժUVZ])endstream endobj 125 0 obj << /Filter /FlateDecode /Length 428 >> stream xR=s0 +8BYرv薞^(m8 H= @<Ѿٹ(xf?`˄-MK58~@b;lkDQx×!Rˆ\(-KG5p݊`SGEXamQLzmT\r!9+ zÝfS,ѐi*'Z5o!1?*25ex&,v4k2Q* f0 >ƚB ~w95[rc(rϳx4nl9ؿX^{V-i|=/a?|JZ2S\bQJV'I7{(s*byӊEX`;6EHUJ$2dZSZx0Pi lvSw5bיܺKendstream endobj 126 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 600 /Subtype /Image /Width 600 /Length 43688 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKXX" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (M,pDQgw8 $PeYϕ (] 1 22FjN4{C/ԇaBlv:mE$Ǚ+y$qؖlg$p(*T֞q rd_ݣ3Wϙfޭ[JP-̑̉Ԥ8܌.q29SF_U6Pnb̑˕C.q284nRh8W$Au'x #,0Ie^Jmhnw=˲EqK˕'4z(((((((((}Zi̸Lq"Lc;QAfrp&yZ.jxo@Zż3 -cu ɑ292x-SZ{;O;Y&Yɑv_>g}@?zm`6ƹ$I$I$IIB:/A@,[kM- ڮ継vHpN?rqr&U{ MB!Q+n 4a=3ߓ?N%t^קB:$X ?OkQY?kmƭm.|Z{(1!9p$C ( ( ( ( ( ( ( ( ( }Iuۡdc!A<=2jڔ2\Kgz`8#.W6,l{\K2yp38=I$*ZM"hmg1UK 17@;W-&YU[c3ʜUB:/AV/tkE ڮԹHrrs/QY>~qu.ٔz}d䓁^i2ʪՇUaT,QEQEQEQEQEQEQEQEQLX8RpI'>UͰ?v#&pCEmFHx"yv܀;%_dgШnm`h.x_+`d: :m"kܸwOY%K}F&vSc 'BI(N(((((+'V[4X⸈q]B8aN"4.iSªd:E++C&7ؘ }&k]&([IFHԒ#HqchPK:{ƻ&,@VqXZKs>|Nђ}@+&FGmeq7.< *2ĪyhA2WU#1y&O%8F<-1N̕$z%<-)P:61FA椤PVd紒{ ݋ɴ3ќze'< i@?kl+WOdH\['g JP-̑̉Ԥ8܌.q29n_iZym|~x(T9[~ɪǕWp݂.NGc[í7OM#n!<984EPEPEPEPEPEFTQn7a_ax?1 g@,]][@7I+U5?q?Vn |ۅɎ%ǕnH,q`(b@ ("8P0P^X@g!wcgx B:/AZՉ᫘gnؼީG*F ¶7UWj\$P9?Ĺ9RzW _qZ/CˎHi~kuo{i7\[_dТ~aƥk6l.9 Vս =O l8elQ@QEQEQEQEQEUCPkibk՚8W1蠲<)ՓS),s:` Rʗ:0d te ?InO ` :(( zYiWn ǸW\*{pq]59nn%Ep7c~3ݡ8'?ZFRwfM%']?cw[. "c2)<yW/.Cs!hC4-nZeVd{/^EUX-\K@ =r\0>>)n;ٞETQ@2h'dY"J8`x Edb-:M̺ph 09„_"}tE듌1NN^PcuJK p\dw~ub5hM$滊$BQ&WFaRi,GQEQEQY>&KT(((nbCm$v' 7)7Kv.IżKd,['"ZKJ<@۝Zli6i5ʛ~xH' nG'4ETWs}ip3R?E6\HB.3H 7ԧbJ͹X9ɬ+{FTGZ8a3:*gkmG V4;K1FR/ZsoZ\\Q܉r:ԻK'!}zEsZڴ# {(b[6la}2|EC.S9aӀIZ>ܳ}1sV%Dx};Kd )*)LF=6Gc$\B̛Z[v!=84ǬQLT#92c )QEQEVO7^LY>XgrInw ,"ր5((oA `6(Ĩ`(:8豸_M7\]z?[uukN?' jQm>^EPMmћ+?̚i4/>(Rs֬ W272I}uV3ª j֠((Krm+[] Ѳ 08fcJ袊+!H˟19uUx׌lcc?֪;=OW}w}Ir15>$pAʠ> 6Lv4!U#i5p3OA5$ OMٔ?GQ Ŏ^[ҭxn嬼C]I B~ \֡tnR2# ZFܫQOr6*ArT 3xQEQEVO7^LY>ty2PQ@Q@Q@sSg9$VK+w ~ qgkVSXt"rkqoVO{?ML~m,hwj.{0U9\ njdOE]`kZeE,Tdp*ndayxVI 9c|Cs}&|ctPG\3^S ;`F>9竱]#vN1Lv'$&! :WPkm̰~y$ηtJֳ"iK#:DČ3Ӡh^#ajv(==ut>6O43DHlv=MeC,7dyel~43zEؽӭP 9jflQE?toEMl NMFk$:im6#X\@<5Q@Q@0D#HG3O:}x>#o7O_'9R+HuAv 5f5_'׶Y8g뿹t K{E$d}1$O`4ۚ袊F`Y I=ymțP isqe7wce2gv,qҩ\cY޽)wQ}K3^idhIf )c"%_'ճt ~88$Vi7>QfBI#mBgi-J`_=}k-<:dqķdHH'/ro^:qfz_OK(nS"EX5 ( ͤ,]D;ʰ8!^m:k+İ1SG#nؠ${T֪Lz TxWm"n[9R)6J#䚰$Ա<`*%H83Qy娍~Vo$^yJ̽;ې1@$lR<0ޥ8cZv``uV8-D4tMN[Xx*GU=QkQcΟ{*T.c_qi RdS9GQ\Bog>yɍ8עj_FzIf'kZ|K JcjC ( ( (2|WoQ"?ݒ1A4Z $W`1\߁Zlcl%k.hf8o;@e?4=8Zb~bOSLoYd FQk^Zs+z<-nbJՅmxG}[ŷSY!88 LQ3;`ri vkv) q3}> 9#V njyV*ܯ(UÚ/D-R]#o`I=z` F]VO{a=sgGkVNwHWyvo?AEPEPEP\juuxfWYdQ|d-v+9 Q xSk'F7?yd<Q>j-4{Y;TppўFT(=ɯG|#{"y3F~S:)rsw"2V!;sC}Zܪ Q$UHϚ=0=jX!ԓVTHOXtȤPT@>{qXǿJdmNGҲeahoY>|X1MW;PlWHqqo YZ$qF kcL%zԚ=*557 i޻µ;X;?toEkVOUѿ ֢((((}&kMbmV5X;+)F|ݵpPNӱԭ5 \<ȝJIs2#V\ ZIK"ZHXe$!@PHp_<6.M^ ;Lpǟ:gkR${ͷ6C& ;OpƨG n~_z4 X$yIJ=^Ϭe:%`=M_jiQN[_~dhѧ GFpH7д#QuqwQ2˻duB$~[Y3tQE ( ( {cmU=Q2<0X2|+6&Ԟ.gg/Zp$C ]D.gum,$d#AF%HMOxQ䴹f8&D #u;(̴xq:3m햬Z 2 r};dh |^kζ)Hx *OytpA+̄|NX=8=zLB *td]Oi4-N.9zy`>?ⰵ ueUYܬҝQg#ҟo Tdh1%WZ}=9jZO1xjK8|/wWCB\cw'tPH`v=1MYI/=4hޖbWITL=IA^t%_,tϵQcNo4hc1O 1, 9 ye Kv[ a $t0"2#n4 v$ߐ*<|_}욎k cX;2O=_9' g+ޢ*K ( ( ߵiZb{wb+]浨 -uW=ZY&1fI%  [;RM6$yF)$yv˜` RK7ݪ[d2h@ 9~b@Cy_Km!}(xzuk,2ZL7uaXg8#KkXednրg[31 ~5Z!H_*@D Z˖?-HLB M_b$g랴CT`;kP EOk7PAy:Iٟݑޟ~,8h۟`z&)$ЁP\RFyq'cY6V°vT3ت2%]C)Ws+# 'wD?CqDZZ#~t5q5鵓?toEqzm2,N˄ +7}2Wq bM?E*[G9qfՍQE!Q@Q@Q@Q@i s\2rFAn-y2ɳʹv<MG$rUsS&9xE)(u_LvH8=8|JWё2dXZ\@Ɵڶ/2@swq0 V7Rl[O@vsn## 1UʅRX¤*$csr;scaWY^ݘm#VЃЊ]JV *C)F"cW/O~z=7w:t{`dMyn$^ҝJV`~w?}xM{-Re zz+}0\sn-+󃂧]vh; F8 ^h|5“G$i06 ܑ/`19hvج#gipx硩Ɵ> m&wGv;` aCaK$uWZc'+G!b؃BO:lyg Td}$INM$bx?Gu7䘖kh@ r] 騢((((MsL$R)WG S K.[hT]c @9 8R@n@,6LV37o[ՙZM{ =V+U|͋\A_#<@ ս =O l8elQY^%Zqȥ#HW;}yj47dm>f 6B0HQCVCvݶv,I~I NH 5ޜ$3[H7ܯ#Rq c&Lr<njϦH+M` ݩ?L`;Juhfx}3 0coCac3N滼K{e]\(O&濃.5{g$b,qZlp ayb27]]> VnSFaicN]J|<|]-NB9ڸ-;!620$SnnX$zɖʕNLAuo,Q2hC#gG`HuP,1GI(DAp>((((Vג]s l@ keI ^9i]WlzOHmTI;hjk\$ <f{" 0 $YZRwe'د_8 ˓ D[_ک"+i0>t5ZmM*Ȼ1XFl5]!ً5Ǽf#$ .>׌['㓅/,s/\HۢmϨsy25 v8]o rcLyl q6"M_e? z=7w:t{`dMyx_2w)at̑.};ԊK/usֵ.aI-џzszϱb\vJvO(|.vn?9ճh?v;C^-#7G"CD =J/`1HўC@4#%&i¥̙ mW[y c|Iv$үV)?9;@^k^m$dysd|A?,A+5M-=?P1jgIΜ=~Dj0d rw](Ĉ4wX2}_M, >+hFkYI8Q@Q@Q@Q@Q@Q@Ԛ]%I)p$; H䁒Ñ۝2+7'7p]"68)G^9I M+"KpPrMuYbIu#(hdryk2JX:ƞqKunec潴bDFT$(Tm,sĒ$R(dt9  WkZ;$7tnC #^FԤyuCj^3c8I<,XH*޽Ǯskl9.d,z(Ȧ%$(rhnmo¤ty9!+>zsk"T}ZeL펧 X3 lGK7Kڬ 2-q-m% Zʆg\$IxA@r<{i46F3yzfF rxaqW,㲈wv,rvc`jEG٧ؽ\9WwONB0xzyeӄWaut *x'iqA%Q$fF.T }O!QEQEQEQEQEQEV%-noGۑ Ep1\gI(7kwM2\cqȺҞ x 9N۶5#%qpv2ۢ0l#-ؑ&V[lvT38o!`+b+xtmpAAAAڔFKC7v4c$\"H#kg봐活=Sz ʖx9Xn$ė䵭}jk"S6?d= 1cCGb8zwQCð|*)x24x!ӟҭKA %0 lQ>-=,|}u q;,inbg`zpkXқ5bmvy)O2MV2-Fۣ.x&I<$yO棤[j|dsl(%BEMYCDx4ayerg~((((((( =oZ6V[\"/ˆg# rT;uscIv{c/OqU141΁%@0 bfZu컖| &S lnf8uTbk `%9V<t$NZ]7G*V=;cHzg5g\QVM*v]ϧ3o 37qd߸n;@`"j} FZqC; !I o8AZhM\AA۞H*.-둊'f'U؝'$v+8lk2I$II$I$(((((((((((2N+Msa\3+}d6"j{cmU=Q2<0X1KDX/HFU$<oflm:VqDQ ;oW9y_10XGHȊ#nr pO(((((((((((((((((((((((((((((((((((((((((((((((xgkX[{`##y$*dr7d@W?ekOsik8k92/«hVg})g ɚ&M7lpnN7c4z(((((((((((}Iuۡdc!A<=2k*ZM"hmg1UK 17@ ^#%*lp:wVUyS;@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@U{M>!-3m4=q߃P+'} 𚽌~qN;EU$=Cep@'>QZPEdaEmiSKO28r_~t!Ikd 61GI(DApW[=qq.<۽d$$7u_&'F_P*QpCCv.am(\l=A~qu.ٔz}d䓁kQ@쯭2ZL7uaXg8#FJ\ݪK[d g';[*OPjۯ8ԭ~͏$rv֢g)|' 8*j(((((* X@s -t *lb&W|'' >xM^W?v8YXOj?!: kQ@?-Z$g|c >;Guk}"(pE#Y?zНj('v?iX$϶ݱA]qW,U b`ZVdJ֢2o`Կݷf[JI,3W >;ZPO#Z;qa7.i =OZ6eӭ-ee^ q:p?*EQEQEhZg,,=C]ʐ۴RmȪ`4QU46cV[4X⸈q]B8aN"bu?j>td-I"187<օQEV6\ͻˌd':nuFXO-h'jeKd`? qMoa3w7gw=d[b<\F$z<-)P:61FA鈝X#^fW $B6ac( u)1 >=Om꒓QE {J&6Y󡕢o]ІۓyW۬X20p;FI#Zϵ֬'[V[S?x r*[{ "@9olm;Pz[^5@`$'<Edm}`7߾L $wV2(((+2ke{m82"Iop##T8h9%J ouHmesz˽ma+xHwK.Lq.q, GV$ڌֱw$elnNR{Ⲗ>h>fܧnݺ~}?Qb2[>qFIGRi袊C3{yk[;bx p7`PÍJ͌lz\r@K'hj([{{I"p88#)^vWƊD `w @e?ڗ?.m? '݇ޏ'9E\exX]dE !{}QEQEQEfk:sibBbT #; =0O3_?JKVqyiK;OH8#wB:u^[}q/UD?:(Z(+*i6 Q$ [c;s@\բa-늻iw"kidqEtOEP0(((f}I#`I砪@-ndZEv@㨨|Y"^3趭jɱBo,ۈynAVUkL j4jiH$ Kud^1ZQEQEQE V'}$`*=KYW}jI'Gm ?R u}r)ȉ/.s+ko_}+?{n$b8o=xNp8MEPE[Ri3+d :<ӭԻfRz3BTkfW}&n9$Xq]WSOZlbu%ϡ$\ OF bH<ߚдk{y ذ3^.B5($WGF>JYEt'5[* s?&4Š((uK8.-f ZFG nww7{}h/ݒzlXd}s: j( ( (2|MΖyInuƬH#$V1GI(DAprZR+6E<賜;ă>(jCY(*6~~וkym{~zX̳Hߖ9+Fub+YFq*+Y!r9} [ҘʺlcEb[kFlm`OBzX #ʫ'u8z?d!9<B2 N U@}֝A(QEfMFƝ+X\;sr䗏$,0 nKW^GГkZd2|5 Jdj((/?)B:/AGƪ㇊IV=3:ֳr#ƌF07G=@֢(tֶ|vҼvJС. }һO]CybQqZmp$D^x{?ط+̵g1@w߁_#Ԍz"<mpmJIcY#utpYNCЃNwF]mIh^K8i_e >x9j\Ӣ(QEQE|1崒4^UG$r@j/?) ~M ;\ydlqݏ֬/O5úaB=e^v`u4EPEPEP7V4pEyaɍ3OmE;D}d?0:WK PN<WQ\$E/qךmc|އ*t#K`I7~yQobc=(͂((b1wlsY:gﵭfv+@Mgo:EPEPEPimޝ4[sTrO)/).O] @:(Eq.9]q*]ǎ`WGՈx[IFĻn`uWlfiab1XG_Ŝ<Ҵ1I d`ŋ>s̶x#Q<}k~Ѩ,[)33]bQ+W\dR&Z/܋&-]y.Z6A+* ?CjڙniQE%Q@Q@>ty2VdWL.qOZ֠(77{h4TK39z=*:X)bM9B]A#zX%}#`^q[xW[yfN͸@:(6s>H;p PCϺNHv$nr1[%V>K̃ѿlUqnX*we\m;ε&\e2*O>-NIf⧛[i\v+]t{q fT w9p_[\C2Q=GhdoWݸ֭*{{Y :}3V;Tiװ60^[b/##}Y4 (2|K Jcj#4@dޣ0Yo\D$cz|25Y>' yGdGV##(Z((( K}k帴u 1*F  GeeX aH=8udiH`9 tOY r/,~EzyG7Ku8-CwP UD8ˮrO$UbM&}Ƕp9!\:s8 rs֩[֌qu{n,2>`ŸO]y!Pi<#niA%y_VWPC+ Ai> ӱ ۞p{*X_HTπz6(EQ@dwח ̳_\yF$ឤӚX8RpI' E$b9c]`v4EPEPQ-.hCd mzԵ#\=ן6ffzPjuuxfW@R3RB$?eOHJq8~yZ$#`:Z.Kn,}Nq\MI=I'+Wr0kVڠT P.N1^RWEm>0nSV/nY#PF{RXG29'&31|pXd7QFs9#7 XT<?ʵ3\XWGebpd' +pGn*ي)1_I2ێkQX7f3 mN%\֜wE1HZ:kgcӌNEgYWnKb^揅Os%"6Fpv>k^:.#N!#$9ȯ XHF;Vr#ʓkh9֟Ks< V{[[iXl|g u>-Xk?пz֬K8..zH4A7Ƶ"|IY[F%[l )=Zu_M=kQEQEQEVNkFyydЃcFd''kVO>[+i#ê{eY#ݵq,7bo_$C"'LεܼEv鱣 P"5c *G|aJm%vKjr=ۏ^CܷyhsZui?^ɽ؎5m w cTw¬Z!.t"{$%oRM[BW?Z|kD 1+n?Ɏ,F QQ ,qF۹DB°gKg'gzzԖY֮+?{ǨwE24T1ۜ 6[xK+vS28#{&fQRY⿛z#e o =O<ֵdZ/ˋvym610}FQEQEQEr#i5gNY".pXn/ԯq$4]>`-ʹrA ('-tN$ÿ~5.Ee 8k0ʜu5jmvxg9[DsЎ8Ԁ~y}¹Idާ֮=la,]kR ߅e@ [v+ARM$ 8}*LJcXRIWF?ZֵdOE]`kZQEQEW)kkEWoK̴f V+]\/qs <4qn㧧{/8o M;)^T~5wIc ޼T?y)92;kG+fļe=AZu7WJdJ~:,aF?z rAVyOZW-&ҴB矘W[p}TT8D Q*+*Čk@ M5'Qc%qȚA.HUd$LRug&Oʁw>ȊG_»Z}.ͶH\wVAyRU9(`P)"2Jɿt9wXbv@:Փs#V^7_2ޤZ(((j_ZU叙~ܤgպ(ե~ ]jaUmP 7y<3b"%u@h>EI<~l.:V퍵B;VUVބFz v5GϽҸo"nIѢFy\e˽: ʹr R |+SɢSؐӜ qk9Iau)2:A+LJ_ӣ6~jŢ p/'ӶI³S u=)VPNrzsY1þUGJ $v2hJ:ڨK;vgd~R$+2USsZ:^q;nx=ZHϣ:mGo|:w\A9֮sDtXA*JCH7w#)#WGPjQEQEQEdէ׍#ZšDP8蟻_PbʲS*Ur9r[>J֞vȇLhZ'*MV^IW;Xr|ޮj~ 1ﷻa0^D3nMI*0UH@i~7oec9ONqۏ16iYtĩNU@) ;Z2"* TRx.RT?+޻]3ĖEqI\$s~7~qfWvߋ?U X448"HE(*" )QHaEPEP\5jahE:fF'Q6gʋvarxc<,ry>2|a#+Hv{RG 5FCxsykʾ}+9dLќcEllW=o#WT1=0wRبrzTcA'zSy}Aʤ#,1IhGҬDhbHxL2v@'ToZ2 HL@ )2[:0WYLDY\q'g=zq!q!L8޴Zeh&FGmeiA2\A6Pq2+6!g^( ޡ'EPEPEPEPUmZ s=nYa# ',Q@ϓ%HMOxQ䴹f8&D #u;(̵kζ)Hx *4Q2,H]d0<GqXZ\46#0r .Apݬp@2Q{8"!79zqBz}STg)M~1+6LV37o[V,F;ӃynǦ9ԁ[7`ÃHs$_xzj 7Ooj{Wi >[v,B@V)NN3tLJXdzSӾХf 8ڪ9̍ڸ=A#i?dk 7UP:4pr Fw-bc`{;'d(O!_%Y &ĕP$N]ufom/œJ0jJ[\3lrpHX$@v$PjvP(((6YU[z)3 Պ($i#۪[B b@.a!P%в#%1 Y^6GC S# my(!Uڗ0@.NvTUJ&yWlz[gGEW%H8U(I9E$r Y-YaaZf] ̖Nu![`wֺ0,,Z yf끺4?#N QgهR# SNj[F<^!;AZ!㥍_OWK-, NGqkϑ"gS".8kB9gR]0AjY$ϖߌV&/2'SmsKOg;Oo%lZ~sp-⤰bBbj`HH*S#>)xcy<=ϧbFq碮I?J2Wjϟj:uƙd("n0uP69dz LYEʷcH/T>cW s PKqs\1^*7" GF(P((_ٷ}~}30u7wqcI$7#6`+䪂q8sƟ5xM2% 8R(gmubyb6~RrJV5^}l_EKK8V)QWHN1=x6[+hsO!n =EV QV&D^$eez%H$L’>WE6Y0N9s{/_Z7K:Le:՝92cQ>S[eaA^T@jѓ3DF@r~d3sY+0 5)L2#Ol.1oUgjzI' 3LZa]1U·525?4"h^vc$nxβڍvAqԢǮx^\h>?QG]h+6i3~#~UnG~qf W272I}uV3ª jqwFQH(((((3Ti{Ka WPI<3I s#i0T'bbB@h0E%5$gQzLV%Sm=Fޘ ֺݶv,I~I NH XZSo67ivƠyD:߻@,OX#bDYnaP0T|r ^^X)Xǘ򲃖#=09י;J[ Y}ѶypAAyk}jk"S6?d= Rd5c.4nsyaxsAOd:i*[15ðD+I:Np@Zt\M\MؘŶ7OSMbw?Up<Bɝ`+d`tw]NrIVlJ=Mp ^T +~ X%wILd`# 3eBVfVB.Ɂ\m"E0:i$, :qpʃ q 'nx5'f R(iUm@c2}N@)n4TcM{]\]j .}XoQE+Gf5#<{6RO#ԚEQEQEQEQE ^)Z/fd=GøKgP˃O;:WX6zݝ@t-ٖ |)`7oo9 ;楖mb0.yc:U7qA}̍ NzV-v KS#|H"a1khՇ^p* X@5}B ۔*qꡆH8U+ Lwk6uEǕ&d$g]G~-~f+b1nY̝J}6=h>A-7-jF\Vde߿PCFL}IG#̷ZYgMǹڮ}v FtVm2N F叧'W-4V6Z͸1~V)ʊY*$@$,(\I xU~fi~8+kqoquq!-^[qqDQ^ߦ֩^G]S7xֵǴZuEﲇ[0U]A{mͬ,2 /Sbӹ5QHfO#4(oJO~d{myewcsu5Ed=e=/\?WJ8 sFXI$& N[W<{ma#>ϯKMtz 3^6uk 8>׭EͤI궷?@gCEfZj>Svrʆc ?q۟z֝dէ׍j(((43qF(Oa@7-/]r(8 Ey;NbmM7\(0 YXXDcbVmGWnǫ1,rOs@!Ӧ.5YWE%Q080UNsEVN_ZIQB~_qy-IP6gګz72’Z[LJp>uy|n^}ًltR+PAR2ii {cmU=Q2<0Q6aŔ_CbUV,a%J֢3uy[Y[;{'arvZ խ O trelQYaMD_}#6?ݛN(ŻY%K}F&vSc 'BI+N ( ( ( ( ( )K<:jY$Zyg^6vXp?<.z{)`^' F*(teKVE`A e3dg0AUS۲i Ĭ܎ُVcXPEym#E#iҸKr=+Z $p6)::ՇarkwR[ƥ^bemX2R# `M=6YU[z)3 Պ(mVË)⾇{!GOX)cK5o4k:Kgxord |Nq+B)|nT x(j+'7_h}frIE>f4-" Nc$ '8S gh :( ( ( ( &UbXDHTiXsZu|IқXb:(LyZ׶Q_qZՃ=̚}ve5@Q@at3l#8;{nW 㛳-@ -52vG pVl'% F8VԟfU;ySx'5W!-  Fb)\q^[ ?=]]I t`w9O?WxjckVJ3?5u,QH(((&F;nekVMZwxz֠(( :mon7s4q fcAenxSQC,Ψ{r>BG)b[;r= ?L@߉u#Z ( a;ڸl8u*`w=Q8TU*9gdN0z֌r:SUP. ҭZ=F+Sj7,nS?ZV$-}oXcҩڭm8xLҊ((E\c\}1Q kQ@?kmƭm.|Z{(1!9VO/m rN[ukQYv-ŝݯIdH\RO9ʎ}G5@Q@Q@Q5+k{vY0Pp 3 .p sœY7;r= ?L@߉u  ,s:ܣO1JFXĖӢ(N-$rIW%+5ƞ|yϵuՔ s *K dG˸.1.s>~}(膏VN>B=xg j(~hlnF+r۪m;QV񤏲A$lX)V'G>Т((:ҘZ|WoQ"?ݒ1A-jF\Vdը׍j(+5ߴ\|;R@?I.~ɤ]˖R#!Jǀ2+ɵ7n#=?_𪉜H5&.: ʡb}Ed5ʝj3(>,Bރ84~q!qJH2zO(fV 2ĔHۣ znx^l<8x?~u3Zvv7h((+'N}+ɳ;P˻sp5'F_PQ@Q@dE]ggmWo/D&eM t,A gNRO kt>Q?Ȋ}Zxˊ֬NJ,Wo&Fݟ7N3@Q@ώ+`K{/lwʼWy{F9{i `F_=:5Fw9Cp?kc'%'9KZ^dhڏ*ܶʹ#=GZ ʞCSD(coRO7n\gznߍg-) m*qYfڼSBl y@Bȁ=pFjJ+ſ`;XrDA<S]R$$e8JhE ( (2mjF\Vdը׍j((GX%p0EʹmדҀ0n?qjcuUOgGt쫑v)H⮮ (0yݔ<,Cy)ϷS? lqݱ}F |dc0T80i2+Za\s^\i} m<0ND$3u AXETQ@Q@>ty2Vd_a}˹%A$43OZ֠((Ki'Un%9*`duoGX%p0EʹmדҰu?TEW+;<$ HWU\f'\6a9unԔRZ=1ddwVbF@AIP$ ?@hKqޝI@`>ڊlnF*}E::Š((|5 JdjϢ8rKvIdipg<EPEPk( >p,9m_*C9cXޝ-y yY$#`O?U\է׍jɹNoZQE5Q݂NnuUcQO?povQ[>((g+{ʹlORjqG-sVcTW{FdP6j@Zڦ )RD02j$/.<Uof`A9&!N8qYLv8E8yt"M?760AH ǯN3v"̱HPo~T=Wš",sYW8 >Sҷ+tmCR ߘ WTH) (ɶQ_qZՓm#V^62⵨( )ʳD̒+me%Õ껆pr? jQ@7qֵe1eL'(p@fֆy&Ynm YA8Wc7xր5I=j8C_LеvW0^O6l˒펔y\eSOUO"t4 NiQi$\iIZ$mK5Ǧ9==xN-!VB9=k6-̅Gڹ[[kkx q}?1VknyLBrF[6 G aۚFư1v(,(Cs-[ɠH`Q@OE]`kZ VVۦ`crNdTQEQE>e9V0HEmrWpGqֵe1eL'(p@fdWcƇy&Ynm YA8VOUѿ@K1@$p+ c53tzfAdu_5VF5_Aš:ғM1k4#JHG9*GG_JH$d j~nHċ 2gMՏ\weX߃펕?SˍF:*8M ՊZQ@dOE]`kSx[-S}Ai, Z[Eek l8$P0O=MEPEPY>,WY[Vs#V^7_2޵ʿ w:ųciNrz/@7DdGaԟA\%wRrGcg;UE\r^;' Ҫ=g1 <TX`4&>@}j!E|3JlU9=6=T,@'Pdi%tB\Z[D#¥DLg6'ֵ1ܡ\JUbbցI >[\q^A }6Q$fzJe\iljBz}1D(4 (2mjF\Vd߿u{y6{zjw~>~1sQEQEdէ׍_?J~_謈̱39!G0 }Hi.n-u+[}MܛSzQ!7c[[Œ` 7~~5,I9$XZt)n'5og9y s[{95j&2RF4HTkC֜iziӺ(dd;V&j' R{WDG̺@gI3.}K\1P~V;x+ZݰM,C,zmCuh0p(?y_VKeP0TWЎxw\{-J8Í#;΂|WxoQޒAYg֬:ҘM j( ( ( ɹNoZՙE$+"3,w@QL2}HR(ty2U"N`FS\+ B@Ika=I%W)r\ayA*R{ErIZ[ M6jFg9>aզDьJ?J~dz !@*J3UPOzyڙQ4ӣ%t?g1ֵ!Q@Q@Q@?UuJDHQFIgCXQII$V@Tp{k^LPݒ"sׯ4Л} ٵ 6`j2܁~iLf7X#"b(8rqT& ݭWZy #wzݘ_|05}9.?k\,q̑e}x漨AHO5ZyhdaF_` 8kƶ Rz#Zt DDԇ!DǠSMU#/LlzdUݎOu_L[bĮ[*: ;#eXhy-nƋ}2;6̒#Ԛ]\f B瓟^ -͌4G*AA煗EkrX$碰5xڴ̑Fr}#Elv J%T 21@뀑U&#({zWJ+0=؎+u-Js %LeVAJ-I3R(QG]h+ZtoMkPEPEPX33ZkjIYJ0@f wVRR7is$x"u)$y7#˜dd E[}p/kw5%/,i!c_:>eA$:q#m*5]H^6G̛X;z!9Iau)2:A+P6dOi t0͎4|4(hbYSx!81۾e'F誰^ hϽӭdhI?ZޠuR69~U-FMDn8ukk1 D`zP6t:gdW2@_׭]-5tҒ&A#!F)ۣ@A#é`f Iܒo~[}N GTshl,7tlQ H (4 ( ( (0gf&m#[5` GW9p8;JP-̑̉Ԥ8܌.q29nlO5Ԕ%PQ~fRBHlV>`$U>eYzSďydau#ggx92n^v/Vc$Y"C#`yvbjTp0R6^%&_Uif3om^A\DF1/`zZ$PjvME+t>y]I%J'"qc46Z0, |{($#utW?c_m"fqswe? fdFK "(Ż:L?o+`o;ySd[.SDcͅiNZ6~\a'ڣzQLl2ʬͳ&˝Qrv?ʤ V<(8QZRtO,FA<j4-o9D`X)l5vTFk=ID!Z9qGc85DύA5V[Gom c Vv>%PRT\=7 bUa?1+an?J۳q <%EsqXgC׳*z2Ơ*Y89 棡Y422[}.ѢdʤHll~B;B:/AZՉf$-e@XVICM*<6Inz ԚQ@Q@Q@fM,RΖerYBO/` Ns[DLlm.vt'QU\Z[[il!UhdшS$vh'dY"J8`x `?l_e( c$a  V0AYZZF[`޶ -pO kv97| *Bز#%1 Y^6GC S#ӰT)0umXu 0hMǫldJz4ؾFH^0MyWr}Ih2: {U9%F1NJ᭥`v=2=^9Քlٙ}k mHwi8ka'.4hRS\Xld6(l)cĚ!uM}F5&%><$Ww@l;Ydǝ1\np?FNܒI$uX(QEQEQEQEfM,RΖerYBO/` 3?exK&6wa7HrxeUML(HR2# V[;U909 b *_ 0 Aޱn`?l_e( c$a nz4Á>4FF@c$ 桦+%sQ>Qe*GPF+#%1 Y^6GC S#9;Jz7ghAUdmHںZ u t#ҹ8ԉ$kJ4n#E@QGn;:UȡYBJ}*1ѷ}kV-cIIn2Rc,ndB$fP3(Xmi6m6ws訠x=WKum90>i͸ ,N$uWZc'+G!b؃BO:lyg Td}$IɳxD~qo+71,A$ QEIaEPEPEPEPEPK.Rk/;m{#0N9no|1jbH 2];@Dz0H} ' ,ny_jV~_%c988eim/`u]q w'R z֋9k/DX 3#I,ybNk"_ZuF8=?aj -%4'`2y۷NGxB8KLQ(~== ͖9E8> | o?.u.nydv$ `0C]mCsv5rTޛb{dH}X pDBQTD Vg#Ssmo13؈HeT(+ϴj:)bITsI 핖E4=/E,Be.O *HJpp:ĵCu>ds W*79 '=mYZg$ F;FyI ֯7+xb6,Yc9<ݠ(((((55VKRCHw#Z%#(ΙPBedt#ⲯm$Q5ScԬ"`Xq+lsH^H;|l@egEes^S3."Hc H$S=kN.b#21wڠnoS}J7((((((ZUkD .=ć~AR?թ\2Xr:sEw&|PFe<88P9{i$wUaQdUqJNQ@ɷ5I.`E ]~o-p~\I\v+X)nq=̬|׶HvwHЖۡʂ0ʐ exX]dE !{nI#jRZ$(((((((((((((((((((((nm`h.x_+`d:9P2FA㨬ucWW< u V6!X{ۻ1qՊ(((((((((((nm`h.x_+`d:.m`h.x_+`d::v qy?F`o,oXXDcbVmGWnǫ1,rOsV((((((((((((((((((((((((((((((((((((((((((((endstream endobj 127 0 obj << /Filter /FlateDecode /Length 918 >> stream xXIsAϯʩNEA eJ=3RjG-[ɷRpYG.D9-kٽAb|£We[ϣ`Q׽d;hpZzJpClOAeF:e#*uER d:m['Niņmpj|aBb$btJ mNI 7ep4\2Rs'lYi˃sz|.Z%ʊɳ9)69|\yސn8ũVvIs {UձpJ9H m2F5KઁI>2 geYi.cOh `cd67p!p: s`;vanpܦ~S l=!ծ~A *1@ YC 5 SZG@@;""r6 |\0~̣-H; Gc09BvՆ]3Q]Gsq"}3gBIB+P.' Hd1 >4Ku?.Дst|y(f@pHfkƚYunF5U#M=g{Q?MI4ֿŒbaIQyΰc[ڱkcbwE"s]֐3AP6R n)rcP+]1x)pnrפPc,5/쓪 }ԗd#2+f$SR^I'9%)}mg%ߵ,\?*֢zK6&! 葽0"WdC0#/Ix^?Պendstream endobj 128 0 obj << /Filter /FlateDecode /Length 926 >> stream xWr@+T9H̾8p[)o|==v"E3e+i:8Do} f&Z달]*rie%˝qUP&g9{Y`f@pMW.`$Z^9@-4R)[4.R )R+clQ-\=8ڰP)X8lКmiB] []%I{( ([Juhઁ. !!@ "X"]AZH'8dcGT5t)| {Cin<Co]e &d]2sՁK vݾNjQZ{no;S3DMhC?u$6`xOWQ˟jڤ9}وzw1v> stream x[s7~`<s=I;)mif:ӄfq@ vMv:+aco]/I˧fff_I<4ISCd6g͟;B'hv)4m: ΰqrmb;vPZ%R Z(L:8OE9Dj筶LHH῏BeI0uMA6`EqkP%0 5[^ ISġi$a"Ethē3q_a[H|v \PO_:#iF*ZMFd&"%gqin"O]V|B;9R릞B5ɩ-S!&Tc7#8ʆ&$gd#GtjSp7){ %NBTY{8q&ѠDtEª*Ii3F+$.SDC:&WǨ'ı tVdC9KEB/O0cI#nA|Bژ38̆fCgX< Φ9~ ul_6:Iɏ,R7Bf7iPY>܀2Z=Fb=FDυ>2U#H0!xJpJOCCpB?j{wՊ*>K^+rڰ>xJꊋIy 8Ӆñf߻n;1ھtL,d=.Wz!/ `MXxIrJpJ A&ķ9OCfӺцa}.,A*渁]A^ç_& f@) ^cxi% ؇Z= 1CBf^+g_|M9B8TV<$s>A 1xލ!W\y :{i]gv.X4,Nuy}?o3`,nVtzS'DDbybe㰰.Aƙ \O΂UD.cƋ9zui֖'uaÔ)9==#8ȌH8E:/\[1s6UltfVsȪuTUuؖ8}LF%/&DIܬݣ.fKbm* "ذ9R9 4Ng! w361Ӧt4ws`[O#E5 Ѵ$,\cI䲥pM1WJ`yAp,CܑȝP-(V}'+RуK98{ۚ[f{ɉmCHq,$ᘵOq٧)ŕ.g>dYn Cx3bi w]u¤nfӼAzZ4]5ґiT͊m;W3+h | $Ⱥy)2>^vK=u; JĮq~-^vp{/:ՠV<\N78Y) . Q?|TTPpZ ̿tY̟`f-b28_%Xn3/kzp{ۅݺrsA3qsw9N?rvendstream endobj 130 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1071 >> stream x=QoLSw}Ҿ'+ES{:6DA4qD 4(mJb>?4V!) % qɜq&sYHپ{Orr9TdE4?dS1CZKKFH 2p  q?ͼ 7X4`JJFֺjhu)¦[ 33 ;[NkkFYk#BUWe;䷍v{ Ñ5צ[mSG(4lj ZAx!3E˵ߪ7,E1;mvm^ "ʡr]6IERM#ZFAVBĤK $K(KY 4NtqW\Ml`T܄9=\d:O>' Fѧ$` _gɤAJ2ٸH=EUzc M^{@ϓe_蚄Q#wea.^STuv:v y+cURkDZ;7:-^J j>=AvW`RÉMbk?dYhs5}^f$^6k^q=h>fGԭ?µ_lcւixIӗv~u^4VZ ?AKlIZ!ޏ_n0{L`84eLl%\# w7 YWKQ #P7^k,]ߒDua؍.zx~m6_Ũs$Iŕλ!o]cq&Ih_ /tsP\XOJg+Wūc)Q ?߃\=vfxq-,=FWo|ByuSZjl/if?58 ,DAQT _~W@ У s0VRyNdN~ d=qggGs;WÆ` are/}t,; &-^劀GDueTQԿ JEendstream endobj 131 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2836 >> stream xVkTTUڛcPQ ͓FdaxC@.# 3a030}@&%вhuNt*S7q6b+[:g{Ϛ<305;(tO=Y'gb;dȬG^]ǕmmO@"#(a>fD 8'$  \YK }Bc%IX #g(ϓ$W/__7>Y|If^^z&/uP)63ݨ-H*ΐ}BE t!a^B؍9 D~J2WcXE``[mvl*ۉccXmܱG78 6gX1eYt͎ß xܡyvri]2 %q6EAa79*a* )9_[xLKL *9HXx@Ս0_vXT vC"dIpe`0&} xRmvZGz h k^]yn!]8ϳ]f$n[Aϧ z!d|D6uDG#M~j|%&|wbA%ܺ#z'[Nޛ]a6ACʤPjlvدuˆ"s @efKSI5u-6.by'l8lD.O USºK(,;(f5V},'khBW+7.U@v~)TS4E-2Тշhrkr+Q+:٥h+\H|ڹ5/椀b6̔+PQ]bPF6GLu$V\^T9bK~=1*CJ*F,b*'/#k ^?"@Qġ؆ kgDH#&8Ÿ]^)FoK=ۍ\[WJzO4O\n*H" p90MzNs𷳲51:QPs٨µƩ1D()Ӆ|K*L\SAzA&#Y+9?eNݫ/*#E%v̀Ֆ_>ٮ27Ql6۔UY*RGJhr@W(f1Gq֛*$;w'Ѿi؋+KH66moX@H|Řv[]PX.cת^&e[͕[\zՀq?l|23A+R^ WkyMUV$V~vрQagEۑ=Sp}6уaw %ܢ2Ȇ42!^07.#RQҾ! z(Br_tMWƽ\5Ȥ"3!]+$S~CTo*ANnTNߡ>[g[_ 6UA6!Θs=wn F= }ڞ"K9V +fkDfߦyc- s<=.hvmTyU!hȷ;ΡcF/:\o ǫNxyEM\۲n`(z-'?A%m$" bF>sx翄pU9 yW=YdbMSTmTj z-+UAP@yNqs,ṕCý@70lӚYVاI˄ Z}9nh #e9f#%mq~΂ӳq!h 0&ZwU&MY(^(7~W<R@l3j(r޹E;X*J@D),"=o-lڗ~z 9}YTID!Jl] 9crtrGy q?@ N>{ӅE9L(~aJzRP=kܳOi~riGUUTK|xE @ϖԸ$DcU))+Z쭤;bh>Id`V?oџi =fMQFKscEcMh0׷|vUB]!BW&M5{5nWpTLL*<i0ؙ}$ ;$ #L2(IGr_-ԚfZeYFg^$HNMNmhxۗ]Ʃ m_:8=\f+P-nuNod%⿓ Qզ jEd.,gP5Fw+αp2d$ksĮp5֠3I"i"HTgw;I +ȆW;8tms> stream xcd`ab`dddw 641H3a!O/VY~'Y{yyX~#=C{*$fFʢdMCKKs#KԢ<Ē 'G!8?93RA&J_\/1X/(NSG<$C!(8,5E-?D/17UL=土[PZZZ`d{N|q00~Ksp跲ֿ^_n=E'l~];\| pBIOpb1y4^|endstream endobj 133 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2867 >> stream xV TSg~!J|ZZ7DVi(Z R$C .',F@-nu}!X[֩V}s~y x3gIrO~rt$lhOB?A L|P:;Hű[nx⪷(D֥NQG5!J+8c<='A~AZB0! ZmרQAH&#ܣCJH&J}:\>7Hpo+ԣcZ*4~U M8EQOzJTM6*:he\ErAH0zROA|j0Q%dj*EMfR/5CQP)W-'Տ(^ĊrKIC?uZzq)yN#0LCA]3<9Hp]0m7%ۅP)ڄl1 ![mh!-#1-- 1*(%P] |s'O a (UPmք|Z!Sk/ynV6^BO Wr8 C1#±tFq| N_sdzGWZm\;6+`*_F4VeK$u=&0|﴿){N%],?ܑQxCmB*eA@Bb~Icq8ቬ+ Ce>q%Rq -?~v㌑ѕˊ%d~?/a&mkGx *I:", 텯xH?vՊ 0ko<[XmNtfcxΌ|T@63fּ&O1r!5 4B8Gg)?աpK6F Q0Yhsu\} 81?O9aMk6f%216)j taX6Z%EBTXn5Ց'N#PӟNu/)!I2QpLz1wo Zi Ҕ͎}Avn 鍋Hȇ:.1!oVӶM'j#JpeaG3c1%j >(icv a+~&V *S\E%, rN\?wߧ<7aE~(a*}pl宽pp߾Y0I*F k T.m]2`OQ ʰi/$Fe SkBG%.F7w=*nކu_2c63tÑf:4%%_..;*̒>*:3b\i&(B本` b F*3>;l1h:j#sZҷ)2Ou~^T)k?N*[ԙٿ{Z%mX!1.dMPGq>Dݟ,}J;T^dQXm\;2FM ;}Ξn n;حeW{. :r'NXقh%G[̽kWwZxS~E6㦈ԭ(YEfr>.OYSǯ(-JK֩@3 b.Ğ/[[9<it xHĂ2Ȃ : ֖Ep &tq+f%+:Y%)&al3ܶ5z7?nϭjݱ,[LTXz Gث."`'?F5uVܞttȴ΃s'`(-?vC\zP6GTkU]\vOSe)cpؒ\%К y̟ 5cЗmtZVDINu9'BEgVu:ڬXf ggUUe~ {!8C/i2XPUF(5 YYX`3cGiu~|ɛgyek?l}}+ʜvwr:@h2pmPj}NN7Z~׎aO#17mTa;ŷ:J6b&9x38T$,uI(0#N"`JHo25$ŦCR\H mġO>J[&WeA 7~>|+.KRa"Van%$ r7j {HpFNUF []vOeM}Lesʕ\d”GRץqMOH/-3o.ܶkf5``Ӽ&PWp>;"#.ӖN4ʋ-i[ӳ+v7t,8@kj23lg99+?;߸q㙊2Vf"kzr?+ϪfښY 19W(˷.KR;E4W'І";E4ԉq'*R'{b0%'DYfjs:.]..6noӁendstream endobj 134 0 obj << /Filter /FlateDecode /Length 464 >> stream xR=s0 +8BY1f薞^N6q\Is)= x;Ztb|B'v6G۫={{5*k,ގf)V1ю{{0F`ܙp3#D*~#'a.!J2Pv(a&'m0ըH$}8d"Z!f8, fO cCK:ucEHK /-]DEͭ9BmT}qE=DJJ^lV^*LF+`}b6DkWcYqq؄N> /Filter /FlateDecode /Height 600 /Subtype /Image /Width 600 /Length 46478 >> stream x Eymy!bB"*Arj[ ʡ_*VB5@EA(C ! 9;qgw'{go|wfgf0  J@"$ 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$B ֐ ZC"$ j 5$BFAQJY ngID`!$B>~fDH?CH Bώ'D3$BFB~fDHu- $5D}3$BF$B>~fDH?CH g >A!Q#X(?$B>~fDH?CH B3G'I} ~ ꃟ$5D}3$BFQ1!At?3H"$j!$gID`!|Qt4 $5D}3$BF>(:DH g >A__\B+(];\<_>E`5rqTa4E͘*=AƏ}lA":T;&\{(= ܆|'"[ΐ)) &y)C $B" et6'M@\#Ÿ(yG", }\RM]`lϚhƌSQGOm=DkZfIHP %;.}sIj*>GL&g5}VkE;ӧWu(>Н Z"4vRa_2oKClH2aJ"j9-硝&Pazr4 v&eC!$Y{4{|xg:Dհbhn2-] 4nөzCw6Mt ʠD`/4ky[zvhQS] kKބ?^;!l62A">q UUvgGњºnB,/`/RRC^D~(eDXVz|C1U:D-RDC(rW$ћTcE Md@Pw{m1% dODv&PB %{I!P/D6QP[2&%W?҅P!!$2!(Q#x=MyC/u߉O5l`(QdzW#Qg^GſZC `3CD*CMᇨ~V e{/ VNϟ/&GݣnM*I:DюG|\>)Kmʠ5{6-As>|z!ߑ!6WAr XfA(O,BHj =NymJעGUI<(K'Us&•њ}>[1`Dg~pPfxM^-J.^UV 2a"|C3/IZj/BL2X@c2څ"d(bB](!!g0iA@K6xj BBPoJҋГ.s'յ^suA"dP0I~Qtg񿢒I5Lb"Ӆ/Df"Sz/3Eq0Aˇ~ +CmA0 7,- BAEYOX'B?%sڅaEtBByfkfy1b_@Q4{!ŷ 22Y}>!c'q;|TT Lyŗ7 `iDg*Rp= -B@4*)"Լ4>~=&h?CX͠Kl K훨(Un/oI=%oپn4γQT3s7G fIsZD-dYExϫ ~&W~Z0q}/tDhq-A0Tb")/5׫0J:ZHy3DȤr1Ol;H<ʿ [|]e#)M^gk&!K5QB-B@.\'6>1BaS7G_DRG֨XIM!Juji5CPV-Sg P{_FW k v~3~XʗEHxa]^tX-ZCV/gd9t8wBbյ0!*DZdGBaQ隊JASǠY2D'KL'`a! #wa2X|Jԕ$XAjJti"|_≴F7*!6XBX8%`",(%B.EDyu-mF"^@BhU-B."؅F2NXT->MVMW_ /ELh2w,BREx`cH,Bn ."J .u~/ g`5rqU1!^49yj j2LBZ(Ǫ}ߜOa#ZGeVO"|80c,M452DTC Fl "|vMmO"t_#MYpAs\ Ŗyʅ^KB=+'D#\>uP;#+9jp9YH"lp!\4!$\!d9܂l2 2pɣOW^e0r5B3G2L !!)!JWU E5BgѕB͡qD9>B",/BÂwN[O" yپ"'I<ܝAg\/4R(gn ­GgZx#uhU +,$$BIf>*YZÎ c.ƒAIB*cEk ʊߜ3n,OFSsExrg'=LvOe\WG<„ocY\(7H;MH"lE(D}dfAIpV+c-2E&Ӛv?VC3(cGL#Ora BEx词Qydxh.omXlE͞"l -~r' ccABaNNBE,:+£sV̅eɠ^E8qـz@zC&?CԬ1I2L2^.^DH{IAMxU)"d +,N0~8)D}!3,B~RREUt]Z`)2QJssY%rE"k#rJ,ODb)QѨ:Y" P",͈oL"lv?$ !@BS|߹7}0:E xu8(ɸTM(+ǡצZGP=j-NphNK%EB7E%6g]ar}!/)NP)DUtuܖ%BmjMB\X v' 6pX^lA">R/!D&{Fx7>\)Bv#He% ꭭3G.H76z'Q" 7]!wDE;vpJA01K"4NB$bR9ڃ/H澛DƮ:v)_ v`6atP[nDx ,\nuT&CuTlAy ճ!$™p)pSw_ =e $DاO oG)n,Eؒ5 s?B"ٕsLJ !.}J.?WE.[.dd!>1󟌞PR,¨_MeF;c3>s%vQHp;Lo$BmöD%{[B-ƒ#^̟r :dЋ!"-.9x!\-BLa dUPVp`C!JeOQB=_DHfPҢ!֛-B.tp3- =v!0ˠ?wC_]-Bf/٤9|M8߲=GB=^ȕSDx㐩{8ZtC&EhY!ڛm" >FDRE8$n e"AKM5klp)N4[GN^>x0o"Lp}8"(o3(qS! #)[-#':8.c1EԨ\!{0ֽ !sEo c‘/*cj2 !b=s yA㱕sD>(h Vx0VLBO6`A3?ꬦP",O4fpxjS.I}{B~m0+\B-BME!:o5GMwj W,&fB-³ FCC fqφow&Eɶva~jKfA e߻$zA~~j v[F"dVAA{?zcM~?n]q/d{+)pԢ1>ފ Q|{SNpR!W IvaK aRKkO ,B&Btט"JyH\+mx3g杖"!"Rі`pC*a}2]a{Q ̂zb}uZ" f7E^rB sEp[|b֙ණvQѥ. L-+x[xS\֟0t! %B^tnVcEE 4!ȧm5sv2%׻d:++$B! /J! jʉDv^\5):ƒ`|\mG>= WA&m[iCo"(vM:^.TOO;5|7pO3Xi0D'||m`GD- q% Փ sdl a88Mh!gG]Lҵvg]Z41x"EE"dd4V5IF.0v%."p2V,4BZCB2U ;$V˧Ni$98vS?0dJ3 OT*$B[Ce/^-B0!InkGN͊/_0azMc[e9EM.Wʢa b&E-Ȗ[G#!O=^4JpXq%&=Ba.v?SW"dҦ"4c BSW|1_0>fjMKҹV$68%vpkRJu_A9'",8_[P\8=J _ WM|,҅C?e%o (ٞߗZtdoY( 2DxveżeX $rЪ22D8n*,[7vL5DPJa2H"l@qL<es ~Y -ír.8ERx1.n! 2(ERE XÂ]DAH! #C[yDܳNSςWx "\͸7Vv<"؅rWhQ.^9{͑o %qaWC@Ԣ0 EO}"nk7md0J r!0g3H"tr,n'0;L[yo8%Sȅc&iA~~Q!n K!sQ1*#IB!dq_(nEߍAؖ3$VaIN/՗ SEn=Y l†OfB|Jj1~mDP)v~wxbjx$Dogevnp`80)BfAvPI<pa 3JWA4^ӏEXZ9҅GϘ6FU J.W3L C'>dL=mKb!<&BynJ&¸ "4,yE҅BfDD<ŅR kJR]CS^:4~G6Kke"u_RȅkB?!ОaAHV}I %‘暯,_}1,f"L]mg¥Ix^S"ӅI6~kȅRYsے%2maD!D($$E(-h'B}}"g=!xp@*EL!L`o9_߲ /B:p7>.@mC+KsI[g~m!xF)B5Bg !)EQNj BE(”/7xES 0~1ZݯK|"d)¬$fTOQ_hπ\8bȠ|xX {©Eg7y(J㷟?B;Ë@08n:r%B)B۩ZԈ;V\x܅rta!"7g bcatբfLֱ<duL0a"\ݮ}_>)mO[wgK >eX z%BH~./}H!%K 2%?|W0/FPwr9˸ e/5҅Rr5jR-(I0DPϻ` "\Pph*A038ډ0p5 ʠlw nNqgsu? wQ bT)B˂.OE0LڂxBDX 44 p%p\#n7wPK6lV>=M'8Yz҅$BI-Ez^>BD(E!!BP7nKȻO751i"LZ}޽mHsH mp Ѳ%BhM.L6-8a;Qo.[GaǥahO=z‹ÙEWQcx([UBPZ-H2 [Kl66څ)¡gK%-8ాg QIJ T Cɝwg2mg|pHV uκajshT/E([G3\ ҅}p, kRcj C: ۱:,Z4=҂! CdAx'ɺ}eO%k,BHcn|~c7* YT޵gP!>;WIԭQGYD)BF鼫Fe ?CX z,oz3)'M]~j Ĉ6U -f[>]-OaAFBA0`6`qrF,ny,\(F"]UwUh>I7.d"WH!K[/kL=t:KCxAԢԯ2̂ ftKy}hA]]d "dϰ۷_=!C(ONJsr|a 4#vu="xu0bꓶF3E4h؏Dhzj'YDѓYC"Dž)ZJz^P.W.bJ/r {ÃŲ;*[G F(8m_{Ʃ E7g7/4˔PZDʅW~c֣-psP[i)n7~8C؉ȂrEX *84@+4 !_&5',< !Mu+M %r_:pË8%ES4MBףveJDWE /H Buy\"T>6c7wqYRࢹr X"_>)n nЛ6,S.AVd{\--i"ЈދPZ̖R@PS`{s B"8AlY͠]Rn0'ɢ:(dDkjIGD(t-[$7$/$Y)"'.d]J&BBNiJar=pZJ՚$/ sP8 B$B1}FPGaESoB!lYtt^_`;h^RoJ cFQsb!hAwz -nB\h'5 ut+!`" /JlBMFO%uhpZbCgɃ <'E[^g6 )݆H3JႥ1 M<=Eswؒ-=lqO,?Ûť"d< SR ,h4ttӻ2Ocё4|XDx+@45pZuаZXZP `&eТ"c+ӗf!0>ۅBœ"TB&BgVEq>MHZ {!,/2hZxePWL6SyC~asa>p&Bؼa""|zg.[(w/Hk fELN ZcgK,Bhuߊ:+NKlF}b,)6B,BP.| ,V tu  ]d+𴄆]C-y=S+#C^<8boؼc]Z!.dAP"d .† DhU!s"),wLY-fڡ pA~6,s k+`f}v!ne{, )s'Ph?CXj\DSb~P܊6RE D}aS'R]"d9Eaɸ` Q&T B"veM`r4(Z8B3XMI0ء|z˳~3y*cl% qA sUDo16ip h҅Oj-0#EJH`‚7s$3_\ND{q[,DDTD-pPZP!BiA@=n2, B'DЂ]f Qbm`Ei-3AgO`q E(~3G_k.ԽREW o!F AW#4&@\5 EaˎA<iAXg׊9b&B]-Bupr"̰ ؂Xi_ w![rV n,Åa2]*BZGo"2Gnb0:M/R+G"r`‚GgM BGE(=pB>2 ۤ?g{oLW)A#( H=P̲ PMJ/B6B) 4Ul.+B2̧ׯ@F5a2ʅj/0E%ٮjY( %BƮVXuIB -r!>A.\~롰wpP[M+Z&B|%D5eA}j2joiF|TtY\EtQO+NRB9vrJ"|;rgI-GBXv;YJ'PZY_CX1ķ|X"%*.6mT)\ppZ(kN nXDcV{Ƌ"Tl>E8?~qDQ}J<=!/2bACʠEQu<]pUʣҟ~{Mk:3ѸD7E+ us\&BpbeAJ- رY( U)U.̨fpZ8(b"\~|}B"׸C]4)Ÿq-Bim7g4EngnCu`*fwӐfW hZa EʅY"ĽF!ؕh#+!ۗEiEEMp0~Eś-2 Bb‡cR$,ېAYpi;PsP77ݼBQ?)+uaGDȗ-vR'.ӅH+Z#- B}d4~v!:q%BxdT!,% 2 2֯Wga?]"mWD(-C+roI‚l/,fϥKtʅYL:~hϵH3\EDȋLF"!E6 kؽW1яI4Y)SzQL!  d06^#E-ܚ"0^Q"LXo\B&{KP]tdQ] iBuJw}dpuU [!x~p0<5a/ >Y| aA4՟[! >"Eڅ؂]APZPaoj;%BY Wa~QPZQ\fNo zuq- f \8h ӟT0튄:S)!(&EEP…FiOpK-)y1SNZSHpnrjf\. B҂`Y:Ss"|} oF=q-> _3g:Bo\>Ӆ6ըFO(ÅE|v/tpvfJahbf4ӄ贖?g+ÅF=Z%]z%B:J]k؂p@>C$mMW!S mATAr" w8Ye A>l&w].La%Ws̻bCu"LqSD(N$E&\N/ ?S?ytwꅼ!$*?Mq0bGE;|kwcy"A0D7H44n=. ͋0}U!n}c+rjm ( Խ Iu_n)EJL֚ C&BfA^![k&To6U]ߡ' uz Jz.jyDJY9^ e:4Qu7s aML{:GM doYjoMXpÂ" qoS[v0r`C,$ۈ=pa'E5DϷ21<9^<}e'![G6fuPAP"DhY X*6MgX nZ?jP[ )Bw4N+E?_3AZ:gmB/pu ̱Ja$©byEutuP ͂k++dL])AP",( ,JfEA[EֈUmFAa‚ϋk֗Âk:H]Z!ӆ.ٺ#].E8Ui^JC5G#{ DD[QTCx}W^v2|aAeA [.U&cUuDYg2#A"׻"\ڡ;Tq?M/7oPVvY!D{Ȃ+(mGYtaR̜72G%2ۚ +许HBKhV&""˂kkBViA]#Em5VG# hAHsiAOe A?Β:Zcle pS2b&̸~SAG]U "XUo'UQQP Z0uoWq_|pv%*j# gL R+b=a "n%BfAv*BiASvu"ܺ"^EG፴‚ Eh-o 8M3p9\Ziў}]ƻU.L PG\h%-֍ͤשڡva h4{inBBHG"TE'ֺ~1%NTSE88_j ũY|`9>`& B)EfZԛ2DH4wLޗQFQ!!Yͤ-PB8B0Мeu0UڂHFjL"ok3 S;E9>nТ L1o4z.D"`K.,A𧎗ҼjJ+uT[P/; ]5  "\50 Q?eMJu],w}>5~` Dݿ&GKuՈheJ%BhɅ%mڒFʗ?j"I-p8a(~{EL b`Oq&2Mo-=?68Ia҂SΤKjA5eAz<);h6i =hcၣRئ0C /:ǫ=Lo2V{@"L6jN0O cݲ1NϋДgi"|32nDeE|^pΎ[p C0 d띗+kK!vvr/fَKh4L̴`( [!$ZG܅rѽR^a-8={?-"LE.`[p1iF4LxZ"d!0e2x1Ϳ4}^syks2E͘r}]ի(C= .Oa5dL@?z{Y)LxphtIES\XSE5uNH?5B M]k\dAHP[WmaxZREe4X",H0"<2 r<9Q|(D6Gb/n!X.|B<ꔢJa$ ʘ%BشPwnݣQB`XER` ļ U!㍄kDnf "d5eD>Yd ZD4}:\:<r<ַVO Zg]\.NonO)'W'n(Cp!ᦅjM +(*hd /B˂`[bЗ#E[/{g6j a `,E3fr0jloQl>>zPY?Lc]xYe`v.Ex,͉0ּ\B)XWm+raG}F\0|ZHbW%EWp'sK")µj:aA+Ȃ[/IPZtu!D(-:" Mj]jf3D.6#~Y?ͮlc3Ӆka4mD gO&ߔ gD"(aŤIᛢ e!؂%!A0DWA*At8f 6Mg\ZG+.tV .D8[ܮ)4\! Br(hHѕ7&E SE(-ȋ +BÂ`U簠Fw nPZ vR"|O@EMӖ s_DKfʅE8[y#erb< j؅Uj.j}Q…tL*+O{+)fZYCBdA@"d\q&%g6K _d5ZZ/ߑd,=`Yxk+,ֆUD5y!UK|ƨ4 .Vw 2%7j,~4}&W%G"\+S3D(QY)BmAD^z :1<ʤmrf]X1>gx1F)kv{_Wڷ ;%i0LCZ$eƣBh4TO'EYY,* 2ȴ ec+fh@}Lj=Js …Z؅% mc95Xƶ^Q!gZ/N M;w ʍ   "T|T+_ a^:pIϲJd(!D.o\`bCEŽF<8](ĵ|YL[cS,aߢ /}G-P; r!\.MY)2څƘERh0 w ?k† N9El13DNB~ cT$ݡ 2 <H `XQP;9qaUhr@}uQ #k4E st5*<}>x?~DY(Y(N\h$A oP 'BBllY"* %4 2eZ2(M}>Nx 낅B?C\MpMo$g:[ Pۃ߈F:Bs ])M!.\)B)WuiJ.C)[+t0"\"4Ua c]‚D`*7Bh2kVu r!BsP`Rpk)vCOQpyr|ꋯ|. !рF8g/7'BpZ[&y:hͣ P{Ne?W)ãix!YXqq/ uOQijeA!Sǻot*Z)pD-h屠:WUQ[ Vo8}jk3u 55 *lA5Dȓ5kTD0͂."aYMPc P0!&Fu:X ~^E}h|0EunBȂspai!š6J`hmXE څhΧgn`VR%p qF,M ayqVU`iLvj| BScS3D>3E\i nAK#u I *:_^tv%,`iTb2zΧ>E 2czy?Zw5Fv,I" !Y0?3Xo@r!.N\;)|׬Oy=m0F3)( BM ! 13u&y.ͺIxwv55LjHfRH H:,`W~jPgkeK~f,d>o !{5BdkOߨ Y0'~fGd|aphBAcf)Y'-tdA?3X믤X@wc&D+څd$36é! ϤYp8 ~:gk@/&P0k~ IB@]0[MTa .  &3uV| WR zJ`*⿶͎'m3QaA"s_?3H_4* i.$ fg pt"lւeg|7hJF|o: wO4`|O+Ģm ?3HߍG"r]]ȍe!$)oi)Bٻ~fŸ[EڅT^Fˢ)5fg<*,J">"$6R.B˂exe0?3H_>,?CHxH3|uumyƄ/_S?" (|7}\Vr Qɂg{ 5T̉!$|B~N{( ?3H_duJ_k*" C#,p҂vZ$ ҷ/Vu0g'%0?CHl!49 ?3HߖנSN&Bߩ ?CHa Vt%_%0I>(|}tD9]H̦;\<_>XsB9LjC3&d44!%!~(*2.d09:b!]Eqs'وO!G1E(I:(~Ok@򵷜6 ~ϵDXR(og2BZhƌSV+\еDH {z+# !AԇfPa:?>!9BH g > 4JYQɢBHeO[O"$j!$Ћ @GE CO24 B`g >A!Q#DwN,D3$BFB~fDH8 @ g >A!Q#Dt^HY ngID3Q ~ ꃟ$5B^Re $ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!AQkHAD!ADHA!Q# (,D3$BF~Qu!At?3H"$j!$gID`!gGߓ A!Q# !A?3H"$j :DH g >A!Q#XQY!At?3H"$j!$gID3Q ,?q!At?3H"$j!$gID`!$B>~fDH?CH g >A!Q#X( $5D}3$BF>(:DH g >A!Q#XqJ"$gID3Q /دD. ųoS &_#A| KZЌ -=](] }AƏ}lA":T;&9GBYk-gȼ<ȅA~fDX0OmlM>h T&#UG̃Ȅ>@%~fDX3!jGѻZ E3fb78F-%rC=~fDkZfIC'4}b:>,ED $jh玝7=6aP} %c:Dͦ!Li~a[DMA?3H"-硝&Pa !$YL z$vf?BQlvm߽f Ao3$ŽѩzC$` 5FӀB?3H"m~&փ/(TbP˂$N~ǽ !~:\!$Z2X: i}ZO-Ύ5}Ճ2X^ :,)U=D3D~(e }O|!J~heP.xZ }Fo?ORCTَu-/뛪6A eKx}K_ކS@B" e!Rﻗr| RJn?EJe(mRKx3*]5B(2e;WӔ7?[BXgzZֿ Vn_\T#Qg^GſZATnH'|mRgkE῁ n~Ϳ~f."Sk3j{~ͭQ!*юG|y35p7,bZ?ʠ?m_Ư0~([IjzjSl6ŖqNݭ1ʊП*(5{m&KQJzpC{T O2Q2>V-|KPfDm&BOK}fQum&{ȎUχEu!W/÷ ~])Z`:$Z*o`-P+?: o3h*E</W{ %=D3 ~-;mмDxZا%Ÿt ~3u`EI˿8'OX),Yc.\)Vt0e2QEv&Ek%jW6{"]?V.|gK't)pZ8J)PExcXR. )no/b,}8LE qzڅcG{PtPC֊UnP3{2>Y@0g%nqCݽjaZcRFk>c*҈ГT@x-½?)Fo3FdP²mjaZyڣwT :,{K B?XAqHa .t ̷כIrV{M͆7G^Ɗ BGzK1..nO{T $Z@Era5BX8e`f̟agFaI?1]Q4F" b@e>*lGѷSl d"t".᷾Ŝf5TsR #jvQt#rtauufibE6)"e=F 26FHõ :f#E8*hi>ۆT# ES-"e2EFW,&s\϶!-CQBN*;EnLy.;A. #:2,, ȡ.jYO wwS\-B=Ty8$b*¢(uV+:LaT~`|BaAa33 J-"<7C)BPg'AMUʄ(J%CNl+3 {I·Aa(6-(C77D('"h< uzzU0>TWK~(2d|:d $]AٍX"R 5Z!p_-³DNϐ+ϫDx1jx؂ kٳT)R ~%N:,ulK+f&_K@"~$Ev!Y ( uW6,›k^ y!B4:|Hi=(kaH0TJ[oR fzŝelP [W-?p\t:Mgv/l/D8xy;-–9~@JDsâ7]5MWѮH?zmC*cP6#Bv#]0)g/w6KNR7 R}gn"]xqp8(&zB9?|T,R _xy`ab$AadJG&BmUohRUnm+9!5?1ɖɲס5r'8!V !09 UN6C[߉z&Mf{ Erl<3nzi!|uQJa;?CX,`S"hKF`tۉ|%vTuV/g9n3E ز]w!ᠹ'M_ ׃'EqWMu4Ex;O"l?u}"fbNWft-gU5OGaP:EE!7Ѕv%؅bɉ`.^ h6+w0szs?R2[=_1?R~.`} ]mHp(>2 `xSfkNcԥYmШ)BqAu%xkh G[Y7p) &_#']-/x^{AA "L*0f71"1iFM,^k|'MC[0E؅oxXȅ\wǏJ!c/],p>x__\M%pA*c< ŖyŹŇyЮ{ ^raF8Dt>^39Zض \& I`1"/ >AhfPV%Ip̱Bߌ|?s!7it(_{IY덤fPODxykKwzCΊPAaDgN,"!k)"<yA_ T(09>|ϚhƌSf)m9ܾﴹ8kCmAa"?0`a"0n(.1E/.j,MⶡAda>pW PbYo/Xʇ$V]HCؑsL'"T}:h /^㒁y]S@0UcmX"= EU`aK|Jc!Z"B!…p'{Ap)D]#^_|Yu%: <a3(a"h` ~sZ,5Q9>=®P/˜DhT7N~)Z[GiJ'M9*4p$¼{A RiJύ/_\A0"$TFϓ[݃EPr_!B Eܦ‡?:zZY񼦖Ψ ;;(:C]t?|vfP0"Q3'BP꣮;f0}VT`a"-3PR>ȑ+њhPhRgG@!BP4!LfҿP vOdD?oDN I2l)~),sh)`*.< mpb ]0F72JAODF% Rh/؉,X՛&k{{5HF "7RB])|]44X<KH19[5DةߏROX+iCO*#E'9&B.eʯL)>]U(g+C5@B9JAA"tǿK2h2]9IjG sǿ A (I^!.Lp]]hPDhXD-K79~|C ec' G$”Ra1=[C:7{N"̽2XL9Qו1Z 9/eEFPh秡Jj~R{|͠Rp4[uٮS{#/vpK]z&dVJuq%p|Yp .85],t<1p&\Z^vg} JJ,\hU% {\Uy ©\H<!FA2xi?@=mjSڏ=T|C~J b!r$BĒ.I zzn{fޙygͻYk={.;Ϻ'oB dE} \Rp٫Z 7o|*ȸX?ϯ[I\yGOB`p&A{PPl]=Xٹ>6H@ .U A-N lu<=~ʑ2HAF/6@(,)GAxj^\!fRV nžpS>[5%*rշ=bydI,DP8lћ@jz0z& eV3[eL΀'\28sv.@('0PuU%KB\Ah<[ {5ӄ(Zn5hGZBaݥ^b& Q!JfF4EPVB(Xؘ8@A y, '" #QjUˉɊw ǎo;k l~^j)$.#Gu0mbSZ}z)xnV{A1S^'_J-'ڋ8W.߳>LV.'< B?hȹkA8)>r~Z>@ă|!b^߸ {>IJOeaQK +e_Y(@(w{ r~:  Nƣ=xr}_˲ tλGu*IM ~k 8|"? ,s1> Q~)C6e$k@ D--wT+fO1mb#Xx,'v(ږdci|_o" PqzӦ=|gz#B\} 1i;Qlgwˡ z0/:)NrN^(e hIс$ sPSQ${;|!hNu"(L ӄQ)Bb(% l~6tk}NP-BՃsEhBW 4|>wzX98  l|=4FGC]⭚x*/m¨XErlȮJ)$q20 -ЄK\ |n~^*Ʒ@ack1//6>wtO4<5D@u3&}T^4b5aTЃbmP9!Q l/z&{R}=8o}H ,)-@(((v 0ײGnTSOa~3O]_pBU6&B&My{6Zf_"BPDjGD1Doɍ" vxVNWQ!h] @nREAXjjËO Gz0FBL>G.Z(X<$: 4nBu%j=q!,h0NA!0qU{b4>iibGKa =@BB@Xǫ)'XtBuj Dq©Q WytjQⰆ&SxS (¡ t9(LC*i_تzKFR~ [ |e 9pPkP[. Qj.ClB`j,}~ qzaPǃ8^Qg#9~mxpXOF B)\$B1(3Y~ 3/O/\F8>R8AK|^q8Xӄj!;I!i`a U r6 g&l()!h:` G V.A!j,^:qm^bx_ 5Ald2inS>AX@`e}q}P==/! O[V,DuB`,  4`ABK\i/țɿ w;A.; c= iw^A*\C2^C B@)H?{Qlh~;-*{lGpqX[[kWŠnB+l \ @;͘Oj2>2PUYxdJij]* ߍ~klLxe)oy GB q(@=V7PZZ2 H}" ( *[v_I%V(WY\U(-k O6NH{p,QE,$Z>حP+8(Hڍ{KVy:QHn KU7?@%HuVӱa=8PO > -X$z\8@B] mWO^aOGxO?ǰ2VS%s-Yfk) z~ C${NlwĖXDMez.6I . pXAA.8t)H"oF5ߣO\aJ8@8IE48 -ҧkEnwXYȎC_BqcVt(ZA(b!ƸUa>NW:=//Dڡx#4A;åٳ4Ƌ@[S_Ӆۤ l1 _.\88zAE+ !BĞKA,$ ׈X,DRJ,rO(~K)\jVzA(kR5c 1L]湨qi@?x_l 8C]DS|iuҝÛ}}^םЋJ-l8@܃,@L)lɥ--f!(>T#@~8f/'rL+'Pry@XEAAAEv.Ah=DvCAEb# ?M٭qBQ_׼PLsA36A@\%`CY 0ZB`k) a<: ։b!^GRE,Ftx*sj,Mboե(=D QSҩTH _K_:܃M B {~ E8&A3D-]Np̖ئFzk& }w ܩ;s}PLnoAא‡αXѾL 􈇃=səאp nO hE'_ Bq5pjT( pVd Bc9?&t{x?^[.v=V' $ a0gw'Az޻2yCJL e-Du | ŽE)7V7 Ak"͹خ epLc`H+zRw16׽U5|TQ 'nxPp ܒ[dKA`+WsUKPͽpY |.[s42OO䎔 4eg Bk,A.tY,XN(ϑ04^XP,|2(ܮ=[@)5@~ίQ=Kר˴4,{"{y t+/|mO,rxE E$ ȖR#]g0B^!~ mAn>5~oy!҄ڂDY:L8!lt#,$ G,%[(a;=}G <޹Tn=@XpB3%,j;!QbhLon)G<[+W3AyUw{±_@<5ުkƄM (ۃx{CAdB C eҀӛg3; 0@mAA(k?W?׿q1)ypȚFaL@ s\YH3cym^^.9  @# | uY~4?}I%'w;,T}OBJ&^܃.Q^,_${'yR>I,I3ʮC ,%k>EҼ& Ƀ(HMUJA>RAhB8t3rZVSu!06w hvp8B&:ЃƕEAg3͢/7[}fQu ǽo DoY͢m Ƅ1uvX 1cB kǝ5`a L;` nY@NĔ Qq4O'(]Nw7(DP+(4^_W5AG~iqGqb~Gs5RKЄxk:/ J`($mVd5@.!!Y?;Q#_"(H(Hij=eFR?ZVw˯RyCɃ\Bjj(*LA%\|qdS#s% E-OO mFҌfJ\ZU00)p3|h&)71aN.Tږ(g~{Yd!Q,$(.QvAJ0X]4߽RAPRP B,]#$6#jQ[G{BPy*Q~ o]_,Xz޲g&; BHLZp&<*O~1k0(JS,3YHA5& N[[^‡u(&cT _~ARԗd?w{}cϡ TAv DdG)tS^ DYxY.] 8 Sb!؞bel]8EBj 8 [3ªYEE} `![E|ԅ a1AHZG}A!e(oպp_8M8Ԫ_D ]\\G,pGجb RPxK5>+d(*NO\57BT3L,4L@%3 B ]p BvBePH:(TۊFQOEN杔oVmiLj/ J^j(&Qsߒ,_8M"cö5tfls*`a@H,*b6mG/[Spz |ůM˽+GX"!V72(:4r=q.Rȿl^aEA%2kS 9sJѤI_PWyX/Ri1WBia&v@_vW8Qs2 z\=Y&$mn Uu†p%WUƅFQ/ М2(wn`qAI*4!J-=RvAf-`/$v/28V)݀?تRLQ7X=8?D& ] B9 þj_B,e8a o*@({Qu. iB7(ňi=xl ǟ4AP}{ަ'7]ْA;-Ub!1N,v@;Y^A -ָJmכ[2Bfau8X:OPsE٩>G(Fyj*̿ \ MknF>[6/4዁{k7Τ$ ͚X(pwqئI&E<q"%ps$!w3*Eb먕 }F,1Ǒ O Q%C/qoMuAfg*Y||Q`#i^H)p:Z&y (ݯ^FG38] jEW+,5rߺ.=Dfׄ[V aB`|G;x O@W#E=.A(P)J((AN͆xW[!Ig~׭'5講psKT oT(`apcN{k$CH^+t BBEr)ј1NFVa+fϾg ʠ (bLLO8Xpjv!,tANPN[GS b= ,(,sFmy,H,x7(N3֠S[GC/ lz\BN2o'u=/8U G2\ԍeȸF\RE,!5@Y~)! M=g;^]` q4廉 z0'ꆅ 3}nI+8KH ig*AQIUb-mtAgTkvBpB  5E8wcX|%MxnWU,lMHT+'_cB (N5K(FT0@,;VKWxo BOQ(W- ] y7 sʄj>uAhSJc!avQ }tq)p\*P(! i d! b2y}+ɞUpM\tj3y@άGmwXB$N1S;X3!yYB YJAs+A0@ vB 5A(Gi ` ǫvk6 ]k m },$hO0Da%t I8̊^edc iPb`oV5ZVXʙeU25ca ▭ejPFBcPg̟4XhMp=au(&!e~ uE6HtU ;uS^'XO=FL/f>WxgNGk@Ճ_=TX\ x!rиP*(l/WK>,ϔ ł!V{Yxu+ZN&+lr=1j›2aB ,(HpHK"8]e9ZE3 B`ꭺb!e# /P\fh;!',&1Er 9S|.)ZMz# mف&+p{·].[ͨ ohצv5N6fcmh,)x>ikϡ/8֤I¡;wPɃ]*귬 )zNLAByMvQ=Y |zDYrf|]fO(7XMXU' _Ό#QеDqN31/{ lac B?iuٷ5]zDAՃkjM>oC},‘+( kD,C  uFԃU ,_jrۋ%_Q%?wxZ7?dq:ӊ~hOg(;FY8hv$U NGrXM?oȊ6rC/~KpD5BbqUȊh B*!̠.jQ8ީ;!P:M-6ʌy+0 #!VJ˰MY3)'Q) NVN2)+SՀf(AS9DMT̪-YA7Qk޸?;arZmv?Vx\vzځ 2B#H ,@Ip(,l Bk%ٙq'>4:9Kpq'+G*!׆\'W8VPUN쑆:iBhLzdaAA13lP`KAӎ,7@84yC~~ %EY<`!oE ;Х䬚s9 Q> t(bs B&vyQZqeV&B`ТN]tm{v@XAAoIӄU 9 0Bܘ, 8 mA Q!N{ ,)X#gv! az4~)5*tUԈ,YhQ/JD e aAdܧPSaz!FU,tAQӢBocMP۫q}3C4A%OL@L [T%mɃk>3%- )/@]r{:L x%aaㆂ/?qQ~e-5N]X/XT#/P\Ӎ7Eu3)!8,`qfϤ@ ,p\Fr ,2Ra =x8>v{'*5!Vٛ'n(iyRÖ Qk"B8k!΁&{ѽWjҁkU%5I %EZ D¨;] fA MȹDq: RL! DAǡJt'uB(jXtV(u=O}< Fƫ0QWpT ?8O',GxlQ! >7┋FLӼ!NySա`bb桧 |+QLf) '^,6/hnB/lYA,,R7}(&|i1*$_I{Q|.`LMAPdhu qL,Kͅ :qoc+dpˉv1Ф $*ʃCVU>ScoL!2\zg[1 U}>zBMA*9?ʯ/Z M1+`?N*>J)8Q=ܬQ58 B .Q7Y?4Y(~b8b6,_^iIqzpX;]l਽`oč`YA1|Fo` \-@heuԗC_aX3"4 Q.&2Dmfɵ,dO~tw,\AL2Q9% ZjM q(ӃCU}baSVVR3DyB+G2a5|nU㍂&uOM |8-iIDQ͉zuf |DmTCح9w{CAԈɒ[[{W )mB•z,4Ys[(jLj˴!Q*th F, )}9DApkp(by'Q,y u~O28 )ά LnhIJd Pд+nftlz4& yQ AjޅY`!5S:2[w; 6E'lS;p)<&ԭ[(uI/+ )Sa ̿J^U•l|BMAuJ>ډ?2]oLXeZ:)҄Nda; B\ֲxP"3I G 8qPIAn=@ZvT0DAP0B,q4OyNB jYd< a&]~NanB.d12g/\0H8<̍Ƀcdoj3(} PPE$44@pP~G DA+4Rܤ_ .QE Eޘ<8J@v"- N)GM խߔ84pg2E%[v r rvݰ0N&Qv@H WPAh8a B#2Kd- DA\8̭E/ 5^hFof=GuxfH|RI^=oZ B,dBrYAjs730QTK ʻ``_߱>Sm *4}_(SaМ27KgJ=w 2yv :UЃPg2>uB{'h&:FɃS2K\fnا8ġ48|tNY^*Y]kX*Q;vi¤Vă{! 2 {MAH+%󷔝/"Q%`!Π膂ev4^Կ&/D=x k&m Bd}D$q@ C*_޳=Ϫ*ZGq }{8K 0<4aR+uE}! BU*³@R%Xغk`晵# B`wJoAY]N0NxH,W##`p~ێo^=2H8y!V΃B+UE VLm]^%vdVR?_pBЗgg C d`htkh 5@ӄI-4j83f*/hpss :SGr$\_bDmG58Ӄ^7Ve! B,|К_QЪ򳰆4 Wwx~C=؋hօXh!6d j;WmR[aQEoGå8=8Ѫt4?d5:ܪ ֍ ڃ.A0ϋM,De?[m( ZQb8ӻWG]ݳXMTxP>|S5("69UiEAՃ}Ra8AiUg.FcYЛ(icT= >CAO|DP,Wm'ޥF1;P(v mw)f9Rtj֙ 5:B`8w}! (_XtKAՃxʕ+a _|*СZF5{V;DkMAguyM !:t&f9NFF[ڹ8=Xw u3: |i`]nq j¤& ;NV;HAlk ֖k Dc1~Zeݪk@@x+VGA2-UPE,(SAw7j(Ӄ5nYXB`szVXMoQwKAԝ2u+m*N3F1|hqq QK&TLXj"2*9r^ ʓLh(NOtȔL؍ T7ߜ `!ЯQYÏ.>T> $% `T#ڄ8SfpT*KIJJ¤I@ Zy0vӃ I527&/$%[qz00FӄIIQL L4aRR}j$e 8=@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIVaRRRRR@Tk%&%%%%Z IIIIIDendstream endobj 136 0 obj << /Filter /FlateDecode /Length 432 >> stream xRr@ + ]p2H L ,s[fIbq=z ѣ}>|쇓C?ӭ?vWI{7So\pA| ;tO+#ripm0&;Wx6&xh+lIdHܚm3_p)d,eu m_GO 씟%hyn¸1,b'27 iA ogZ ;SM>γ}`endstream endobj 137 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 600 /Subtype /Image /Width 600 /Length 43859 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKXX" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( (< 6hwBuge$7FKu) T!xu8 Ȯ˫E9Gg'ۯtUm;P,fedg~E`٠}Φ,"7H2c2EOEb]xAqCv Olmit]*wڄPl.PHg:lQXz4-1-PXbX%8 }qO|UhnQ }z=PxBEb\-rǽ*MTC}]y.14Eci^*u-tB9#.~G5> bɦ1yE+4;yng>iQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQERM]X;uok!#ZT>W$s_ 7֫/Y*9.>هlwE?0z]Ze֗ijȘI)䎇oK.<+Z[MjCpH'ߚJ+xai(mP 1p O73oi]4PyѵoXg:&.%2"H̄z2kU۫MqE'qAna߯fK$Ӵ+KƟ_jEta\VXVXk7iir*ǵnF _jl5; K/mo&W۞SշZZ_4l[))N>/@OZd>|;g$qwR_ws j͔.#mQ&ۄ&@>J<MΧ+D{0RG])E2HmHAH*IER((((+8͔ mׯ}B]2{d`ofT /#-kw ֪o %M.Iq=|q ut3u60z2-JR77Ryi,FDehYHsӮޕvmӠG0̠Ʃ7Ի5]1"1a{ךҳhAB''w4(((((((((((((((((((((Gƚ蔯nZ*;WKɛF'ݷrץכ"ܷrפUS-ZטQT5Q,e}!n,@du=Oayi YH8 AUŊ+6\n,m%P:rF#TZ Kk m.ۆ$qEEPEPEPEPEPU#e1V8]O$ ;w,@;(HH\.7H(sG$N=HRS~GQ\ :SnwOԏ/9ZS>:aYe U!suAe}pzHM- 0i qZh_rЪ&kGQXե 9m.f e+8r*f.jM躅:.%$. )?e(Z bKE5B–6ir4_szn$Vv _rVXG} K`,Ü*qV+4Zvi$SXjyFՌ<}_E:t9`* Q,s'=ԢdJX+-|(2 ( ( ( ( ( ( ( ( ( ( ( (ɵA+f[Pru /տ&:Lxbf]*Q~cmu>}2gtz-aD*gX\utl[Qy-5[o"iJ1e`v-OrZiR-N#pGS5Eh#!`tfv){IKWܿGE{i%&m '2{*︕*kh:\tiã2fNxi%|-S~~L>^q5Wܿȵ9-mO.|g1OIEW$WDRQ}9 {ot-.++&,sq#c b:[S7{0)QEQEQEQEQEQEQEQEQEVO ԻA܉\mMV?nⴅ@pF~#0d[(^\Q|zp൘i눎cI^m&Aʍn:r1V.[@bQ)9 WF[.V^z##FGӯ]A,RbAmAE^ծQWCtc$FpqbEt ep7I6{9*D󵴲0X2Hq=G:+|VYkji:JhrˊOɚ m?长.KVBJ/UQ[AEPEPEPEPEPEPEPET(^\Q|zp !kF +A#ڒ `է@Q@Q@Q@Q@Q@Q@Q@Q@Ql%\eܶ c\Awڭf͖66O2&鑌GcYXPLR7 ɒI,w)$9=hNwŽVx2^$u>H`zS׎O Y]T/B2/5PmEQEQE;Zgɺڦ'9(8KI\c.6?{GҭDw7w\l _QEQEQEQEQl%\eܶ c\AEd{ŦנL}F?{~x#oCG#Ssmo13؈HeT W?. $jD_8Y?)Z7׿dmNr;qbkZciʹXLyLgfp2NE2YI]R4Rp¹<}ԍoFU$"oak3IoL@.QH'9'Oճs6t4M %gYJqКKIRӕ'V veHs^sӾ+f9XH]VSAA$g:5)۞-_ES3 (4Q2,H]d0<GqY6Mǖp"pѮO9 s':PNrFY@Pcoty`v&T-r3ECkuo{i90ΛW805((g[lQ!wl$RW1[+bQ\jrP6I֫k._u oP8B8=^~ MZ a2~@};\ӕ6y;~β6NGһoڋDi;';O$ǽre=62 p0A+N._LqЃǷCJ5B(p(((^fW_Xmj@4Rx_c`{Jf}+ZiV_mxۃ+v9'5n ( ( ( ( ( []/{‡EPayUr2n! ׿Ѿǩ>8H0!2,h_vn6Pp+"`SөW'ODu 3smt7"PGyPEPEľLK3i+wdy3j-oc`((UQ_+ y+NO?@zTs#cr  uUN wgYb9~g!oK Dn2?Ԓm>ask p?W[~VW7asr8WZV@ 0-ϔ:/Yh4֦s H3ҧ HzҲbP g ׏t{y-yBԝ~ U@g<?YzY?f*NBWdB d|rmQ]Q@Q@d_7Zv9gケC<#kVM_og y.>(?ո>>K_%||ϠC2˅vʜ`[HX]pke-hR QYB7e'5^۟uFZ錅|R^lyE$8Q&9#[FtFۼާ +x;.@H{wX kXɆN-Ѭ"cqdEu9VNaaX]! 1d)Ԟ3`|?0ꧭ}|14*M:(+&':tR9nدU|yh0\zEkVNu6sox+$`z}Q@s6ƹ_M\'ι_ןǟך3.Xm mv-dyS~Q+e9M3ӵdg>"Cp^_T♏u>k=/<ƪυ*FGVMo ֖H@qGzF褞r^/t߷M]ϘIȣ=r:oOA1Wbye0=21$5(dR7akItӌ7lVaK1 :Z%hG=,UJhأ 0UT]G eOvndb?ZmMHǨ%vz0mdc'p"ѧ21WEudΫ)GgA H|zժ4'Z!0$L)ZtDgќl9TW)N?JJͳ'[H?u\ي6(PpĜcs] }ъxZ𪤣хQ]'XQEQEɥYc5,@{ RG#E-=#+ۧAҙOGb9k)̣=tsqZQEQEQEQEQEQEW1*^}mnW&R>YrrzOE+7)únDb&RP roZx_FqgP#{={sE3MtZiVrw!},Г;tQEOSb| {R'/?$|g_/Cw&{;Vyup2>&AU1|1c҆=+ˎTiֵ]?.n>O2v"zb :b.K(MGm:@ɏ>~ݾlz{ asw";ӿ:ԪZOz]3Đ"^m=y8=2OiK46ꮠ<ES/]*GH_uhzWLD6@WC^= >"GER:( J:} A SgC{0q!sjg?#;\.:"QIkPEPEPEPEPEPEPEPXD5k;͖+JV@OPZ=$Ospl=.|BLfEÑM\u/=Ny%y4FW8\0okJԨܴn&\0vPd×>N rTqNTMem]:x(,Ǻןԧ5Gm d'ef3;0aX2W򍏠9!s( MSegxa)%WK˧Cs$̺hL,pkI6HjƢ_w/f@8R<~uϱBIOvBq}Gq}-{yri1æY+I@=3Xl⻳fw#B?MkVXWC Ce'$rk`;Ԏ={jׇ$KH~$kr$E?3@6dKu-Ԫ0sqIN;b5 ( \?+]?*G3irE z[sM\džuSm9맥%owAQE((((!;aq͵7Vq`#f3hOmcim$ޒ"5$AykRĴ0[=bdUL8=Yc|u\ĺ#Ě?ًtΉTp#]QT;*zM+թPsȣϾ'UKLs8ʰ%8_`A2[;<"n-#\,y8d!XRA\ҷ-z}r/r *C]Օw@%'=y Aei2OS<B7ҭ[pTv5ʅ,?)[e~m#" ˷5h^FM0gNVkCAzSMr$|# 8JF{T11kYݱy=OgG5[@9tҲ#ʖzt4U$?;')ӡrfǺOO!ƾTRzn!֪«؝9/ 1]V+:;s^S:<UPK1<s^KSpW\kQ,EH=?3Ԍmi1hz5ܖ-ǖlqIxhQEyQ@q-^և='z5-dg^SDE]XEz<_ך5|*wk[o z꫆ݴך΢a.l[XnѺ{cu6Z Ǟ zlEujGN\/+]8G}Ғ8i2p 8qMks w,ȻXڭoH- !Q<@8ϥIw鑉[c\<3 BX)k%I2(HUS>*^\L#f9qc5FO%APBlU ;$Rjiz kV&9sfP~P 眜tEQEQEQEk:}9Yz捘)EpO ~FͿXf/V# z06[/6I<ɉǺ ma.eNU[ɹm@)$P>OTW3JG^6F{tv <שq\ڍbC1ϖ!GAǽexsWR%gc #00aicM(4 0 v?ҽjp^ODxYk V@Pp%c-{eF$}GϓN5?*8S\\~fF#߽KoxBHeu8."bs=xggvm 2?JEg*x:+`v,RRxS={TIm={{ҳ|vxV#چ%(Đҩ24d\=TR6g 3^ IJOSbu&҆#[5[w @T10o,N+Ԑ䐜tҾ Z4K$2;G"0du8*GBcHmeQٞ=;Ÿף~c*~ep7}N IZڼ HKE`Hu`յ=6HrTJ9xlm> &[˴bѯhR18,WaNmchڛQEqQEQEQEQEQEQEQEQE^;؂9dtmJe>A$P :Mom⢕Aȸa m$n(T k϶աKU>m`Xbd|˒0մW4d9 Aq)2̐IUprxi ՙzs_=mza؃Uuv힕,L#pTϣ.K04Wļ{77}*[Q`@{Fi(L0UQMo47Up6a?3p4`[u9xN:ҳ%i&=+ݣlklojZ| $\'8Һ'.4yϰD-c*IHF cY CtQZPo&IS ;4KKBc3/\ zQٞ:~Tiwg{4_:E&ܦ {@SXgL ).WuQ@Q@y|KxDU"}(6DG]z{y3͇kmڶ酷5v|;mڞ鍿5w5-Z [aEW1QEQEQEQEQEZZj Jwj$O v8$TI]9P2FA㨠 WI)mwk&t1p$d`g)YIlp\J_ڳ/c!oV~é!y{pc*ZjLYw|sč'ܙEN.2ٞeE6~md`ORH8ףxA:*u,)-"IA^x$א,̇}~q4*`9i6Yq\֍c!ְ pOcZq;֬-<7?´b9"p5EGM 28t8aי[ F.>&a'݉n"0~^\Uktb(bgX7@K\oknAfȑ?L8I[q{W4Bya/R2|w޹C;ۨS-Ov^|H֯s {pp[ۅcvVtM}f[ɷyʖpbxUWhdzGoegߚ[Bd$l3R#~Gܨk&480wItA+8P[9˜mCpDBQTD TZ}vPY5w9g=K1ܒj|m`)QEQEQEQEQEQEQEQEQES&9xE))KSE%p1*FӖ,sn(ռ:}C:ћ ȃA9G.k6E ̛g! ϝ՞&{yhّwO;v֚^{ Xs@~d8kZes !%^C3f_iDKE^ӏ4і&mpc+|}Վ!9Iau)2:A+2%ʵ],N}^<''Y#a?,vDnC\MrwxƼ>qn_iN|'ұ.i8 s۫3{xkգFCgr9.}< 燥Մs#mּ`E<4H{P]ƥyM4EO{,-4}n%D{%*R:lL1ܐY;=Z._M28mYSQ 2[DZHVnHUn2] X4A-k%ݮ%)&e ?͂)ݓZze$E^Jr+<|'-XvΓ7rύ猩S G*mbwBIKc `?\ҭPEPEP^M\XLu53}/Շ4D^TKɜQ:OmW?]y¦ygoC|r&k0b(Cp((((((yӢxc[!-CTL]j (4i.VHe;xP'zs [pEws-Εp~8#lt&4 k21SdcH?+$P-·` eX08% sqO ?FW.jn<,\ 2p2 s|7?{D3[lJ 2A ^i \se O$h2wqӮ<M{<8rUyx'/F42=kR69Sb,:`{V.ֻ3ȭM3Q0/eDӞAj>R͹x;P`}{juʞ^oCKr=cR(d5'ұ݉$I=IB>_zGB43K۩ដ5my'9--D U '8?w޸IHFY*'bp ]y Fi/xsU,j&ym3m4QJy߂&mdEt` E|a:((((((((((((+h(G 9(3.!4&x 6+Ͼ$ijBɨ?n\Q1x s'*u=ޒs֤tIo<HHQFKy~kdVy^]ra<0A665Xd(Ssݓݝ<)E{"CeUV ]vX'Mt_S6(݁2`@v."4Wre& 91x1]Y-ݹ_ VMn)[@+1Q@Q@Q@xoQD^^]SRWף1 Ws-_Neֿݷڕ͘bztՠQEXQEQEQEQEQEQEQEW3iZ^-ս&?*W-bB)a}NΧZjw$XΈ8eR:=#LX>oFO)$tBGjk&h]lN8 qeyE2:6bq^A $K/ӲXnϓ0\2?NWAu7Z?ByO*vHBT:ׄ/C#FT<8ׯOyֵgq5sї5ZO)k[][0a" #=a]#,EG9IYXh^({TM@--v1v+Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@/cE.xv@q8=@#}J;moVT|r"g ٍUPWuWMO9eO=n.ߛ7Y~`phּkqmX%%]8nNI`_gm26u+i<Ռ*EQ 9Pyj?('8i[_N21p2 0$瓜ge$E^Jr+<|'-Xq*a$ŋ[hX Mx$rI'I$y$jj(FQEQEQEQE_V/V/e'ȩGjWג#,5)5]yb |*sgtz}aD*g|{*!D5ݽ\]N&$ƊX`O.b+DIex؂Qa\j mha!x$7U|1V 7+OЭgcx{4.c.屓zڸzıעmc"!'*dv2Gz޵Mu-OcZ,n8ە*y,e[[%~GČuEftk[3 zO/9JB]'p9y[~MEPEPEPEPEPEPEPUl㽈#GFp?fSH AEcvUeKn`gKmp3$\^.g/߻yB: 9^GUum 6 Ar G Eg?еGed^Kq pv?hW ƧtN8=85M{7Rg>I{_ߋ9fڱ9s 3Lb)[(rLJiu@ۤgRs^=Ҵy3@2Ɇc cd,@ج[3:v"]:=䯴y VۼqÓV>2jܣG,*#냞ʣc"|#dXƒ\I&ݡh^TdmEyQ@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@x?ģƩE%{y>j5IVmYdprzf iV̙+?ZA+ku+ Dm'|Ccn*?+3U+JKfƕQEŠ(((((((((4Q2,H]d0<GqO8JSN`itXFQkcdڣrBD|&[[Ϥ̩iq1;/lzܞc%pxQүU{+m># +%ӄSQp02II>.(QbӴB fWbޟóئCpDBQTD S(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((?#<+cO7m}1@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@S&8"yfu(ԳI(VO]Mg{H1#. 3A>BW\Gisq^y{J!Qp˹mǪƹf5_:1X!{ G!O^8ecmaY]=X_:$&'}IjEJ3S8,7m݆#8ⴿZ+wD597 =v'=zxAZkVomԵ0I*}rd^ OHlQt~ھZgs9±=}5C,sĒ$R(dt9  S2mMW kidb=ne'׮zSL&mWH>b{hP}v1'kQY?ڷv_7("11#v93V,:S Ϋ<A8 A( ( ( ( ( ( ( ( [}h=r2W1HE[dZ3c|n.c>_cw{ghХe W8EYHrzk>3^dе'UbXA kfi"Gh&e> '}p>=j++m'YIK8ÏWa{i[:U]\#'#aim`٣0 w~UٗхlLa5t nZO.ZzO.T2:լ3ԗsϾ~d㔟5̟]qWH-q8/_sϾ~diߙ?>NKMJ`-x˾~dH&3食'N-;~{׫1iWoK-/2*3-7I){xO9XIP|gDn7 //2hO{t'4'YOҡ0}ҵY^ ?fʼS?.oR׿M2uIJ :tVYk+aU<e[In#XԔcjkߙ??jkߙ?ɇړ7s5@393aFFHCqsΥ˞|V6ѩFt\qP,E)āUrrpMg/EKM9Gnd# `t+A*OxP$xrt( 9<֝QEyM]RDtS322H J*֍)UNOv96ԔNÏB{G0G$Fn 0+#"23$C+R:n箲IZ-|,ӟi$Wn;E!=Z,.lm'YehJX2Y8Gw!UVu$c=N%{ QEjpQ@W"_ZuF8=?X24=cE1*Ȯ`5o 'kwUx'ЗPsf H-";=7P=3(|]Hx8exX]dE !{}fM.I^e[yb549< AJ4kkwx) b3*t9'0§_ ^uY+e!y3^n yGS^O @ G*[ _Ϋ=<_Zt3u3 e=y?'>0F;zRZXe.g`b ;&HDH mJg➿W uֵ֑^ ՀUsU)Se%jsc4Ѕ$np({:KGV+֪K $TC.}n:#rwk&g[(a/1 aˌs$qֹCIw."$g8c޲4u{٢2ˢ?AלqeidHϗA?3B=k)RZ'ܾ){VVNi1xB7$o3|01ts7:%zK9 + 19'9Uu[Xb1 3e*@zw4G?݌gWIJkMՠo+Ufo'ϱ(9se 6; E%Ngj[#fv^* {Jɧ>MԖP>e9:Qh.'s7x־u'"^0赯/3?2kQEQ@Q@Q@[Yʍˉw;g ;Vl'T"I I2yf[y`\u6+'ÿOtn#x=N#tRO9R5η oܦv\\;M*1Kr}MhQEQEQEGsrHjŰ"k< m[bqW8q'qTa688EkΪϠQJҶy{ןX:9JZ a2~@};Hsې%zcU}Ǚud`eTSXc~=1LvueL@H!^^WiB5ᴿ0+(((tRx_c`{Jf}*ޭ{݈׊2R-2c:Ep7L[O]_=L1yG;}Iǽ ]zU暗m5{,k9q/%ರОիtJye[Q_ 2 Q g U-uguX=*K-?NF?j Zf6,meiވ yG_<յ *Vu;bzcuTQEQEU}C`>7*Gq`O+$($ߊ̊#ukAA2D219zzse1e'qy|-4ݙ5 1Bm) \\N@="d2 ( (<mn--]29ڻOs>d* 15%|#!JlO k{2ሒV^(w uhcF?y}{~ʤ)mc*uʪ~Rp<=r ?ֺ(2:zV)[(t_֯Yw1( ZK.thWV[>]OFnPq\:X%J@aJr?ZͶ}#VQWٯ3Nm$E(((( c"K2d>Ҙxq/ YEY,+FK.x>6g >_FS,x֠ui%'-Gܐ9|GaueKdkN8vcm>qںLAyahړэ3=s+_A]xO:X%3^mÀ WQ!Hubt(2Brp;b{}]5ܝFy[M_ש)[C+B-/-/Ħ_*i7,dHA5EQEQE$ xR#TP8'C\Ԅntӵ+kt ($@ԴP^CkF?%zyŐO 2J|&gWg/oJUP+zKS"DlG=,p|{{Wb>cqvJZmQԞu$5r*V1s)M(S[NX+ ,&hS\,ѓ= M\t@2x1+ ԝݍy8L=ړ~*Qd:685VmA8AWVSMzN$rkIZ |\[͸O֔($[;Gj殔ĥ4=R<tY+iq TGr?kfR #ְu ڬѥP a#˒qGaJMOkݼsZP&՞5w:x`D5ʧ{ޫ[KGO*nb'IQQWT亿>vu0IF]U`ct@?zZ=:_]m aK4 5 *:(4t?_]_=F]=-Iޯ#d>`OMilGOf!X\1}?_9%m ֳ_rrZqn6N:vUKosh!Xyos \jJF9d޿V%Σ 2_*WHB;>18gL kq?*Ii5-1}njww'3lս)9_z-$WVoldʧrY=~qs[νb#CM9<1M,笒Ts(e,_0 7x־w''澈7xֹs5|s6֢+,(((+&6S6K:$g&֬~[&uM1千,G:>ŬkuAqy=zjĊ#ukAA2D219tQEQEEtm'&M+5ɴ푉S^b(V]!YB`qЁ6ndb?Z]Qt)GOQ4MЃϧY2M z[62nGVxs*w~Gg4XGg;=O(dc ȑdUPAry˿S]~LէoC_j7%Y`b0$N^A+?) pjеxowed^f!=:(((nbCm$v'{'zh퓏4q |{mќm[M;t# irǎ=8 (^-4Zm&=>{VJo>1埗\ֽ^_IZn?gRN x* W˳;/ZGf̛ϸ`|6{ڼGZz>hgVFVnǣXA5āXPb9 aGs\+:UT < zQEaG nk-o&fؑ 09iiw˩XY^6 e%XqEPP_NֶW ⍜F\OE'#V.0]шRIZ&t66swӮmtbh,[u\O5M;ɄgsCDfW(ȻA=l%#T_2]M%h]4DLێ+oHC/1NrUy?r|&e_lDd?/akʹ`QV̵^+޴ן\SkYlWA7?ɿV|'g>wbZtꚢX~BgD?kRxS^ֻ=[xjݎL^#'\$: +>e|:#K\)V%"Z փjp~Iyx/4^~BG֢lwF \tFkx92ȷMJqLo~I^KrTv35Ob=_=uڇzI1\58I[92NN?'+~?/+ۄWEi*ZnH[S.m}?toE|_CxOE]`k_5/SkQEᚅQ@Q@Q@VSx繳MBm]o#N#P 嶔X^[&.Oh^2|ER L+vʎ+Xn|3ƲF#rpyk$G7V9Qm' 1'cGpM}M<}sa6e]1?tq`@5*`P78U=KR 8 s⚍ ّR| 5Yqf|> ⑟ Z'm-?~{p\ȽIS[h' c::t*d.RI?AGqN:P62Z/@8z挚ѩȮv*`rl";RץTv<\SKHM7<67[k#LIzpqf떸+)Icnըu9R!LIz}+5]qN4nQE# ( ɇ/ē?@-Ԏ?y!W\*A|׶O,αwsrI=gv)KIFUqBpF$N{ ttQE>0Xzy(?UɌ-+Q%RoHcmu>}2tz aD*gK~V/0?VwJ,6*" :Me8*@iIgӎi&9l'}B0G'WEElq=]ȱۤdà qZM p$Hۂr|giQ@kɨG;HX' 9bOe F?ݷ&7$mze[}h=r5pNژK"iQGnSیg=OL6umXgTQpWT/FI^^Edpq,?əVW ip}9?_^:5XlKL՟/nJo^ԉκX5Z7en9WFNQӷ̲gt~4]NO% {2|-bF^xnv^ ] >+>vKl'¾wQC o"HdbTIW#ùĠ;E5QrkNfG#Q޵lsrjDҎ?jq1"iC]h7}l53`zU?*˶̇.=jIv} yS>zxU*/:zʠp7-3KwRsOp7+ ]rqn]tܨxj?)UqD +v>OMPu~䏔}Oc[17oQ|_O}O6rH~O{wt_^:xGOJiOC٣SDs` W`3Ҷ.#C3ej$iWzi+*#05/Uѿ.{p:WxOE]`k_5×CEWΛQ@Q@Q@fm5\ ŵ{yb bn@QkJɹbiubʧ|ds# r:FeWf#|pzoW3-Ym}ʹ ,rn=0fYۆ 5 W[gdF# V.?9>{T=q#ϵsLEJR/>c$`c~F={S.% ۿ֕d#oȳ+ҟT楍qGc[< icuȩ|x"sR kVgF$'5f*fz֜\IY=LgH[JV=n\r{ JQ3*Mv9]Z쯋te+ţs1>ǤꖺŌwvR@`J' 22+uZH*p!hx:| I ᗸ3 {xJzK>ʍ^h.,KST9h _+(qGQ_i` }0{:Փ$N3HFT_ٻεHQ@p7!֎3 E]rkkgKAחK ߚ:sQֵQ[zj뫑ӴnC 6Z[]Kru=;GcCa{ߌR͌g8ں0 fxsU#5-ͮo;Tri.h[q\r-ʌd#z]r6|yMW,ISXڍ[:_ D0,09(FD>8==91#N]q;`7]\+jV@9F3ayi YH8 AW7dn쮬oeÖ]Z"l\k_Vcύi~F`ϽP-kocSw)%r]{l}сVQ('dfE d$1<)fv8 ROaO 0 A@xݭisnQ{+Vc$HC#`zGQXz<-ʟaf0ɒc =; 4I" B}>NJd7Ι"m-eei 3zp*OHe!f^wqߑקc!>V]>kgq(kzWY\̖Ȫ=vws}Ya^;fz)4mY\mCaEҧ!y{+i9`7h/?/~=:/V}{z⽫#Ϯy :įrγBnxK3<z4J[%3#{Wi3ǿcc8ksd, '*е;?K-5ɚBdY#R#o:?1l#P E5JPj"PG֦ky =ϡ긨uVTCi.fC|{pvOtPUyWŽ"1w\JYwV| Ҙ![4 O^r9M60ƹCٕ{VQʅlasMDn\*ܱR@;{ ɟWTϡMJȤ;׼xOE]`k_??{<'"^0赯ϝ;&sZ(:((((uO=J~TyQՒ$6##Zj_:m͠yc!%ۓ u8#SAFfx:m^ʻc~[l4(KvQNiOӢ$<226&pKA_D^s6tnNǽY a :PsJn=*..ud-7$թK2$dlFT{'%_4cKicM(4 0 v?ҰJ{^:t(#qT:41=>uYy1EQLN~V 5꿤`=_oz98WapkB1^v#?u={ *QTS#"&^/ (^I#c/u2u|.;zTl@ݫhgElj2lq\ė]޺;H\ђ2߇_gP*)IԪ_Y]| 9+(֦ NР׽WH}VHNf܎Azw)>^6wl]2ytYg%i#HZ ߌ*ђWW`Ux[&DvX`W_e;}U)[Kݶ"__4#ci%eش S5(IK>«ny}\'m$;wc^Ny}y [;|wJǞ[w76m= F>랆)5h)^ά* ֧aO֮˥ﳟi/[:*ql-I -ZiHKIʃIanC9s]`G{}kͭI#cu1@RnzzT rۃ(ՍSʜw޹_F yu9|+=x&1w5fOR1o] Oic؁*c͌g _DҲ> H\ОWF?ZU/Uѿyۿ':)5P((((('q``!ݧ`A!H #rWq{奵F$'@m̟6ՏX Mc3oLF|رlIp jVR[;m>W*֢M6`K erZ[]I,`WYg[>U+3Cqۃ1 2.䑿lw<=Oa=q|7c±[DE6+2!?u~ o t,Yh9BԦDQPrVf$;n$XB P8¾/u};b>(R( O'm3/IST<֧9y]2kjNsg>Bwuލk\nl78:z]UƐ*<J#2}?lQTy(@QU+i|䉖9?i1GmG>h}lGqrVm4[46"0P⨓FwV2J*ߋ5[׊+3N$t8ċֳJeP`+̕*=Q#^Jm1?"\+^]mFz}kⳌw ?N\%H;&Im{}ލsW_#ʳ#k M T_י,.I{U.4Ozlz6s]I.64߰ʼO>9p:Dv^Hǝ>޴Tvg֙bTnHex=kJi֓Ϟf}_!j\Rp*{?u!_CG(i?ݿ|L?/lTyjK}Bk֏;?Q2Ɯ%\t5y?f }ů3ڗW t45} r:cOyQJQzFq2ΡGkOgCc3\}Oxj!w:ˉ|w_¸|3_t-QuzAa4RB(E67x־y=ko ȫ׌-k 5MB(((((( imk#cϷp23'VJ6SIi"mؘhz'*8!<6QSToliETE$c' RI8g#_hp"b9*ân:sԴvswlZTp{}#{`K<66  ?UG-nam4܍Q#$OG6M(_g-\4j-4x;xh8]Ip#c*q䨑5@IKs]$:)o1X<;r3M͹x;P`}{jϻԊ"FGTZ0hկCI(r?PogaU݉$zDHJD$UTd=v^4Տ^:LW׷IAVA*Y&tbΡ/4ITr<AbpUX ߏm2-7BX.ϗki:r@,n.RpNB6Θd]cPy.2AE h tBςrÂ@P>+2}fV;TiYYeD,Y\~׀8b"0eaA"^yaEPEP^{L#3/zyggW3cyɞvg|;^h'j=5v^}ƣ> C>ݥ2uZcm6y:9voJkyˇ2̒$Q2 ,ԓP]v0,p[YU'/;ϴyA#YU\t'oO/m1튠6@vVsM*G?ʧ,a=(`q{=t/)qC~Vnǿz淸mfGm$* PTRoN۳0EyB/ٿn1jEC*F**^V҉&X.Cy4CD`3^_$Ӳ4l;sNI:W׎|aSFI^[ȟq N }6s3b1u }]U~ָteq뢳 sڸTQ7T+m2ҹ_'>ʶ]LY-:4$Տ) ҂z4"VG;EIKBj&Ӥwk.mBeuipC~Sy~_k<\V*haNG;3ǃ~7k#Z#5gA cOA5:!\79nކ'8Sٛ"!/X 4w k a!.,!O7q~Uj82*s7?\i+)β~u*=Y}nLM$Tax(BIȓ-$j7q\t8ocԮ"_/sc9}eGRv5`$W2vg0yCP=,i^kUWWF?ZU/UѿKOEWjQEQEQEQEQEQEQT=*UcI$z&tG*qP\:.5[y|V 8,%}Mqu#@cA|bbcglvx͆ƔΛ#5i+S\iwMgr]yf=ۋ%NeU?s F4&k1ڹ-d^=vg=y,U7PEGrM&e(MzG<:$(;!-˹F>Y-$g[d XK/ojJXuVDU 9 3pO\}ipFs\j/:( T 0J;GEVj1PѢ[iP C=W8"HE(*" )Ʀ'm4dyf yada;zd tn(((W5e{%xgG+mPQ褯['I}xs]O6Xogn?Ykk̾ iuo+k0V^](!FȪ+ PET4/}ϖ628WDagN6ۄیf""(UQEQEQU f[h㉚8X-~$obfL?oKO5Νk=^LD$x#c < U?jђW׎|`SFI^Yȟq#H: t49Y~?eVLLj|ePO\v<ܱuR|ÿjܴaGOZ,E{ݶ!!̉¼\M;xX+f6^y,?:&lurSF~ݨxzWf hVfLՌ/i#` }KqֽB;|gncslx8Lޓy۷wG9WSYbj*5Ս++-C w5i # z9muM&$lo&@E1ֺcH&]Js0EVҬ#&Ǒt2#ƺ#˿ /Q QE ,qFQ`(aE}Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@2h'dY"J8`x wi>dO$ J ('g?E^5֟~<"JBѲI J+֯:ղ}K` 8\AV HjV9#2$ʧ*`eN+;D֧.ae%{$'!RHcڽzt4QENJ96tVhr2TCGКԯnm<> stream xR=sA Wl+cD 01vn8qBvΝ1WF'齣COwoݻ/xЍݱο} !5pM Wnw@~8^1zlö zȚG %WbQ"+, ilϵT+38Le% -Lie*g#Z5 ,p=FV0H3LvdLm_R)Ìg 937=j 𫏱- qW!1j6|ڕ屙ȧccWJjކ@n+ O-8\Zqn *F(fn_.3x(:6E,Ǥr)R`7~BrN"|_H*YM^IhVS[DLؿot]t)677h|Uendstream endobj 139 0 obj << /BitsPerComponent 8 /ColorSpace 93 0 R /Filter /FlateDecode /Height 600 /Subtype /Image /Width 600 /Length 30799 >> stream x콋}Y6!׼5HM"I<MbF[νk1/ralm]"-'&q]z7 ɻz@{UuU?+9Os_sʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rʕ+W\rRF.I{^AQUQ^WUz^zL{UTW{^W饞^UUz^WUzEWE{^W{^W{^DWE{^W{^{ܫʽJܫʽJܫʽJ/(r+*rK(r+*rK(ʽ*ܫʽJB^w?eLOԻxIjx&*k^Hß~6`QʯeQ3q9^R?x2 C?ob)qݾʂW9u"~ձlqS^5 WY+YKɲE%l7WϕkH8ksmw׃a'〈]Uֽr"ǘJMOŢ^eOYzC?o\?Cpfvݢ4W9a1`ҁ6bWi#.^ۥ2'U*nOB^5OjeV.(c}2UTJ)nNŢ\5OjRYŭ]_LSz<2[eOIMŭȯ\յOyJ9 []j(UGPa.˯ܫޕ J/z2ҿ3*;2UYCuVDWwoW*o ߟ{4^`ޔͷ:<[U*Db{E,j!;Puĉ1(^Y,h XrAEw(U,?#^viw`>s W l"X~=3/!g, W^$qc uQ[x' ^Qmbʫe+L XHվ}X孟W%wVaIlxP2X;PMϋI esu6&`Qgu8A]zA gE("iN|9F.X"WZ[,g3v O`8Ѿ4==]M+ Hz:|:Ɋj敊Rt4w W,?!G۷9uT!A}:6JxWuҟx:[ Xg ](X}09` U8"` ]:Fgh/qD6T߫ O“'&'QۗAV~ϝ1G},ʇ58ZÈlȜWW5U!vu8`uV& •pE{6uGÇ,'`UhI2㕅U F`ejEtKMT~5lh3u, y֪j\oBxԑXWX}+hD`(V~?{ܩ9\ax `###zz `iEGr\BX1X!4Wv;wJM8Z5r6ReGRę>Bvu+zoD3. X+pJpҥD̦lyud hXWA* ɪ(ɫ N·gfҟd+h޽W)[|W&'5Xy\:ڿ?oX%W.Z[+Uy']33>p-@dCyLX';` X˖-U1lfY"X?fa`8 5ji);uW _WPvĕm_J3is,[I,Š2!n[r:t\cu`E\icu@ΝX+8 ºyeO8P?5\`aWȕV֭SSVpbzKxm6WPh7 R4`b-( Z3~pq ӛ`A~V;9жx W6W ze^dK*;O:](q}. X,/ӕMt2`u,<-Zpa e-z[T exEŠtV"Dv? 0J3A-&`aepѩSOS0XBVgg;Gw’?WyX ^ 0k L^W6ĵ9jRr$/qT GuzHix` X'!%tVƹp5>m:~,꤅рCGj6oހZf $X("x/]X=(:'yjW/GXŵ]F0X~$jDsp_K/M]Fyr\^NOO3V Qt.+DIS\iF3YԄn, BV^W/}*J^CԓZLa X<\7"D)պZ9t ~饩̊/vm*m6Ws W@XIIҚy\)ίjT*XXՖ-h&<%g zJT6N\X%X!X\:^ma6od X,,Xżz#\ksܧXf ,dC[YT?/dG({tkWqJjl:9V>>'jz,>c*DX(7{'FGU ,TH\`:pT1VcIV+$y2`AbxJw]͏PuaV;fOqm8];vp!$ E ;:7&WW}\iZz{4V' V ٳ!^`͉=V!VWI&Kb+U|p0t~k_?v/+"jӉ(XULRcc;)Ljrp5i m,JXa%^9fQij`4P+3?RСez ZXW X)$XxjN^YPfX%dD- V_?kjOV&de+Nסw-6Xi ,wO1du& MLHw˷c 姨<"XMX\mJf@ p VV%`ua1jU(hkK9Xr)% btt#$,H|se UYYO@8!g0aarB"X(HX6XVh VJ~S)T N.X'!VNB<# KJ*AM_鼷.^-6T!Vq !nJ.Ph4r߼bUzF)x4=a룦ݦD*i`A&}.ыZ)_Ъ:zyj|Xc`#.Vbdr +ːye;;7;2x:gEE=[,s:YڂӤWWj앴xࠅD kF WhkXl&+Aw_E*z+_7Ń58ț>&QJ6u%.uD VӰHc54+䤋x`)wO`9ZǪ^铐bnwby Cd. ,x=BVAëV V WCp5)}VYԚv,K,*Wf+;B6ezz OX!6mu /clKdū1X X+"& VSS.V`ege׃VYJ~2Ug,,pu?2 +[`X`i d鮣ҋ=А_7X n?+3;kb"`LkU^\#&XfwG8XhX^xԄ4OO`2ּhuU#s.!@Q4VՊB\᮫VG+`x eU vY^-j9xV0pXx M:J}Aj S`kA + pE`_ZƢ;s,g.kǫh)M =c#V|%-ΐ, _RSv`q⎳ix̅N-X+GWq׿CXZfM+5(īeh|eM<{4bǮ uN! 5.+w1`yĝ,Rҫze"ijPcBXQ` [-8+.VAsmtLPS&,겷Ix,1JS}%-p mW+K\v cjF=ft5`gYy;Fxeb% + 1XAJbxX;se f̔2J^ ,= g-& :Y,i3XܗႥ{ 2 b kkqzxR7XXTp!gQ} _ C2fjiirR.X89E%ηtkliW V,:ʐV3h^ s~9KW(MV q"V~{ G,R O娨 Jc`EdX\2++^z--XRUzt/RP+`trwwr,^ԬNv;nKigw+9>MVq- Jc`urpaIN^ + =~ ,2+~d+l + ++4 hW<ƻ-}{;7dYsZۙ,;2{e)`)guʚ6ā+>oW+Mc+]*€p&\ɗH{ĵPA^VIoº[5W 2RԔsj32X24WVDV"+Hpυp%U1VLVE^q` X&s ta3]WW/V_)~fSҩocjksX\hj\qL:1%hWѢ"jk3ɛ6m%Qw.VZh&ª 50r5p3Wm4kWy``6Ὡ;vX;~/AV{TB+ފwS;]K+W2}F{ec` /V8XXz43g+++E^]aXz*׃XNXW;Gq !|yGG ,t(^e+=,`5b/2jT-N+YE.}nhY kbՅLM1X:|Ν;y$r :)%\Y^6 **W!:K]].V6W.%K+zI!*J|x/c.haȴDt4D ΐ{ X,ڢ3`J߻xPV|pE*,^aU Rz`dXj n969M–L %hboO iRX\V YU_!V,NdA Rҥ&,4!G~",(vE0˖.eW= :9CʊP+_b zXXk7\J/[b^+'…xxJ=%`|z878n`5Fx7赃 `ibJ{詹Bΐ*`9XX+Ɗn C\-թXƫWz#8buJ$boDŽV'NX7X^sEX]aR{5!ʆW*:mnXQ,g,MUh9ZO^]. V@;.M`رc, _{uBxp|:UحJn+U+ +"+|G&Ik,VD$ן:v| :~\zay>vn.4S9]丕+Yy<^+U#5R VʬnRl.\x%KwAVVv!V1%ݶmq`˖Ar|[6EV#ώWV4S?`գGXZ LJ+~ ^ZJXZT!U/U= SO lj.|@kkkc̩]eJ^J'6ViXt V1X1XyUJ> qªQH7 ~z^XO $` V1`5kq*Ф) TV+acթjmXТ7Dɼ;hӧO#VoT=/];,UE XUM8G?5+" +rE)|& 6U+ec%`M}1X͟Bzov0ElVO#VaGt `o>xrjf;Kx (6\)auEW ]?kW!LA|cs)X1XUVhsyr%#^{Edut Vv)9sF)`,xYK X iʞT+?+UOЭo3X-^lM7{aJ8 xj`gae auRWqht(4@U scMX`MM XX+U9IK4^`ua)XJn=mW.9&Rf_UgQ V [ ^g"faGax1m V[Po՛o;vٙ ҵqƪ9.aT^:4R*xjR[ŠR{%yYj`y;7ocw[]XtUNp^x>c2V\ T­6kÑPCK:soWL"S {_g^-ծ]$LMOOMUTj`Yb*$͕ kBp```- s$mJnuAթSՁt 4;hѣ",!K/EUxL')g4V°l,8c>jc(b[oV"U=JXqo8zihkhP5> ((V$|%v4+*em6{Xo}iST\5WgehW\Il!z : G zs1zRelNXVzVV%FrV+R: VK(bJ|uJʏVzp;RoMXaf6[uV1VCJDnMh_P"Vf+U+͖K(a(U`㼢ۏXuvLJAsN +̡b8pbα6Ł)O8XQ_;MᕵAYhъZB&+bT @errڹ";,>\ѵijȬ+ZuToWGN )M5mlau%(,V˗3VF8DX1V;w2V֙3g?&VOQ7XA#g"rZ#jW*PyYd5V oH2W*K$me"5=ʟfJ#fg 9j-$ՙ3Y-oJk{5VrMoª^Ǿ R$1e`0X]!*L.ucAsGqUf 9Y4wjVQ9;Ī+hVVU317ȫWAU2 ga`]"r??f*8 WCvh YY,dN$+BAt^c&2b!U2Wea0Vc54D# &db)Ɗ:>cm!$.,3\jQ^E(Xo<n^nW1t30K+3\\469VV jJY|תy{EVJf |(,,n(W_aX>a=1jJ*pOEҕ2K^uZb^iE xe + )V ck6jlce:ܭ*xUؤ=Hi83Up|UGyάBX񒉴նm<'U yUB`E|N}Y^ xsY>\U-X}(8IOTYOX-[Lf31V㓓zV5k+=`r˗s0AXޓدFV2k4}|)^dղezI `ţi8͋T+_龴 v`ͮ ]'WUg*Q4uf/c59eF)V6mb֬,⪵ `p:Hż'zVGQDpeT0VgȢW&ffM+˖7Z^~8cz BĽd[V%3^E_kf u9m#>e*cz "d`2&զA ;^J*Nӑ*V;*n?UX,]z{U+[3~I_zh;-*B^LrbӳzO:qtqUt``V+j<}S7%tZrY0=pVA7ouGbӫzj}LP& Uoj%X!X2oh}K_̫  hfւan  V|=%WdZZt<+}?d1kطDǪf^5N2-ƪ[B& = 53V-)6V7t:^E_ISWYҁ~X^-X!X+ySpreeJwU^[D0VWv BX,^Ռp++sp,SJz5RѺ}{7 +-~kdh"r37W~V ,1L /X  V2U{ 5=[f:4*"9w9׫?ɢ1Cx$!2,!X-^,P% +7kh "+l'5 `Qhe b+3%bn & {ܤAޙmŠnJ\O^)EXuw V_Ee{U}a5WaŴ y,w,'? 3H``#JXe|LuBR1jUasMXEXUbD^R. =Zo@ݾwƊACB$gu,wWEMUF*^=n}3VVSWff*-r}dW]c'X-[ŠUMUdSyMolN4LX V˖;d&ZvQxR4W̪РJ^fqϨv,X-Ybw\UtEo{I9<KO;y?KW ͖x TU2+^WB_1]Wj埞خA\T(({`क़YH)cέjGzU3*/Wx"֤tS'bx~Lʼ̈W ptVtg/WbD($ "\z WkRzGFӄTvk2BVoٜeýbХ] vN];ͻU8Սq^%]_hU1B{LR_ ~W)YxKc*?byҥ^5ȫ0S!{GqUü*"7:>WʕU\ *?tGDJP[WU* )>P=t݉:s![%^h$W!BT9{DF+ZÍ}O*5L=XXg׌jSh.\d(wb*\=Gl dBU{}Vu7+OSr2x>+U`|H3}{nWee8kʀekTh5 „o:"U X4a^! d p*!BZL8oV|kU /o`\9r`oqЛ+6+DR1̸p/J+ZzU>SV{- ԉ'c5+''7WFN2V8\IX'RL^G8X> :E`Re+;5[%dv-v~ʖB͸ VxCݻ݀J:XaUpU+I]T߫0%k74; I`eqU#[)빲_A֫/~b`kU` VYQV,jDuJR1ؕ\ELb^!- ,}|Qb `]^W6;KY_E;xTfj~MKT#x4K"#I%wZx J,Q&!XH+)PqU="\Ջ f \pvq:UTޑ$>w_WC7Wi`u7-,$k'eU:Ȇ:ser Or(e"aW&&\Ξ=+X=9-kU^~8Ȇ7Euʩ : /$=VWSxUWVǏkGmNv93s;h je__{j4W ʫb^'1t%6\0\XXҋ`cW4V֌k6VEpHTln7VJw8^"b/We ҽS'OZXXI5;kTAɕ\Y*&N.V|ʝ؁,W V'OZX= ٽ&U~"T18[ȕ$/p[ż#305wi`u\Inauh | o`YԅKPe尨\*Wvn.?hGS|2ͱYjzzZcuz``N;`uٹ9kdI5ayd5p s$U$}X]qvɪW)peڵKBl+-͠5k@U p1Cp՚ȟTQczGGA \]AȫuNtpOVRW2WQ;lK.bzΖ:qtn,]EqJ.MwcWavipu k˴hEuRBR)Gn ]J3<7w JŸ*z*TJjlzzV@`u7X!WqtR466Fdq]x)+UB>d#˺vS^t!, VW%%X+Ɗm$ru`m͐,j85DJׅ Hi .\#\?L E-JY Ye̙ӢWX,j X1XXRp|Rp7Zrnz1`g&M7/)TSJ_EcÂGXil+xTEXSq5 `5o޼mW"U4?W襷~{j27E.V+ Κ" 2r B#*h4׎'GL7_Kء5rWiJpjr&̇I4V+RW^`6UV\Յɻ`u*m5*_ՇIܤo'~[lA\%j<9b`Ŋzpy ZLEWuVKXDEVkbUpM}h l2X1X4`51iSF2dUW.&]-~NjUB%h?rjŘ^TbUqUͼ* V֤(jb"++Z;laޮZM E-lb]w"XE`Kq= =ÄWD՟+jQKK0?@### d9T`d$kb.@`-P(uq HI再ojUXTC㸊#㮝W1-Zq6X!XVA+ЎU^dqSvɯ@%sQ'ʛV Wo+֊v^O-{.^ َ*JpFFFBXM0VO kw"I.X`ĬxE_5@gw>\9ks*؏+)s:,TWWb{`ppȸƊp(Vhc 09 i( kB]ȕ;+c И˘oC3iR SWWR-]޾|y_c54deBbΩV9e%SV *pm#kj{[,b rXU-uTDU;SXXBSƪ`545Xm׷ƃՅ2dy{4X]:)J^UUVc7HLComU-,r h7 VDVl X X͕✡5@#Rf{d7=yɯZߒU*+k;EVh7m +cmրh`EJ=|Һgq+ mOd{5X"){Dsj +i7X!!T,V35Zc"ZkpU\#^Uu и'-"T•cUSB+?$hb5<"a,yB`AR.& n9=++6~͛]Kѭ`Ty-X[`iozz{!`X' şd!ɔ_U\Q䢵ZԂSO*zU+?jr( Q R/y/j-R9q7`IepU?ņ} }g2JYC qX1XO,z1)ZebW5U,j2X>cE =LCzE ƦP"ާҫ eBN>PR+䨃](e`'t-vd+JrJ |ڿm Wjy@+j%* ccV6W6XѝAVL(+\-c>CU ث!HZ`E3XԊ `5lp@``V|c'\Tr5U(N[X gc`1YAP7ag+RI9>W#+IM*RXU[[CUWheD1X\izm+x{jrJ ?* 2`z([+CX1Xrҹ?a֦/7'XfT"W,7tUvu᪌2Tlp4X|f1cEdU}SHp>^]S[XQ2 gTbZi'B]UI@*ePbUwp3/]lfS7*Vv-Lۀ%,Q`U+W.窨jճtEeMVVRatFUU W~ߑ + q4HcE`X:\QJe7gըYw]q-eSiծʚRBW_{5|zQ޹o?<-[VX(UDIXj(\=!I/xƐU{skVUcz VLVhRT zIa𵆀U3voT) da`={кM`2*^rX)X{*IK7Px}}U*B+K~XJ,JWzɌqӄ z7{6"W/]fQ Yw!ŭqXk5lr+$@5zp~ 2X-]jܲ&E%TOT+ ߰gdPUݫ:xUe|U`I/f+b! LڷoԃXR,XJ!'zpO{jp{=&Wk֯7XX *&jRbEO @Ǐ=uo.Z~zϋX'\,i $ܧV{(Wu n\U,nkNb\&3XW] ۧU=N`L]w3fMjUڭ҃*"#7(\,ZpD󴜡0M\rIXaQF^x*Ǩu' Wǎ=êWUJ N7e2T]d_/g+]G[πU?*{VyQX]rIEL~y(\EX}{wԄ *BZرcT V},`R/. p%k5R/5=TET=W)2UqUԽ>^UĕMX͛7OZ[_Q+Y| MĖf7V@P4K wUGU\)P/Goa%daqdr%OGv9Xƺ q5!6 pv5lc^N V',+wwz^{5הc\ZOUZϫHiQ@I7(>fkZ$tu\? Fc3MVmkŞ$rIdxk˟=_),ԃ_EU{ XX2XC*>'*o^_*X@LMQQ.j0WszynE.ިdܨՑSs5׼u*u>FX1V{+L?XA;ϱno5#W֮]Ge+u8W_d-dRup Rmmm-cJ>]Hs? V49ןc"Y`ݏsqumrXI⊵k[@:t@[Kz \8pօP1 %Y ; ?+--1YW{+WayT0(^]q孍_h!L ڽ;217D4W,u /Ta!U /X{տ{O~N >OByZ}.J*:+\9rH]3W&^IS@ VV+^ޥ+WzO% W㢆rSjsukNԘ::`'lPKY7+FOc3'?) =y睷Rg ZkC}ԆW኱pu7`uU'֞'0W@V[buK W\%XXXbW7ͿW_aW_܃;uםqf> (cV.Zi 7+5)X1ZbECZV!X-N^鳜bͫ\UW`%Bu#!~\YXK/ww;QEϻ W! s>&ч?M^9C+p e2Y֪^EV.Qbf+ Vf GD!U?~dQw8mr%_O{{q×o[/dyk)ewByJǕ;XN!WgacػoN\}:Ny-VթSƫ7C\u:~_R-&T*Z t5au^ģ4~__ȅwBSG#PŸkX++~|նT6VӠpE`+k `46w3;AW!6QW V7xwRb(Ta5Xyj>6whAzz"ny_)]].jWնgyW\;q͛,a8|4 -*`ݕwU7@{Rz#`EO \ßyH\!T=ԇ_W,@:oXpT1\ru.3knͣ6WcrE:+ H: ;3{ WO!U?~O@?X >dbH- VW`qy \IJ;6,\)c\DչgxjfFJ&a8KO+w){6+kuPY WOхx<`G~b@ | />=gaE77{ZgJՈA\U+B0,@tLh¢Ga3 ", nwEPzz`ET],s\wYOO)sL?` }zA] {nB0kMU\gh,W]X * W'N\"Z:+)^;5{8vڶMmc&q YL5 %ƪ!яx`h b q5\ak׮㚫px_I<-#XSՆ 9\)`E\]|4l5+} x:X!V߄])zEX>/G4VD ݕJ:X2 +h%ҠKAL鵝;Wfg+\ZRв`u\P J+n:1s~&Co~zJ+q^p(`(rq!/ $D𦜫({wRQCZ 5W W,7b$[?d܉`WpYK.BVBԂR;ko>) ~MAzQh!VO!U x44Vq"*3 Z5$R\ "W?n+jWg]$df98qfW]v*.W5j: 6Oݏ~R"6$+ Waw(cE dn2F+Kӆ+_5+\ Ws*9[&pW, 8.`V.E yUpePz{Eqꦛ6nX}By 5bqRmP_{O*~ xg54oYspяjRq\Vq`ڵ5 >+kHZjjEN1LWZ6z/| ` Z=򈝵 ȈgfFX_wK7P|;0hbȫGKsTwTAjLޫ\i, AE cCؚQjpZ\ܭfX]xk#a4_ G5BEG^vsӰw $&`|\mS+¶r*Ajv:EM+;gb&z{+ Ruo{ 1^inn0,Pk!җn+k}u";Bn:a/qϻn0o G}ZUV AjLi2WsQ"\xn q` ]TsUyeof\cQ_9ۂ+k3V>nߎV%ׂ\-'ppKb\լh!++KXUu' LOe{>}FM{~ӟblX{S5XyԑW;o&F1`Q=H\U#?(ɭTaj+CϕNA!- AUpu ],1\5+>֗܊z_8NmUL$ \}ezs!dUpaIf h5X"pXĄczKTU/g>si< @ `8\OX Y_%ֻ$nvXeb8僪p5=&MXMO$+[op)j_W--x*U2V3h`xPz:,z{SonAW &bQ}Zxj'#\M:\MDU W۶}J VNwΟV[wq'huzB"Im(!R`\Qܞ q\ Wc0\\M:\Mmۍf5WjLWWh"Z\Y]F(ϻ~?1ZQ',+Day)s+%5n(WVqF=O7Jd{OC;א+o+JQݹNa !&5V  ԇYkOXx8XdVc_֕MTDTrM7ilӟF(dyWdC 罻0V7kjW/R-1EXMnRI 6 qEv8Q9jt 5ֲeM \`݈qTt rpbq,Wr;+=;v-+_ *՘ qU|H WAhZ!Bn5j _}}XJ-˄KEB%0u!1B tVmgp'E#X؛`=*r'\m#}_ Y{XJ}* XAkCleXV6) Tq=\\0^![1\o,d,NVo_zΠW2]w ɻCdN..V›$+ B6Z9B5^+!Vo5@i=>\1!ZTOGJeRf~j WW,JlɅ5V p\EU+M hi\u\}y_$y#=8\--=Z:k*W;xOTkE'̽~̰j$~:Ób^k@,{_ ,Z7us`G\ѠN, ЪV2kK։cZ.jtz\ kFFA^!YQ,5J}+0 ;GV}w**0uB 7x'%(b!TwwC,^xu Xx{W9V>,Ef¸^u-+!J83F"s54T+ >< {d~9ڊM8\٫g‰ X>}a4#4,˂PI*bey}M{VU+Ċf+06l ^88kGpyJG:,E}XGyU$7ru 7Vԅ`i<`!VP%8䁱F} Xto3Ъv3PrՋ\ ƹc'½ \m}+JԆG ,z5W̨*m*\[]*t(I on@}ozs-e.Y뙪kp=/Ī\:者^ jb5j`Lq=K|ZQ@3&1Ĺ^U2檽])VUjzU,zo=bu` XQH;P1n C+^ p| XJjZ+ gCCTR1TV*F%raU `S-[&\!Yfi+WE  ׯvnVVb !*A^f3\ #W$d+Xgϫ4ѿ&Ӄ8z+BA }4:{HzQWpuWXOb9+UrrAUU[ 2VpxƬ^%Xt寧Wi$Y-k#G[1gp F+\qayQK>ƪ++g`#afhRTkXxFIȕ|VEXQU:Iu7o%a)sȒ8]4VgTV4Vjd q%"@\;mw8X W#+| šM:J]0s\YIrTm\΃O!YAB +njǻ(d]{y+ 1W,eTW TJp5B\!̕ dB:r%.Y?'nڈL@oQ1+\?J} :Ur啩  VX V\k{{mDBTF("Բeב"WX ,qqX "nLĪe,[ʾNd doV;Yt׭b 7X!XXSFU4VĮ#͕c⪟Up(`58Xuڼ• hjsC$KE\A\AAwn9Q.)2-l % <,':=NMԩK}S?if4_TWץUA6' FyZ1;y*{%Zmon ^w;ƫ-|6Z^{5CVѴ"Ub#[4`z'hG`D9Z3WLWRͦ1뎇Bi^mŎbYEWҪ8vSOzeX+% iiY+}2%:!V VԬAWjn ӕjy+rf[V4"*|Z=RaßW=QwgdYlIzEs7KWzc+Ė^] j` oAJ~UYE X`^zUZ6խs;-!j"Vn myX,z^?7iXOI_+5Z=>:!+K{%[]YWYBT&eV~#˪;Ȣ 3iU>-,+ϫ,k쮜W,uYV!Z)BG-WuxtV{ MмӈZqĒUveˏudw4F#Lw%V&_EUngFVC<ffN/d׿ZEUX==g}xEҊ(ҧWVeVի;>GW+mՒ{[gVqY+H_TjJvX9qfJ*EݕQƫMVNvZVG%3*%Y }DGlBYˠ2Nuū; Z+)pZ۫µRZV+Lޓñ+!2Gk$wyNەY_bΪkaˋ^IThO=3}qʶVjOȳ*(R]$OOOF+oͫ:bieJ&TKwVJ+%]J=VrtxEbd_^w%z~IJr,c=Yv7O++KVJ,5f$N+!zL1e |OSku}S"Yqyug=Z,D+"\;d"_l:0 k}Lz~LߗN/+wJmmwhyE2`V+=sk*$ ZWҦbwsAdV޵)ZUtdF+@S75V~ERYuRb*ͬAlCT]G5\t:sH-VDSqyV gU^-KթbЋ& Zov[U+F>O+8rb*Zq^ũ~:J9+_ʞ.1ۥU+VjQP &W) h̪JP=^vOڲҵ93gyȐVҪb%-$U^5mu5@MM9jsLY5Wg5uۜ5?':)cis NJFjjM_l:NF#d5eU%5'?*d :4eB>*άLj Gp5oyFU8Y=7+*@dAV pU8*5:AV pU8+YuAV pU8*Q@Vw`endstream endobj 140 0 obj << /Filter /FlateDecode /Length 404 >> stream xR=o1 +4)JT"-mEIi㸮%lt)n8z1]x$Nǀq xmwhLsBQslRg.@> z3rU0UDj ))xZl<*d^8:fCl_[˖\I:֋J Lhr~{#İL>҅UxZ&̫*vt[Rm[ly M/=3rޒAD,Uendstream endobj 141 0 obj << /BitsPerComponent 8 /ColorSpace 101 0 R /Filter /FlateDecode /Height 800 /Subtype /Image /Width 600 /Length 19272 >> stream x݋וq$! uzdE P`OvMB]bgÑ5LI 36]w{n>1VwSխ8((((((((((((((((((((((-*E:U7rEQK7rEQk7rEQ\Q͈\Q(\Q͈\Q(zˍ\QGfDf]p#WT+++Es#WT++Eﺑ+ՌՌUjFjFn䊪?rE5#rE5\Q͈\Q͈\Q(F#WT3"Wm2An* G=E닊u`)oN?]=ΰ/__TwUPWl:qW߾Ÿ3o|:'7xq ./|rN'onw*a31_9Vջ(-+6e++>iWշ?N5]wׅ[np\ *zиz_pu+J)dPoe~pu\e}k^Us?sW׵++}Uku}^V {aUuw Ρէv/\Evz_#3{Z)r;3+k#ben@՚^V\厡\}]%>!W*rkO>Tt\nJ)`U(y?->WP*Tݻu%\U/ˠȝ09WDޝ'n# U<1+O,՝a].[Z$@ `^}ayLMMydLj/ϗijqqj*l+='ȟm+۱EiX^ɘ5b8o.O̯={.wvرcΝPs=Fs\!E (>'+E8X#>8?by]s^ަuQuns>׳=*բ=VbnvX +hl=Ƈ!͍WwBsr=:'KL$t-b5Ŋ j=qeeMdh Tv-0EwZ|۸9ê{զ\jZHofZQ"W0stuwuO̖DȈڻ#Z|SliD`bLWKՓ'ڭWė,SѣyA=[fhO>VNLXj^şݝuK㊝SϿd;ԩSp^ɉ%sz^j)ܴ^I1b"0s\ X2ihYO;Du∈L5wzCkg?H_6 CX j}Epc/7+ /7:N,9be:83^@d߷zzyO\",=Rؔ udW,6ta,֊ϋZ]]]e}< 8jR@=%4 ! j('xϫCO^b,[k޽+|<(<'z .칞m,/iuUmī5)Fux<u;Jc83 )Q39'dVXz>A8*Fkl+> qdɓ7D62qbb51>͊//A8V5WxcU|1߁%_ajie+l(6Ew}_8NGFFb1ߜ__T@b,Ava&C<T;`t[W]%xL̰|i`|ZW8'Ygh/*ʴ 5~#՗w޾}j|TuU"WAFF>}Z?<3ff&&)ˁ`6ټ"WY=ydxxͫ7n|Bm!xx_5>99dW٠؆C7reU~p gu+Ɔ|WGЩHܿ}v?VE6vcIp[*wa +rjc[IWLbB]urTf+z{]ٵkWM+rrurubU\k| K^BL+iARZoԶ(T\Ю.\=2jŸa~~B_۰"W-IW7E]]ӮO?illafp5 P[^_*'WW7-WKrusuMf#U!?htl]>VDҫ5 *4h\=ׅWuuuuYT6-oNG?ŏ_z:N|XJjvu+Q[PNWl:qWߜ~ʳ|:'7viF\WO0W_z we ̟իj՜*+X )>-6t&㫓VR\].rU]uU_ͫXjNWWkyֆUu껺\er$]+""K}˚]1WWrV.7V+j5չs]]"Mi$]qu.J'\?}-at%^yY鬤jwu:\nIlBWr>W\ZM\]-\tT]W˫rlZalWlWAWaW+DXtÍ\,WWjjvpſe\]>`toj#WᖠS!WW* Z]UejɸZv\--A=WLv]s#W:j)J2^{mK\񊼦[pvu Z\-w+[]/:K '\-VTW2]_ݷqEWȕj wlZҮwu\U5U"WpWˎ%j~W4nJ%fZҮ˻Z!WI>Z֮K:{V>U' ,rvhnv5 AjrKbjvu$|+~\Bs\qθbs%v5O:y/r7WsA~jvyJRr5-\q5B]EgȕjZڿ_qΑʔ*JVYW:N2QJPuŮC<}Wm+X ծظP9Vqy5vw#WАW<p5\R\®ƕ+ml_Έ ]9[jD\iWBjq%p` nQ>re%\ WC#+jDW+jU___"W^骗 R_qW|מjbmݽQO X Wۢ,ϕ|9"ayFGCV_jǎ7):VmW=U`*6j+HlD²]lW)!ڢ{l Y%2ί] "z-\-UUp/r\+xFו{]^׸Ⲵ+Vnt"W&1U{Ջq_Muev\eSzU;={z rhBJګ]%]uw WnV^).+R0WIsFrnjgU҈r\)Xܕe\uvK%X X]u6J^rUr0W \uq[Y4VYW{xeYw֭ Rz}]]m껎U)X VOOEڰY5&WA*fZBUIW{ԑjkh.oYm2,ydEbճ\]]JRtwnt݋1; jZqգ\ YŊ\ZV՜[]ZUv^UKxß+ޘ+ʟv+θ.Kj'Wn.v/UUkgڵk{ve*Rߍ\FʕE]޽\Q Lڹsg۹~W'jvW^B\QMjg;v#W-\Q͉\Q(r#WT+v_ѿ.Co8՘I77DYa, /+6+)ʳ|:3olRR>W_z w3_Wy Oťڤh-}%\~ BC\%3&6tEXZye6,wpŧТ XoٲڪDRgR+*ٱ@E14WWD>u*ܮ(@jFѨ\Q͈\Q($uR*W*%}WDVۺHJ +HY7tap=ee;E"W; ]uU.Y)e*Tr? 2օ,1uJr 3rJ΃ H<tS+]{U ߆69o?ˢa Oc$2u:9uy_j)#Wx%@kabR9֘%oVEG@?#&j`n+tkhȭ՗xKboR93˺XןBV[|EnvD̶Q7̌rU2̿#29'S_NJ5"WXL{ |. 3d?- En-[%j ~~v 8:wysq ]LlR+EWDfVRpFxр[/ssǍ/*V'W1Xfו+$ߜrNLJWhk*ol v 4+Fo]Tbo%H9ieJ.K<5l٢^Xdo[FV) |trM֍\Q*٬1{d_Wط1zJ ,xL_ʑT~Vn\%4,KvubGKHs~uwU,^<:vYV ;.qQ_֏jG\l拒yG3R~v_֍\8Gu&MN旳hOVq6m=ɪ%\Y]ޏ lN̓CTAR'0x|U?NfEhنod-[>RB8vΗCXŠ\]i\+`;Z4ZΊ\[kho`Pd)"Uu7\c E;0!<5{)[7ræ u`hh4t$ڠܮu{aS6Ҷqgn7|9=t}"s =T3O6bNշsIy|K}!BEVKH \C8vZ tpWo//n2|"7vK]ՙ_6_l岶j(++:[EVb{ ne](˵+L{]V)(C_i/Vq-ݕ\?ce j#e\Uw?C "Kjي~ e*wKuٯf@]QTՌ︑+ՌՌՌUjFjF7rEQ݋DQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQE_mPc-1U/E5(5(E5(N\DjL#9hQu?$Ѣ9;%ZT" D*Z|hQE/s-*oQ(%C$/E(hQ.N($_Ea'$r^)q-Da_-JR(c+.hQqPPAx8 B+%hUq DYDʅ(UuDyYakBuDqz ,yDCf%U*,ՙyL3ϓ*_2τ* A%o8ae=_q% lV +-+Ge"ZQWUrUghypVEa >^>n1Va* XiⰈVd=N6+t`ן?-"Z~*"Z6+.?K\,&Zx_QWuw-G_hj>+ĕ },˲ҰR}$J4jg a-V6?jN+ԕ {ˏ+d`5m{Z-``|XWu..Xe?i$Z- s qGF܁_ֶ<!WqWY`m gv`ym_#ZvYqX?H` VE_!Zz=x o+Xx%hmy8+V?K{ V^&Z[~gx Z蘚.pGgB`m%:iPHaVi ,s  _* 3X5ޛ"} q>/J^h5ཛu~3ba]~A-WDyp[~_ J`] 5A ՂlVj`d.+{ C~Ȫ|Q,ՄR,g.v~XJaen^IW !Z[[a cez]xi%\gJ *Jr T$Y?YCaUUඖ`o\IXlϿAXy\ݸqÂujªM-ꊭӻJ<\}zr=WUK C ªV\W<9+uʂ Z?kʸ r̸s'q ,ʸb8+*·+\y*X8w ²X)ZB`eɡjJeU];zBaIW+33 {\7z*Vd W,o[kB-Q6VmRj,ƪ**F9> X]d28,#kبj,ꇥ/L]`Ŷً5t%h*kxx/;ҰU+ӊ*hN |Ce< JW>ve\TE- aѺ};6q +r]S}Wwn]}iUQXfaUҰU)+*J˲Xݺ`\}*4O‚Vu* Үr}Lc\}X}.׏֕h=J')ش `uy%aUU3VQM%y+)qf`.hZV_[rņt\ݹ|W\mߕuM_r^6Y5Za˪,SYrϫXM1WjPZOsmNXiEU]b\W]c5X-?o]݁6\V{*~@eRFT^P;*ʮVbՠ@4z+kBʂzݝEaUU@V GBՠ=uuTLXZ1YbGŪ:U*Ǹb2]-,,)T߸ZOsa}n\YPXE6-dURV1X ,FY JWլ7R76BqVUK_:E9,.ܿ߁5 Ǫ]ZV]e^Yf}W!,3> ++R1R`)Vccc~VªU>-+Uՠa%a9Y{.+u=G>y-kLd:/J*]ũrbjUiW+a`5ay&GKcySk̔O bos+ [ nqea,g_Ҵ\B؏zܭU>X*k{qUfSեK٠ WJ^=K.Zִ {V!`]HV^Xu$UͰB]7q6PWW +ʅu^;rh)XɮwV_,V+%wB667qV1Vիʃei\}2[V*$+eU+ cuVwIeVJY|V׮,+ŞzWuzr߳9`UO2]{]vцjsvu/aIYYyj7 ˚W|;`Օ͆U]W6+ aj3գGVR҉k²_-ʄmsnfq5l*jP1xg?vUd--)X3B*,*uYYWMX gbnx6Ss].,s[ysgiXtl Vҕa``9.Y(M!veЬ|X`ed픥!XsTW{ quuR;,|\m>5-'O,WOlX˖,q?sgNXn}i]/q5tuN<CX Y+ ֣G8,{ו57Y Y;Ai2c]OV'Ÿ+JcZ,9եqezYX`}yفuʁ՟ªkμ~ףUIWq\q5tZlW+6-X ,aٔ:ٰ҇z®vX}r?דE@. +l5: 9չAK]X@ )U՜s8 ,垖o{ϾcNC\qVáq+JrXiYyVrfUa:XAXv;J)x=}z$D=qxW Z ZY] :c5h\=\iXW^E`:~< q Ye#\0**j1e֓VɼA &ӬY1w5WBvX}9VA]縊~9~;z1?g/+>bfuHrE+9 ee=]r#U~\VBj5% _ aVm} z>cN\Uj>;QYVY}w0|W%Xz ZrD䄕8+ K| K b: w~ʸV++Ҳՠ*jv́%.clXW|- U)WG]aX)W%{q6+. gia;Jò6+ [kڽ{wQVؑzwb+<+g|\=jVWg JWkXΪOOa㮊pVy\%#{4+ guHZZJ jVtuD+!+c\=}z ډe-tX@ѢXJBW+g48VVՉVs`]cYgς=V+:(+.+\;(וec}WظJ`ᮒ7mYYa} eXa*̊ gWU&+f\DX)X+%+˕8SU>LɆu KV}/Xo]!;V`hULa匫9U "԰X0udqdV6,aVw ^IU1WYٷXZXqX++׸e]`]va<|X@QU/kG] Ұw㊕\Yk7>D̒\X(n-6+tdAކ+5jc\KE "4d]Z ]8,-9Xy_b(ŠmֳAkvt +-jW9_d eebg.VN_ i0V CVZPj^pC\-j]9X YX]:2ۍ,2!<rƕރ r[PVVeK~Z2 cX |TQaVpϨJʲ%XiXaWV+V*0,1[q wrpX Y6C|W ٮX ``EKV[q*AJX%ҏ}su|uuc%`e:q\x$Ȇ S~EBa0VAjXzา\rY% <lWϟ`aU'K + g qUUquZهW '\4b˺tɁlcϢa%5jU\|Wb]E\ǕBV sso>4ʗ%^}FalX֯>o\UgOWXJ::Kuur.+y ׬ȇo=#e "N˻X Wqe`:a-tWfq%r,wd׫lX!XXqu+K|aYVլal]X,X>++{5.fȲU/VmX ,-'.,bfv\ C:C6B\,!d\)YyVSNq%i$XKhw=n\EsʪcU bW\WӸܫAʧb9VlXF֨ Rw EV>V9UPJ(BO+ʢ%^oB{2Vr$nWxWoJ:tVt<J*^Ȇ,yX¬*u=!Le5 + ˬ]$tȕ<Ou%io0XAX^0M,Ve\WAVJs+8˂ŗW=e%[JBHx XWss޸4WP+t\U~>rV},5=j:;D~ Vܔju5u\ +Ur~{z0/NF!d~WS+tͳ+xw?ć/IBzuj6+kڂ5= ae+JpZqɓ\XGye\Xe**..Քjs5X+\'W7 Aa+zY#UMAX**:ֲ 1zr`Nys*M_gW|i6+dm$V%+6|W5d\q5->(cG\B.9r`M`Y+wWVq%rYy q烬,wC\e0*!˼#jDf;RB# +9vd5UPY: . X rW Cab.0=&Ve=.CYFY4C#ӆՠ*+]ZTWlW< :]`9QX8+rUC a5]2YJﺂo )f`W >;w\%n lʳwRx又ct\vXiZaV rmno U|V}b+kԂeXٰ|VB%Vy hӽy3x+Tqv5fXAXcUM–vb5Vh&~dj091А Ktci% UweV`--XqWc+ Vɰr\XIY>XY0Wl]i?7sce6Ad_4Vܕkƪgnj9[!` ذkAj7Mء%iyVoo긂bb]y?CZAV@JˊU ZJ jMY Y1j9ՠ5p`RmD״;VcƊ\IbXe!ޡ5d}>몗Xu@F9lW4W|Ī}tgD7,V6 V8ڸj}=Z+VOOؕ}qL3chٮ! eeέރK>*b%dвXiX "ߕwm\ux冖qe+bUJ -ՓsUJ -hUW ԣUWthY*&VвXuY)YFV|ĊZ6+-+\Lk h,[Ү]ĊZ.+}. XQ9z.U`\QU,X7dĊZG[X1Lyi.]Ċ1#VTz9jNZ RqF{uj'E((ǖ}nߕEp,xJ"VT0NvbrEEZ+bEe"VTvڮUO,bEZ+XQ)ZĊjh"VT#C\Q yP(((((((((((((((((((((((((((((h^endstream endobj 142 0 obj << /Type /XRef /Length 167 /Filter /FlateDecode /DecodeParms << /Columns 5 /Predictor 12 >> /W [ 1 3 1 ] /Info 3 0 R /Root 2 0 R /Size 143 /ID [<962e48ad669293a44ccd24b9b51d4552>] >> stream xcb&F~0 $8J@gi; daHN!W (@$0 VBs R|"Yu@$9)5`y2"n_A⫝A$Gش.ɝVlf- ҵ- byfkJp3> stream x;]oqx4C(B$㉔tK;= wg9-wyCQ~r ?^9K/A ?ƤffwK\{%jk{zzzL32ô72 s̫̻y9"& Lj¤IffiF&Fd)%c2 VGL!4 fTX/!f6LifUQ*:)ǜ; 9""-,H_ZP>Y}üFmja0RLjP0f_ø72#Y:*E0x )`!4>"F+$AqI$Kh OGXe(,D2(XlE!0JIO9, 8mq~  ,DdH 8,C,JLC8PH-@0 $@PVCf =4 E tb il&p 0AJ!u(֢icʃ=jP$t)oa|?N0g-ݬ Aq$>)+O>K߂1{P;O08A>$q{qM%^ ^49dY~N`,n&3do11<ŲS۷F0ly 4n'j7T$If([0R \As:'a>lEˤ (?.`CzZx[^f0Y9 'JD/Nx+/=_U򉨜CK Qt mB)/^D eE,VdŻɨPTךUSĤ+v~ǧld\yOopwa|$tzyRpS?b?{ݭv4 IyxAB+,%D} Ȉ)IuZt`WOY[N5Pv vB080ɎO@CۼC>L^Ba_9/+uj՘Y{hf͌j2.69+dg@58}Od$\]B.eyʁ;>!ks. à#h*BBP!$$,nG II-%>)(Dc2$O`FV}ŽipXW%^W«c{{?$z=xβ}wHsK,šz݈e>Z%j[-vzW=E!d[ݸ)cv6hNiCLv/h-jU rw1N]7'a]Ύ{+Exg\ i/m'~yWbl+oQSYjw q׸5<ƗJ/&)U.|0^'ytPe^f>ױ/ͺ[ 'e=u¿ԅ YP.oUpEYP*hM#fZ@)BM<$.ʑUSj(I(4UAl| /o_/0]+~_ż9a?ݬ+fZQ9,#(w_?fE+H"M+ TRGH^Q:X^~}z.4DHK LCdtuTR|<֩QZQFQ1ϊ7,k]u}{&r >WeQG ,pV&[RWWTݢ5Cn|D`)qP̪ MUP%1/+!Hc+.G8Q ^'!bQstA2!ݵɌwsjY9>Rbk1Ԋ(Οrs~IzA'Ma\$:CD.X*"wLx}0@DaEl1~,K.;8@Y`^Մxx:0ҫ 9A)uHhPaq)n:gh [P RHRKq/ʯa5w=%~Nj6<3c?]Zqz=o(gpu4ܯM(llgi w$x҂L' ;F |e9ҙ Y'> stream GPL Ghostscript 9.50 plot, persp, image, 2-D, 3-D, scatter plots, surface plots, slice plots, oceanographic data, R 2021-05-19T10:18:03+02:00 2021-05-19T10:18:03+02:00 LaTeX with hyperref package plot3DKarline Soetaert endstream endobj 86 0 obj << /Type /ObjStm /Length 3478 /Filter /FlateDecode /N 82 /First 737 >> stream xZ[~ϯwwݫWe%vb0۳hkYH_1CRHD6B$ u9s ^˙SUuqE9ƅd.fBE,19SΰX0 cɬR,VЌGƹ,K%X ) qb1nq0&8 !QLH4ȷ0a޲L8`t`5X Nco7zL20;9\(gY 3v9HUkDY@:źlW{u5H3eke_M턝Zt%n~2iKMhţ v㲇i;t:-hWB{0bo "HP/9@Ǹv ^4H5XsUs㪁2s~>&neY2(]f| EMNFxKQ7Ka'f0|pVzrlE:Ü婢j20z8 kY+KI2 8)+ A`}3LIvxN&-R~ODʦOz #_O{;0%;`lUpOvoևMN=R 5A+srXxH8` J!=8|•o,n4bf( 6I>=hIp1'|zlA 8܃f1M5cTC1Ns]Ưu|̀2`n*`[yR30Lt":vzw]Rt^Nvos^e[h2WMˆ OU]ʯ/Am6PF=Jŭր9Q8l~P_emim܉N޷Fib&]g&SVbnn&̊<&POyy9dFk(hu>(Dqzqg9N{/]i$SnXZPfny92p-Kv^ݶaS@e"][X΋rmaUŒP1m.s@iV6H E6F0hhHMA;ܬZlDNWW^>;́qcGKM_kzga**ex],, 4.gg n ^ _[a;L0 n lk$^c |.WKnNC"&V\="٫ Y+S鳼vյk Օ#@T:QG%#)= -?+\Wb,v.(-cwT0a늻UgY!WO^ R`|J<'|uOfnd_ѬoBJRx2ZV#gpno%]Jѝ2I18m@lznAoR*M(m(eHg,rQQ`{6J J' ϣWgW2&/-)MEJb'.B&6{pȻdD!Mo}訓%{Dɶ|}FWhu(0lN|goFX|.^ tP|/FCaw0 OcxHn3DDT-AgCzb9E]$ Vw$ )PdL@)~r<_{5\Q)c]oύsS@1 < Iӳ:H(+Ql}JJa` L:yxE~rsboTY^C^-ps2e]_9Mn~-tn벧C/{v!ѿ#]ipD/AtwVWluҦO#T!K {ups|b7.CBi*ķou(j+筠i6i{B4@35"zDGyH9:&ߥOB~]tԙpk5]sרx#Y0^*nݦ;Dx\o}L(Tu7"& "ŭq_IN[~{xL ' ?t廧636 kۘl5O=C#Oab'՝Tljm<KYIߏGCOL# b}*MXhCN;HSd $WI(0OY}>hyC> stream x[r}g#m Лux/Z؈]&Eq$i6)Y?'BEi$gQ @OgOqa ƻ~03oLGy\! 2͐ "9 J5eT1ĔT2wc'XLoQ b37X9)!ZBw(UxS?!*q2 =|?ޓQCe6#f#&V   YKGnQO6dhPR]|t}"['? pnG␀?P^Jebvg]ѯ)_*+ZYr^ QvwVڛe@%\F|&'#>0VhVX@8ϖib%rx?f1 'lf AlP Tfochle4E wթH*V ꁵ6 jSh?&bQ!.RJGu;;GYD4 =E=TCИ>#11tNm_Id" 26 ik2blF}rGZ$DHX-ɥ(B'n[.bJ9jj NL?Y  ermh M w%r}VЫJmJ7YSä9ATx:[*X^x>a q HH rl8*x:wq黔*(RL\CHV܇84D(B]L$#Urlu.w PIIџ w̳@S.<1 sKOKxο,s[j(6ZpkO!J$j}7{twI@ ؃! hdDq?_v|%I)#p~S XFD {{ ĵoC&sH߰܏MelZcH2v>k1ܲP]˦hS2}i'wW<%x3&@DBOctw"^ K dQϬ}Ha?+dVib|ʓ+* v(AȍΠܒ@}F wۊ @IrN3" Oyrzaɧ>R7ŖxvHjB-]jE~#|~u[aAYvMO >LO7 f~:qanz[eNJ_(dn+\-{8heC?&Ho̲Իܞ4I4Q#Mk_%mL0⾎{}~a|vz8@;#`5{f>VinK$pTsڐ8(꫔|k:Z(v]<_ՁPj䎲?ϕe=cA 8ytCys0[R4g61mY*rl\)g)|-o*pcۓu- zvC*J]jgf9 J)mc6֧ ldxPN[ÒcVSyjE^±vG^TQOG {|?bNf*7bӃ"[{TET QɣWѳkpJVDhЭDo-1xhw?+ 7P2>, .oki}#NM~>_261'|rPg퇄Qps,b9c$U+"-gDn<}N=H3YoR~c]Obr&7wA_6W(,lK+P$1ΐI4R9)J)BqSWUVkIbi廿Lj˞O<9o6KNyq/uR@JK7>}݅II$ m4w*y/Ýw5Hy,H(wl9˚U>ODH \ FѭC$!:}6e€ӱ|Ľ;bbo+؀3]"u>@AgAdEƨlcGpj>rD:8/ty=_I_W~ rxHCL8SxU',ӌ :Jpa1.K?աxJCkk:hwOL1fb$DGBg(p# Y,@ <$?=<^ipץ?%N$UDUMOE#OG[T5rD'AtѸVd^ă2.r=o0x,[nLg?Ȑ)':BY;jjͻt-(lK n 3t&tLAb'Kr^qZ?Y Qr~Y5I|$6˫#ZvG̸?W[ .mXcIYЮ?(;8#,Ҳf$piDx4 ~1h~ύAaEo/XG(qD t{JU;'W .+M0r/5y$bZbWD<#Ԃi5[g[k*o?w SX/&tD,wlJV+QHun_@M|~3`dE&^hA ^nxL7vaIFd+å#`PԇOuwgnI P=;5^Rt9y])R-$#xk/ ly#"#kn3.s2 /[.*&M==rj?X4@^銽7Ck5-r?^2JG 8Jj_{S??endstream endobj 170 0 obj << /Filter /FlateDecode /Length 3361 >> stream x[[o[~7GA)b@$mMlے#ۿË#ޢȃ'Cr87|?X,?{z+x{x ^ :y>| hm/>4xL@ /pZi-s7Ñ׼+Ñ-ょ߳Vz'iVR4C3Rf`L9yoaon^#Of)[`?1CVYu!'}sQB?7>%@SB@a\Zy1er^Y!W$U!o 4iDr _#(@_M\ܣo@q$)MWFAfe[QLqiie3?:0ͼSCXh4ƙj$j䤐Dž<$#!F= UE!,aGHQTSWIƭ7bm1 .NP;]ty,HзSuM!R3`vcW1I^c~Wt? ݿ0*8 3Z&1pkr\pixl,ӄJFVe xItQzЅzؑ[P'0ȑ{m9Rf|VP¢Og*YFd8F[ĢBV޸N}H@rZI!gJѸe͜;CLpMkW1NeIE5C!ڕ}*Aʘ!le@hDK9+\ >݄2dy'Uj8vht}$̗kv{StK.ֲ&KQ53(*  jy~UmR0mpφl-WyLРu -4̂΋Ц b_Z!ϰ%'7p`6N'2°jV {ڲY:!gfQE9t(N3!x$ HkL2b@Š ~a7_%㭪tYFNx+!e|7s/ i͋2\1pPf8LR`[$]H܉c̛.eeTp( ~nCmBiL,3?Ii'ph- 9`Jd…Ii2DA{B! t*}໳ Cşۭ7lWFWH|m$'!ճ\:ɻ (]ӷ(42KhxKoRC \?bG['zcb|E /WKU¦vh3lJ4lQJ>HUeoQ@hx]b+0tROD!u K -LB |@h)}S9%ՂB╉f -_k^/WAq~hL`ֹ ˝"R&okY jl-/Xޥwy2AJA˨DaDÆܶ<<4VY=*PǛX(fVfjkItWF~f*dkW`XS>`מe(ܤ3dy oכֿI<5F{g|"6;A~][%φF'Y;#I(2ngA9s #˲]l.*0 ɰUBwd7 Bbq&4:pՏS. Gc FZlY1{MkB 8Xov7-ӝv>X ruu,^W. gQOT:d1yրyܼIe;ѓW&yP W\uA޿\N~endstream endobj 171 0 obj << /Filter /FlateDecode /Length 2584 >> stream xYYo~G ;txA $Z땟 0]y$"LuTu~UE ϯ_r~&f 2Db?sԠ{뇨fvE-@Wu!-J/@锍yZ_/uq/T/":U<I& CMt=xYg~<<{&7H ib M0zOx8zLF;8+F!="Fh %d"_1zRw?2b{wՃthgMwT!./jaF;@5aEm 21?1z20Hy; ;)cOB'4[3fƩ[lT/PWC|ia &4F kTVY2caB{3x2A&M>1I<'2dEJE|W"`\|UE4(?Ha$@ڒ[VJ-)7im 9N-؉|[U%++,4ga(,!kh/{ cBzN- ^hfҮԌj"vEFWx-OvP t >T9SڠJJV$"׮~42> %ګ MvX2Ԕ}|_zAR2a'ܰV򢒺N@MSK; B١MrNe!'P-kM1ݻ:ȧzwPh_o+yWU%u%XjTrYm%'fxěVy콭W4 W ev2;=D|e-(uDiו,K'QލXMG#Ὣ7uÒ ᖲQ<&o +Y% YYO5uJ3Y<)$s#vo؃y%|Gnɗ:-~J_QS oz[P,p^ X]Hk62: 'KbIL4#EӄTg'_W 9XY/6 -ۛ.hY(n=i/~if cgy ؓ\u)@"o}ܿ*L;:wiX8C4f >4_.S…7M%yN|\.4Qo H*O#6*6iH?1!2J(ݎP+t¶-Vd:'fne$Ȑ:Fڂӎ<|l iZWL"aoYn8/K()sR4\?l@v}si€R0Nt*Z3݆<-wo YYVi tSfMB%]x 2g1kwNZx8Nz+nt=T\J`M}1x~U4([-9mro A!MjC 7;C1Z:G2G7I?4*e<檛F0:qxtv)l-ۜe[hQ%As=T> stream x[Ks6B@9!' 4!'i4On;#/e˖_Hjˉfr]~Xe%oxQU5O >m/m7##e7ǍQHD53%Vf؏~o96* VLDg%5VG=?3fDt6:jRJ ZDZ#u]̦Bs6T*)f8hMuW7/N2!"ڇ(kSTDT)2F5c~~\eM,JZ6LFWaIM9K#We&3Kʸ =sZF&q,=('{ȪLҜK^Dsx4WVt_ò\Ƭ9C%,9x)[%J<0NX)8;j@i 6uAn`xA GK4:Ř*gp=x9m} s2gI1 /m ,KUř nK* 8ψ^,4 բ(Ĺ gN+w ƍk=ymt9̸'GF65at !Hx Tq{)vۻ%pIg t& Fqمϟcm̥K87$ n[$G" U8=xELKBdÀ4琴f+ \[Tq]6#IP4ۻLd0I %!vp"!܃ȧ%=rJz(?1L%@CA$뇖wU+OVak׆xmb抾7W3^!J'#І\k.h hn&<^C!jUSajxp_"T)F]n7ɨظ%},lF>vpt B#ur돻|>+!A'SW Kߊ9SN$zp+ҒM4z*Q- JEQ.^FE%toHT #S>Oc_]R^QO`K7,7XV/*C!U}EHɩ(uW fMUE񸀅Vt~:ϷJ{NnZ_l$F<:зH#$nCF|B4! m{0:▜25މL˖畺g1&]hOnkqPv@W:RB#Z 7q·oˮjFa81b $-Ǧ@0_6+ XTٌJ(dIœD[Hwbu>ڷwG VCc_VAÄIf%E`>Օ -(ˢ:I }%1dְNFQ{7^Bn tz \3 9Q-]Qb oٵeH랣Э8P-nI7 :^{1T5;ȡU6 ڝ3ס/,|{C.a+,n}~}-+JB `R40T K-SIҮ#^G{$6Vbjz|if܂x(QK.'ZſPLZߋ=wSpPendstream endobj 173 0 obj << /Filter /FlateDecode /Length 2454 >> stream xZYoG~ .>C@4@4+)Y"+[=ERd =SzIUO{{2_ߌ`+eAGGJʹ GAU0Ht8 E8 9FVʆp0Z_[\< +T2_:xmb;DVh+mLqxa<҇PYQĊ gNib4a05n1})`[PWUuPxe<ބ,dlE*BJ[LQ!BKU_ B&!lBȠ8J r8[t43e8fRZc"ӕ M/q ¨_oב-!8C%/&~8[ς`FЕ/ZEPzCA MC\!H*$_8-o=Eѹ[+ t9FrH^"St26なJpRWdwT¤{6!N8NV @"!NS''_D$x ΈQ<, D"PM.ԦHJ$/Uc4(ʿ vC[:Y o {S$ϑCTR П|;nWy%X>G X_.O $wHs|lyk֑72 7RS$H"0+=H^9= |ו ԥ˰z@uƸ/|!ϒ+bn)F!nWH ܧdBҧz-Ҙ8$׸k'o|Ţ . c_Pk?j}dJAg|Bgq` ~>%^ wbf{eYzBw =lF^,&"Α<)Ȥ,4h+%[&4c]:nA#6 @Hvz$3 V9˘܌8b?H^!X1kqKs+kWMb$X=>"Hlf{@^%~=&H|zm&IUNg& FWBۚ? )/ y0&䯞 #;\ŕ'(zk֗HC+)dnup L<#DQ4֣: eP2tlz A=g=bNq1TR4"qP ɩW*X4jʆ2 nʈo}}RpNF , a>Ua]hTh o <E̷W-֘޸X[:";RJ J+UЩ6݂8SசZ!f*gy. o$0*HbtߨiP%$+Vb^@Fi+UJY=όA7c4t%E}Zn,C!ddkG )Zɠh;pm|9dvtnU뛮4A4^-IIIfG^gH!I6yf d3YMrf Q LrQI攕HA\*9욽JޝM٦|jdbH'?c1$Xx"ISvb4f&I{ٕ5CnTy#Iw!MS {Ȑx)zjgpo'"1u*>^c>AuSRI;&4*?܈Y_s3tsvMdNLiMX1?'lfZ tI2ydkUըOendstream endobj 174 0 obj << /Filter /FlateDecode /Length 1009 >> stream xXMs6Wpr;!339D7'EUG).h!kg&9dt#b߾tVj_bS>d}\U>Ŧ}F;\\ PώVUrvuM=T⯆6h1?'Sbݴs#N*88%*Īi^6rsahv`*1_6ޢ<ŐR{AЇ`{73h)$fJ4ՋY:RWVӅ^ST>Ɲ_Pj.x_kT]PD$P$Ǘ}&}ִZc' %є`Fx΋&A]2FE-xR(ʡц(]7 T[ WṾ頑zdɴ*@ ZeT?I0h 13, ã[g<9oOysgo vFqL߂h"^)ÓR Sy\}0K Oe~7M&Kvo%{J6[Ӛx+"?Oo[읬+.Y2\bntOr)K̟|!=Tᓉ1vR&> stream x5]lSug;=Z;v`.c3fLg`)㬭kw kў>['DIP.D :P=͟ sws^0+Zwm[2hGޗ_\FV665_Ăp:}?+a7kR|!R ^[[Aj^tH%{j!xv-!Υ7U:Jאָ U&dkAyG^rxeiiѤx}AUKACsg!IZI)1y\d!惢=f/Fnb9VF+A lj>MshGYZe| ,6=[6I4Wi>۷kT[Y>}]/1m{GO.t/ydMh ɶmc7I-qބ-" 6|3_g<>ENв`B*9z`x%iZ'M&LfBVendstream endobj 176 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 4673 >> stream xX TTW}eA"O!0N8C4Ab#Eš@Ifd,23"C!P!h$FN7vDms^3^,Vp>{Sh#HXo^ڊJ׆@vb<|U'L fF^1q4DQT" T: =n66V˂|w{[9{FyF7V!}"bys=熄;cUFp(o+<|:wCHо0+o`al8[:*smWno=.~]7͞3 |n :qa0+3lf037ƝYf26f81+[fϬa0o2g=&3#1Xf3 cɼ¼* 3FLX(haaKc4hic]Wl8{.ؙTde`6,f0"|;G<2q2FO4F6&m?Ɔ}4jcQehTIĝB}0@%?Z(@ Se@$p !Eh&H¬|j{pV.9 Yڡ~,/ȑcr@fo zT'A)Jp'Ja4_0Yj`?o9Ijy'gshu4\&4Tl_x2EOp@dO9 Tk_m_yH/Gx'QnUOp)O_BVԪe`IR\2!^8@5:!hZ Iy Mx7[X+\/'_Wp nl"+)P\-h4d mg49vxp>+"p8op sW]ܣvϰd/ycҜ詞c]B,T E@SZ^X5|M޿W<蝤Y܄8b#4{q&{?U $oߎU{m3w ٳI#y].G@r?r^n;y&D#܆/`()É-p>ib~=I Yepz'by;SM )B*I )ۓ \ d8*9]ސKˆ){וiUE*BNX6Z(Uw*.BS W悵 wT41L+d&Q Yrsq5E=%U(4FtJW=2{4D|y Ӎ]Rx;rݿ(>θ;d{fԟ1K~E2;ju7^|[rE#ڎoDd <eI૥eP@/1Rm>O ǰjKTќ-λU 66Ԥ+5IOR@xl5>EiP0lK,M2WqvGYvV'/#Ӑ@wHN ej;= lV씬pHJQ-!,J2 ΍Vրe!-h^sxN# o-k +'v>M^ @'i%2B&t;ϖ؆JeBA_}c/͒7]Dj\>U%nYuTL(ZHsbyN /~a /c ,.{zv=-N6J4)>7$ӊ& x0fBFFqܓp/[!-ZUv:dX&mHAhJ !`r ͊A^У=DryNJOO+SUV+֩3qq/chC6Rx@\ V ͔e:D̈́OO'o幓cr7~%%{ (Ri7S ES[ֆHy$1́&'垝 6oM%cS^^iqUBD1SdA -ӓOe>-j5!>9e?Dq[bմvuv!R S)nF3x'I}2\{O}fm+b/~j#D=T/-ƣ-*isHqƧ(oFG۱'&FB,{MdP/;6{{4w5wdYMotV8 _Ye D}?{\CP:޺F%pݺ BVh*_ta J$ma[ͤz["Yնg}EꚨpQDބRMdEl\Uff~PX_\_ю; ls~H$ߞWTltY4I6$NdBvKZc2(oo4 . Cޗ=8懢 = 1DEuԌ *Kd f,*?̐–TbcJ]%G*uOih7@^A4$eJzi=Tؠf7+b_,kW6#3hqBܽka9Gyp4'}њ[v}řhVm)ЛެOg)},hӂm$&'C(!UwΏOF~]_#[񓓛sq.KJT2/wF+yMHB{Ge \JQrNv[{4;p\HR=R+Gga=\kcl=a^^cGy$KU%h,',ߨaZ"5 1J9^ NKTA/e^r-IE-2U%>9U)%ϓO(nx̡5J3ޢmn>X-?ѓ] ܣ8x)$D'PxZL<~ s.l|٠F%x0c'L"LV>F/`y}i_Nkmpȉ[j(QC,ۖ p{RҪKrEy,@Y'uݣY98d2rϺ=kBݾk;s{(4_xL ,nD}q?y8gk:]ڦ Ɉ }oCD!]yNFŋI* }Vh5-\Bٌ:9s ,n &X-!%*E2%aBu)K092 '%.q!87W(.R4t^^eٍ? _qOu \d7b5 ܨsE N7OȪ|taH-=N\ظW &o(чEa֮=__ĩCs:!c[d +skWw.sOio*`1#ŒEd"?^f^kl o { QrvcR H {9`k;a8?1#(:}GVPOitѺ͂g|aLfRN_O&)|fulEG$gb蒏 ddG.7EpȮ̤5 %f#2BM~endstream endobj 177 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 7576 >> stream xytSǺ:'Lr ȔB0B bMa[ؖU>IH%ئ @PBB{ c{#&˽yZ^.:{{T@ Ye;~ԃSu/)voR}g|s2_{-=wzw~A?yF Ш9aq[Gxtv:uhqcNu3ygtog4!yuV8x1!Qc"?99fkt*(m>By:9uNXH47yiod(EQKf8'|܈"E͏^ ]-sqג8>|XuuB֏12>&2nC&M2JQCPj>5ZI}@EަVSé5j-5ZGShj#5zDͥPyXj>B-REj15ZBMReʙER!T*¨,@)zS5H jՓ_znZӢ)Gf2}ͽ^;7;_;~~}_z";-zG)Ā\? AAA5ތx]vsuiwЇy}{ XF P/k%䇴/a U Jyz"1nj&6ZUuýZ荑&NJvDGV ӍK AuHe 6y,7TdϷkPb=avF #*0wv@$h ] ZXK+a6z-eןx.Ib߾t8 t<{HMk[8Iäu7MBIp GpV/騤U`~9=_L&\UdF+,~0=FAT{G@> Fa_A>?F3X-=IfX kR7ЍN]`]'uX`:a6BCL-ɓr x!8-d0e,r6'lxjџC$z~Q2n JD*vKZھOjipi/~|}bo4 ehHS6S"cHv&Q6\DN8MjHu{J.R%)"c†lp%ݍniC# D.x3k+OEg}+r'tbW|(SaTB8} 'X;$s ̐Q ۈ!'p 30:4ŅI]>ѫ\y:iŧ-~ 6;&I`*jFExLl<ȩI*M\P UkJ1Ԯt7Bv^uE=h,Ȧ/nM@ qb=K(Ac2[ j-T$Cfn,3xpA!3)łvƄlv|)C$l  HH Rߣ.xw("4 LK0G 9TPoř?/|:֨s ':S3viqHCZ~FS^i-+y@m إ~ѐI`OgQ O h0gzdk9MJ.2%?$NؑPV{vrz VUI%u/ILRKEZl2~@Cv9P;\)OרB&*guOXoj@Gl?C<_ NPc# /Ó8=<_;?!\qp= )z/Y0 hIH=5y~khqr繓khRsZ vgQ`8 $o^4\%}\~m-F^EVf6 YRz D/6ϟ=Yʡr$x=Ƣќ8쯮9أߺm}!Zʦ|`ZWef2laMpk4mϕ2?"(tͭ(wAC&e*T QE9) )*Bq=QWd e\!ժhoMmV C^a䘕M/B#\g[ JɲR7ml粍jcY8qSj7ɪ (UD)ɎG#}zgFT:@Y𯎙T>YE?FǟqS+BN 1ނ.o~&_B{QtK6ûʳÙ[镑rY@&\ihM>7lf<ׅ!xsu\^E#j8O|ʡ>$~x ʏKBfn\O"qd ppOy smj8|ERHad-@rrq r@ ڐBQgEC $ؑ/VGt?@94b] Y)ICF;163e췎Th xAl]*͖ƽ-VXDBi:aaP$#)]tR- s' U \5ᝇ| 4?b]+T)6k-3@sNKuiP ƚ3_|91GV@=ܚj5'F2wk F06L5"nج>,lxl5F|(yՁfjXDs:x&3U"/A_J8f/*?Pmk +AJo=ujցHDbu Eqr,yKtIe"4D. sG4%R-U+<$jUzX툅ȨSec{¯qGCv(\ŅY_7~(1W|-!dSJ9OEt8ŴCzCoTIF L$xu]NF>Rqt\uI-K|Mf_L<]NaIĿn4Yr|1+QO$:&ԃuI ҝq;P/'n1RT/QDsn_;.?f!?Cӡ2XdEy8T COId!ݤVvEU$I{xϸ?Aj!>M)PkbB׈A.VW(5je:$Jt:CΏx☛QgS]-BԛT~ᒎt'B hсؔ 6Dly״gyxlcQȨÏk1 $s"jSTT0vFn .@#LjnlwLC"<'`/bhZA߲ߢ"T7h\ߓأS6EG~ۏ?ޯ+b.YLtILUMɯ~G 0=-&wYΘˌYC}LbEMވ7%OW 3ZE!\yf{UUV pnf_khu?_ ExZQ+6Ir * Wm&Gy 1>,d@E~w^e90/^ޔY!i٘YfZHA2_\W]Q\.<=uR`̛״M=.q;Aq G~9r!Ȇjn]JXF4A,@h2 _dߞw]MuODPOvƑ+%-^Sz|M }◱Z৹r"d6ii+5ti"sDS4K#jLV}l syu!Wϼ#_,-9.;s}`Sܲ8]m4:9 XRwWO9:F$_q$R<#~\VVg# 8grC븕ǔՍTPvSW[8h9tG-['s~@=$+tzҒSd—|Gٺ e/sƙvK8= # }T18}XX\La'=1=k*CCBC+jj*+k=#]j@&s嘄cڧHk)B;PF`2(@ VHy~3kÄ7=vZ#XQYF>t97(,m\fAaKZأޣ(ǯn^ qNXj'Z5|b1֦gߕqt^ι#Z{* QΓA$&=;Ȥb5l ,2Ѯ ~kx0b0y D?xDNAWz8`gͪg6" /G?RejM`"cObݹ}0q훅6[TUj_^ .**9^ܱ"[9 &mPѿ(l`ً(e'zUZX@TQ^xPe0\{ ̶ηCI0@#G,阅'28?}5H/C펺ݎB 瓝Q_:uzuO ].hKq?Vz]h6Z3V;\c nMq4{oQ0Yl2ァ]|#C"0JFZÓ *SHL-hkEb5MDrTq3Q9Y'Y8G,c8Bn'mozYJ 5# 7dd` \ 8#N}sk!)8V%#Pd=?ᎠHwgO?"wsHTfV͕ZF6ϐ,}zB$@̑C F,'pua4`5ʳmVSJp32E]1웧fJ2|+EHɿbg+-1wقbįE[Xԧϡ^^VG4磊Y45ѹtILʦ [] :4R$QԢl.+/i:v Z%'O FGyFEl!#rOtd@7\_j7&mxq)Gb+@xMbQoK]{:G򲈿j4`Jd$SbKԋCwuRqѢb+iR^k;JI͇#֏'[-Pʜټ<3ngh: GN1qZfW.?)D̳W0ϑww~mmb y0=YwzulK,s5sԉs9Uw7>[# [!8i薕k;ù95biBHςc^_#dA(t15<8/hO~ߎD=9g`os)![ \\^*l )~k[APL:j1II鮄Jv A7yL$ H|a+tȝkfʦ2>Lkq6'+yųkURUH&N:D%q#'QǦĬ[+jMPܷF]%oAz}K<Cw 8Ύ_U~U~ld4!2^+'DYY`XfOV ƞLaTʓ+e-x<07C]ֱwG毐"!Mk3No{fg$E-'H"a RsH`mF`e݅˄%$}a[''nvྮnyw,];=8(9iRԿ[nendstream endobj 179 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 5241 >> stream xX XSWھ!psU!^ukZwhUjDEv!a_ 5,JˈJ\uT۩j[[c]{g${D"dTgßS"a'nrehڲi*;-[)H$HY, U}Ncws:gλ9;qZ# VA:i\?"eʔery&:E+ȕ>;BN}N6~,F(|N>- -]T,\w_>hCq >u)SM1ss\ާԇHj 5ZKQc(j=5@6RQMbjZB}L-P(gj9JMܨ j&ESR~T-j.5G l-eGI!RC)GJL S5䂲T/٢z2{Ӗ,;FZ5td1#cDAC?1`눁kv tFiृN n$"-2d!!{wۻ؟rpvHwdW; ՃjE B}6`lV A1(8"JHHMMDqLp=*^95Yt;V((U/zԴ/mo|.Ԉ6V؁.e[$8,ˊKap;wǦdp^/Erbяcy/6 ۵+y˺{r.bwQb Kb,k=%Ԟ)^}]sȀ4\Ym ~@%y Vԑ3>뾷?U4~h.}m1:R:C=κ ':rT=xiLxfuݱrfA ~X)7˶S#R( Ԡ ܦPsS=ݓߩ?ʩ.sj$QHOЇQmZC491Pf;h;Pݱ24G"}DBXXDdN?Ӂ4XwX ؿ ic%AE qB=u2!A,l5!h#Q"ZN֯A|; ʤwǝ?^ "Sv`nw$Io3Vʦ@Q}_נ&w(Շ!]X{U]dѹp TPvYN5:]SutvۺL)XA2"F[MB#wbnv2A#B51¶,deU)ڇ ׳AKxI4l0lTن.lf+!EZS퉒_/C gV蒆yC5jܪ7'au X<ϴa/3fK X"^Si$Iw`폜Σ#XU'm>LpK#O7Yޖ,C*!2B321;vi$X iD2".J +J'Љ>/L^vR3$MJdHq{3ixID(eC<|3ԙ(+cThUώCQan!K, A1)\j\ԖƷ OQW[ZMyw'^vDv=&2^lT@Q~B$'[%}%H5ܮLGюըlYYY0CŬ+i)bzuH>~+s bVtLпtRPQZrhsӢ=/;k /É|(IgT@Rbw`h$E#0P RCP"{P>U+!Da'`}>~~#:F׃^[:7Í*Ȥ;vYh aa0,؀ĪN6+4'ZKn&mlڏ/7僌w@H׉!P^W?k֠h'׍7$d76<{1p?}zPbY3j0Ycp'}GՠV~!j~6sh]6^pthOݺF؀*QacwË0hD*/K|rȈDuᚒh7J^kMS҈yzZ2N}@V@atU8,*MQ_mGAaطeE9HUm'n-ܪ޴'$5/`oNo#1duQJn:$5fpgubrR3yu h蠉vMsfb+<˝kbg=y[Dw5h6v5eU!e[QkM: "]fۂ}AAZ57y]&W6l~YBL<2"E/,%&dGUitUu~龼 :O p!jc l9ܪ, \?w0Fs8<u7raaUj4gƄLe1yq.S1ƹuwQ/"b:Tc#9J$ҙ=tU֣A9vi55}I\鉓ӗn^a|9 {:SgwkuwTCg΢ϰ[/xY@]laԽ\sMCyg/4 gfݭF(lH7w5֭t1dO>SU%WD=]CpҧKM.ă5WL]bbI3\W/RB,F@*&4(/7/k֗UW<U UoC|٤8YE2)b,7%{ޟRp p:IW."'wor"_ޒVD 2:8i쯖% 9Hl[oudYaxjx+J]~lǩݻƵ^_4oGݹ.kOl['yrŇ 2lw.-psq ;۵CxVZnv'E:|/u_p>_PHB>吥VjQʭ*7?0feh#K ;D<PRnVU&XBa-l/!xl<ӏaYtaa]6|v͎[G2>#323PJˉAI9@I?d&傍7<Ă;> stream x[n}Ca@;EȖKɦ(5EQ(&% rszvzvVR@ tWwWszBzW{^_/{9|Z,r;_LFiCv5M{6E0Ѓv?s)fW)LG0F+Rw&<.(+4 9({qJ[M{VYwf1f(1u0>wk^[#T- ۘ+BY}zG?l K<+gG4δGN6 ~4!ؘ,;œ4/|j UpXG;sU'?/%|)ژ=8UOx6;\%dz+FQFM#ЌReB.5aBl 9S6!:V6Pu%h9OEpgs+fQO6zrqNquVs㕶s BDݏ".91UySWfJX]91oh̡sֱ-vml{8ƍƙ莎O=-.hQAf9G}mɸ{[%(sW%ǻ} ֹ2&XDM\4T?"~˝w NE}3Sg_ޙ.ws3sq!>H' 3v$3nռS۳lzBjޭjmWse5ϫs5yX׳{\>gx9xֳ?4XOnwEɎ۬ (O8LN/&IMdFx} q7 @e f5SlSn|ŠV(UP8}uOqJEo@kZ-1;^X'k cP,VV'-߿pq!)vl& nܞ{PnsUBjy <[h"DèY@[Kr;nDHDC!%e$ ^sz #`- c:)pC@8"arMC(G7]JeDLJ{^\R[gu @Tp;Z' a6{EnښʘZY"LUY INdJx_~+Дd) SYT8\}* y~4k5M5lۓjjj:,Ғ؄ܦАݗsH#f63rMLO<Hd^R!4L4 e!=)N0dw,,N"12 V:8Y:4mL@oRB[FD&I5?69M֧e/3  q^;]WÚ@?'ǀ$LpZvC3ʕlHI0v;3gf167˒7l%nOζ 0e)06Qm2)a2=EDl>[ݿ4DeI.LfM3 ,q2RD8'3(F9Zlm1tj)Rq/tE]c>e-m sSOJcONyd{fAz# kֳ:ɼ: Ӡ]V;-®y.⃉:m 0.d`q:zZh /mZ"Ņ`7"D*Ƽ%Kê`j lVA`sc* %%&Nt>'p{j Β_ਲ਼qpL'+yHYYU2k#}FΓ .Qn>A",)Ywy[b2|qB1E``rE}5)9٧7 rW:YC8q^=IXfo9E C,c9Um'O*@5{ CSK& ᘋ[/\GϠb#vP 㽆 }M{Z37nypȂxYUɲ0v} 0f6_Hy >*L*/dTU[<͐3ٍBw` ?Qķb\oͦ-b6Y_y3LfYW0m_!` nG(p>̍o$C8(aᒀ*%g*7Rq1_x=OPq;&ϫBjUj̾:墦[&<m> AULP0IM'G$ßOVеO% !Dc6?yw+|T.{°P 9\ke5U>k~Qk VU2;RW ,4뎛߆(Tis:Z`w7ˇ c{_+}̽lU*nԦns12g-y1 aseswl[&/y^͟ `zz+=LnyZix Zn4Kp[|a Y(h!|tߓPmSOJ|M#J:7mme$?Gx ǎw|ISb_(AûjjRO&]&0)9n/ڴ!1HPI%&ZSA:\m dBTf['@͚ OyZo|}Dmmc+ć+wV%n账Hw|//8<^ 1+_@T )o \ ҷ0 xWDͽj$N浞&/ g&?þn/C&YAsTrJ$jǕ/U5uH-U;s-]YZiTs?-nץmN;%OnnP7dKut|ai$ Z_yFvfhPMq!n*6akA~J: 8.K$Yp7*>nOnbendstream endobj 181 0 obj << /Filter /FlateDecode /Length 3402 >> stream x[n, ٹ't~8D CYY^kKYk v&=/L)X:UtE?w'鄬'?PW_w? X:> JWԭruvwҰُn.+RaɿZils& V wF?$/aKl V7gk`7ztK(CyrSyˍi#7*1@EOZ5Q-@l!qcJ&CF WG 70EYEhNgcd3Ys6l`aOy@Un6ULڦ2*u4  kPio'1'8fRaC8 !֟1ϫ]!u"![IImsvJ5Jr/'p_Ôi}1fP 5\Y>aFwEPX-6,.PDւp{Fy/3dMxp]P͵Ӌ7Uc]ZNδ+RJtwhA|mZ%%[&!IQ2]) xQ2=WwiR}`oYj88>Ɵ.q {6/"4ROa6>JõrT֋`SO)<ޯᣠG4B7<B$1րyqiS&2Xo3A@U0_*1y >j~hd N܁y"JT>je:3} VH 2y6Obۙ/  ?UeB__1H4aM`vL. [hJ`HH[2[4q! #*!{:bܲxy> >Hrk z]'b5n]z(3X.Lag $-P;oJaY,"UHYJiS8xSg]Q+4ѕ*'; !J~&`E]'"nl v8 c>L f8US+I,\z.jA :y?:VR ү}7L=l4cEW= 8- y { lL-vd |]`dxGGq|[)Y_`&\e^HVzI|Fefh(%YLx,;JeU5 .>./ nZ399<. u^ R%!( .E]|JB])4$.`X#01ۇ#؞k/~zo1W0&`p1ݰ/ (Mh#w)ˁ50BB"&/!.,gn`JJ#5ּ8 3MemӶ,"w|nl+ -"%;"ﲶЙPtf*}O[kCu\AJ\wy8Mx|_p ʤcB S*#nS}C1*71֚1-OύaE1MKȴ)e R<۽ޏ p*U^38իw.` Ü&e7Ҝ;$e Te"/ o0 ] s9r.<ƞգYBیkNsH'v~|,6"s͌Y@9wů?Hp԰܎Xamln( vT}wUƬ~;Ͳr8%t #rt䐟7x1I9qDbʹD d*G Kq 5a)jeP~0 YiJֹ q R0mvمpjǺA'-l@5z9J|J6>S`k]Fw܅BçĢB!0jKOn5$ ?8Aw9yP!g1w/oȃ*f3eٽ;׉*T`o`lԝ) .y/qdǪPnY]+)-w[?"^٢tiHADǁ(JJ'-Y2{l/-{ '8`g@TU]B̵G0{4VzN|ZH+@(bR)4'Y1z%7 W}{7dC\pE|\pٷc0Z86!6* (* 9a#~eM|LUF[& JudM(p%fu% P; ,3_$@E?qfgu$j ph:%.,chHNN+/s}3jÑʵAM]7a++,_w74G+q['i) Q Ǟs]"I)N-^ k='>[# P}>ugj0M32}"x)JIZf+w˜a"#t͛s4F+oL .nsud$<丅:$ JL+kX˖>PkRX/$բBHMۜ(xPŝl9A=jN+Oa>`A6^sd|+0o GrsvEv|hQ# Ik蹡7T|$BA7_CX'.֥R@18߳p%Z䍼d~qA+e(C P%JcoN94&Ab`(ٮPuޖ2PǁmPIJ>%C0QOQz:x^{+HjᅠGh(o%? -=b>G糓?Ҹeendstream endobj 182 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2826 >> stream x}wpWW-1&M: bJ p &`JB`la ["ؖU-&K.LgBKG)3&&?vvwf{bB"Z!~\aDxeԆ]*{R" \ #ǽϣq(9B*hs˵,uJ.jZ/5/:zq2*K!Q$ėxmZGMI2̙7;Q=[t̨<.5j*[JZEmLԨ:{\ѩ6hUYAfK\ڗߒ>kKbGOL&-V"I VZb& //EMD#d#i7rlTQQSo.]?D°-0Y D\ yxR5]vƚiJV -j5ku9{+Y;>}D*N:hpSB>;- q>z+go]vP!0%~!+| ܐ eLo 4VLHd%fvF#gS@u.#uH]Coޒ(Q-fz~EFӆ8}tk PhaS+VOBE|%x^l El0JSq͑[M!F,.Gg Ide1ar"#p+Qq4p"nP6RYdq,{@i.YTpG%Hߌ{%n RMS&Sq^M;[xRW^4ex''koWg`P;?4Xqx'<1XS\yqUJG5_>D%.UcMWN5'(h:*mnq_xKTk>[xL&2!BCE#sť ϞG_̻۠dX)ϹR gɿ{̹C`Mc"'W2|/rEnwt0Mu. + 7{|;8;Y'"DK}$ߔ ,r`X[0JE N3֩OĂǑ8 Oc_q eeq{PawE[Ph׶˙| vf|T"]Hvj;{EDX ,["!ď4(+r ] /FMxx7Kq"ɖJYѪhNLI&PVw "lk}@݅y9ٖIG"dA71?Hr8jMT~hU4{PL9--с* =6%/]7۠,mM3bB܊oÚbvnB -hZPMIٶnuTbV1:PH6V7yZ==Zi[7t6@` kuū~ o?@Ѵ#?bLWƓ~~{Noh @Z\%OOjTG{; 3VԔt0ώ?RB5V@pb7.,ji| },A+!ТѦed4ZA%7ˇ;v>=ḃHew3b16P2hT>U iro/}Vɩv-"gWX^2*^ 9F6rQShoEx8ACendstream endobj 183 0 obj << /Filter /FlateDecode /Length 159 >> stream x313R0P0U0S01C.=Cɹ\ &`A RN\ %E\@i.}0`ȥ 43KM V8qy(-> stream x]O10 BVUAD! }I.GOJ`H_#L4;0L| p oMTSVBoh )jItUwIG`m4Xyp8I.~r 6/F4S|endstream endobj 185 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 7225 >> stream xzxG e)`581%j轆fclݒ,YlQdɖ ؔ!$` $ȥsd6$ܑ߹*9c0=nΨa9 ab3bӳcc S2VE%dž=6u,&feƦĦf^ /x=sI(蕒U_>qލI75zۘ;?abɲ)y/O63g8kvīsb8A!f/kuDAl FQ&b4B' qBb3/1GNvVr<1%j3UNkhz賱O3q~/+/@0>{+-M,P6t[he08n!(m5@3aa_45o _U媀{M⾠uuZg,dD.$DapȒz1#p*i dT7ǥu`CHb`]r}2%A.APx_sݽ. {SpGC;mo"}oޕ-,o3wvtQF&wݩNtל>{ cEB}^mdؖB]/Š[cQ&!ž ANwRA~BT&H 0pp:Y#IiC_FѰ\ Py-/n;lLNsCQ,b`? ]NnX8nN.^^ԑOLG)cWEBΣ~! 5OVR;/#@rA 8w 9d3\3\劼q?nTi~ID](d*DS/l;x4 Bs ؝~^ʝLc$Iίp6vu,vRV{ufҽpB;;tUzs@g`_1qݎ4Q[ Jb) !OgpDQLZUXꁱ[Iݻ~Pl^IuuR;N 2rf #!$ +߀4ϢI8& )h*%}tphY{u]ܝpt/ꉁ5g(N)X8+H[ƙ[fk%*|͆% c`"=-3+ DR:0 EZ|Mh.MJL`f cB+yμ$۵J0j/,0 wbÔ\;Ȥd")@qF&5>PՊȃ0[=(<83rc&hXU4n{2@-ylE'u`ip^?wF~ -ǬGSJpFW c(  2o~K-E.|wQtB,#$>? ZXس @)DŮV%hsrvjs\́`V>].G8~ 6DHT#"h~JH4M f Rंwg?N~O_}82NE{׻>X1+;8_hs185>.F毕a5FrN O ׉@Mʄ/p0jU:YZ{>%yyw]oU$ WjkQ?qHuXB@ 4ӕ+$zRT2EرQxo50OZͣ7>' G?qOAVkrVv雐߾QzF\XcOI;հMh6ΐi KM tP6ϸ;Ԗt82罼;Wa3=Jgpؖ(J6 p;u~jՒ|6m6QV9jkԏ 9 'W7GaNK? &6<)*2p[%2@)FMpepI9~CI>oY"ZBY N"+>a\aѓ4{ sM`lf@697Hf+X`]bk[+P&F4Y|sDARc$./+Vω`G h㕜*\d/]#< u+GӝoԨlCie{ x-24O}/^zy8wQÊ2eX@Fi Zt{9 L AoOn=~|ľ+׮^Ŧѫ(/=|mp;5@ݻx)z< R ӝ[;W r9ӣ-W9Hg..Vb%P8 /Z*p r-T݁_fNoZ &1%$E/ބC ȗHMAuBfrU)^rm`xo,`b뻌j|Ǔ X$ J}$ZƼeAXb|KTUt!ЄWWMxd ;϶:l@>.6 |@X ߅.zeȿȿ$? RH1 <6<ٞ/vu,>TnG= CQ C*>OV(7) /uYvLJJ/ÿA&fLjEumiDkqBNp]wްVpg~mh8LM}bojXvṌS`xȑh.3_fC#pCZM_O(&o օ"C]g aचY78LUg=@.Vu1zvE^ <.bJR1 rM q=&C7hCan L)mAIUnvýv# @n%\h.z32!@Z+VV>48vR )J9Xf V4B ,9ua)|a\{ XZɔZJ˪a_c%K+DW3byv5,IXf-t?AUUZD`d`+Y0C%j[1Xlg v!_RZøܭ*-6xp a; Z[}WC8`Z&+NVt4FFx ,JfX\.TR"4YF'`=σ{p>o$*^98sv;#e7Gm,XeI 4 ,"aM;wn"Kžݺ/zδJx~ev]M ^"W)@LMMVтޗ.QZ8'z[iQr s|x ݔY\z'j>w~fU Ldž.+kU T\*(r: | k䞧!^b}(ZPȇ~/!pŠR-4`طNFG+#XT[µj :C:ptDx)3ʭh6TOKK궫d3y*^xG~ɍU/4dx8lvc<`>RsIcIk%1(K% @%g@2J.jbwLHLiM_GwhH}uK5x:>u_^)T:TN>r%@}F$&B]dBGr`1:A#YخcS?G72vZ)l[&=Z榡Iei),R6U'tRpjll⺱4{j 2!Ƣp2W2 Ҽp)y4nS? cMC߿nysFHIgͦ'Ҭm`KG{a}wʾuԅWPO4f-ͅ5N -R@IIɎMa&tk42=Ζ?fJ><8vf&ʫ5JF*߽7[!H`O`oV%.wX&3SR|R!,6z)k Q4Jwɋ@W#*$&s1:Ae )F`izpd Zl©^'VO[jL2H WCIjd3N_4y1O>.c6KrYu69ʗ[Á/ndmE8Wǰ ~Oq{}\*,WչNmݷZ4֒ٿ៬3co ZRٍ*aPmىl>ril?Waf5ACG2B"'+=JaVb+p&GkPDO@sޛ-;xAEY[aOktrŽVW-_enÈv8ws I[Cw/$ͿFKrTYr =/3]B{t:_*+y}$iŸ_[Enp)n ׿-_Rolt|>swwTMYX H)+#TL9U+I0:Vo}Y0 \ Q mӱB3K\,w`t7T2j!4ة(3W 0Un?W]^B.cqc|)7j.d`ͺ eTJʨM H|ܪ< aM„]:_pp0E6pZY%vIT<u(PcigPlHiZв9츺P߯αdir:0UW ARՓ_ABڋԽ꜔8F&RJD4vE5,s'f$G%*QZQC3E;&{-b}"'2fݾH=A"?9b[1(y !RKl*W$; lj:0 B+U| n1};[pHlu7ӫXا'Aqlendstream endobj 186 0 obj << /Filter /FlateDecode /Length 1014 >> stream xWnGW f@J`87t`S_!$0a AZ{Ӽ+eJuFC!EqW۲7]49Ó:ɤ薪22P'f];j>X$V:ͬQ%kIF29>?RY兹TFߐ2H@I)o]D3Y#JZ*6Q'+9&Fq M C}Aٮ?ROŐ cQj2(G!+] V\wctbih1ʻZ]8Tr%1n)yĸBATo^?di}іMjk +-|VF5:FX<䮼o>,c4Q̻ 4PF94󔇜hn?H$g8YC]HhyVJNI@)`Z:_B䭅R-x'"$[FJ^\!K &Oߍ<2I?Eˍ.1ԻGpp'lg.۳c]DF8Gxe$vppfd\ KȲ-l[K,]F}ntpZI}<l=C:e ݋4gAxGv+acˑ}m<"#V% ?=+g@ģBx.m5Mv2@Mj$spWѪsI\bϳ 뫋e+?GVo{hg?Ӌ'sfU/=?gmp /1FXrf욍ݱ/2H6t̖0C%_oЪ2EٮjN6r+ٲݳڲg$uvN_0oO^&G(y{F~o9KlPk/=߅dv,Gl]"\~Ųj+ao}Ċh6̿k!)!Q{UԷ}{endstream endobj 187 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 480 /Subtype /Image /Width 800 /Length 67019 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( +ίup*޽~X I~z^qA)ԥ} BUEdxJ{Ժ*qݼ )W4=bB9g` 2=4nCfñ񆃨j_֚RdX#ш .XQEsS v /EnQX4M#PHd1 (rA9~uymg *$\󞀜`c@lmX>-ЭuQOD ض05:UċVc젴׵c,k_EmkyLq\֤:ƟۮZT ~@2q}3@]kZ>:_ ԋF3+7F𝖳O\#V p0:+׼{iz\u8[ Q@#]񷇬Mԑ k,cs >a[creAO0ɸmی>Yz7Mrdle$zg:\٢m[]jLR+G`O5K2ʯn[2F0 F'Z:z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( *+-"21y*N'ު wH%@,IgBrמEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPEPh mS_4YΡ!i# #d{]{?m䴓O伳T=OP@#55h~n"G*e`GV^_Q?!_ֳtnuyVSPD54$(Da{iYj:kiPeU1)*0 `Ƌj0 zkt},,5+mbHԭƓB墔A1Ϲr'44uY b n6?^E]?:<EЯ,c F4녞-\K: 53 d c^E;vQ[K[X KO׮O#ثkk={^t똵0E D]C,l0DZ'rEz 6* }ȟ ,k6:+"|z֧a]2}fjNkZ&ۥoĊp#<jqQqD@UFWվ}D%,֮D`EH#Qa[k6>ٷ{[5{IsPߊ)-?y5xFN~krțtcqEukWnAݺ=[Zy.q;GM>^ג__>fҹ6Lf j1efkNX!%:feb38^E7oHwsiv~ .cp0;9>]EՏ5K K._ouR_QEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEaxN|==Bi^H@5xrofn2 @9<`קPaSRQE ((((((43qF(Oa@'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢'7\G$ hZAޛq?.? j+'}zo4OoMƀ5I  >A7֢dO,αwsrI=>Aޛq?.? j+'}zo5@Q@Q@Q@Q@Q@Q@dE]ggmZՓuEp?ٗ^4ѣ%Q5pYVE L“>J*Q܎RkCSEwv n}GVu5|Ǎ.C?Q5*zת\F,m o<OB֯EJY鎔AÌ.U^T#C'}E'Toy3?RfV 9l1%} 5VB~*ϴKBNexl] xM L+6K_ϴhXy 8L}7Yǯ#8Uk7Y*zm)mgz5 EpZm# \N+'ӛtȵTXȨX q/u% ĖTH$=zs:j^"{ }u(³9ZR=9nZEl Z@H"S?|AB*k_84K;"O5Ȁ`_:fт#d՛cof=6f?tO[~Xmm9|0}*~?=[3-A?8kƈic?a䮪֋LOqukxmQ[ )[Nqзzs뻹C1X6@"T;ׅӦg*"c.;/-\VgO02~GћIHB~lőA?gA[g*@"wB^n_<$EJ-[ly.h95cxU79=:m5vz,OkY{kTb x:Jۮhzgxڵ'ş*??jFړmkϹ̯:OOGqQ[XQEQEQEQEQEVO?UխY>,WY[PH2}cl+Bnvcw":tB(G\TXsӖlzl/${?’鬬J |3;nT6Yn1C/PfeR2Rqj4&GB,#Fi'qt=BI ϓn;du2i_6r: -ʢq.%1nIB'؞9A52FO ^󸛊^"*=R b;fn¬&d ~"Qn8&] RY2\+r t¼2Xh^:MgȝZ+,([]Kg 23$jzɟ_5-RN7 qstF|Gy\dwIu{RR&yu:l1\nnJuqؚREÞnζO˫{}ȩqE,* p]8IPӮo/g5.wYA[61۷ 1U1jč )ʆ~9+ɝzܜfSkEy[6/zq{[dIk`:qJ? FsP2bU(lu]OPKHDIdHhʞ @;c*|I~oOZHv=;,Rv$.yv8=Jם]\Ҧ6 8XfwTIRxUUN%Í ,V;Lp;IWmn;W*% A99kAH[ 6#*ڥH;rzfQ&. \GĢ:ӧu{=R}ز3pz=JڎaO^֯4G)ķ".TWgwg,K%G,F#1_vϹIw2^A$pzdzgTLa4WV;M.YOYI)u2jmPjҞ=<>fO<~~uW^t٤1 ?  q2ӿ+]ݹa3vQ5ZXT-r?]EeO@+ 2'Faг\j1M0ͷ5GGOc]&'߭[g<.Кpyն>J9kRUuBb0ְO==)qrn 'SἊ=.g#iV9TfUw~՝- (_CV aHEwVN-T=b,Ғx{ӕTI K\|.z6p.k %18s#<ԓ>kc828_7ì:dpVupniK;)UMfĄc}xjPӭ%N!U c~R jZWk͍X˯v=_lR]IԨz`đVն0cD~lZ j7'iR$1nR4{]Zps;cԺflj[vq=_W-{1Lc#p*"i%j4#yl1k4o \_ie1 9U=Xo! Id 4%>t#qv Wz,.uf'rOֺ8{}~Zy]d0^ sxܭϦ \FuIӀp\Ŵ2KΠ|#=?\qh:m3K 8Qnge9lx2qN>'}.ey OavqEq,Bۺmm%Bg t:z^VuS֪:?ʂWe%}C%X}^đCѾkOyc0cn<*Pbw6xx%Ƅǰ<0;+8f axh"MOKz]K5ůs WOOG<Ϥ|GLt@5sZj39m8MJiY>,WY[VdE]ggm^!.6חs}VKUU|v6U5u>w9-Hz?(<@(((((ȫ׌-Z|Y"^3趠(垅>#^PY+䯖>o>lǷG*I2ELCsk6bx‘6>5Ao:8+cC#ڻFx٧ZWZ~VkL\T#$1=g>ңf-T &>=KÚ݇M6Ev 񃀲pX㌁<o&k.{ Tő/d֋w󷨣Ax76J>bdCcg#pe}_Kwiϵm\&xv[MI#nmusc#8=*xf]6icuf;Y#n p0A#R*pzS#HJzV*%V9\#&;[0aSɧMWNEHtM[8D#n>zwQbv0I՚hcigq%9f?78錃ҺDW vX4?^[YڕIolPx>en꒑!?J11}>/ofѪʹ8yrG3Xֺ֠48%87We3rs+z4=Z:}$M r뵾p:c[adP?vԮ]ZZO-w&Htkt?Sq2kXN7/VsNV(x% [93Nŝ6O,<ɚ cYXVKd^?'s\Εv]Ӧ91sr;TAR{]N Nud!51AUw| nnt q㈆iK)@5Hzl9?'8雷\oF4/Yn]yck0Kﴎ7c5F"6v՟ cc }NfOpNKǰ֭Gm$CEiX$FRGK+*")ff8 V8ir mE1ho>Lw+-sמ^mF=;ó,"M>RރA3OaWy 828^{rp+fҚpqZ}s0U''Ȋy<[<`f?K4KF8۲c_]Ȧ7ƪvBFr8G^[SMOq+l+v~_ ou[U RխRM Np:Ey7QY%[qĶFdE{$IHf*Ax{ HUvZ]J2O?zn2*k zϧۭ*Pr9@=N٨ZU,C_B5 =F+:@*2<[oE j 1#pxQ٣QȊ+ߎ; iH&XUou絗qN;a+z:d8^"5i-vI6l?^G=q׊5oDצo\[t}2&Dse{ly ZG 99\+_~[\(K ;Ij;oo}%յɖa y*I;_l^On&<Gn+%ڕ@q tzv֛5p )JWPce\ :g=NPEÐKcǿJд}64v¬&I<Ls$[\C8 L\Udd?Pv;a=5;;#sj" |eod>:~ oA&wđV) l羊[II$sӠJNfok/M q*"0 5ޣ Zt$Ұp[P5 O >?CO|.g=u j=2MK,RdbCBx$Ն]qVMWЉb Dž] A䝇ޫp\dHR-d1;ydugSգcִ[jdՅԭmn%eQ_ڰ|f2;rH?Nqas 2:`SM&Nq\Mǁ=s+M&c"7t^HVvevvQypGdyM]'uV)\(JM2xܖ#0jiڔ/l`l  u= _t,j8vⴧ_[ 'FP6 [ͩڮy.vNLRfSY NhQNrw=N>k/ג8kȠūW{_J ?4:?x"3Zi Z9Žq=:.rgYܹ6}TS^jߕI/xxoJ6;OvAڂL=zc'C}?ueX̒^#[n7x[i0:wKP1k)GMi D~dZN|Y"^3趭jgxھvѶgּ^cTT6U x\uVʽIǫ|~V5/fJwӂ=C]5p3lA8vqVD 'GIymc?1#u]sX^1:Dڕ]{o3ʪbps\m=>=}=+m_1cf<.;^m~fw}<M;(@QEQEuEkVO?UBi% Bഋw gjoY}o-wӊ59P?[6X?5Ì14[?yynxt54fTm/#4ӘPmּdžu tQpbs: w'f?!Pi\j%V nB88*<ԯN]ݺ:] bWG*H zV<c8>֭KXGXKLT = v8Q}O]2 {Ho,LO^eI53CWEi2߽?f󇖧3ɴ/bV)[Cs*ۓqet!snBנj$yҽ? FKO5sd.-k\d q;ֲա&|Ȝ]@*y?Z䅼$0Ctv28~&ҮYRe-8 ?/[+ HX 6Ѵv"&-Цx?Ҳt$5Ir|ڒh:6rO-ipzsRj=I/BŸRFiiɁ\41<]F6)gTnrI)=<9~8n/ 跲᧴ [{젯Bd<߿0ӌS_dKOS63,e' )J%}9.TA©>Y{t'uΞۂ@voZ<9s{gm/jtbԑ/.4kIR ŬMpr#x Zz#G#g) 䂃9]~ZkrZF7G فJm:Inn}RcmAIzV>\/[-wXgK8x=A{J%+Gr-- 2ҒILҟOƲBRDpYX ZMk1ROW6K}^/|Lx?ć)5;QS^[2wG$Ji$@#ާ ׯb๖݌plIv1ny6ZkEyu?jbKu݆'@9"KkeƜrrO|֬K-0Q'5jWI\LP1ރt02 ǟJ/!!T@EfHW*1U5ķR53‚p+zt&}/KYbƣ#<P^l>։A#K8C-bGvX}R8M3>X2$)eBL8&!8_!i;Uy.xd?HBzIթ;] %q wEnH**.i2Xgg^B5緇XZZ[F:UKkH Jb>=qt.9]6'ӮV5.76d.)n2I+_^[hf.#]@le.:E䪚=oW۹)czch:Kqy y4Q0 =+5kh&8ԣ7pOa{(/ˬ b=FszO xnMVnu)W$y`(@FIA8Ε׷ tijm̅cۭUt|<$1q=+s{Q+ bykkHDy8,OL˜BÊpFA4Pnmv[VK)$ý} }8F<5k ݦƣq*AlHܩ;#FsZ1xtGqoZl3G#jrU<6* 5eSXYmKOKJo!xbc$mw-{,ٱ,#}۠'K:cH]6_8>ƽl6OB.n[hsKVrZ~gVO?UխY>,WY[W!Qկ/+99A1ar#^^'Ǎ:Xoc^^2>gϿsK 5N:4$g֣I#rSsX:yq#_?`w X ,3:1yw%7Q;5pZ8s\مp՜rqT&KsVb1 U)ފА#IEW{ QH?9eT*c#:8U0+i6ކ wڹÖ:ًNݲ,1O~=kn5\VUerxՕ&%t]q\k:2+A}-"!7 x<޴[8 S4ꑦybOڤ>ZqS:ms_b/OZRU} q]IJ"K gkSۨv36X(*EaҪ ٕٿfoL3jWN)r \dPyJf,[;-L̪vFr0d?sҙ{ 5s~ 2!1[{7ʐW8d4O5&[jQZHFP8##"RwV.X 2qK J'k)6LoFMPeۿ5*;l>V.q4."xiexH(0ÓǶk$zݍ? <%̅ l8ֳ4 ]dqn=}iu 1ےG?eZm-Vڈiv?g,.j6px\ʹr0X[vWC!Տ=:vFUhmnZ Ko&x_>2NcS#=\W` FEJR}RVVBlܜ=V0$jVI u<^qp3&.iKG0%i(Ȉ2AQ$11Q3IvA'Z.{F\bޗgD -w:;\a%žɧ؄21bCdAYqs }OםZ#Z[C-S!R{uS͵dJ۾mAowg!Y6;wqڽ 5zt; EWrc7q-kܕz V>U[RFfr#msur%2ٳE``!O]m_őC Z+J(T޸˷EUv^@+.jUzt+K%:|`cR5m\tz_Y>ns0ׯZ ֕V ?Հ:s_g:PJ+ElFNGʭMYpY\m@EyGk.WTn|I*Dcy\Ag&?PNJY߿T}-Y>,WY[VdE]ggm_$}~]]ZgҾKs/ULiw?k+5tƓ{=Mz{9k%? (C ( ( ( ("ren6+X6qHR06F:j+'ş*??j֬ȫ׌-缒3@O)qkXwC@Pi f).6D2UrE8d:Tq^Q1Lͮ5jx*,qg>䒹zYdGz61j\R}YҙjLx -ǘ\z8xq#8 ZNN\&!aakKAS|Cs M(. ݎic=.GC*GrTFiӑzѩLbb9+:\&g PXF2Xd:NQݣw^!.k%E;Bzn~[Ce%l 98,0A15zc_\^=PA;* &f|ON\# .ﯧSxH C**_.@A`C[?Ú%t$VYYF2:JYfG4TE0 \ƷxAGLzW*5i!wp ڕȇiK'q7nG5fջri$`Np[95n#Wh@\O\XxUB! F_Z-}`!b,X2Y1 >q֪]ġt/~q+Vz]l$;Fq/]]/|~n2k&qt>^?dM=UYڗrPČFr:y>N8IGfI^TPщCMϙ-w)k&m-F,U$HgI :Ak'2t**t]Ծn6McA4vms׽fxoƶq8#FJA=qޯe ڰTbWk/?ǯ5{6< 4r̖ycA$rMfrϳ?/'捡98U?Fz],֒,RgkQX4vGkM [-/T>)pARXq;E0\ 9fg޼֍g忞;uF9AJrM^WP@A5jI:<M5ȹ۹݁5-m?Qӯ^.FIʍmqڭ/k#j2\ܸ]+o2q23ƻ ]/mLR^쒏̋HVSLyWWkǻtӟ C#Lr;dc#=+q?P ۻ<$AeL)% IdJ{';==|DV4M.-N6Y^FI0c+J $ ?8 TY NGԝ+bӸm4؋"PO-YZm|Ң6Y7'ʎ6ՕJЗ?.jB,WY[VdE]ggm_z(gg=9ϫ2u#Fy?^^i&4MCvA5Ce,WY[P-B4#^n%圎y^jbnzR۳&y4+ʊ)Ķ94*hn=ZP"< Hy$Y1QRV;ż);3&L >(>\3 եzQ)$'Q" V!*UE^f8^sX+Υ-76sY0N`A lh-]V0L!nH$=3 bskmjVF)J@ s ޾c=ˣ >QˣGIgoވ3"*2x<櫔XDn)<4`_\DV8T6` es]w6ƕտQ<+ W +ٻY)ڧJѡ`ҵ؈yb`RLٰemW,IcdorHv}4$8TBDvsk21o;!o)5iW<7sfh<^ kveXF{\4[9 (A8ڜ5"3swav}<-FԤ.漎)o/dƀ{*L< y5fG}hoc%I88+g}GQL.@Q}VOR__#Y?ݮ77*ԚH9 sִa8.q_{NghHj:xJYҜfՠ nĻU6p@U8Q!,@^TkU_-+߯_z ܱ0ޢ$a߅VIdik{#ĜY&Z fB6<{kŌH_g#Ľ"S*ִԆKsW ù^<=WbmV-&iv,y̖KOkL,Rd\~Tů,WY[VdE]ggm@7RFG:XYX $䅰-/-B ȯ}g:n*˭JY x@o󭸵J6>fbOVw@7Vc鶹VeiT|q|MlyWQ-܌ N3i!xB?AhbRvbnVRj{URX3cHeu< -cDm㊕ v LSg(na*ob쳜OTMܞf Tuf2Q*n0=AlJ9&GXa [Gf|ͥe6;uծt9էZ.r&LG0Wn eH1A wW1B 2< 9rM|e{Vn.=.A% 9VS{ՖRf*+m=67F69kfUNzgԷDel{{ ^xZOUaJQmösJ4V%On=h?36hXjtA"xoˏ\G3r5?ﴘ<±dڼ'=T㶟ŷǩ,Z|w\t*F1KK?P._UNe#qלuomA lq(U9z;e8ioTbKW/-Hm 2}40x"!$rǩ2Ozt=&J\(S`'R2f$Y]czq^rM̏zT0sg5^vH$Q'WbTxG78{S&qe ½XgL[$bo>C$+GU0Zٌc.l(NIIkRImep9r]136cڳBMCEPOOoj<9IXlj`Ӯ O&[Xmw>?zΘ1Քe'd&0 kN ZOhX- `W[Is1 [].qc=9^:6pvG?e^x?}ٯ饌ާ eb^T8Naӭu \qת (x5^嶌E,JJجB4c aE >Nӂ<|iM"}FRɍ`fx}{Se%'sZ5q!N>ٮ{óIg$G,ӽ'r)nyK-sS.1lY ;yE{yCi"Ws%T⾇N9#zG-j~o^jq[cc=9=k[&ybSpGҲ/纛dQ\ОԿۏ8\^Fc=3Xו8SdҌd~ȫ׌-Z|Y"^3趯=2GVvoʍyK$LxwT?/k[o@5d.#QE8QEQEQEQEQEVO?UխY>,WY[PHo_re8S,^*8]ywP)x<OrwZZ/PLɊ7ϒP2" 2^HǗÂNb?A bE5{nW)-uX,cin$Y@:\d6H4K'ݴJ1>* 4ms[P}f2;go*waϋf㸵m@T!g(Rq{zҊ%Co(*֧;  TfiYʎ+ܺZ=O%kpQ>^jomc- ̿6185jL](=wg݋F9EXc6;=2KO5K9 d#8zxŅı}r5U9bP'8>;-,V6O^N-U`{ QN-U|?1%->fd7[̘NÞ=9BAuH5}%-&h@wE sׯ!ӊ ڣXV$dbedw\!|NMS}蟯ueX5Q~Io9BG~gр@0cy~׌ֈleק2gh$>eH_?U9uF{6ւXJr&F d',=Uןnp.LSlƷY!KX&0wm,w'$Cwy=Ԧ0 N=oQMO66-y% ZzwtRBɀu&OeKx]w#LuzCyx% 7t#=rW!k$t]hy?-une^]?>c>0񯩧.ozKSM]QY!HZZa"/vg Q ү,WY[P,eN"ӀsV-G䬎>^]*I+M>鶬hC&9xҭm l:<2kYM*;dbnqՌl; WA=9/,n ְ%Vb3ڲSl5l` jhVK8t)lo"Oz`npilXd?L2B֦E 3G[ : ˝+t$@YIQJm`5f2d#V0I~J pI %vs_kjJ޿Imƥ'x=-H`ٙۗ|V!qu[FVVEʣ{UiT9# h~TPOnsPhSE>K 9sjAT+`BG·al{madC} |BqSLʹT=xkUK1v RL{\MlZww=K栚8:Vnk%KZ$ |MYnpg58>2ҪkR884okH{'hskWyN]-ڶꄇ-s׶3gID[z!\4wcdiPIc>5>ڢ%vCL)ӌMi{nIO)W ۑ`yzS=%ۻ$vh˙W ҃q-jII9T#yY(%Mu1 &5"5u8x-ecnFH#.nO~%/m&\zZƿ8򯣞'xF ?)($#Ї/-"Q:xT8˱ndonQc MK}R`"Fp5E# vA}&m&ҾjK+.;/ZI+^Oq}{R2E3=Z4sF@=? '}XƦ,.dgR(. 39U ϯ~׳̔h{4Ca֮zػ È`n8ETIeU[-\JBe7g罙5{7W[!*O \oڮ. eI=q=j$r+┴{wZ[ژU9PMJlyA<`jH eN:/}Q馗/@bBQdYӽtZULFBkVHH*pke'*2O>ȫ׌-Z|Y"^3趯=Rњfh|<jP)sU9[70j_V/Sy+# zMs&gx n|?CKiu$+}OZfDdObPr;f+F((676Q. xDQ͗0(YaC$𴍏:,c~pF8ByG5Z- R,lQG,U}FI#օ=( }ҶHi2p 8TV͝3+Un-~:ޣ8Q常H.ê4UO` zmז W2D!\glǁ3Z|Y"^3趭jO ã̎ 84Hrc'=jL `:{UgP 7J6wd+5n4!TzUBƯIRlr\Rj4iWK29cN󾤵.:U$搶SRlpphl'PMJ*j*x\mhMjzDgKZ$ڭĬzV-=yf2@m~]x*+GFUQj7/4Z<ѭ;'Rvֹ{UM}@?Oz¤e(]ȞԒi[f)מj IapфwdA⦾a|r0??@N4(b2:WJVw+Xۣ$#J *;Ҥx-CWdqlD,B='&]4 kb`w*23VmJK{kidHPrA\c_jʳZYCo-1g<`z}kׅ('f֗EZqז3[NUy%YNjOl1Ƥzu-N6E>C c]f!d]*aAQAu5\;mZpb!?: icxP GHxհ09/j+|3vdUpsdLݴֿ&FT2[HMJ a@3SĘ\U@;S'$Tn2蕏sU`\zītXB簧NaOz;$SьVv1Nsz6X8:ۻ`X@۾ _nH.w.b  =Ȯe-{2ܮ| ޞ|]&xӮȡ2wsqpnmYY^8 w9\IrԶPDf VHݜE#ozm13Z:=Hg㧵Q{R:ѯNn-4q׳0:4񺥵d`.F c5(C)FnƝo#pJ MJ6jib$ppÁYK!Qaw=/w.6Z|.wMΑZ*ʬֻwH{䶣#'N?!q{%cQtyIJ.Dw!1EKXbim%܌k&$v]$;)eAw{ mي  <.$~L[BrLq N{+NmJiW`aX-`i$RE_eEޙ{+Ii" Dr3q_xzޫGÙM֩]KPK-dY:W?_ӵl<7o'Ovi.zYҼIoYKu kt2pO@ꗥmf8iD{ܬ={=UEM7멤$9]9_vPΓFX '{p5-7t{kyM/GI`pw0'O$g;曤kWh3dO9\)j:?g.˷y<֞3 o_<54WB(v8sZ@\# PSiZ~(&JuO$r{gS_Iemhע aDcMqaI#wp%gx6r(ynsR /gR8YXһwn.b srCC.evnJw0ڻ)fov]e.Zz fn#뎵JYb`ȧnwdP 99V eSWz3J^gyܚBNkRJ`T1H,\Z#˹*3϶rXz Ŀ 8YT[rxejԥCSg}yNS%ngn}Y>,WY[VdE]ggm_{<њfhxjQ{TI]q>#?Oj/k,ybK.h(;Š((nݡTn)Z6H#?Қ8OChOW1n̆QGwשvc<˻*|LZ-ڠfџɐʺrXv뎾-cz((|Y"^3趭jgxڀ<HtD7zghлwʊڄ fFr1tf,rrO֣0Fz޲Oݝ4 0,oJ2E\8梛is V)H#-l@b*hf| GLx;UEh>D6#%c/]B\ ꝧcC  }g#qϥy\Y;TW1B z ;iX / c=(QJ@"OOCRF5=YAيԘ4mH\[ϥg)65]4~.UuG1UPJOwb&eJӃT,/"5Fb{wjk6-iA2z:֔=Z)E]"MKNI 'B ѓ=01'(c V2N1>O?gܡC] ӡUwgVN;2fP1Y\#ڽ֭ Nz$%R:U49}}Fy@q׋Nk۹PE O=VvK380+*&-Is{^`ng Giix4R03M8'ObV-]$a޾:ҽw"Y3r͎RA? #8AG,s3ƂB.u浄{(|O8Q-$dd?@s{5[W#5;ssnք\D@p=Uc]ƭ$_gl *zt5;V Oٳqj=0Fqy8⧳mk10(sag*s=쾰/gwwF)CS[(r]+Wm6VV_:PVXn 0F1wG-_xU#@b=s si3я|7^M 0e+.~gBWL~Ur>26nPg׷V|mvCiJ?|hZ_8ԴϳJ6?"!AO_VEl[ p"]1OZ.|Gu/u!܍ƛZܵTUl O;$FXKKy6,@:Ʒ4Iۅ9w*IlI dǦ(Ie-|goU=EL;ZuVRUN}s^J%G!Jމ6 ̥;wT=g5wPWIk˫Lf`8dqEpb3:Tk7uةxF+;=F}.Td,eHTt uK=_LvǨn rmFzy_,[-+k緹0jl)fZlwwRo),kFO?(~gjw?=xNQv0u KE/-#eK;AN>9 {KQӳ`֝=ۈ jb9^j~|ջ۷ sRRV~_NI`g !d`NY7Z2΄Ԯ馒id0>V퍱#vŋ Wr"EusIn.H4]YJ}IJ2V8VNOamKAK{ K;gf:)Zi8c)7mW{EdE]ggmZՓuE|fnh34fG{RSzKk ^ǔrsB^QEgQEQEQEQEQEuEkVO?U]b~gswYMx'd"6MA-Gݷtrn9yLPDtpIsU.=s]އ)iD@I=qQ(&)IkHA]JF[gxw4+CTg  Ԛ%;hsP8>K6-X-O@$}+3 X+{>YXŠ9roEA=o[k3I Ԣ%BKyp *sOi=}c.ZBYN;?,w5m_ZkXagC<<?=kN2/:۹ciwo$Jϭ--Csη]%K~F#i ˁ!݀πM}L:sv<*59aMjUM8]Ɇk^ݷF7c;IaksBHp!t5[O􋆂E3 A,WY[W}ɏ3Ld~wJ^ ?!Կ_Q{B-r^G9sS+h^kR(e*$sͿ-uIy*n~lÎ ޺zɻƨu+iB #XYUsdAXu=.a-Ē+z6|-&vkB2(F`P# dּ _xW˖DqKo4G-ٗʎFgg'exzkuM%R'Y$,B Œ9 +LРnUaĭg; X`sZNڡy|Etxı:SX:!6e`Gw`OjW+ig + '皜\29sҫ@G6Bw˟º2eM d:{bT8=Fc{4aKM;\\Bʀϭ<)^Ү[ 8JsJ:Ԫ] խM6,@jpv皱'y8*STr19=I?Z8j۸ $$cJPXiv!U>k--V0`zUk5ɉYppy q{qv p*+޵DR[D5*J]$]`O jχ%h7NrKԂ2}Fq|=+*H^ض5ɒM'Y̎MG8>э|ooi}? *b%M5Wl ְC{ol!y1#,p;Ws;xb)S q~-좒St#PQSQ̪u_̢ciLwct7MxBH9ܹ:n){'V1L8á#l(>n`䌜{k5GvtJ:\ et Xubu$gvzg?5SOvoݦ@`p}?Y7HNڪf+H\Z?gv˕a8of淞II!g1zcH<6JG玄wAԡ_ܐK&I )Ӟ&xJ^έ烈dbpÒN;I4 gyA ^0Ųrk.k'0=ў!}ҷW8u[Et6J kq[ 0IlO 6@WJ*Wl95J^FNqМ9VBha+! hEY"a.!ld]~F}q_Cq{uϕ/gY܋Q_-(N_sB.r1G}̐7gzAT ={-sowu,\͏_STK+^)KZFFN}x*4벭& 4ILքCk'ş*??j֬ȫ׌-只9J7*z7׿~mE>t=GzZ-q˴ M7$}NBJ~ ( ( ( ( ( ( gxڵ'ş*??j_g;Ə$r1ִ -7gҳNkpP)rywIF/a8u%>xQҩV)HHiR% dTcM5bo@cګje~L32Քb x5QV::h,rQEpcxPЌԩ:.qn2vcNU=%>RvkvG'!Dkix͑;s(/%}劀F?0xV꺻=~O5m'VSF7CVqPEW\6I,ST{mS߆{ϮGBG3k7ْSp`DX?1 )okAPJ[1ehT O,ysC#n$eYcTgZ_Xv_ Mw`'Kcd2ϯڱ$ԊpzCm%B X&eHT㞼t8ڲ{:L'/C)A=+88OCTylG.`d8,qdʺV&śE ոz j82i2lps+9rSy3R[2b1=jѮXs8]H^Q7tt)4`vBNde.^BwVd.pSt9]Tb{#WI?t,{&+Lj ̸*2F9 W .sZ6W/i2s࣊sΛEV;4mTӮdD<یiFڝ'A5iG.β\tVoI HUUpLE矻6YG:`W>,Ž}M^ #`n8䧻<\eY%ݨs;yWMW\}m#e]&H2)'8cI3,\c\{_>bn+1a3ҷmQV+sR K>D#@RWjTd9)P#HYA,rՓur3lTw*bI5M:JV斬 \f2wgQG'3ʦ 9]2ӡ};{Ջrx?ΨZ?[hR/|cҼCPgUM4cGn}{f=?$#7GPO5þ8ѳɿyjW; H=׷0H3T⪘6fnMN's\YvքKm#UWTW^CaN6E-*{ؤ# @5Y(mZǫTB6K"Bn"G$FyS9 3ʋqOnڽ:$ӶոkֶP,$THCzC+*L%-QϟԚ^cO!B:wu./SDvj& icdw,ja nL:c{dVWQc >ǿ3n?زfj0XH=\?λ?vs)UMjV7p0G8 "ȕqZ{[KO12 >bppx+ѼOi 9xJ$dgm:MzTSKfnRRwf:دhS!X(SeUe̵!ErAmI9Y1Jzv9&LjAv>-;}ZӅnҹEpV0j0>n=±>O5z%bO9K ,^sqBP2Oofr<żI @ #F(}+$]֧m){RxU8*[oGV$s(,'#bXyfQ]GGR(s2 X#i#E{4rPS^ԯUc!=(jSm5k7rt+enM9XU'n榢NGF&Z,OCj;`IzϷKrx5i:t!C@=3OT ި)ʺfV|R2{~z7ADTC dgY70bN1zǏ:ӯ+he\_Fݗ*k6[If';Z7up8VԭB$F=k8W̓59edq^x[U"VR-[9МTLӾ>{ַ$Ѹ:ζ"eZ/N' p:ѹ?*^Y=3|{s1"kZvg)]q\}h[h{dVrcXv|5 R}R@@;)9銿<֕/֭NI(b< 4ƀsZiHs⺣WC5fm,9*)#'59LjsxFcE@gVtxRDkCsLXXkPNqOKQ@WKon3#H>t;Gi-,8FG<O4j1a]B\&c*ekIQIҭmh.QE,z|t<Ѫ4R (P֬z&3o|u5RMgvT $+0xaqMߙ-)bhi=Jl2$`zTaHZqR)F}$yФo䶈hOZ.l=kWuHO yd1nnLB0qy ^'wzt%BHwБiX&&Aǻr:=γ=z=i%٤]OQ/m_wFSZZgxڵ'ş*??j=c<<ʫFM}!>t˱L_A5]FgoGfӏ{y\m zRKm- ksq:Afcڬ%h\[G)+:P}#?S^]㕭JMn#h2J.}zƻoo}HI:w'# nh]Q)´\Sȃ,`O՛%ec4eV9SUW-ٽ*6V5]:d"{ myspNF0~ sXjMwS*j:ys ˍr{}u?a'_B0T1 rcgQg-D@\R@~X.mM,׀4xyM$ko2S<! 1>GP Sj]A:ʒ9 =I'8(}?_>RNQʋ#E%@k2Nҵ87$rqګ 7YײC*U3m}gd" 9YF,BːsGOF^q~ߑWr3k9u࿜<ک!zx^OV ~Ei$I6mP9ĸ?8hϋo+ɫ>F[)|yl6Cl884; V1?6Jg6 jrj.<ɞ,H:tkes+g]^)5gV| SOCN2yQcb]0H#?~ g\e{Hѷ޴ <XpL#<ְJ:{܂U%Ҷ1uz۸mY6 wkԕ'q*c+#K 1g=434t?ɭuK#Fy#YWVpѡxkOsY0dW6UsL2kbD.ҳ\(:!=kvkcIRv3Jжl?R]S]X)tb&xJ9kUTJP0PsO+iR:h_ML%b Rҝ;rJebsҥ3YsT f@?cȺSI3gPO0' !v⩬sIswkҙHLi" ;lzwb۲yϱnmA>Njv9c\@QZMMlsԄK5~׷֮G or2kQw{ӧw#2 tHs?jvx6`HnvUR1pz?8^ (PG>sx8)Ac:ԾASTFV WֻNXs{NӃ_)­YSi^(>JIZPӚuvv6uNK)ozi];? ?Zȳ. }qZPGgLOlRMx'ҹbRsvHcqUn+ͺ˳|8e=5籥<5z)LS.~b:̤T}keIj{q&q'?Zdӕ7zz|eճڋ̇Vnb\4_qgj`mYT ogmM(_Rۋ 2>SpF?JɚDPZWBfgC*'1U* \9PO5[NJE$o4>*W8-{u+;HON# Ry5q!ꤏƭ۔ J@IyPB p+)(£r1Cv;EۜgUwM )vfݘEkA\ p1וZ?hV8Wv/~2Gc;v&qnp;оggm5qn?|;0:ZBCռ?aۼ>= pUwreoUzvA, 1q?JkNY{EoI&[0Ʃk .![RjNT讎j7,>i:>JI €~lLu q?xs99v?1Ӟ(VUAoNFDj]Y͸Fl$R[ȸy&Ue?ַOaңmZx:sBimbYOe R%('PG dꜷW=ɫ a?gLhXkha6OKFC&9G*GS +F)hi'郒͠>#$`jCfSMaKh\2l߶kVV?,ulMHrTNnN =:{OR63EnSێ\ @ {U;oד[ QZzn}SAufߕ';{ WOߡ(zJdYIp:NG[t]v(N2)ǟүGf\*I"g]݊ufI 5Yl$f+ O"JUc$瓚0Wl /zSNDf=LR43[&ͣ8"{V=RBtasVяAGESq#5%1ڒ)ZЩ (lsZQ̲OJwǖ1e:8>j&YFr3\sJH\UIo$P}Ml[ ^ ۻ>VRFJ$s9VBYHEUOI`{&Hv{Uҭf]˰IqT tSpOYt~Xu9=COۧ1ꐹuMj=!9+>ǸVO?UխY>,WY[W[oU_3G'k7Oʾ$OkjنVL((((((ȫ׌-Z|Y"^3趠ʅݣq=jYl0J{2N3V͋[IϮ+ߥ*UPϊ*v\Ry#$Eg?Ҫ W;sQȄ0#?JhVĜw5Ұ:c{4RdP bCIh01?8DoZƉ!=xO`n{T Wn7x#k $ TRl<*qr?J U?4$#Gȭ-e8; jAh\F;5ջwURQHebvFA.p:iCʓU1q~̜K%fmJ#_w9C]dќ~'*¾^iJJQo}36i: WC&,jvItP6d +ܧV7!>Cwgiv3Zɏ@*60*N;(H՚H,wGEJOd$.ö'SrWܥZ,Mt VK p3rH;)%T`9=1N+gm~&)- *E溸u+H—omPp0I߭;ՙl#W.&§g4Ʈ? oHm8X3~kpEڴ;dfYy 7NKcRH5 Esf<2sq1S MkSѹ4;s腖!6?) I]> Ž)? Hb޽9ֽƄb|Ý_˜楊W}()8 o[.vcMo(|Ӟ;z^n+% _6OݎutĪy'GըgzXcIZћ@x95uԫ+]#*thR=*jt ǏRy?SYVd8?AވζtwakAT{KV`'ڥHmEi*Y&s&]u<:l& zμZ:tT =}Y-j<n3,x!64mtہcQ`Hǿ֔šiG[!·tr֕z^i2fR!U?kdrC|g=qFV'ҳV2dl uh>pV;}Fg( ųyڮIѾf?\LsGں6|9KlNܕoU̓ީ)L_y6bjv(eq$ OAm!Mڭ 5Vק-MY,uר犯%H_¡v:ד.*s` 5j'*-}}WO7'dlm5K(y6r.sTo&M&2+A <~S]4GcQ']r }K{^6ytWM ٯ>hFmRȫ׌-Z|Y"^3趯C77fh~̎+|t$o鯡~ѯ7Mf[?wGٚTs̶ ߂$fTu+tϷZYؤ.hgȬ z}_>s!dyimf$F ڎݸ+ ޤa|WaMQE((+'ş*??j֬ȫ׌-?}%XU(eW nU=?JCQnd:T0wb ?yʏC`TE<rǁ)鬤s&z|KɼSb> / 6  Htl(K*Ao rH 5;@eM6eLrH?nW_Vڜ?/'E<nmIvGgbIXX #i!;%el,Ws$9ܜuϧ=HҜ0ک+ɩXuwSpvU,IFgJl?&rDyõ\{E0 #@{UʤFgFvhhU@ qX77hP+fkZKD/ j!N1KV8Ku{iU iVn&`CO"zl/#ްm3i %9=z'8%_NkԕJVJI/_8FU%v-7ɐKzfԮdSE;V598Gכ@H]׈wcXnm}G `A*cm\_K; (bHT:( ̓Ofu&e=*J+$_r~s$j#~QӞkZi#EfPA>[ߙ ֌ַ4ngĻmr5bqAqܺETDxt/f4 YCJ%&fxGZ<Ϊ$z*Qv2t[,0gJ@6g.ױ 8&c,%,[)q&ֹC{Q=eKa$l];3~D7^tƏ*;CZŷryCUQZ*d&&{jMߞ&RKBKSJ bM7jO3Q JDsoz7Eic([%NTl&ᙆZHQsI 6皙$ o\Y5}dM&I 0Mgci服$cӥC2H/0YČ6N2:|qq*nG̥d^]@jMǖFy=4wo[ˋ8{?^EK}Ԑ;ڴKw1uW =w;ZjHTx0˜7~CCkѻps'ȥOʤ@=*U)F 'KkT7AHEU*SIU?q-m|Sȫ׌-Z|Y"^3趯xFi5HvC_NW2o3^=mO`:eL l׮F9z 3j }$$&JA"{HHbN|*  H5~ak I$X'8\ EQEQEQEVO?UխY>,WY[PrnxA}/q(cwE|sǥ;/6P~Fƭ/}*T$SF?ϭȖOs&A\nǛ(1TJj*FδI3w#W85~Jbs?Ʋs솲ӌiN`єfoC6h.M3?R}: _/7ԥٗ?SnG*>ץAyM%sUk֏ʡq=M!Tch!<5NQ( Q}SDўX~g4ϥGs_-tk{{VcHnGorがz~񊁯~pM'Ma5Xd).**ZC!#cJѤ,P敷7R#xlwµǙ  ځ*})LrxҴL6aejR>a2#rݫ`ҚBt~UJ~E{FQ,#W5:4'j~E{id1 zhE|CcG+dr8yrO,wڃKP1lV;Қ!=}JB܊F$V)<^#L9BK5<{^Y/Yo.e51I7djgKn`qڕ))zO*oC'ş*??j֬ȫ׌-O4f4fǜ9ky}+Gy4EWhQEQEQEQEQEɢx)dE*!;}ƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEr,">"k;dC#FOkKoGbʲS*Ur9>2 $G#4+ZcA&h??j('oG1MHµ F4i Qƃ@M7# ֢2 $YtHUMOU@y9@G#FΊnBFJpH@h??oGEd1MHF4i Vƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEr'iafGKTHBAcA&isL$R)WG S'oG1MHµ F4i Qƃ@M7# ֢2 $G#4+ZcA&h??j('oG1MHµ_'ޓ,>$Yj( $Z_h??8b(Qc5 @; }d1MHF4i Vƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEd1MH³|=k Z]OvJ Z8S"8TH$OԒI4ƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEd1MHF4i Vƃ@M7# ? $ZP/o#%eCj1~B $Zb(ĭ(EgH 'oG1MHµ F4i Qƃ@M7# ֢2 $G#4+ZcA&h??j('oGqx!&fAj$<1dfa3*QLU@>ƃ@M7# ? $ZPO#4(cA&kQ@?h??oGEɢx)dE*!;}ƃ@M7# ? $ZPO#4+Z((((((((((jwZN=͝8 "2Kr='ۨe NpF88?ef{ZI&눝'ypXcb o[S$VȼBBnqzzW_LѬa`Lm <*]_O[ba<32Ky.4;ǽ(Cs35Z0(Nr1tTQE!Q@Q@Q@u+mKkWF'Ԓx=+=cQVmc7Nң4j@ ,cY'͸@vaMQZyehmdY]6WB J]??!ķs}(8,R%+gR7sۊуa\ZXKE=Xis )ׂyTͅṆ/&Ȓg,FA<)0+yƇxtnfwcF iF2x4/0gEEPEPEPEPX?->$g#t7~OsY.myc;fB1Ҁ1-V(MŌ!ScH$^@9ⴴ׽R9"uh}iASpG cb!UxkKGKu?Đ.wd,xM=QE ( ( (2/K}kOVI.gf@9#^Pd bw7gzUFK6dd k9 n{R]2[x{{f`Җ 0ɷN: 7w6kH\Ԇ+HbCMOkkc)+0 m;QFQ?gXW;"G; 6K tOۜpq΋ c ė1B!Ç}݂6Ӟ9: -> stream x흋UuNXB"JIڙLTOg&23ɦClqHØ,9{=нF߳^{][D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D-&D/Fm,SVߏhpm$;E 7+;Bnߘ> VL1ܺ|oo%676V#U: 6s_߈sK*2ׇ,T/oߘt{˯tp EU |BnJڀQ0_E vksSRYVRexۙ]/ U(+Y^5vα*E\ΩYQ8$1қTB|ͮ/3I&SӘ[}x8Ob6916V Jb-^ksNJ];sQ5-v0'1OIhֹ6kKx|شq*f.Y/x?sZ5|o+.M|}(ѺsNwN67W p[m"gRfDu?ULy|xIm1|xmīnu⒬-YQ򇼜3^BZP]-cz5_G|?W^S(67 *qsy߻w]{/-_6_bLQ[r?mŷ+KS~n_]u{}-{h坰 dzDL.߂*enߓcӺ>x Wm?w&|KBk*<|GZD_}3_޽/.g]z䞿߉jkUz|K\eY(}T#A##zQڠF|q#z8ӯS|5^E֋N;8([ StxrS}(ki⹁_3hڅރ7keL_}k+'/TGx};o-!}{"6 1YzWWW0Z %_ÇGӧ|{'<໺j 4Єۏx|}mow4ʏh^C޽{[ի-XaܳKr\mS:+|C\oӬi4R.eb1^A[Dt,]O#i}|A=!X>j&U5 &x֭WW?Ժoݺ~B75/U]qWh XTo(4whp'b]|Akא댗hS|xU1* pdeQn f i_ܬC(kX"k@s ^Z!\`߃  1^ׄ)׳u˗[荪8|Dѣ"{mBW ޫWqU~-ʰFx<[^(nWs#mw oq/-_e\KW ./3+ī-*C8n_wbﯶ?@2R^ K/֋KHY e8yסE^4Wlʄw[W۝oUX p})Ee,TqKK%Xl-;fa}ň 0BٴZ잝Fe6[90KP,#C(U:t9eW?`a<wF) ?*\˘--m[[ Ef?d@^d2S%D=<> nQ uz4,+XH]ޞ|:"ٚb;o,"piK ׀ΡrϞM 8,=N{}ܳ)X[\.kS-3r ,(e PFJ5 Dynaa\ydwXXgGˠzX\@J߽uK7>ī.z|oV`߈߼bT |*L&;77|qwEXX@% ,&D7CN^.-P>ЬXs`JhqLjcf5*KjYl&8Gx:7gNk^]o:@)uuYZX+8Ћ _Es:uj_}Cy#% u88T&j@j$spIܜӧN1GXX@iWZ?'!'^R}4D`=Y}ڀOŠ&㛦-X³d睩A…ѮO̘ͮ .{ 'KLmy } N΁K`ڍo JkA.QC5fr* 33c jռ~v֝6xїs Лdi =n"3:eL)Ϯۉ*[o!BK,Y^ 'b@0YWtSS4/!Y▯Yq?ZW9 ZՀ5Y<3÷'^BsKMiSS0ۇo*%Bвs=<=M̥.pj?~|fFiP8&4_0XKw S8х&&ccc÷niPp*6!x)jbbYM+EL`A.Iw`{P.<= ip6ċ?Çq4_9G3j ʙ\41y೗Ofh~Lce#nǬ5b#hDlj/C@8^ ĚY:'aR7b; $ssDh?P'/$Y.c*&&FGGޱQ;>Nh|0ΐE|3Ek&:>>7:^˲1պɃ͎(2;\R`E⫋HEevꤩ?!q,Q4J;!F}3<9)WnU\=GG Q㞵 p|!܎|T.@ytMnihS OcрbDJccxq͔HTZ o^xc^CLq;e%ZwǷA|R~|pmtzBmrK(sc`(Uc0~t1XlkD\!b|/fҟkG'|ȶ0 NMa E!6sErR C Jbccáp΃G"Xx/v@|]  Vf5L|YlGy Rz+]ܜ 8 Yt!ϔpҨ5Qw$42xZœxpd#0?GCv:͑#@ۏotK6cuq4]nKRTL܈Bw7@]sx T"`*p(̛%?;6_<۱3mFӦsV!FzCVSNLP6Uo?fRۯL<7h?#ÊBa?Cۉ© {տO:cѾ|4S7SnHv `3m]20Ws5X‹1,ޡA,cDk]x%qJex돀|9vE5|y;0^.m]Np IA 9ƒn!ͩSy}GgY`r49No E,g?lZےo@!3Sd:x4yG ;7׎1؅\ Mxv;q&t)CQZ!áZ<Px}vm <]0_hC^힏+K ay Ow& 't ႩSZaX\Dv{{aMOݵՖksBŽK?+tjكx d7ܳc8t ;7aB볞x(;Tp5,CCcX`w^ w9+4ZmP=`4. QlG=1~#͸m|S 9rf97gFUA[4Y,'%/qj6t@IDӳ eI53W^KZk\^vNexۇo];Lc,0Mo盉-N]j xܔ]BjYۻ.Xvvu| oOOq:ᢼ.SXuܭoZOd[7&"^tړGVM0] 3&8bH)Bfw^.]evw^X.㻟"GEe|_8s0FlP0֔Yۻ;KsJ&vGU7 {*Z*.lTwWΝ;_&gUgzM=J3B)VEM嘃?#Vg Tu~DXx4o@S~mP@ɰ,]ԛ ˌ _fc\[ )?x9H'C/.K3Ьu;d~2ëo]nЯ%{\Mlx@x0[=^ q!sScߢ+Z|McjAvĺ)ߙBTxi7V_]}3gL]i.åu?-x_y窻nbQr8P=fs|5a;Fxzx1j5۶v*T;^_i=i'n@mj`6~Kq~ٰ-7o1_h *S&Dgc0L夁s~AGif])WRY8Dm>_|,޿}/영2[aGBQLA74|6kBU<7GH5c &u.n Y)SU8 kr ! xCsv_l k<|8+6C7[E|p/%(051 i 14NMqzajzm!vK]L:{xUH0Qa#YM84ٴ˦ CxR}LXyKڍAov b^!3KSYz%Ɣ3ӐQk*V23է7iFd ܊bmxqRhOAO|xP omxuay^]F-)| ^ |Vܩ#`cR 5^ Rc[ވ3hM|//E'O _N"+m3'G7Ym5߄ :Px cF*IaUquqTk..4@HfH'Hi.{~` m&Jv~Ry> ` r6_SfgaH7~/Ye0#f/}4EX?/-Up!\nHyȚU:_!L 9U%k36־q*;XMl ܤBM<9M\[okiL}U ؠ1_2śQO@`eu|ɵ;3ox& |cuB@x_"xx,^RKW+_DXzyHcdR3?tx˾ *Mlv޴.ռ][/Ѹf[}IaK*"8=āvLZH:(j̕Bo>|/qdr  3ztw]ڹcv mWU}ZYRwqE=xpJﲊDocކk&8|7>l#Z9g ў޷όJŶE">,- E ?U/ɣ8Lw4~j+ɷnw,|M vF>3b}YM;n0׌ia0Mx߫WٟZLƫFK6׉To{9_oJ≞^ l&wF "[uxoLo:L&i3-3@Sjaqr*Ð/P |R2hgZ^Vɦ&va_~4ϣk1.%7Ƌi {iYA۩Ev38oZzr=vyIm+_b t@*nއ!|xv 2 _̈ \ɴV\h. ~&fhy믶Ev|}e.|9&U/?t^ {c<*4!\v/LCCT 'X9̯uˠa~RdySasL%uL7G=:IeѾ|yT>jIs׌*6n1 ZGOk.ZUmW}Kzgo| yƬWF ^Ew?M|X1ÎY׉^瞁|uKj[<6o_{^_%SΛoy??da /qgxeH}mYVrKڿ-Uos^? Т^|i\[x-_Y=/]-~瞵N;E,@*-K]'U-R[4anZh\&pvX7ZX̨i(6~i«]}/ff|joyTmh| ;bY}.xymY&=icq6ٻ!k>튷IF){lGu+OQ@]]oMpox ڎ_ aؤ?N_=~6 񲇶9,0`zm^jjp2 -ܖM-}8K"5dlV/d +$-ЄHI`=_M8 ~h*v'.*tۍo)խE}Un=X z= 1V?(O="bmxbcu$>`(چ=ucFi&u_^F7.&dž0ݕ=:wY'mGޚ a$ѫVǖo $4qd[/q/[}oUhE/P< \uD&x9Cfm%RmKl+bQ, : ք#U^e Cv#᢯QdT~U !cRnRn1xm*˼%<`~ӎ: JGQ'ލo܇=5Alxkx$F p{r EY;gE7ZdXMM5m5+7֎MA7'sI1!vl,Vk]#*GW+fT,#: .0`r)#6"4@R2mmO,\,R}G58e~t0+ן_&R_"m!f"S{_ 1tfLe/Rڤ jbhA.Q6*+^1>?sM bh74xՃ}<%n'ۯRPmzZ$t3S{+Μ"HϣuC7߃x7'˳-T6׋.TrUxhכTʌ_}XRl 5N*C>4]ke/U0KoXoi펷Yz/Iҟ|/8Zpwuբ8~ln ΅DiFNvUr^Ԓ{X?7HδdY7v.'k}.cc_dOYpV:/%}DC Ůci?τ0sȸ#\3}+%FjnwAyŕC#rຘkJ)ޞ,vR ϥGe5>6KM.c?&lJ{)srl+53yirwb{+ż׫Q:vCppKwog']$:(t?e Sً@ sKPhY7m4sSP2Y/hmOe5IƲ"ƛD"q&Tڍh]YJ,% hmo^Wc2._"vav\\{)4 ˨ ^w,/5*/T80 /M'={*u)4d MO?2ǒ^phnʼ\R2En*⃋aOu՛PV# k3[YDʸ+V v|L\HmdN2\DR=^a2Z'}"?J [|ɥ,fjpt\rMI% sMBjܪ|*] a;|nRxqeU+ 5ׂ^x*Z!~UR˷ڒ x/¦ ;*uj6_]V7[)3.ٱjk\e=oعHY;}pf\|u2T\9Zw ? ig\~U! ؔU"O"GQrFs"Y?g; VGsa' ?JIm[ulYUVU%Ua٧Q{1z{f|) />>щU"px;Sa}Fo6Ak'U<]/^>#|M囋8ٳƆ4^ί|vw K*9•tMgw2]|ygo|s@9Zk$NڶUׯ{pW9bqPqOQ 8QXM&9yvغpy#-BȺ˔LKRKl7]hCUKQ-# oj˥ST2M4 X iJy`WmIEIݳRVg=7+l7IEQ΅WsVj4kX:p\؜0={b0UC 8u$u\1|.W ^l*7h74:N~pQ.y\iek <4m< `\z o|_$wR^ Y|# bc)ak?LLq(!nT٢Y+ޘX b*;⦕E i^Sl-?8Q 8p*+hby\mʠ;?߄f  BDn?"_ڜ|C#5J~P5<&T~mY<^eJ:5?}Mkڌ M"VțJ.<^aӾ| Lk~x,'d ,m7勿$—{xcjrz|be3 o;\Q„aZ7JBDm9>~EIw|1ݩu֍ AS0ߓ·3~;FXfT7cix m(?0? ^·lo:B)?$.H$D"H$D"H$D"H$D"H$D"H$zʶZ]m[~;osovuwۻ{={۷}} >|h166~ıcǏOMMOΞ:uٳ-.?+W^~oZYY]曧OhWm$hϪoRfO'ڰWóZ:H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D"H$D[endstream endobj 189 0 obj << /Filter /FlateDecode /Length 765 >> stream xUMo@W8K~#zAZ̩p򥠤nZA=݀QNǛV@gxwɥB mݷbxwM#uYU3ʈfWH[6_#hj͢7e5`|j h+o1NTg`З=tT\RxJ'WJeE$m-j\qPy P?.0㶽#$#F^n^^g7}`b{o"˛N5mOyXEd%䬓ʇ`:\;6Eq+!ma0ֶ:6jtb];$YgE{AT1Ez|HO O7աdz66\'x?r?jfɖyy᩼Ӌl>ETE/~[vyQڵendstream endobj 190 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 480 /Subtype /Image /Width 800 /Length 29573 >> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( )K<:jY$ >A7֢X_[]yxL9px*@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@>,WY[Wmygxڼ+msv~|Yv^^m|bYr^ZQËV%QEYQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEdE]ggm^!ş*??j]ˉvd~sbYr^^sbXvZjڗ3 +C((((((((((((((Ky<ۛh-222R~vɚ$Z[91)PI }+Ee}Ng}iIeu j8 HȫjQEQEQEQEQEQEQEdE]ggm^3ş*??jZŻX\_|SR1w;-z%yc9kЫf?u=( ( ( ( ( ( ( ( ( ( ( ( +2mrJZG=-cUi#VJӎFYW|MqmGЭ38 =0cn/^i ohy 댞ʨi^|v*#tRБA8&Ŗgc)٧+ΚVMvr[nFvz8&9o>D죌Cx,C c*睵^K(sxأda9GzjrjvԡQ#3GG'DtQ$yjkm#&|#nr.\8'N@*q?ݍ6QR$Y.\N_rN+;=ƽcjK28\?3Gvׇ|;in$91lV0Z-L1K&kW Dd9}@o5VTkwx'PsbRۓ2Vu =$51ܳFʏBxH2㨩>Cnk,[nb\ q"pzqҁVOnoZĤtXaYWخ$q;wO4hjVi;^?`K+*1:dZϵ.<{heprb8< ((((((((((((((((43qF(Oa@Gng-YCC2ࢸ '}?g{`|󑃀bWCqrr۠/3Ur8=cju-bCA#2Cbp3z#+or:wf=Y9c{@?<t^d_j3ۻ3+Z(̾'>r'yNkuqNp2HM}[Zo6TVLhI#vI+)RAӼ{?Q}9|>nt⹢h(Vͣxzfu-2D4s[8Z4h:U r7@~- M+3UQ>vuKEpm#?)8uO-RBj6(rs\u2\L~?-TG\f7B7{Te'RSeAc{mtc&U}3WRZN"ij(QEQEQEdE]ggm^Q׫E]ggm^e~cݹ~gdR~Km2r}^u{tGS%y"YzS뺱a|Yasz]XwzQ<StV/5AhBaIc**U9Rx;GzTl}/bCyy [ukuy$ `aqI֢ QE ,qFQ`(aO=oǖtM}AFnrztF*e%vmFJ妮β:Ɵ7qB@ !G'A^SxVՙ-D`% w'|W4+ۣVV_z ""Ot2jЖ\'ħ1KUr#h+.+=(dXU_1c5;FO`dH}IXW%1Qyv˵|ξ?ڠLlU#Y ɟƸгF@Sڷn#2ZE:N "2:pT8r:ork_=;֞p$O]gaA;G#I dq]yk[{ "@9-mΛm,D\rNu8ۮZ:tS+5*9= p9?;ԙ`.i#܊:s c'mn`Y'x_;d+`:=6v%lf!.q*BUh#a:v.FI8 [[{( H"@983kܢťxĊ&#20A|:' ]F{9B:\CgkNMCQתǕVݞtaWm:\Iwke q3(%YN7=mP%gc' \\]8 H6%I9cZ(QEVvknDQrpy7RHw37s{Vkrh=L^m,uhdeМ8$ǩ==oG^ZIImc>գ V/p7vp`r85j\B[7.u%IQֳk&ў9¢My Z(5QEP+ x2U.G٬ ן?#5ѬŢ>/q V+5|~_xW[D.>qƲu/]ʓfپ;ӯ$N:uM~?1tVXݚF<H:޽KH-u|m#wR;ҼS𦱦$ٳB$D8݁HjZ.Vrmx ^GqzS(;H~Y^׭|Ab.-XIo=@ծWGdQE ֣K"bZ@#|Єr3ݦKG*++ "W*I뱓o嬺]墸 d{@&U鍪0c'V+[:Ó%'{Bs>ȹǸg s:dF\ҵ'N^OUgqt-'hUuSd,X g> օdxyDF"I$S1kZ(((((((Էγ^XϾ- }I9:嵦bףOI) 0~F>]VN傻"smͮ ^ 2څlUÔ#vT<Fp@ܼiFY)Wk~ɭ/68Sm[FYki[)J`;rxSZQ@Q@Q@[NFkUP푟~b-1jA܂"w`>CW%ods_[|$m?m " J^`>wrgw&INGh]) UZ"gh?.ڏGww Zw>wXi\(@x9a?ZxQIfIS,4FJ6V0[14 1a t CnN;IQj`wV!0Tq1@"mζb ªu®m:F$zʪۚys{zKDb""j;R#bѡ Wcn&=}jNYTVinblbRH`V$==6_Zw42l`GoSWc{LDߝOJi>,WY[W+gxڹ'=̶V~ Ϋ^W'oTko j+;g)޼B((((((Ow-7K @*8ǒPs[D|Ivt3FK$ww*t WFp 2Ů4*fOI1p[R6%ś-J.⋎Au vs@4+_B3W р{֔2Ο0`^9>~8WW!xOH%m\DQPc`t8":uzk'M]u^_ǛSZDOgo4oS6מ b 8%?hU'Dd=֏j2Ma=6ӣgD'dee8*GBcU8tӵ]ϡyiИݯ]~ 1]|kJgx '#x]ѫ+[ZW^GKEVWxm"-v nm ?gӊyh~&dW[~Fx{{~Y59;=fW/o;x!mJѰFTK]5mQEM{I-`i/JlќH0ݴzr|S}wk7ʷy& [b'i8N-6g>ױ>q 30JÁQoz:žCҢ @%x\8$3ҷU>ά9xΝpJ?3p}Gx{%ܟgV;9x 2bN0G^EyxhVGBU#A9iΡL2Fr-\! 6F?*q@ W#Ys :[ [3ԶfqTgdyԃQ13[(N=өBT$^kjhGf/oJ+gr0i*ڳ:ǡ1IG0HP1@沗u ,SPdM-"{B Gsc,4CH-:=?OEmDI QE~~v>,WY[VV?UՙkoguOЧjc-9륯SɅQ]!EPEPEPEPEP&9xE)+?òZA;lҳ;Cy+'ӬonJӢ((((((('R?d[.ɑ%o`֬[R/dkII.uɑ"_`#v$czğg=>`1׬|\y;VBs|P?BEZ},qK6D9gnʣ?s&~/`ͨ`-đ@zu O5r7\L8'v'yt2:Um?u4NYڸ*iNG'ֹeiy'v=3z۵q^hCly؊vph⣅@#C\2nRHj{ ƋYiPDd<ğǵ|{ZIuwRZҢ+̟ȫ׌-VY"^3趤=*Cr6Sm] `$ԿC˵S3l( (((((+'MHrt>WA||r>m8kQ@>&ޒa"]x$l@0;N jt߰McǖII:_~x}6CiY'&3wc5+,fZAg[' פWxPʲNʎ@p_kѱes2ɦJM4G&4fͰ44l\ffn.i3IE1\\њJ3@.h&hqsE%ť6q٥74Lu(4I+N-Γ)f>h :;y5+UvU[bOlM8>Y&N" )Dj(O2|GX4ζ힆<f4us:uՒ^'g_ahc,9 _b%8$3@Q@Q@Q@Q@Q@Q@Q@Wl4),W1V|"#.G9+~EʟfŇTgfU g;4yszGns<қ=VJrsYfx@jYzQuGcu/ ba3#rnPN1Hw8?~V vmdnGR<3Іz\ҷKuZ!EWYuEş*??jfks{?5.RK[[O;m}E|c[2_ɿc<=s㷭e2j_k[חC_Fr[] [q"fUݞ}q$å 'h`ާ U${U(HgUIcm#9F ? Lx'_.lm@1e89WgOe=SvFYe,M,+FĒpX=+bziHYgi )ݎNp* ( ( ( ( (2Ğj0h̍p8?Ğj0h̍p8i.,nbTw(w\r d㳞C,gHMVW[[ԑсͽh,GPEP-j7H h!gO08x 5O?Zbkđe*Rv4Al\M4 IE2 њJL%h% 撒qh\\曚3@\vhfnis@Pi-1✦쫸Hsq_Yުm9CeU\r[9UYuhoeFhyѲ 8mdnt벯~"0L\hNvWr0q]Z¼jv_RWV< T *շQ_'3>zR:sV!L\vgYlqU"+eia$Vi Q2rMWaZY=Q\JR7IZ5fQFzq]4q|ƣq=q[K$рFp@BT'I]J7gwk.*2=Wm Qy7ZE?{nRxYT=V#as\ډ2ʖNU%MMkO(iŠROwyerm20`q<_*2(?kx6*#nµ|GjYQ`?WØļ3zt>Gp^x "jޥs"GuUW$ sE2>خR"xMH<]KNǟusx>/  nt̠pEٞ4]c\Erk2wuPppI,(a'ik4lwAīm>:l#˝Q(FAЂ LoKMt4Ť4Kb撒Y;&D b&]8˕"/ȣȇy'+/ld~&-C<y$Ev2LZU}EAP S{o"Y_ O4"<ۧrWg&(˒.\sKVs&-[h7STvo;eGjᬧ.0ԴCLjqRgxoE/"GqK8~vP=Î$s3:z hAV.ء@' 泴jGN|y)&1N3Ih5dQ@Q@Q@Q@Q@Q@Q@fZ\zvo*ecz0#<GEg=#ŒjC@smh ixp]}2 `~5jFyLyiTc(܂03?.*\$ocw6UONB͹HUUў-k0ǁPIf6fт0k%;FI<[k՟q5NFF)*mTz2N O(8kJ75pjBtʃèk l*zq8rUW=[~; дbXeF^9#pGcW5 i'W9{Y2zGCִ5 ~K97 N1_'ژLoSNϚַG!0kH\|ۊʫjduя,V֔p$ʱR^-iUΚپAjr3Uly횳$m#"\29 b7PNE{ D"z/ծLy(<}w Ǧ<^=H^^Om1yOx~#HUb3ՏNΫ:xu#jjSEWEPO?UO5sş*??jÚǝ//~#^W7|Cץ=tEZG^ޔXQEQEQEQEQEQETWVKo0Qh o2(-/a]:(r݊(_#2xt}j*ؒ5 q@[}khOGbΗ#%5ع4M=:pP>Sү &'naY4ᡉ8@F[qۡ[S meNm4k-eGc˲xZ[Eek l8$P0O=gzΟf9דcV]Ij>P((((((((((SMt ef؀6`GRScu0ach΃r`1&I |G^MrRKm+CKഅe"FcPN;dP$Pjv;ıܰbI"0rè;%N3^_1WӇŠ((gxڳsZ^,WY[VVj%ce ;#^3᳝SKoz骒߃wQEΠ(((((((& \?,7QflГɑ}E<`'DYWk{$@rcZKq| 焕Hh zJԯ#tvG|)Y ԬR9=@ЀoWH~7^ a6n3n?~~\O O)7][~ yRh*Ʋog`Ӂ\ W3N#TWij!G(ٝfaM`֣aq}rW+ `e91w=4RVKiqyzT44*JRA zEPҮ|0TVy+>…hצG`Y54iZCՏOJڋܷ*tЅ1明jou<˺|;u:{Nj8ɁcվkOW>=5}@i4HM$T%]\Eog2}4]6=#K`Lnzdq^#jڊA R!<)#G8ֶRҊ'+R[Huȑ_p֪Z.NiaV*T۽sWkࢊ((((((((((3QH[4l1* ;.92q*iv`鷱|ziyko#.bU!cWSEHExЊ0@==BŇOU"sfIDvpWTW?au5 יVd{tEO2phZhlɁ/P"SgWAad9k*ܱWRjg37<*Dbz0pJ=8AQtZqlmifFGkftZ+]:U@z[ୈs]}+h3ߔT"fD7*&Y`|X8,FNOC\- _Tpkk #SrG>wcQ)Jrr` (aEPO?UՏgxڱ3[ч5ϝek<ڟzsO\f h1koϷis͌ak=o8[X=+9IߗCGsu3Xi=?LwelVֻ $e"2 7䞟.}j:\jY>0GդZ}+\y{uZ((((((+K5UҧEx2dSenyrFzVNX_ʏ =?@&p$~9$RѼEam z rY 囌'u=kKG#o }V[n.%7(Ր3P22'' Քzl,L9}Q8-̖wQ]Ar|ibwGx"AZ^mer⠞[d^-nevK u8`pFGs=u=~vf MԇSF\|JʑĬ9 %R͡SRȬR˓P6_w'mΘ/d7;Ќ HIe PORgݿO's># ꧯG]]Oqn/t.i)(2.K Eꧧt1HƲ!XdW1Vbxd sV5is٣?#.fy9Q4fJǝ)IU-8lpUjYH5GhX8{JRri !5cra4^@Io!Wr# i;䷂e>}\0)o$ !RH[l5a8gJa䟜&YP[,2@E_ ,-R+{R),(ڹ?{@ 'ۥ]33(RW袊<((((((((((!Y.mVk+:N7-H=FIP ? 9/9aiVx.H#?Lc89ϔZk3"221VV ƾERop']ܜ7%I$dV((( ȫ׌-ş*??jw~ _|?kxP\?BsjmM]msWҬ[.VS23G-%1C 0 Rב»Ic zH2WgU8akaYE̓c!X@;g#>ZFmuh p8q(C vXMXb:"7 m2q@'Xտ 2y4ubXUFeQzc0g.&k[ "K7S@9=3YϜ]_ʓMi&bU.1rzg| s.WX"Lխ6:3$sH8nL\7MYEW=xCOIѯ䓹rO=zsڛ-V=KÖ$jQr ’LFqU:Z٣$ r1SFMsDZMA˸I&"v %k4L/5ӈ'm:OkcK}:P vGr{:jۦ(SzkFO]Klyae#ę!' 'i?+T|2̆ ]KRMd/ OsQoNhn%%E)P?1TC"x&B@^XzqmNpfbrwuұ)9;)QEQEQEQEQEQEQEQEQEQEQER;%O&3*e}EsZΛkFu;fKĆ@^6y3A\%My=ŷUtrIGH3v#>{gA:6C2^H AU:k.< F% rA#p_OTX[()kqqZY<Ӽe; nf׮aGp1!dZOyC 꾓hd0$@>yqKvKQ\[u Cs sDܒ(e<}Z+Sic⟇ZziPrqqV'4HJJ0R ƾoŞuy..ڸz~{,P1~}3 QeM:O4g!P.p2]ds]C}'uֵ 6g&rO,\-fxWMmEUZ&-ёĸ^xE\nm+mL_K y[18"3*b'5CX.XX"Y|ُqW)AEPEPEPO?UyY"^3趮̯S.Ws|CAݬj)+GvamM]qUK*h// (ΰ((((((((72I(mvyt#p$r$kPNȵq-iʔ= GdmeʕZ Wg!]QSg(ǀp N-f)ϕ4.Q8ЌJ*p2*:ެnLʠIAgr69u1W7O_2B9GP= GTv.8o=@|Gte%+p56m_0l2ڦHqb?8##dWWThF*HkPq=8WF]>/ {3ܫ}n=?YGms$H\䐬@ϿtzoI$W'%av:9ѬJ +&4hhP) pE"'OZهi嫚JgJJ4NiAP뷛ShWbԑv9χ5q[&_ˏLZ Bi~mĞT<8XBڳb$>dW2tusIYȏ g71\nQ١ڧaeBss(߻ W&ome-ƥxļ3u;FQPA}vPY5w9g=K1ܒkc,QEQEQEQEQEQEQEQEQEQEQEQEQEQET7V^@Nlq G rTPN^ TZ\~.&E\ @i2񯀦њ[04yl`3I'<}NyɭȬctSr I Z9y%L?zIdi1%=$ua1sw&QR$*xDôM1k,~go=p1WqPWTrΟr=9$UhɮCE6hkDm%,#&*y~k|JRQE|VL8GK2CFOWp N~WS5̲]&f\Fdl#Mr<|y۴{hvhvYG*>9 7~T[_^-ǝc.zeQЌJ۱[.b1<3[Q: v#V^@]CпގE bY\["HX@ 9&ߢ(((('ş*??j2ş*??jr~xoݩSWq\cGW6Z++b'G~ZQEtQ@Q@Q@Q@Q@Q@Q@Q@Q@WGw ʪОݙOUa`ƬQ@?h?_/߻K1έ06±#oR~E<<7YIӚ(HR2#ϴKBY+vXKq2_K2'gLER¹G?b/*SѶxDkY.Dž N>֤_ 5* l2{+;;6l5&]O= N ^|$~5چRnI Ѓ4hOltx,`is廑קY5W8RъY&?e Wе"_+3QWUa3z[0%Hۋ<#ݴ;-v+yp W1Yc\sI$$@rIVj;YC&FpLjq/8 Ħ-PM*[Jyxg v8448,,krzc݉'$:e$E^Jr+<|'-X(((((gxڼ̯Zgxڼsֽ_n>7W?]y£c9k+bgG^ZBs}kh0%@FPz{THFHʈ3RMrg)|' pG5QEQEQEQEQEQEQEQEQEQX%/,.LnӼ s.9)7d4?ɸvm ǃ(x<*SYXjZT'C!0\710Tm-zV"Ÿ~b}p?粕tΌʄY] .);:WVXl3!GLB2 8u$qjCwe7<{N20pr?+Sgz/w| 2tޙTAVd2Q@Q@Q@Q@dyt ^13qwV2I)6s+:ؾ.E <A,:9 N~o(7ų7<`]<=%%7Ԍ2a~`A4C)r:A >+8lk2I$II$I$0t;/\3s5]/"d=0˞y5EQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQEFF^YK]1Lv>;rpܕ$Y[>MQnֺym `@doCF ^@e oUK,g˞d|ApPq]5sA˭ 0###{ 6?{ʲ_.CY@!'L;dg*qY^U .,d}A7`vY~mRW ^yi趯k"4[|[`qm^yyӋX$Qx@wO[h$˛l4p޷yHM:JJm2fU|t_S6(݁2`@v. qtmaܷ'Qo Z!EPEPEPEPEPEPO?U[,WY[WyZ<_|S>Zwu:͞ԃ>Bw']=ֽk]vsy!M}Ҹͺ}doJ'0S+A#/{۟wu3}?էla'<?=6y>kNHdy m419RzOJs`Fq\>`0޼qq- ߗ+ʏwCkkoeiPBHFy*j((((((((()E澗 v/ƪ'2_J5mz}yiQ\%Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@l㽈#GFp?fSH Akwq g3n2TIV?)' n P[EyA:nH A @:p0 ĐZ\81<Ƽ tnRx{X'|Gq4[0q A;ӥH/k%`]!Dh~ ﺲvd9tR1ρqʶe+X[W}Ӗ .>\ ʌtgѶ_Mrܞ^Gͼt' >Fb4Oȣm9lt9aЪ.EgmsI$IV n#V?.ʤvGL(HR2# ",cx|?0V8둆K|Ym0dW%K1d8v[i+$v!v, bIbsG19; ;D c'  'd.Kx벲_Ϊn$S+8䜱$ޢ((((((((((((((((((((((((((((((gxھw}uE|r[ZA+k˾ }kԯQ?^~G`+(((((((((((((((((((((((((((((((((((((((((((((((E> stream xr0E{|eAdx)9aIl3eYgA%sDw=wP<\C8;OSWT$C8=%Rl%c]i$iy1YQVrӯgLdIO_duIaԬ4({,pFn NY .$AF՛\+P^+f<i3W|>6VdwBlW&<,}2ZḚYªO°_#q`޳.rQ*JjiMѬ6QL6V_yN\E.y"S/9`"~wyxwp'3GUQ_PdTH۟5_W8{kf^uEF,n/^FLwj7#endstream endobj 192 0 obj << /BitsPerComponent 8 /ColorSpace 54 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 22145 >> stream x cֆޖ,BJi)а% IHBF}q YgHB?'RzbKˏ3gVy_VZjժUVZjժUVZjժUVZjժ*w~w`W޾=dS>j!wE?VeZK เC!];bo=Hf\]v/a&>5pשW%%Hbe'(naƢWJ)Z$P-^'VZr'?/g%k 𘶽umxȀpO5k:16{6>?'[Vm\%Dpmo6*KJ Y70c.n |{钼S>^ÇhT YgD͉:3BI\)LvuLݐn?peP1 CB'?-Yɺ!Ž;tkX d DZIBN>n &s BrMwGm5j-ܟ/+߯yFeANu9in&ПoB.sLbsZ3F1cV -Tk!M=9l2_eiʈI!37%z2ĭ iJ% *Tz"[e:g4k--s5Sl čr`Hwx8r[V`kRdKr7ʱNs&V@FR7iv1d7K2]0ʱVȊxLj|s)FfY]!:sx,k̩Wلnaj%ĒJ.l3ֹ CYVHޞ9a-u&3p.-| \f#$@LcfjiXl?fY2.  ]*܄elg6Xՙ.[wW476 2B47&YgW*5c$ΝKbejgL5C҄.Da)|ͮimPtjzZ]!"Y2#*ةHV1ãs!,>2HW}X=؝IUi̛U՚9R 3LtfgAMrd+8pX*SKx#h,ҵu"֊Xß9kN4[I͗3()MwEZg"&YN|]dy'" #e( @xO晤bѾ=Y; E]ئ!Zʎ#;oZ !E+3b.HFNS0!;$9Us<0x؅|lF3xy)`LʶKJxB2C|JTw>ܜ] x`;`@e6,٦QkEl 3⫳ ldOrg s-Qc#rI0!R lQy,0֖ oomxNgc0,޹%geT^d&lf@ea>7N,jhL2lOsLeJw)\e 3A9ʊ} /EVW^mԛmI P;QxTrYsӂ2ȼ w=&X+I# /[lid }r܄Oɳ+nSp2,_Eڔ/e?^nkJ t,*tw a|-^8uڙţ6"`(X2h+;z-)4F̊,tcW f^1& #[ ;jjZmctj6:-:Lm,yUȩ6MjL#i$»$É +t6^9gkGf୺cw9sב`;̗jlt7 y Im$֙I$g[ xrgQGIڑ$CDi_sne%sԑ $ Wwև3&MRBkKxt3hLrԎ]qEDa{2^)M?DOHJ@WȤv~wVc+q@ٶdɤY=Xa||LgRڑ4NrLe0;[\GFL|@[#Ek%tL71ViR»JCF׾sdWI|v\=usZjGVvpJ`眩"34/|սp=6d]i#V&i+_ c! /j"xE=qD]c)]]fo[SD%1]e+@RSg"25% &eBN"+.hsZG寭at^Ya<,]ZGcBߡ|]o_Bxw)-$t&loX -OM!}Fn6&> EJ[&}GZ9mn__V4rpb_fϴqpW['B$W.KQhf,s%R*RM$%7<%nŸl~J0+᭕') /ٗ2ݞ6Cw=N$iGHnRJH6U]o;杤^C X_>/ϭy90sS9}a!b&C /w1=#უ$],'B뜖Y)Ж8-V,on}J|34<}|6xqr`V29YTCչ!5xo߮3|Gd1 i*-.-sy-ٵC+:*0Ea.^ X*];>1f+@q+~2VF__ xѾnNrN "`2/7)ԸNv;Йה##w6#p/%V_Լsb^5fh)) x߇LF|q& B6uffXM6< .=m3_W\v:Pu8 WaIXEp1O+8@̫.%{Ea=oWWWb6341☂6}sc  G>,.{1/p4TARr@SFI5/t%慯W3v(n;u[/FhB2;$jv*$Xt.9#C9#a#]~2^`iW^ R ƍ7zRtڸ<8列pשI6?Sǹ|\T6-aŷKئbavzRsɼWiH ?oa"2q ܈Q锔 #bX-Knw]'~4pd_FkvI904 ֥-/ hG|%t?Z7c ^hIcnha|uFCNOZ/zaFWEq - ˖;3,Q2¡8H7X,"`P_"/1;;Ɔv2&m} : oc:# -P)|t2#|ĉ9ʕˍRnX9q0Ĉuɻxh(OwZ}hhSehw~]kZ5+vN5 *f䬆,{_vrY-WE-ʖj0^Ns# jJ}ƆDehkZ+|ix4+UnB|i63KRB|N} ׃yn $2Bij+^;+c6-c^Ӓ>9kr _ V9%o&s-OGŶ@N84RU*cpxyڋ 簏]]'<# ?l8+ϒ?KM*nqƌ]XJBuaCW.!ʻ!^0L'VW~+caLXÀ39FsXp`sr?R^b;?sJyҹHYF%  1o- `ș '|{pw]|i3f#8R̡H/GJn==z42tO6v2.W$~ =ooVѝn#=r.,a(3f'{&~MM]h#"𱈿m;pWƼĜR*dggyq@}k,8P? Ykۥ{W7 h.=hk apq FƺjYRJs:)6IJ1Fm(/-iz a > *qeTGsJ6U7BdI[ em/]Z(Ģ#IW/+C&c!iJfO]c)?.rxn`gx_h&Alv^[pd|/+kͻԶG) srCbi`4zbu!S"v͑5"ˡ; Liɸ/][e`z:e1*5]^^mY1&{`ܒwekwx!o̦W܎$j[|O0:2A(nlf#̪nbvM{sdLSӲȫ$؛{`e t)0ٱN(SM1pp8Eu4I)܄.γr$ٌio 7S rujJ AF t^6N"Ƽ B>X.9ѼJaGSug/"݀v SC! Dx^. JEln.m+_YfɆv.lue_x0RN/+šWh;]+SM^3ed1O6 waɚw}ֳFn6gPZf 8B d'ibY6{J/Er%A#|*\cļ) PݴvKeG[6_S/q.O,0ϵ2.9ag&25P '=5x䦋%RT Rmm4)Y2Vֺt峀wxC \9S49AzظX2!˹',QMS{|G!BoYK滔C-xViө؜VJI{@pb6l ꆿe2C^QH[&F),\k=_OtWL6s ЋC(r1ȗVMȒUĖx`rm`޽S8+~r )F &C%jN7ԇ b"W>t%> N1: B%j+Yjz60[Yl`:Y] h,Y |||!BB8Z]-`kԩURۚIHg#x¥|s^&dE-el\';UbN´!|̫hٚ`vHk+4۰cjb7aꖗeN=̓U g|O#P x['&S^[=NGmmS ZVM$mu爕:3GY* \l/p+A`:!h ^mb1E?uǀ8bK%|%9kMKXr,\Kxߜ^|%bN&,w1aG`x/%k;o30`$Ng  Bݝ/┈.W4)tz6}v-@.!{Ǣl .=S>1I! )0%%^<;s)nd}rt]$p_ʢ dyϘ6&N ZQbl>+ohVML2H=wݿbt2YV,Mf2[t^;cE'!Z"ݾ>4%&O3f |Ȇ^Nlb ;k`*q$up2_(?sҥ|fx=[PN  d9/|-d}"MȊuz}xF=$gKddgwB X˾;Ng18h/{(ho}o'P"m@>R-[ }BbsǙNlVXL*AI&h-zLo(߽{M,NsZk\yի35/ ?[8t,d!BӅ_݊˲%+4(k"[{,?BHf0.}uE1[N+DҤԼgnw/Fu.Wb?#v{+%{Ǣ7hW{IO;_F#ѓȢeD5}q CtI6OC)nj`'|g_-e{{Le!b ӴT?%oGewK7 ;W 2Wna+۾/_Zq!hպLs:c K Voƴ7טp9D/^#aXrhٺH(#6!C5E6o(6てXZGZg ohڈV+O={&~Hu 9FU!kRj;u(BQ&t +Dmwfƴql gbwa h-@y6l)5"ݽ{R3u7%ӊuI\|Ë́$BpJӿQ'"D'!՝붯 ߸[T^C|JGb&'t=*)r\+ jag\K^]O:ט-Rez/_*C!'h_?'1طw 7D }4o櫋;m'o9.Vg3;ִA[;nU\B.Ru; \ ;u~}"XGK̋dXXgbzU󭀰BE0r&Z'yx]^x+ 5Q4 ZYq5zba-LzECҷ 9Eɮ_=v+\}.ĕ$fpq&a()B[Jz܉\㭨\ȱi <,-@/,j*;_uisEh۷/YwPIVM :Z}褛d+źuXQ:qpQB<k!h3bq?Z+#MOON [?n$@v6O 5==W.@G$$cGJ3|c4^7#apLۇ犰ۤp1Y?=3|'|';1C7"/B ׹vBR2]4d hdx8)_}  Sw{;eh=a" p3di-!/Ќx2p?!C2U+%昗%>mw}1B3ИA.+ɳkmk ܋ Ej:!r*LdW*0l Ӎ 6666QM2|"&CV +k`ȕ"gK7k0<:n?{ ΋XU,u$ xkȗJ+sCUͰLlMlބoȳH!jAԝ07']L.Ee $~sXoC}%X< j )ŻLS%Z|hFX^̘Wa|\i}~7 l _ TU& ;Цmuz섕I-iu#Pdc j5swڏьr?"J`[݄oS\g`S zzzP;~XPK:mk殏|inK2KxEkBXV&z/>͟%e{pRӅ06X- ^,z!5hl4!*7'^gכ|y Po#":DDNԨȜ_2 ES XU+5M|qmj/[}Ļ  ̽~lbcsd9fmoVzRuT-uPBAXb}ѹ_໇p3|&XwbX_(#F& 9ӟ6'H6V+ߊTibV嵫dXnl(ݝ_ebj|%;+T*&,ަsֺ _g"tE_pY B6mʀwߩ/ ^ Qspw—L}3|M .>p}5ynV z~i)@Rm~( t?)"57xffb_OT(@Aj0x-@ʼNJRj8Lp} ݵ|/2V94J:ūyF4h!MZ]" ٠>!_a99 w ɡ.<0>Wklz /xC K:$>ZXcćE2hR&pW69! kk]83ӒX;уjJ:WZ\pnm+> ZGcdDgsV pbY_5UpRNhYٰ0;b3/F-0*ےH6*<$N5cP?lB|94Y8a|vnnaU%Uoqt!UKi;NraW,wzz|-hLmfTKPN˴>\#r\w`H> <Ĺ].xK~LW7itm@lq 4im,ϴH!<'u8]8I q ^4L2=ZwSZa8m>47ZU Mx Õl:bxzr٧SM#c\LVd'KT2aww <;3˫| _YIveqL a[uNbP,!knlx滻/ U)W*ׅ7Ć ۊ;:V;9̡lZe\P·tk_7w/[. ڽ}'kŋƾ}34-"wvK@{i9iQeeecY._0Jg!X= ݃,{YxCs廱|E3<ˌi*D ]Ცجv~vL/S_I\ Hv}|q%-[AKQ|.`Њ~ ͝=Q#͙8;ԍb$U o#k }$P'PL1xcf͝ELbmVڝ5x=>W<{~U''|M _?t/a"j |eM֨KgLڡ 0l~~F ˚6kZ7;6}ivw󥤓N׹0-W!wnJXfoE"^|v/Zxc#d6k>lM1mWFkUom;J] |p+_d v"U'C |G\Sd~UV}Wլa t߼_p( ۯҟ[+'-rZEK[~kod|b:YJߦg2:EXTw* 7އ|)kt[W..,`ji.86)_r">^AZ5оw??8|N Exi']5clo*}Sо~ocr JǠ 5ȼ^.y"9f wrV*ݬmee^%B:oW. kGט:-9%\M dQW2ą=AC|!,h_}6-{~;(P! 7!8p/^U%|(vyV ojI~h{(/;C- )4|+G[W.Kq%x-viݥ<>xldSIX1_Y-%G%!z͛na1J],xQ/N}wvgUl~·7ka],NX/_ ha$``Y U@ԛ(mn%/[<*IXs)N,yߣPja/ȓP ^Zg3f(:-oz\& e[Y3Up;ha^Lhk +kZ"sK_Q.h|ȫCrפ`jrAk{C__40Z  omtIoK2o7o &_{Ge[Էvv܎:LeP^/;1B)HcMS>n:re".ئxѿSh߾{8_"]%Up';8 o > N]_gȕkZėX|J[0uZݱkr~߼{OtZ4?Bݍ-|twcb!w7^/ &0ٟ5+WWщ)2ȢW[R; $L৏?*ﱢO_J2l-ߍ E\)E7[Poߏ%- ؍-᪫!ɢujvFY?tr>O>At a6039To,m5RBK1 _dKEzW]X +[oŻ^J'(+@x#cS%Y8ܠtOCZrN|/8W}狎th.ɰ :]6zY"$㣣߿.Äj?$+_lu)&#_΅3ecwwggyŽ2x+̺\FK៭`%0ΟBF`55?} gomiђ,kS.BHˣ1jfr?Y|cWkV5sAܤ3WƊ+;5%ohsU. m2WnučdcdE.EbU;Zxv] n~Uww_6W}!/aP$MᐕUKY ^Crh>$xwvpX~W68m?][opże-g.RW^C{ad9"m>M-nhr!;qdnD^݇w.+{8tP~;˵Q|9BBGM]z _HC-[z$oA^&mww1SR|/G W[ _^Wˑ+_Ok} XPY4uyt/A;rMm`?=J ]y[RTNcoɳ9Ctuf5Iy݉ԕ;Zx!PLS(m0[t#3^|q'L.dRKoiR)'mT6᧯PIZhO0xV_tj/уc^_x8^}+׬Ќ U-W-pSH0Ç؇`-Z)jwZa]{‘΀}پ+6]㷙9͝~{? q+ϩ{iLQr1b~x) ѾZ z\Sl| :x?<{LJVdasqznzCk`j/tˆv 眮'?{3$D>`9!j[] ^|gvFG+.:X!>_͇#_xRhn/S%V%"_l#;ۿzG//y_d^]ėqY֧/yblG0>??|}*%54t"kZ֜~{mJwt<}#Ba/'D֓dN$ c_{ճ:I/MnvCY#%T C1I O [3`^2[ұvNzZfܻ ԇ S+Yse>tm{3?I ~?zbhc>MS*::}§/[3 ޹sz3ɔ~Wӳɍ}Bva/ w[ׯ:R7~0C>ycz^CwoV5:/ꍟ ǃ, ,?{ ɔF| ~SU =x1C Y_Oi{U?|4^b\*PƟm㦯dZ~y{~cE|gp3{M Out]n?@b,Xbrƍ|:WP!u cQ(2QLy tq3盿7+5Jk?[ ƌ+D%߰u^+|+Jye'|Bdjf_= YGjUU/_ n߾D2\ rҺ|ʏ:$I7@bԏ */StỲho yO!-O@!ַ ~2b~eZ7.|.ԾeZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժUVZjժ?endstream endobj 193 0 obj << /Filter /FlateDecode /Length 404 >> stream xRr1 ,q1x()9ΓB#g,+ \AX`;ELsw_~ K@s6!~:z$>,b+-8ӟLk/n FFl8`h%W88#e (H{ -9k:"5夘-ñUҡD=(ڨ:eb6sχ "CWx+JUxZUtV3ljӼ<0.xu0 Qsr1Rfmf,)\S2qW]dmͱuΖzijҝż">\EsUEnQ!.g~}neb*m<nw9wY-ux|բendstream endobj 194 0 obj << /BitsPerComponent 8 /ColorSpace 62 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 12829 >> stream x흋HUm4k0q\qfnv [vo5{ < 5bwyL]ȈLeJ)Y-YvdI_GfdfddX,bX,bX,bX,bX,bX,bX7<ң?}Y&=Kb|G/nm.E|{=_u/@d{._Z( l/Ŷo>={ Fy}O~R9Ϗ6q?ԩoE֏oS&k}9oO2^B[_|Z_㈋ۧW{CǾ|ɣ'/fV6yğ| %~_/~~v,$(Ws5_`$Um]-g_%D c(2%Z<ی#da|bI\|oO2 O}o#̰o~# mfW~9Ik{n/ˌ~rۓt{v\VYt򟥧,yJm; )V5裟2|)y?#ݓ۲ ;Q|Gz_bW|]ca#+좧SX,bX,bX,bX,bX,bX,bX,bX,bE2Ρ/Տ0 C&>a$E l6ߝ dt†I PN'bcDQrssgʬ!իW7D`+Uwꇯ%f= |MaWVTҀ!b=H]I-_qdoņ-_> $lYw7MabnDEᡫՁbֵJSY1]Gc.)2`&5<:$+Z) v~oh2gf(T~z-^E{t{(P;V=U'@U}w: w3ߓ;.Vtw3_)klj2|I^FIScxc: ei8jX|I%&oF 0__BB7:*!έI29,c۷/3xs=\A4Qu׿rb kыE(5G,)f k?;ׄyCI7Wio8F ꟤;WJ5+_ao]l x=~Sm,o|3t A|~$ ׏_fX2+Ϗ~:^ϠPΊ Rew^OG/~ko}BE, >%"-]xeͳ'P~pξ >t'}ɋckc;|'4LCRUѣRb!f3+dc)@ga),IKA4H׃6|!t`MWm#dcD܂kRלwI\(z6UpC|\Hecxhg9`:g3| |Z].k:ȳs*r(~aAUq 2U;P䛗AWH\%\j;R0L t.n$Հ ,szF ?p|~\&~W< x!}T8|rwv>uu_ܾ}i1FIQ$ ûB_>*6Wc63j@8mjm Gj`I6w]{SfձcEdITI$+2#+O.+jZ-pi6g<_8y ><֋۷;,mDZ#l:"1>ΠzzgM5ۧ0@cv++/M_V:VbEk$,c͠|4c T͡ Y ?.+~Xa߷_y0OCXő4i 7_qʗ*&|/'HۯmY/HrW5+YM4Zlc_u=5_9c/#2ZXaEwǹ'/~@W7*P\iƆdJ, "'l|2`u&_Hi6CkL7_|׶DEI02Jj} 9v"ɄJ39aȗE`Ǹ0,z-['/vx~yX[ɖ+pi)voYQ%7 =Qf@EGj_Ci2C73pW4_7OcCAwx'B]CŅ *j0|R>#A<4*]ը\6O~J'$z|qK x6eU;lCx]EW/".41ѕ|=<:3mEnNx}0p>=є,N>To<$$A3բ7|S5".kTˆ7P+D!]X<{Y 3I_|IxPO!H~. pǖ4/SLN;YN4F[*Qe4^SwjGgI8+Tt|KޅC#@]tBi߬*%xD>-)Ѝ^.eȾ0Q+߿:Bw vvkK%l+v+ln&#mqHǛlt56C-|KӸ ߲RHxh8{qH d}^hg|6_QUߕ_C_`킀3U7Tr;wVkXlS~2] 61 '*N ^fq$ 0z%_ @Ř4κ;c+wY4z_iqͷWA &|'#0i۞\}|MҵF82{sc6B|+p9[{sj:߭'5!J5|Ӱ.|5K7_۱MSt_[}%hB8O@1O! JΖX+muOW|K3Tzכ͘~Hh DP#C]:WzX޿AGBEȳ Ye-\XWT z4eZ/9܁E97.s7$_&F-o2Nآ#"5xTGw|q> uC aƢs%U5ߝ/WGd%!Q;:z[-*?JA;HWgݡͼ3ߎז6Ľ¤f)’/@xwP˷oƶal'qCߢmՓ rim+̘Ax2aE[ײۉF/_R)(KS2"a` 8{u*|W7Fobx75b12~|q] q DEƗV:j`/NTtag2} _d`hU`ؗdԛM4 97ƻ#:Rl >=w/R:+WW m<|+l7}:9)[Ͻ3ߊjMjbtc,dYEmSy u|1=}pqs//a/⚭~7``WpXNp"]wX{Rߨ#;]efF,Rą/5S9 YW;ԨvQ5*f9|llwPȷ-ult g!4 =~Y|{ Wg,^>V'.J%iZUo(JGnHnM2`#45p ]wu'W箷RKq)zX,$`9wPU<.o{]yL?wnXi|Ot.u=-gx;M7L76;c:UVbI+7e5ͽDH| 0awQȷa?\fX+(?nyHr8|iLdV+H20gW3S.ix&KlXl$Wg3?>u&|%UNXۻ+&Z ?E#&ݩ=cP䘅/O{IY6ec";I4^|clꜴ5A2g4 %^ ζfJv [ƾ!(a ͨ#H5_:l6G̑숢E8O2߀UiZƾ;Ө䫄t3ŧ( {*KӅ5؎d,_5_봦 jV鐪#?:rY]ʛ fغZ"HVBœ;_Eqbd9hіca5(Z^.Bp>n 6_[ԋ(2  6_ r'f mݎ#Q;6hA#5)2H*_(\{ٽTNب͎:ɉEnHvO*pt`e_"]>K Ig:M&6g*6k\% F62??o?ha8k^l:j| #Mdi(# r \?*m$e 4Gd~2s: y+k[]$rp|,o;nq'֝♆Iȓ7K#VsCFRCn[ݤ" s44-uؿ|] Xh\}1ʷ:?ð|޿u~os3;.Is,ښ|oEj%,: ݳ|K-o#E?,Yv79bT4O2+):5-' 5ހ&-q ]&Kנ#_:(ߍ_:TYϡ@5p | ?CdnHs27՛;^T +a7UiKXu>3?^vM> `Qͤ Cܝ/N;A"U_m49߶S_3?Ûgo\Oo}%7U2lgS57|{K!c?)QL\۾'u5O5],`|Uv'% a7!Ǐ:1k,*tf;ų$6Et 5D#~3we w> Vb_5udvG|#EMoP ;Qc{,/US@~D^kE GF>|ц>E:a)>Ҥo|ṠQGxƍ}T;P'ʗ֯N? V}| ̷Z]])WI98PsIpHڛߎ:vΤRS,Bsõk+_|5HkV C㞅q"2߅ %mL+0\ގխ#LԹ/O5m}sRO7UoC ZL9W}`%AJ0X.u I7!T z!?AMסr+oQ8aq]Rr,%W&!^yڹ^,W /_Y8{1>9ƝRhV 򵵅o[*-^LxjߜP%@~PT+;>\X.La|)C9@7Mź f]wR[|WDC;I|Ej/u.=k?]I7&6785_5b{ABs={*6e{r:_)Q]V޻;9]s,'/"ty I%_ak|zu|4}q򽻛N@X b~8ֻ""0iw:cϝ~& 毒nU|T6ߐւ "WDX1+v^#;3 _ ([{BW+Dx;Fm ;-ŢJE)S)]!3Anq!4-v_6>d e^ZΗ^W:>ޞ_H4RCn=._u `I N\t@ΈeuC)kw>2ʹG5| 6_ H[mn4of ;'S_|}DY,g2T|z m\y1W^ I@XL.T{@|ib(`HͿ)| ;R[sl&q[?QFJSs\B8# т'U8ɛgr<_"{;[&]Xpaz(|,\GD.^vo[5Į.-&jrë9_ez-ap0|{BMCWE|1WIw6fU5_#gy5 z#_[_l8u\ bi 2D;O8;Q~eFw ~NӴrdrsiy:.7&6yJF7)xXؓ(AH]W曧ryU+FCKmvriN2M Tņo3半닢Km rWDWC%/ÿCAi5qv:F~͗fJrgAE$s2t_#g~)j| UMv Ws-Ib0o im-HQe)w7x_H!13z27⋯;~ j|35}Xu-/N4#"[aM0 #g/]M$ t%_$ƚokķnӞ'JxcUD Nw2W|[Cع8i]S-܌bhn~# t's_iq!NeB:{Od*s|0 kWRlRƥE0\{ٍwSk`Z8m;OFǗ<g9v,gMVܩI|o߾zn Q^RYF%zCruT+~\kPDh2 a1Pvw:}Zy+f Q<+, ^׽qŶ^n_e8p^hv rqms9w 8|44>o <ʼj3܎SKu#CU_u pF9_ 8V5W5_aaj|I'$ +^8gNأ3 sSUC ^3Q "[xAm_.]=ަxPK/YNhE0*NmWڞgGO/>k8 h -')48"I}8{`go tgy'e޽ʝU230+^oc u|0h\e_  7[ZaG4T/75q\AR1z:Ǜwֱ \!{^篶Ɛ$9UV6^Pjm3;B0t5bZ@Tuo+G 7mǪ9s^ocWuY 7>|9ǐ/ @.1݈O?ܺH5/|m9R}̻co4%0G7GrY ۫S> fԮUE*GG(Xy`4K9&⿹ʏS+S ys|u/r_|[8%$ںq9ʴY~<wH:]Նke@*=VLg^ͧM^v#V#f'0|QobN%|~ 1_$2~$ݫ O; dia˜^u~_*&=<^%r07޼{ ݯkԂpsgQTʃ+ ;aMM;ᣲč}JU:ݝ/ӳڣ RaFQ>+fl_ -;Mm:*|{K5}{F8WKg*8.i)>T^k5䴔 / /fYKN}ץs/i= wѦ z|p5£5l-3opxl1߲ Pq 19#qcf uo+ӘZT^̷V*} 7T#ƈͷڨ03.j̶Rnl4?#R'sb:;(;F/Ce-՚z7xլ_9 r5Nލԕ0f-jzY,B9fHx5qXZ8헤cmUCr`'e_ն/eT0 ?So,B-2n @ 8u>UқghD];c6e~za&9h9 ˌŏXEZVWo"m5rzuDTSIw;6yl/ڱ fFI6jZ̷/mTn|3m#*Wr>S-Uo!_ՌOt`5w13ߞd5֯!8(Sј[Jfcn}{()POݾP2S-|Ο9~ =n}lM}27=Զn}jM>#aZS`̓'&Y{=&_{_{4j4鶝e6x ɿ:o>S<`j1 rkn9sNM?՜9'K);l4xtuu*a(rlNCI.Sw1s~y~UInSl̂{fxݜT]D[A'x/ |B[FsT(Lg cؙ!J99]!xT>~Bc >^\օu|%yYmZر,_@ GD)e'tgҖcpAyΑ7Tj r-֑ yF;h=@LpƉS8t=ӕy(bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,bX,t-:jendstream endobj 195 0 obj << /BitsPerComponent 8 /ColorSpace 67 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 800 /Length 10365 >> stream x흉v}N(( `ƶ^K Ғ۹/pJe(Z`сZR\ iOϬgI$/ɒl{OvZ%ɲ\/_fٟ+On훗^}@n,g_,puMUS_|c?^<}[}/oןO>o4Xh^B}G8?{lU~l̚uxT܉ F*#,ӗ˯j˗ϔZS]m۶* ƣswfMf7'wU՚zM?J=6Vx4m*#4usGUͿuTmYoٟ~GU5/G>g<楈GhWϪV}Cٚ*?[*{x!xD0^x: ?Pf/ !ڻ m|5Ob<1^x3K߾B<юkU׷`Jz8Gx~ @OIǿ$dv~#NS ~q:^o?-2S2 IɾP8L QD$2}|v~ZzNzUfw>\إ 1߳ݦF{MdB~{: Q7h] ؛#G WF{(m ~1죿)FzO>z?Qrx`ncw~Xi?m}eoO1GJя c&Ap) h 'h '?i6/|6|nL B99=ޏ(`TGs!.~?1w? d―Ƕ Ǯ~kO#h_5:q7~Џp7?oxA#]?~Vq:v=(֞Ft۝%d;Z=AGח}y䪴=ytzluzӈ?Z,WvzOnuOglݱ}(x v=!ďx١%yHzl3ZȱiK?êC; mj3~xu9G9eIY`? XŏyT0?0`Îb|c ~h~UAD}ˎm1 kUP~lH׮Y|@KE{a֏"SGS:DFpܮ.AD ?.W|7!4M9~}xMqzR]G!6֡B>8z;DNNGFIخCcvX&iDp? SQy ?448u׏˷"G(إFe `G; CsnA Wz &!|J2npУiZ-Ǣzc83|jOIw b+s?}*ٜPNtz~}|w~l;3yp:(e,"H?yj~7:(w"b#z(v?:=u2?bWHR WRF,;XhW%@~cҏ9F?]"W X%EU/Hi,+Տ.XR\)m$/h ?,t[p9&+Ehb*x]</CV~$;OfiRz$4!0EEz+!XҝE.x5|դd09$A 䇥-ɏd[!֌D09$xƴ&}:ǮHI&m(s{Q*Mq 6~D3]p QU)aX[;$!$=,JctRb ֑|N~ ܆ՏՃGq ~sGh1^Mb'>ҝ?o3.'ࣇFaC㇓peECnZgNZhzL_]?E0c!#uW(nOIed?r; /priuj a&BN~a81d3~ UNU1ҝc=a6eE;Ar[~8}?9eW6?4'.g=XUN34ߚ>e%~} @AS}Yzm$.KQpc~L R?a ׮3y xy=P G>zJD6TxH?zv $NjkֺGҝ[ˊmC@cϺ!))KD]C?'=đ( ꨟ~9kc@c膭%a༓|4K$Y SKMU߉*L^7Ǘt;j8K~A_ʲ'Y ne Ul\P$C?nD[7Ͼ2?<: HV66~#|A ?ٻWn]4T(!ğ:?8}Cu@~UZg~J`T>b(I{DB=0ۏuy~⏫X r`qt<}RO=1[ucFG]_Uk!]ףI~  D:?b£fm/>} qMQ4C,C#׶ 5k#z &NL%?-ݲ%Ci\|ޭ2캗ZW~~|`(޶CCanq9᪃'}x ?qRP]D}-Tˏ3t?Gq۷Jټ Gr0U.?JA:2 я|jI͏fKޏ,Ƨ?qW_}CAGGO ;#/?G%ނh溗|2{\0WАQL(~?FA6 џu/7~ ȼI^ AO2ӏ,?O;9u`8s-f!鲖CsBKg(?|YG֨+}@y-Z[/W018+dDkzAWa8?Qx| SSB?e% ҽu8L 磷L~/Cժܴ~!d燇 :("W&@0U is q#;P r?D?j?$CDŽ"9¨V-~eP.~ԨS/p 8Eҹ5C\zЇNjAW̮~'!t9R󆼞;WЬ(")!tAe]5+УEWSp"5m:5C*'5ЏW:ӏo'h 窲j^UjXP F=;  ]-[Gsj*@-(A=L+#iXE* 6CUrA'Xf=&(? k&:|5~P#׼|qAPA0Q % ⠇yY]W=AA0Jv3o~PJf5prʥbczBuôph`u!_\DWN^5|݀u|WFǜC1ݼbF-!B4EvZܖ#BMG1釋 le)HWA[Y*^+bCO>~~%zv_n\9UhcƏq !1< )z%?" Wfʪ}ɏCW?Go4YVI =:?~jwr]hƯ>[䵱!_ϏSMɶU3}8?w Ҝ)E/l#Ȕ9?a@-~)m~FV!AIpGS΃P%KcӖz;~fNi&oRD+zW8z:҉Xݚ=Bf0=<?cH×6fV}A4kW)azCN4Nf-XhWVAr۸z.?E*EvxVe׮Ŀ]ÒBr #AE8lN5y.u .z5k#jC ¸"MCBen\Q?!Hiȃݑ ͰU?hzlُ "z4YщA 951qM5)@/s5+$Hw΃Sj~4Wֵhī} ۟-#ٖf º8D0_H;+w%(eՙ2Sb~C]@/aSY.sKЏ裻oA֪V=ʶ'E'?X gH41 ϣ]ꟾέyUPYXY'?V=y#a? sS]XB-0\|[-1zh&_܄~Z];J/Hr?i~|`M?szx@>aj69?ߺLX|>;0}Cݱ ˥Y~ [}闘R@wr7(A7 _+X_d3z8CNy(%,0zUNo%8u$HQPw퇈Lpډ kE Yp_#XeP> [AzfX%=ȻS?.C#R~P旬ߏٔ '>uӏzPz A( s\\?)?ژ۬gUj7A!-XXJ姪 -q-I?rOsn^8AAt'ʻ FH!m1s?AG9$w 6G|AL'7{B'1LR1 6Q$Ab]?qYQK?f1[Y=99%?7*fAH!~NZ>" +x|SqGßJ!cY1;}TX$Ⱥ[W?5wVxc7CѴJn`2~X8=^tbAB[WE?oGQѦa*If<2ͣ9_h2P1RHm=WH=2#qc̲ҎRw>$=f֏6}(/1# O\G$H=6Ghm^g$ ,0qlRkUVG=6H]Ǘl$LA6G]/ ;/F V=λ(dEdzɏX[CQȃ#sG5*n<5 ؙs:!|L0wj5bQT | x aa.Y=WEnj?%^C[? <xHDqW^#+ͫ]B_!=k#,$'8 حՎvQPGmt#$N*#WO{3R!~fZTEG?^;y%j~IAS-I>v8j!v"*a./^Qâ! R  ?TBfxx\1` ^!}?~`GFK63  cX^!+G|V>^c'ۭX@e5?TIuA2no~~ u|}S<ސ l~\j8?/H !+I?*v@"?֖?~  v|'Eh2zF\`~ܢw~|`XGkOG LXJǺ]p㻋!_A|Z xϏx?6,ޏ_#%+*?.k2ie @ dW ~Iv6+4~xa=P`@YCfu,K?vI34{;~YHϱZf/W =O_],K?vȺXctxUf_Zǯ0#ϗ.2 2 1r|f&($?B:/ 2 #_8B:8_8c?%q&@m/Yd{d2E#2X8Affffff>{.te7֮(D~wPe_}p4$ooGL嵣һwOwڶZ[m@ZN+8v>o~ /~Hvno~l~ܺfoߺһ/Q|AV︛G9wț~ǭ(s#I}A ,|]/>ۻ~9H&u_deMOh_H_աUG Czwu~{8?Tk>]* P =pL<_u;Xh9n<_~! endstream endobj 196 0 obj << /Filter /FlateDecode /Length 2296 >> stream xn#GnGFŨޏ`sL l&se-MG~ɪ&[ܣ`bMo3¿?X=;Q˓Nt:of^"F6g7'u%=>fܲ,2*:'e@lͪ*+mV-9D݉ʺvu6^<[Xߦ0B9hH g}Hp$&T T--g_=nc>" 7*uL5;l, .rVmkmrxe)~9,RǸپAҒtp`;Z:7$BԇIOn@C_5 V|mB`%5&揟Yɭ-Tv6j 5^N*H_T`5I[p& apaW~ C17V[ZEgE)͖ߟ,~dixK ^G./YO~/|" VeYv &8[hyК.%Z쯢v3n &x5J3khI䧄+Yb T"FN`CVDMl~ '_Xu]TL~'+y# Cx $H QNfVQV<}ʔxTŎPuDp)܇ӕx{~J{&I\/ODQ5TsQ孵0t#X8r:R◮O.@m_$ճ*N{fŮfЃXHl>awh]pYZsXSQ jZWLikoB&AEhg4ޗ#{S{Xs5"QUxfkMMUתـMr,W8/Ѯ1.{QY[da# L. 1 x$-)g\)LGvɍd+v|allU,rl=e`7p^SGhmli+ g(cxs [Pfւ>28rvgwMVGxKXf'93CNG|6d+9M>DƮ-2zt>j=dmr'f VU{ֺm%MiۍRP.Px' c*<'=*feT_^eJ<칟4@MUKvߠAΓPpoDŔ9RSM̭ fCz|_G%1^h@d>7-`z$'F}Im=Ld!I/A{>QyV \rhApxEB}C7>]S^3kܕ%{*Y4\u2;Jt>Qva0vAPqQV4O݌wޑV|LwjgE=^ë/Uj.WYi.qiWlO , Zes X`gWYPlNπ{ѣR-~NƢ %>> stream xXMSG#˨®#IT%KA## _v 5%q8LlT%O{2xmT5j:0P_d^}?V$F'v M2Bl7j[Fǃq>AFq6Y/ 22R~#Gm7݄hu5b9uh$xG%̦11X41(/ms)K|*ld :J-204>9mH05䥴eEFֽKJo>1 X+]BUV#M#$TG^gj+ڸ&z2iiw2tfZ@߼Kt&ǀ†e7X\^ {6׀ٴ,B_]w Y|.rV6O]f)u\Lۜ-ެX.&7^ S2*3IP. A@N2o]h`jB2 㵥|Be8/ibc9E x)y)UiJ(> [c`|bkjwa.7fo[BXmJ,]+.0Dx)q\唷R ][͆9r(Au#YHIx"T@]; hՐ.g^w:0>eSIm8UB&\ Dx |@'z N.m{s#x˫.733sG8A.kDH(A/N( B2MOfYoTQ Vsx.ѱƸ:a1ЗYbHmo[RcG`v!-+v#(Gh_1.9S3G@͛z3qoIR$Ed h?gzʦcxNV=pee%I-wu; M"\Q[G .@` )} Lȶc ?wF U; M;I LX}g$B"J-7Ū M7޷t&ꢇYa)uhL,X6@өo ?l+c\I;g5%Bj#["Nі'q>> stream xYIs[EW|aDYٗ) MpI8Ȗ,8V;~;=^mC*EʛXfFWFoF|:n7fYIdRŨQ ]2n<یYYϯWz2Rz";+^s-U^Ie} 4݅lu5b7I.vُJ>YϪ31 841(oek|.tOŐ@ⓝAGE@JŖ~$h)䥴E=щ\^GŢwI =-yHWuOLkļ*I.?*f6iflpAVkil ~An?~˯< xLUk`MFvHz rbY3aHY ҧ b"V5=)g5^f&EX+d#&y"=u HHrU]KϺBkt)y*+uNԆNe O KdLX:Wrr`0z]Z0hSmNQph]>V GFx-PD׫\IRž+% T68ߑ vWD(#/s^R<4:S df(2:@о:-@@Bnk 4*%\V:ImoL*-TK҅o&ā\*ymJ4[$"p]b iY;I_p˶:>{sT(5]A̱Ă+S!%x5GK X>fnk~S&-Ѩm"Ia|<̝.e#gnՎp0.K@r32-rCSh0w:Y -!J(ZT%{%O: ihˌ _(uk%#9/Ih+}qZ=}xZ|`~!][-LjVFTd nwq)" C-qu3euu6vVle-(aVþAc|taNWR0w_ I̽&A݀Դe̕B> șj[ z߷(<S-bO]ۣplKOnѪY:! w7Qom0m]8)8VO}-soP|-P<[{9o¢x)˫)=( 䜡ܙmW%-KWy$Wk@q&$5Gqc-\, PL?cG%= DM9{57xW K6Jr}m͊<6- N.a\Ѻ~ /+xb󰤉o#~R۳~S3lJuƙזUCOJZ6̀TE18~;F}7_'u^wâӝp|y {P? =*"^x"Ԟm^׏ ErzXl[ӂp_Q `nml%l3Q@9(r٫Gްxw!D='5O{xJW^+. #7I/݅T{s> stream x\Ko7 #=w!N,EZlF)idd[9obOF+9LbWU_{␵ҟ}/rs/x? #c=?C;ݵNã/~& 9Z\7cjZŜVY_q⦑_4㒉 ^RžF%?ͥmhfEkz6]`f8lTJk0(m l~V*꧝:s0c-L4^NG8Qp&m.Г˸rS3qV7E8R4v`{8cL>1ťlsTRrJeD0Їs[kL(g W΁ef c8)H9Ii.-JSv:<_`k*i尷5mTY>fopMY2Ɲl*pFOi8Iƛ NÊ]{q%(=B:xx2)DZOp-ѰfBŮhLSD=98Gl@>JF@=&Usae hMSp 5<)ͫ0B,3 LZ{//g*pIl?j*e ς5厽Y' pPaB86E%1;GsVvKne> Tmy󁢶ܠك;KKs8i4#vQmOOJfaUZ=$_ߌsH€ Mg0[< r;KCXI#rgß;5YB@I#H%zߩN,@Ԡ#RTG!dtq_<Āבˈ.V9]Cғ&P pu,>smFJW_ *&.έy)iW.lh12sp(% ld'1P7WNC8CT"io(+ˡUyPI4f  e'qgqpf:8b QU DԴ1> PӸ Zk6>J$!2; QFn>cP>X_!wwXh\& Yu6'׭f9И u 3of˒JQ#4(7E RCMjs7Es]{i+Ee7lӖXRAR88kxkz>J'tb%Zb QV:0d^,nɡgҊVáɳiW{ 2eDہWx]4V@9XPr5j _ 3Ļf|EQQWzAwEDW5ȕQZU">!W@-:SϬȨg9'x1Fs$8-b:Q4&%s\qjED!sCI|8S{o?A)=o}Z HX˺7S߇" %9g?QTa_c|nM9x|J JGd!͖P:D B֓#LxYF oݐdVe}Ɓ;'u&ZWe uh7NhFA9] &.P!ZWܝz\aƻ qX}/o\g|حbۥFگ#OE z 4h5[.peY"DWz$W dғye"ԞnA6CU" sq(pS Y W"|.]Nr{.14)BEx;Etx]3R#DBo/뺍`9WDTׂ,HkߙO|\MzLvB*"̈́F{esz ]rmJ 1K[mtFv<A &筒&-i_ʸ][ߙcMtڙh?=D es:Ȏ"std&W/u#msJ'ij̮2k2#k3.#׽~:S‘}m'EDqDd5AQ5"ҷbw (m)oб/˧V(E{ ]WT?CmH/{Wy%ϩٮF!1Hsǒ\ %Rwoѐ_> stream xXK7 sz?z,0CRw$صn~5# ,"#99AҿvF + NڙLjؼ^U5h'\qvB6BvɊ,u2*hq3RLN]d‥U^$ǵ1q\0I.'q^L^-X荵C!8eLɻW2ѷ@Piܼ[Yz?X[L!룅*ӑN>^)X0%k<;:i|zK)k@#c4G ~֚)$vdm|L+LD'NF"dDqnAGU%sR"X >ro4G/ ZN3 ckVsoG*6(X$]#x0J5ʫ&}&K-0Gs(^$LCd`7Dx"M1Yi)ŰvPs6nr\VuD22.ؔ"eRkhIˋpSFWhn",JĮs '68jt('1J`kH7l_wfZEQJE!D37Wo_!zJ% ?S:j NK*}iގdrZ#,eU2&%0r~NdrC@B:-L.;EigPnqU&eZ4&̜|VՅC{ƯlxeL"2^|ᒖ8>E5i֭|'oD"̿GT%r t  9Θ]q N.)U-Fe&T7;C  #yA}uhvUiw`7 ke" XLQ`%2 ڍpW֖/2y;6b-:02$eWE5{~n9vXo[_ek@NZP=%j>7R7,.D\ M8J+^Rkfdfbl-'V`aZߘu/A=s?u.$2Nj-^V'm)j9O$vQ?z\䊔 %fe(-({r&qVgW.)Dk=q֘Ddg%O X5Ƅ'\CGKcܐ}9]y)hmѕk>CU3pjl{> stream xcd`ab`dddw 641H3a!O/VY~'YsyyX~#=C{*$fFʢdMCKKs#KԢ<Ē 'G!8?93RA&J_\/1X/(NSG<$C!(8,5E-?D/17UL=土[PZZZ`d{N|q00~Ksp跲ֿ^_n=E'l~];\| pBIOpb1y4^ʜ|endstream endobj 202 0 obj << /Filter /FlateDecode /Length 163 >> stream x3135R0P0Bc3csC.=Cɹ\ `Ac# RN\ %E\@u\@E\N \.@3c݀}o]s~Nin^1PBC/'Wual6.&.WO@.Ӷ/Sendstream endobj 203 0 obj << /Filter /FlateDecode /Length 163 >> stream x]O10 @+XҡUqP(/ СY:ߝ|reA>E0u- -m1,O)x@fw5|Vs^[+x$E b'Φ2?M%K17MR{;RB|DSzendstream endobj 204 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1865 >> stream xeT}PSW'ŀ7՗ڭ :VƏ"! $$TP&*7Xڊҵ]ٺ٥;vvf\\wfgs̹}TpEӴ,^E ´ a._%Nŭv-P wOc~O@sj) M̥ƼBS.ˢ2zٲEQQ˔z);]cP4,^cDczR"b[YPPP7/4t;_YmR~5kMܨkc\8y,ZReК Ey,t&]vLmPTLQQ TZGj5AOSz>=?hUcNɵҕRS;f&Ox(I8=0E${6xO2Lf!CAL a:˗Z%}:5u^uuC?ܶ_0rvG襛pnI!XL%\"2~'bOQɓ|2A{JY;܁Nm'.}n8s|/.Pvk5#ӢVDCpWCr Zb<,g|.2d*:,~ePV?khhvg= #v6PGh4s%8NbtdZ`|#&,&JG*W9aG>|ihx!f  ,K4$ 4)ROQ.$=8(,Ɣ]}㙌,_:߁W"S`|~|Lfp8GcZ1/Yݗ"C$&(˰rr!sUǘ 2;yj x8"X#t';FЃީwjV'ȈhdFekvɣ!U+`JT'x8 M^SDEybj+.(n. H{ ~ƽE[WZVRܯbW%QDI}lZ+~r}cA p ~nGdnhKK4p Φ(HE/{q NƩ?{cS7nٟ, 0hvV W`_e\ZПHƿqh%sp<%kL$Eg0׉~-1o_^DE\uۀ,42^4X-$VH>t%@cDK])MPQS]`M_GTx^qOR|{T* ڛqmRT۟ӚK^(8_957X4^LUjuvSڻomﮬvة>[( wv' //6ݞ2 STGxg endstream endobj 205 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 4642 >> stream xyTgաy_Tڎ[kGkVQB $!{n'5eQT(.XҢe[l'gڙ9'{~,b(b]~ .Nc%[$}[2u/_]5=U0 [R>L'6%W Eb~zFndTK.p+IiI~ZnAde?/J%e'2{N)m_8/-5œ Ii#7J-䦉# S9A&޷:WVi1{b3fm˞;oD K$6-DFfB܄S~v'L$&O oI \{fؠ>,xVPZ?FhZޓ`l.vc愼)t __ yV %`(Q*hF zWBſcΘJ}ߒ ͕e秔ĂT5VJ u2zg)E5J{ :xPE'.35ߡ'@R |p[O-<޴;6Q2SClٞȰݒ Sɡ\SeP(XxycEU' tyUFhKw}vfc2M t*(Is'̸⨈oKMLh$gAqmͮc@zPYK,$B%1D 7h FV0B1J-4 ,} ߱:t#wьϮt4}t7l0t./V`Fϱ78{S0~Ӂ V^mU)VaYIe^SW79FNż)zX v+Paox$+8k`!*4[2P209ٻL(=v`iGyLfsy4~ۭ߻O)*NF] q9QU[jj}NO?UF*ޜȽXU?_\{ ȩh ˲;T><̊S ?TPu 9gjM[ 2U]foz)v7GyZ0 qv 2W-4A1Z->n0pW[}?1'SDw Xڼ-'}{98~!46y 'W[bWT^ E00Y'H~xY}>^]1*E#aZA)wt2 A(PF*hB0a31sYzñlT /]-'h\~DqI֠YvNvP5|]arj*\Ȁ4 ?ThM +F+]nhq J7VjPVt$S!-ߝ2ӆ5"BwB.!jnhVmh&L Xiu N!K@9t(.MrMSM̅ V7¿f_gn;0xw3&#}7 ɀˀ\Cen*ʠyE~+JKdXijJW(c K2YO^ZחȔDI@Ӭc?]}:: /m_UB̕7 G% +2v ɸ-𞥷F+\;ٳкӳqP*?76?(Z"tf)db%K7PiwCX.Z̗L8Ĥ0Jy~$z B{P6S"01̓/3m {a Lf0?~\gu`rSz9Z|WvZW-RRRi;?yǢΌz[V>?H&?chpJ^7o<^'Rv`KRY r83[I⩧w[.\~kMdEqbM6"c j{ Ug.4[/sFOfuVZ[4[Z3W ]p~{j2=$LT5PnKxLשlg2-YЎx0'}b_ZjPT TÝ>.q[[[~/Y?۔=7ŀsdy^Ep cTf Kn֎i3G)4C%OKf9ߤ&wxHams`68^$RJ{a޿ϛƚ]wgSq ;2otas ;([ iz6[h]8q]A=p@UH9Xl$j̽U ZB+?4'st;x*֢ wKN c^" Ywwg.Q]wpdN Ěo_CmN՞ne4Ӟ8!"b.t-h=>{⓫]*4{qI4vLR&aԖ}YUVj50 M^Vr2g r5º-ayqqT, JڗX ƇyXMUx#&i}aCA@r ّ5k@YY#ՙ D\mP9bN8eQq18!Q|d"w!`uo]V_ պi߃ݵǗ3gXQvZ"כ  e2K 9RMuՍ{-X%S2ґb#7z3,S">Y i@k hac f8srendstream endobj 206 0 obj << /Filter /FlateDecode /Length 162 >> stream x]O10 @ ]ZUm?eB:gׁm_Xց$i, x`CSwendstream endobj 207 0 obj << /Filter /FlateDecode /Length 335 >> stream xuSB1 j~M衃N<8Ps:4MIO"zh|/6ѯ?;|-674OTPʝRSH"^D{֢)f2 nQjo͋̄e7af{_箛D@Z9e BLa4;) USYUKXX(6Dr׿ާd:Ä?v5 &]o /1GQD]\K cV#FrMRXyF0_744mdDJX5MVʱȶȽhȨ:Fָn{_;o*}endstream endobj 208 0 obj << /BitsPerComponent 8 /ColorSpace 128 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 18068 >> stream x} cǑfKXeٲcŖ)&9'DRvsYIj %)ܼD9x`$$@ _2000000000000000000000000000000000000000000/=w]X}RgaWc=E?uѧ}V { j?dymF0zVܷe^a?os.懿d&^>b+Zݺ&g->G¾{^fh#7GS>XoK(߯W#Џk#?.3Tʰ$D V,]uyя.3 B;^t=&k_[{]fW~%܄.Ml='k_Š8$14$NA|='k_rb_>9힗Y_1pIkp_vAܾޓ/as}xFq%(%ൂFmA3x2TFѨeY#&aᅨz~!xSTaM&xi%pc\?HJRgRדxT-+N@[t/T_k=dX *YLoyZR͋~GHrSRC*Ng2t:RUQ rh{]vAW͎6~o5,EEǬh(ZHv-+ C}P ~;;/RԀd /G5GDըuc#5r*mgl.Hghnhv^^EW ./a^ ml8߸؏DcqX0ㇱUD;zހӲY.XQ!5-uO.agm6K0utcx5`@>~ud,Yzun( ZQK8VpًAEjzFQX8`y9crJ%C^ ŋ9򈜀 . ~ B?~7ã#%)U3Ophy͢cJ΃1&-.S&Øp-Tc .l\d#%v . CH,,?ISJX,ˋcjBy-d979@%ߨ3  . WsQ : pl/T"A$1h| L(~!RFZ4A`-U5JJK@\\*2l:Am/_Y1d ~aagyߍuc2rѨsX{3ີo츼z9Q Y,K \/yYDWXc!qzxDw,B輾oW"E^ȳ7[R~hcQCAv&vl_{wOf?Դ#h}($qw^^n7L 7]iUT]87ί u , @Ww;//D7-LȢd_!vm fۉ}/EϖC`)yX3YpNmĂ)8ۧ/̺Bx"OYB2tC8Ng3[V."M31[wؑ~Z#`ID\Yʸ3ޅ7m륩$!mE~S E)&I*'!0ƛ-b.Ju+[#LlE[']ѧKJŧ+:/+ޗyyt2<)Gzn~^Q&9ͱA`[&>巫_ٞ/5)FWb]pmLj{X`=] s)9SC, vds6!>/=1xkb'n4j4WЊo7f b{F+~(Y=+,/4lM>p^abbI u 7(SL0Yy5_b> ;9"H(䁋XTu|+S! /Cgh$߮_~W?'#2`XAÔ!-)\aK630yhD/"0I36X۝W1XʓGe7yxٓ,m:DF_|Rǜup ,yyeF Ja t'sQ:e}Z\!d֙ЖџCG{M%Թ@C !ZϪhxenOs M䵔/"]~v ZnEĊTmR}MNr `ȡk?')]ݷz_ SvV#D~,:`+ ŝײ(@67Ugb"%mI('~8DR*g-bf"Ϻ<sA18'TMRm`ۇ+auhH]y-In2sEf!)" M۳' ַ !(x4$W%WUaN%$laP4tminh ..q< »[^~FeGMz4i!y]!*IÜ"FX4~FYgG024~v^{0"Z"RG JѸDՔ,\Q?tMQFpT `=wQʢ,ҕW}bY|>ӤUPP켻XPTϝ]]^`'jǖmů(t6]m!D^_AYNj0mԥ+gCo: ם(W~"vD>aCۅK/iPY5Qm*x,&BLeQ;߉@cYA#0~fɯ'T'YTHWIdrk(+"`;\[x-&}$. X!N0tufON/t+l*p7Q EWrІllT?K:pç-rw^!%(KqD),Q$OaT+r,#ByK4w߈!<ēY X -BWM6رrG3eJI4D9s .RdAqegGK>T&oPUPlA2qE6.Aŗ>H޽om~=~1@o(Թtq {) 较I0ORl^jd=߾%H=? H,R'Z(n cД YѮb%owWI\:%Aԫ"N3$Y1e\{GpK3%j]: Z#R1*67u4w@t|[cT#W98GI\2!0cX,_ /:zZ-[3aPWyɉՊv?mζsbO9e.*i*!%oHؔZ imSjgdx]7J?Mk+i,L3T*SVW~EŰ`z'3`~vwV7 v (|.HdU⢨2zBh̀w i~9Lz+C{>[9 !9 ,|XNF8de *\"t?JjĐuyCB>/ҙ|9;t"I1ұrzL)8t}#y8N&b +86#oPDBrX)ٟ=IXO ЂDdCv͢ gY:W&4 h}ZD%{ŒzϗJR}qz| $mDD2Eo{˒8:ct劬`eΜ홊Ջ=s44lVJ;➪STO+ H@h]7׀_i}p&c,iWlTLza HX:WOOn/D6XU;cgsE,A8㑰o{tH޽oq~S*X˯&Iί< f5S<8" V!ohjrF\ZɥB\y89t[7USIl\Sx]2Ÿ,Sٟ ,F3Yؓ:j'"# ]Y LϾDì0ɭԤd Z" kDpq["S(67jZ|844<4< [\,sjE6l=MpћHe0pKsCN&D^^SV*,[Y %!a-{M&#Y2q_ZNVzۏb aT\zQ5VfFork |. )F9茑VImř^:0ȯ=-~yY 67B!Q&Ud6pB!$ gKz8mF\IzU"zT ӀTGUI)&|6W(ͅ{÷nňD:/5 ko9"B%iNN(2-yvQ7XCN%QNIȄGGx :yMv),7> y Ҷ9.+S&Fo/V.x{h9Z Mp8EH"aC~-xңJ7BJ 2%WZ.~ݮҲc "~kaIAR!hc.֚'BIJx:_907;??ŊùULgX%P% ޢ 5ÌTE[t7[=G>9N. P8 +ص$Zj># l^ǣ5Nķ6 +BV2S6gK#7 4GaxdS`ny YI"l |k2nP% ƟU" ;Nr4=߭Wn~\86^mWqĬDq^hLqj,&[sc2M) 4oJ:"o7#W@Q6~/搢R1h+<1ۛ~߾r]vQ~^BytzD` U'x/,k 3&Vq]*Um},$ooy8/~D?Bb uF^9aa9 y~&*) ';5~4;yp7BvK %D6G!IapWGZ}q7s8+~Q4e^IV.e)T:=pv~u-Vˊe'ƯX ~'kѝ ȩF[e`PWV"oR7l<[!i GXY +@wy^"Yȶ,9ve@MOV*{:F6k;-k=8q5"'RU:9$Su%#N|WM]wBS'6g9Z,GVܦN';G%W+ ^iG29UsCr<)%B[S7~ZOؗDL2F"R-ڔ%}xU#qjTfZs4OeB5gWtA|6s>wm?N~C* LE΢nr@vދwi5A>7rLIK:Y!Ui+Wj=rG4 y oNYVB\3~%pÒ_7KVP ` lnc*EiU#0 IPH}efˋݕl,+m/c9 kWYuY87ȯ ̅ <(<ůtdCQEӾq;/$Gג?PT;\}J(:gQH-[Y, o8߮S~ 9z.uc?+:XZlwC7\.B׊[Da5~H*oTVh miPmYȠ]Kzd{꒸h&WtE\!B)^FbI?~*l"u^ETZ鱖Zvzj:F##Jm:HE*b*HOA$Wb:CB(BĈt 6yQRz~q6JJR!ʪJmRj+>y[o!"4qe-HqLb<H@ b9BI{ChrB˫9.~pzaIv)HhA zuz1X%DI$u (pC'uB]q𻁼:"y!hAY(1fNC1WTxfu06noo|QKK\[Zӕ}$!9c7PB QnhP^DEB\o$ؒ-V{Hm ڽ :oW:nyFm~@ʯ>C㺵3Z"Î%]qW H Jsw6(Ձw^^ˊ:Kj9E 6AX;=S4nLJe+MdoKůK2M^jGS$q(d ~y.L|VRJ7ෳ+V)+vbwFW;,fdҩdԂ%$Jۿϲd PިTcJ[JÒG--EOR %ߤoiW[ڪ<1,ޠ(%m;B|SB ." *G|2/sYL=Eui6h N7#yIRyywB3V* H 2fT%DaA1A%nRoM G2ˋ%ڤ2"$6)ᐪrT*Aƣ!+/9ò3gT%0ǩZ,~%1N6b)8 fP$&;0crDTSDۢK~ʍ)$xv4\ cg}ˋ]hE[T#~K@ JJRf]8ϐtׁj S%h:;.w+ 'b,тcP( Q-͸a~ۍU$gAțK@_qFU^\^  xW `ã I.VP+%c'79Nb.i^T,T&FzfJĕ_cgw^ޢ ,䱱Wr*K@f]x>ݓj::6 R; Q.WAlo#eD(x9] _-.K {[Gngݮ_`m6өKM=4a켼ЮGK=Oɾ@Hyyy`?/ټFl%U{|;uiiif7{t MlNLo}+H}+츼n`xێB]y) GAhqy}#k5F^#-#+ `ݡGy#oW;AU#N=x0{ȻS{ Ը&ww=?"lL㎬mvG{~fE&/1w}񜾵;ўg&/)O1iԓE=>3,vq}__-Me]nh:l,v|tgz.pu D}=>3,vq其zoGޞg&=E;~Ȼ%[ak? HWX_L=؇_M±3$񷴰ŗ ~紘_^= O?{! ɻt\wv;##/oB}^DyByu}5ՏP ?z_'/r7=>{7dK zp}qk`````````````````````````````````````````````````````````7}W~;?y}_] ;^/oWلe/yajGzJtƵܫ#؟G}g߾ӑߺC_+o,:10I||15G_K?}teSpLp JY W >KC:[zt?ۀÞrr hk_7d ڈCxK;p_%|{ qG `@GK*Gء_qOq|؇?:W6~C!Rl q+N=~Kv+#խ/}}Gwf]t~7G0@=݇뮍n *~6r_y`XCTY!/~{^0eK@ ZM~lo~6JD=_f_~| K.rb_r?:e? \_CE,_#МLb 1,#I_411D%Ʉ=p@41?32QH~Z9◮#~$F>"s]~|G\1m}uW4Xsg9 lnk``````````````````````p@|ݮ'XVkZ^_G4ku|h_jR៬%b!e9l;8G?Z^ Ju.#p6- 7ҵ0XQ9Ւ`;&i"YH?~O 2~ VoXf%@0hgNl2L$x"I j\.'4,~H/*7]wAjF]bzR:{@zo* Z^Iqu t`l~;-WY(w`5"XWJ8\$7 4tVB.:>R:50"]FCh=i Mf$. *E9N4W*7C0 7\uA@U!ՇEvcm-aI3m =rw=CiZyUe t(m%I\1v~6[F-cOKGxeqE^[t}zDŽ M$: ^;~ob>b7-B-&XV_Rz sWJϦK`60usr9/Cz_<^s 'J7"X*k_<ceTd;ZT˱SܪJ)$W?}ܝIZvΤ"F܄0dZo\L&%[E0R+/9lÑ*#g&zW3) ȤSconVW_GX;[:y}Yy"_Vn+V~Zo~ػ]GؒjfkϞ0twlrr||sS(fd҂mJ^eV|/j ˁw`tEemYpanϟ;sٽMdӸvel>جW636:9 |~k#Pԃɱ7sی_;bMNxzRn͌ߛGu,QN,_ f8%ܡ^7ƦfYw ۾(# K [ v/<,́&*T IXGKr 6ͱrl_ߥ;^3n,C6,.JsnC~W X1٥Jq3#}k"k4z։TJ97h/GWl$Y R,7ot J *?S@$7쉀M/u k#~6n w;]FZ'Ewl*EPKH4*J*Θ]z\s`eDV_/c]X|? Ёt9YV,U*؎F뮄w [' + M;`ƥ]RV8IX?\͟yKb1hǰ-#\e9G~%%{ eJc׼H(t`gwVaZ/ 8ei05X!KrhuL.p#*ڱ-sZb}zSNz]QFw)+[J2+߭fZo OvGXq7s4 dF >X ⵏp lP*Wf&߾wONx=bnJ|Z*7/UݛW}֕ߓcoyGo,'<ԐDk5m+5|뭅C.?ٙSx[z:ZYqSxz(=r |wt[0 T4fI(Ek,#t^@u-#W{?UFkeqqv|s||'y؛oE9r{X0? ,LMq˗.lD0;~4;{co=﷎=/{oߺ9IJg~s9H].K~_ ܏x0>zwKϝ;w㓧N:޻x{8qK1Z &ֆzƕ?xĻvxn^߅Ssj+nfu}Y} s3&]pg|r'?S| Y@W^c^u| j~z w׃s3ӳ+\.pc7ӈ׿nNϷV+8kn\9wΞ9s)?"-Wm,rzÀۀc޸uxrSgyn,T ~~Vox~ *5_y膮UO !O'ù‡]_\8w6Ja(jo6`܋gx[s< d0 9@B9\_Go~ȯ"kSV]Gwo^z/r:?;{9K//3Ɓ{wEis49 G_*+3q oS8 AԮl6~ N~Wm+ ssc7/?ǧ?;É8}'g^=}u`}(H'ݸy-ևѻ`t>}r3[ŕkNl*U2pÞ;8k[~ѝG/Q5*r'qkirsoN~[ ׯ]#+\7LMr}-;_>{Le w{H~"@s RE=~>Bk[JP 0a1u w}v;oyͷy[=[\Νo([7p{sWh)hуWFsq!؄{/Zcs~?ߐŒ td8y Nf>u?xo9zԃl\iNN|vWSwnq|U/!׹~shxhq6tCt^\aV}mвw [` _yvvfڹyfMg> bd廓LAgjr||rr|gl+^/Fn۾[eNPyB"L*g?8сET&dx>eEq8Ǵ‹0^))=tN1omRw`v~)#0[֖tœeEQˊqS8nؘœ,/o(u^B\XXv!U"x%8 !^~^ӏ}ӔiF8IJt2qodkw/}]7am3B0 a>ǭB1p._F[TJ{BW<^~E g̺IsT1sg3Y82[e3\>[pOK2Uu>!s~o"^oW?#n0no')ŢJ3+SC,, ,Ier9dkHW:%vG89Lَp9G;E} /n=Cٜ㱨ECln:%3Z0Si܅+O;Hx{[– &-<uD{7?DFZ@3_ޣvq}oR鈎O\MS'Tq>>"k'wv7k2y*-]EbŗΠF2DP`cY9ZX]ZXP ٢ mT!h|[cJQ*mvnjزR,YN~!bk/^Fׁ(+NEڋbq8E2oS"ʌikpr>I!=vq7Xт=+Asann~%ܨ\VF8jbfz{??;;ߨ IW 'F~$oԛ:U;ңZZ| Wt@Upv뮯ssss3 gC>q 0p!H{|WD>3 ?[iWE^Fdw`#u),[o~Cˈ.1 pk]816b&n+)!sęwz}k,[<^ɽ]32kx"f|g /~ɬ:Pmr~Rc׹˯.j( Z<樟 :#*0&Hᆰ-E+:ú+VH3j9}`' 3n]GOcpu/c0v #wݽw}ݮlF O<2]?A>nF0n]?.ϱ^2]?}.off!\e/a ]?Y<הn w0n{F?o{~\0n>\0o~ | L\O!F>`^J[=̀t=?"yN{vG{~fE0W8>eB=>3,A￞Zrўg zL)Co[nG{s *GNR/1ўg tNz;ۍQ-W/{\?8W_>2kl.u_5ep&`-OӁub>3-n]b~5 :ϔ6X?^?}/k#НB=/ Hxsl{( _]?s#T+ko W?a=W~b}#l}cGN'=endstream endobj 209 0 obj << /Filter /FlateDecode /Length 402 >> stream xuM1 ?"̡8R;$=Τ+R8)!]wg~SYj6Em篮 E\r} '֢)ܝ,$ebU,V &,5Of]/LCd%4h!pwoq)z@SX(%Vb 0X ݭ;LGy)A0j043{"X> stream AdobedC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?Z( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( +>],h.K&Ln[V\s??.? j+'+-~iȌ=U`{H=x_+tEdl\1hZUn֐0׿/_ޟͥO+qUk c' j+'OQBAխg?BRk^пo;@VO:.CI)q>}ɣ/ ԿWsE^&ӈ$_>z9EdOoMƟIH4%%Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Ou%f5bNzrQ*m}\\,Jʿ$l`$Hj-wk:+vM0E)I σU2>⿗ze q쑍}+R%teܐM[pz`dORj[\yx\>t?tRKԶ}>}qAPONoD'{sic=>ѯ7MfFtU2NڠE:aHG#WZrUg}T  /c3̒>vǏӧ9 i.Q{C~g׿%O=@5YY~j3϶19M Ty_'ٴ۬_Iǧ9xhlc1d1tK桩\? MSߒ3^G綥K9GfkR_33=9ym-՜FWu =9<z?ߛp=HXr}Mh??-yR(u>Id`t<y5@@ZAvUu55g۞Y"9g=;\㧷17P| v_nbSw:hjW.]>AweBG m/mo2Yqm8#"[ˉ'y62}NZK+fZH2Aǧ;-O:֮#Q<Ƨ /~B;0؜ae#a՘٠(QES&9xE))PO#4(cA&kQ@?ż2٧x$B}J xG綥K9ZsK<:jY$ &u};?ml88hz{j_4d߻o5G|.=ץ>ͦZI6&}>s0@5/mƨ{k>n~ۭRLx{c?|>V>mR<y;<`ORStgTz(&"m^Y 1Il]Urp2Lk?r]oqåMs.V۞pqݮYNiv0L$V謹8 g ?!,5ݓ,dEqϪn0koH7֓XE1[1 U=;VdkA@V>tJ);s$jSf?T:oiPNEX,g1PvvC@VKRyTyS,(+`(\wtRO[5I53$rCKؠǶޯ \l*zst^+b ( ( ( ( ( (2uD;㽏E =̪=K޴9xE)+3.vq)q̎ rqkPg% 2$YrX{Ӭ W1G}uOU3vʲ z֠((((MsL$R)WG W3 / ^|$q_fK𞃜t/,4f=͵iWkS($=ɮ\F!RVV+ZI\nKOzY2}*d{e?+M?8?W/9'l5± C(YS_?Ѣ;j@$B۶I1Y43@<ꬬw,$m| }*C b1m!ɻ? ~]=wg~P*zVHMB3@OGޫowvzT;Mm/!0\Tδ=.m_񬴉4En\CݏD%$ַ v]AC$iBU\?Kx{) =GN >ޕ6FFݧC/3zSMА#v#F\)+6rTgYEXy⺁&*ýI\Oc6zr aJNz }Oqsmtܠ"' WBkAN'R夒!R)5'܄W}jI'Gm ?R u}u&?xik˒MLy뻌Z ( ( ( BBII4q|8Qzƛ`15뙵 v!8y-2Tc`iSuzU)`t&U$'=JuU8sJAo\r=E5mK0G>oe-^ڶxBq]AB9+Ev}j},A񞠊-22Ҭym,<ەB7Xa!= דަ[Rܓ3SoiIyJq${ Yr77a_E-ؗ!ذ*F2[C9"B\}Ѥ 2hgR,dvQE{EPEPEPEPEPEPOymgn5$Y[H@j{谧2G< =#X] cq@#(e*zZ(Vvh$ZZna62O~QW:v5 X1+/R񖅥Ke{zC-ld9 GB+b+Xn|3ƲF#rpyhkVMEP ((((((w:ź7_M+~o#Y0|*0yy~&ݏ\oLn JIc{ oĎ:Y:n/f`n}9QEQEQE! ʊYUQI7[Pt"yn;kF24~d"㫈yNҩs51rB3UY>bp$mʇ>$ m ]T]bZ=.qz9v$ҙO?jD(9GJZ]Ru1vEEvYVdiػu\,+[!bn{[~WGRJjJr+`ےlg"6'yb`3BWl2'ɳ:5Jwo#qE14kXQJc$ֶY"^3趩ue1&II^qס :«V84UH,y'UǴe\ezE>}WllQ~nzӹšGEsz9}2C)ZnwըI*VꨦE"I:S >S((((o=}]y5&!g^( ޡ'PEPx3y1{hxoImcOXWG@T3k^O63*'"^0赮Z3R=Oj֬$U`T+]2@ 'qjs,zaG0F!$EDVG #yy[xSiv[XT+ó| >$kiHe Avu$G6o.7ۍoͷoƒpQ$k((( ( ( ( ( ɽ׉4Ocp?9VN۾f:Ǜn8@⯓׳iv/(>Ġ϶ykZk[ r.Hܤ`zot 2=RHs:Т(QK;U$+Rv^X)ʣNzt#6l]]Gj` =kY3uSu&OE<ߍV{3]+ b3]FwOjirpzIq*sY\\(;%яj3[2-gZolIG=iLYHPx=N =6󜩨HKmk ڳ&xtygFvu 73 O$Ӟ ׵zxZR'Z>WF?ZכͫDrWH7-RcV y?3quNm2dW8Bw`Aʐr1ҽ!욎\WE5HC]2rSWUl1F7lzdU ?P2FXf}ͻlbAit@(((((|}HփxA%}Z ݴWZ&grF#dsՓ4AEws/eEEU̷up)$lNMWƫǼFZd_% =#Tƀ6+:Yt.;b$;XBLŰqn$VBT !PBpH\ʴ\}]v:֧3[xv7v݌|V^w+,]}nJJwI tC(rVS瑉Y),TZ֍uZxlc#bx;eJdY̧zb8?ʽpqz3xgfbNNh@s9mn=bs8g}EZә{BwҭӄV8VR8eBAާ9ֶI^3E$m& h^8D [ȯ`ed-27˖0ވt+;mwںxn"$da@fO#Ws˳α!m&D Xqv\H {TϦIF}Mb^$ >bUAFOFq΋ٓK$rlGpzU ~BO=sBMS#'K`S &OzVEyPT[v@#\󢖬KdTi_9`'Z,á*),J fЈ*F&z;y?O/O\|iɐc4GQt''OEݫ"[~Tϴmzu5 Vb婾+ SX[GXf0 ޮy#Q2q\b4\i)\h5$ x`W?td-J}Ӛh5a-SWsP~^9 tѲVڄPhaVDf:2wE=ѫ$ m \CTv0Y =OJ⏟E.pȱ9Ǿ8=+)Z YǧPhH!@>U(EPm5Oi՟ irxoIu5!-`f"p=5]$W=n#?*'"^0赭QT1a&\ wgzOupods /$@0+'KH.n0lQ#+0qq=Cv:%Ԣ(maNyȏYnȗĶ@֗fAa To I9RCFA(((((jV76w)D!3<;yg6%p 7ῖ6H﮷껦w\VVDU>cח$cw~W֡~$xzТ}E _d׉4Ocp?9kQEQEWicJρa>=:װeWR+ FAΔө/Σ)Kp-QG,SSXdy7@[pI뱼ԊJǗ|@MtjMt4 @f<=TܻϺupU#銝&FH~_٨UgsSrp+>&Eo[ܫeϝhEvڃʖLp@޳NW{ [Q3#,ݤ}=k&K-P8 ]6 y3 $QݧT>ҵXW6-#Ijǧhj0 z`TPAD?rѻ EUx 'ECF5b -}aXs! ޟJΖfGMv**j>q[l_F\>`r<܌ 7wSdsƗ_6KNA8N[װLnj*D*uF%f!B)GV큌3l\qYk Zmq)mzTy3eGoH۴ws0|팲O^N1۱dil'W_bM8徔ȵKiY%,YGy?qTf<@[ b[Lђ1>:UƋâȅ c{Ns\~?\]Ļ` d=z뛋Ro!_cԜ|8i*n3O"և[I h[B|nAIrsGZմخD z׎Y9f_Oj& 8܈Nf c3Y{ ? jka+'\Ώn5drJƇBEkVM|I =$S| ObkQEQE4?e3$g ]׆<;O&Y}>Id bPI&;m=I^N? (* :=lLg/h[{3 pQ+S57ӚOwpG+hS:xa;h`d8{זtͣj&1m %Zd ͐I WE b(5~ˮj^I%M\IpYc (rKcI XE~4}Q@Q@Q@Q@Q@u 6;]EđaTe Ͼ~/GҤkgN$.)<Nh.#1',GWՐǕ #~R?Tǎ\ֽ$GQzGqso "qS޼Zy/EH%mG=2=A5`:# E{ gČ闷0gڽfa%`zsׯmiE $sU%nMR[ލ๮2'9}1'׽v/L;R;[8O>MGdR?ZMwZҧk *#T#۷s\X[v)$f BنzB_4;(~I:W|-`,I82ԚXg"751#hĻ…r=>Wc?i1MuwzfT98lgLuVUqժǕj)Q\eQ@d\o1y_I*>6VN.ic & ՉhZ(( SZ}-\o>Etm-6Ckkv'm+:} S$RԌ)^;l\VŗVGڮՔHJY\7ˎO@#+e@U ((((((a|~i#=@5{QPl,\9C='I7E 4g2 bPkBc$Y"C#`y*hwj.{0U9\ njdcyݎ9{T N9j((((((+;DZ5c/Hg=8$dVQWџ=wm+`r 3ƒ vy33Td^o nDV_DO"gIoDX-,#WrYzqJJI{W`fV|3VPHcpۏ9Ӟծj:n,2Wx߯nOUx^[ǒ 30b'Qn^eMnNc 'OG֮G(35oeeKun)?| cQA,Hֹ.VeZs GbAJ !5JxJ1Nҩl,զ u _Chc8sM4iqtV%ceK}N?l`R-(EnHA~L_?RW$ZȣX* OqQ@Q@Q@do油Kzٝ'UGP;VdOE]`k@QEQEQEQEQEQEQEQEQEQEQEOzt'e o(쑍=FGVdҴk~yly}'{ƼGأ'lff>ZՓ/c7mϦ+Z ( ( ( ( ( (7^H}Z-hc(;*ßđh;6q:wqlj6w7>c0@;13ʒ_lOn6-cspѕU `t>5(sC_2fA=:kS,l'w@~r##<+ǧ5<ﴋB2"eԜ 1Qտ$/9F af{ WlT/{жۦiei0$;G$^dbdvVcխ@TW7Z=ċ1)gv8 RhZ+˝ D*TTrHs6}/CFmYRxK^RTWp 3i.o1MghO.w; :( ( ( ( ( ( ( ɰψuX8.=whbIՓ'UoϦ<:up0^Ě\rAqnF1R}u'\ΏpE |rDȃ@MkPEPEPEPE2ic'gXK;P9$¸|@]>TOwgu'܆?lӂG"e8v5-x1I\*NI㩮7Sb pIwx<`^y]j~$sLwHIj ̌ pA8X.[7" z׿aP>Sqi##y$eir+g;>gz[*.)$/"yⶶ@?ޒLwa$ac8FQ--HX ˈ#b6X _:ɭ+o \_d1pWAVCZ]LcȒem#``Xg82R1n_^G RZ'k5ԑqeTdwtbNb d qІ_>kMa{p8x&PrHzC6ů略[kf B,Tad[ L)LOlD?>J)Q VӞt:.v#7wk o(eKfHaFO`B-@xgҠt&yGMJ8>kWZ ಶ3nU) Nf;9e&)mm1ř@.6H HR99bAwdy}>%J_u˸ H-1 cUh]^~~ǨG-WÆ #^Jw+=yX$,8w`%x8zyMC Pv`yy`iA9hZ]O;eקнwNZ3E2v 6>f"m&&]1^Q5.84n-,sYYo~IeEtlhɻ1GάŇ,78ȧn+)żr+t amñ]ᇫ%ۯn=tgCXPpXYbR7##'sFXjR4Vӟ9F Rm6ܜgm}ihman!o#Ey]777wn,3L `"r[ TcpI짍kYޙzqE 2y#Bdb[d[xCGtn< h:6 9R;Zhzmp:*0+O*H@5jQEQEd꿽XS#K.R18֬?{}_72H}sIӦqj+?MhwhhYUwjТӳZ{U%Wűx1Oʮ-:VI5KF,`6Fݔ;]]-se4.$r.= +hD.-v ;K.l}܌TV4vo#\Xą<28F#çV*A} olYeb,@gݴu4|emeӵDJ$6> de.畷v 'L}6[笑]\5¯BA9q!09dZQEQEQEQEQEQEQEVN7|w軡'YG`;ֵdcx.%?ݎ9TN8&4ZIێ"d`=C|r:ֵTլ3T۹H;IҬ_/P$7gnր-EQP][@7I+U#f"j#E 2M+ڪp Ht=JtY@%*cʯAJI>Rp[Ca۶R>_˿Ky,kh|FPP @8Y\jɩ00rrN2<)$B;"F@iɓO;HG?yW__8Ӥ?Ϸ, yN ]IY=7wH\(UKGiRH-#'8r$7~g q-jpŘ #3$ %RL#vwq a0m =-ɻSrM>kb0WEqw;rw($xU660ohݾ"1!1:R.\]ZCm"m'W̍!m|!bviu#yAx$q'9[O=t)h(]j=ĒwAeU :}Nj[m2X,q'$;vO^+[_;mge4Č,lʐJjErC~V!P ` |WS˷LD:KO/3mditؙ,L`ǖD cG'kȤ4i&7{/cR7#Ж̧}MgvcX Fw!`['*U˵h!08ZC:Bkkh$Vduue#hO}zQ41t}^nc>.Jq_9?oGI&J|^AhE4ڸG0gV38pjzqo[ȷQJ }`F JLe`6#,m+kUcI#9lsכaNwltZuee~lgiVVV֚pMH\:~nv~l=`#+f;̋dRc!@7y4e{7n?.3\:_]C؂İq{"y4Ai VvڎE`w%aKHGKɷtlr݌|n0+Vԗ@bMۋmcB^<n~o,X֓Rs3TI5/0Df7RO͙b! )\<;FW-=66W˫0QU^Λd6)U?1xѵ;اZOƁP1ݕߔ #$=徙qC=2-SdHf8r@nںr_eY-φmn.z2$e,<][ZL[`y.A'y' eL 8m+c z Ek 3]48bWp;v@9'BJD}f&two~f평"dBHHX˹@# >r9k[{{I"p88#?O߉.`xcIɂC|Inxl՛hv ;;n17%[8V>'cҧkJ;*+:3i/ۣbO)c7 ʮQ$ Nt$.ekk#F#ѳI G8 ngt+B{=I?}Vu" B]B~xNd?U_wϰU#5Q@dCH^ݖIr×}1k@QV;;Q-)bbYrF,O*K YݥI$^ZXp_Z-.[+֎oAo#c R:[1^un56C@kRH"*QE ( ( ( ( ( ( ( YiiW>gsrwV Mg}j&ٻ;w(8~S& ZI-"R}A|:Vsiy>]i-=ȬU;bs^ҽ"s"-Jf8|$i$>?θԦ2UT,PzXd *LH8&ү&Ҭ(*G*2p?!BO4Y7Mo^vqel);V6BOzfmN7u{c΍ sĨJ~v.o\&M;˻Q*VS|1 cuCkOgrHWG@I*rcaˁ]bk[K+6iRP$r2X7PSO2J\%}_ք%B/R2AsXb"$[y!^a[~t[Beؠgs`q݌7,1K5؎yM>`T 'v9]VK-m淊<"#! a* T&+>t*W<%R[&KUDAK26Xqhis WM8d',W#ǰ{QJr"kff 䳀r9q Kq6tm/9(]#??5zLS|'~j_Xbg8F)MP `3`M.ڼ0[[\#;`f8  2٬i in'&(dh^W$u{G`EMq*<1bH\g۫O{ӿ1J-%KO=mĒ[<Yb܏nJ㌌j&[#;|xp@ʔl.nshWz$O[6=Ɋ(\ foV{1-YYe$]DBoQIg#p@$msRk _+e%K Tg?(k6Cs5l04$a[h;6 p2;=3×0bPZjňc 0:n$`(PeάgS._Sᤕi2B.2W%X {v2äÚΧwy1E[F&E9=0 e[i^]H'G+ RN?*r.fK"6U2rwJ!,^&JVcV4Y-;"ż"4+wQ-Q8p7zVmM2ss"uy\2B7@U H@;r$e8P]dמ5o5֧lvnż%@Yy GҦ]kݜr;.m6-rMy,[Y;c4Xڃ͂r8$ߚsiw m]K|<ĹgQuxlL,i˕89gS㠮:VV4^rƖ)D.$e( HXJ0RAEޮSCko;ƷYYYw6~gʰ ܰ=mɡZLD U$sc[ӭ"O,O$cv{SdghsIv@uC#o,9$ "Z9=؛ʒNmb].϶ȠO 11l{9uUslY<\vVvmA1*O-rd8R]Jjiͤ7&E9yv,6vf#Ki6&yً!ݞr9?­chڶm@<2Iq×!'Wqʷq V] YfcIkwap~}VepDz]ՙLvI'_-T'<I+o\4pF]mN6G0N `JmXiɧfK*(WbN B -$f/$ؖlg'xêzN.^^SWyݮ5ԷVɁm6RGr o' -yĈeLA۷Ι$exa:,kK@ȷi;tP俎Hg K4F lAU^i5e+H#X_ĖдN],J<~=w; &)Y>;LmsyW7Crٺ87ɤ N崼l#gq-x5YIuw-Ԁ22:ȫYfe*RH" i^nNT\MbGl,̤HO0(%AV$@:giAڽѕe,`34lx0qtڸX_ZuinAs`X\nRoJJRIyifno Z= v ǖG=soKmJ IDdh`0 sXOnί*Aͤ@mXvlo%26'2/LDrI)}jmSЌU뵎My_GebJ`8`u-I"[2lMú ٹu GLm4`ʕp $V]0h+inY1fw aG(|-U*VAhZq"AW!s1#)59R;X=#$=O~l`2)Dn.XzF c(((>o[ltAτUѿup<5?toEyHJ8ڱNJkU =H-bx¤g r9G?(F95~iڭd1.Ad pp zDikrbNWeRNN'jJVKOr 0 ` (((((((({gA:6C2^H A \i&?Շ'fBֵ խ O trelQ\/!{=ޡ[|ot{(*Gr}XU/{a9'b>:)8ljeyE2:6bq^A $HtD驫3$h-ͧ`Cı#3Dqf^ w `  `<ֶ_Ekyh.(ݸd.p3m[RNǡU>L@jkGv3 eI$gxfT%crv EIF1=v]PqZͽ6^8d]d(Ns߷=HdRN$086ƒ8TqmSˁv͹\)[%NNQܟm,$~v:kOY%Vʀq p{ IӶ%b,#+8ǀswLqPu[!Xu7e{TXeAyrVe #UR<@P$x\uNsĪFRί9/Lx,q#kn0|,JB7^GFJXH?)[ImMف;0a}}SDK/[|fc;@ EhYOkBuU>n %Ӫfvp3Pm:l?,t$4dup7'u/Y59^;Xإ#dt=O>lІ("8P0a$(Q@Q@Q@sI\=V|1ZM&FP p (AÊծk+uWF?Z(p0OZ]XԑwɜngҰ4kgWxXm|¤q7^:g=3o"ԣYpZ'ޤM8e< r3ֺ ((((((((((pJ.WbB ܰ ' E(2FkiRUby,S8+>`-uD7$9FV8#v9xE)+3ȽҹoI;ay8lxhYE>fHXPA"9d\"݇؅پG9ϷgSckgAyAA 'Trv 8n' hCt '5UCp Yl,ģ EUMKvdV W<w9 8ѩ)rXj^z]j)olj_8, RFHexOunРXA}_jsI]>ȉ$qnMN2prw3XG$0j qIзǺy_< vsFj+{fz7wCb+DiEf'y<OgtVeQ\]\"ٻ8Bc]&TQ€0F!{f,@u*Gdg~`;cޮ((((|iy˜fHA jwqoIE Ul`fPp}5?oAJ ȫ׌-krV0]juIv dO9Iܩ` k,a=+&Vđ[!F[5HãrG#,BZŵHsp4eFID!@?вϴ_1e.D(I$} ȨntwV\24;>ApT;x;Kt,AzSܝt&(QEQEQEQEQEQEQEQEQERdgk}Z]ӶvN"i\arv) oqڎmiJݔb|o4R&H`2.NK]O3Z_>Lq w,l@-``7 Y$Yd8/n|Sn7F$A Ag@?Q 9#@".LbЫXUלkSu,#(F3op49Iau)2:A(¾xs&l+˰zb^.֖w0[Ovd@Py+/5kqK0PZpW{H9 Mwi罅lᶴݵ 3`#=ji^;[܊Qem^?{8ʓ1OF4Ԥ[mwRG3$q>g;VjH'a p"ʒWGVmN-JHRK/2ǶF 9ݵ)qw$DjBn~b&xh5T`nY1ȾW<+^S@0=\[%՛@֗qW$ݸ2GLq`;wo/#8O ÑUlYsy;gҼE7Ȫ4%$[Cn2G ;>Ybp;ƴm XYon;cPB:( ~h yW%P@;̬vUܿx#:@џOM}9e*ҰI2p  N= ֏4.?CBL l W6oo$YEWu ){ b_}{mEw6|Ccv1c*22I}Vy<ۋ<۴; *9 rNegEes^M $8#e#eV{,E$h% r!8^@#`EEQEQEQEQEx+@կ2ˍȹpVͥVVۦ`crNdTSmQH(((((((((((R@%NA# ( ̛Kky^Jeؼ`nX/!?:p`kNeGq)l軤/צ9l{0 OyiAs6GByr" w +nVIL)N \i_.'l~BFv uL PycU_'7p8rIrj דg2rp 9r$`Qv])Qe`rF)!8qf-8ϲGs3̦-ms2N~c6^cI EC*Bgi?%.[h,IbNO'8O$ij?oYZX;(gwmD/+U@lYMWu)bg-b8Um+@cem'w6!qnV6167|d!9v:C5BNpCЎA#K>+݌,SE*h\qߡ`TdP]J&ܻ( 2'`\iW|jJ1)<1A?ĸ20 V7ZJڮ0\,2$6IUӧw|=:w}ZH-#.N=8t)Hl 4p1$G͜Nwrv? r/ 85pJs։w.e8yJ*do41['IUмE-Ռnc9-8$6g Lkd|f`; @\gV-43qF(OaObT *4V6y"wb?F**1Iʗ7H`$z}`&P0((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((endstream endobj 211 0 obj << /Filter /FlateDecode /Length 160 >> stream x31ӳP0P02U06P06W05WH1230!U`hhT027`I'O.}O_T.pJ.}2.}g %hj,`cﭠ q)+jtQP[&6o_?5^ap`rTB-endstream endobj 212 0 obj << /Filter /FlateDecode /Length 160 >> stream x]O1 y@TuKVUc"D7ҡY:ߝ|x%I cikDfǢU`ķBW^@$JʪC -A#E3i^?&[W(,C\ HJ$pLg9>Sgendstream endobj 213 0 obj << /BitsPerComponent 8 /ColorSpace 139 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 4667 >> stream x .G9f`[J7itX:J۩M?Quٱٲ#o~'%F/H!B!B!B!B!B!BwdG.,>zl|Zܫmb%Ll: Q7Ia~\8T}I,Ye%4CMI{E.d-y|R$Qq,$~^'rOC_G?>Q~"e<A-Z)wF VKjT 5mVVW%g(i[I젒1}b}I b͛V? ?&:g5}u6*JWm$fsT7oߘ*}wuG _Բ/BÅ_;~/Y u2>k-j]1OM\yoN K]hݶD?{8]/·ZsG~Oz[m_RP\|q?IsiaV%ouG~+ˌRֲ/9ť8~ߘ_q{ Woerq:ZrIteVv͉iӾdT zqZD`6_b&^݊B!B!B!B%xDSQ0"a#۽g/6}, ?|僫Okvn뱿?#Ll+1ejCk3b,MOϘ6¤1e1e1e1e1e%X]LSs,=2M̱_71ǂ~ u 2 2 2s,9&XЯcAnbAb|Ab|Ab|9 us,M̱_71ǂ~ L L L nb9&XЯcAncX&_cX&_Š-U8Cc&XogLp,+W4 b[> g~g,g~ԝ0aύb"3BQ|_H߷o~_HY¯9lR3¯;L~w/6 bC9 bC|lP bC6 d;_#=p_lb۔2_yhj~g;3_lm]`#$#=p/_7 bC/61meW~-T)DLXwAF0~no$y_bpje9m~G:S<6]QkӺگOdckruV~eׅOy.#tj-O͇EW+/'f]=lnEʶG=ۊۯr+䘓Ts @jwuM'gWVaw[>3OVr-ZKNL@0/oW_}ۊ)< ;Z%Q=EqV z;tK_/Jzk ˜zEuU75{G;я _E56~V~-gY#?4~KhO3.B?ϛܹI͝+Λܹ^hЫrtܖ$L]3_Kt/jcGp~syF?$WG4Gh~M1 5KuKh+Nh[KE3̫DriuC|9K0ZuwZte7n*Cx5gW9(nԝ o55: F|~>{涮qrťie8OgDm)7gCf=JӷuJ=mm7 Sm]bQ}, :G~sm@vkzm]W6HiX*I>l|v\g~S:> =ydIGSY>!)Y6<ױiS̵_e`:;qjr%R̵*wcw|sm{OX.IMϺ:\iS"Wu8;nZn"^c( N8ΏM+ECAEo';Nom/?٬FJ*ry* Oq)~JV ׸endstream endobj 214 0 obj << /Filter /FlateDecode /Length 770 >> stream xVMs0WhzAfj犁 poCpBZ)]NR…!/zu.dݪzQ[\V- lVeK> [5 L9%[/]Uç[*h/F 0X~OKT|MЀS6yh7u ^BEV|:'lic!A !8뿴oD +M"Yu[TL)ibp!YPV(7x&ro-Jό'Y6 H ͣ7R;䋟QtG#DԘiVYtM*$OfF'cB@2s1 A˧ vśeFe᛬55DI4亷[ FURh5*ntm偲>2lЉ!>Q:tPơӁ`,. ͧVe“5uX$6('eqH2wkWIOfϘ8p$M> stream x]O1 y@RUKVUc"D7ҡY:ߝ|x%I cikDfǢU`ķBW^@$J˪C -A#E3i^?&[W(,C\ HJ$pLg9AKSkendstream endobj 216 0 obj << /BitsPerComponent 8 /ColorSpace 146 0 R /Filter /FlateDecode /Height 480 /Subtype /Image /Width 480 /Length 7463 >> stream x݉TՕ zcљ Hg6q8I`VvL=0 DEA߹sԫw>wNp8p8p8p8p8p8Ù/lgwE/_ _~Nr| w$i|þ$+x=7q!r%~gU!~OSѝaa54?Ć-xyUlx~EQT&(ZNޏ =~|jE79gY$G#^˦[~O=bt)mI񏧟gZ|G? S|/+Q8M`zlYvLL(}d1M9Yl <މF&޹4K?q╨XLʃT?kMܿ/jMwT~^Lgģ?M(Y\,ynK3 +36KO;Zf6wꗉŲ(vOevpm8$a¾a}Î}C  ;vE -vז9/ zy¾Zr/S¾e^.;q~H7mw 'm“~o{}?4Cݿs߱HE﫮y~w^ŗ(qΜ98߽{Gۯ8"ĂnWUx|!|U` 鯱qn!O$n..h} `ݳg~'wOXYІ~Yx2|n|vu۷n0nJw⻾ 6džt[M]ס69-Dz~aɭ[]⼣6/;ZA|[}waDֻmwu>~W9>xVnۆ%;TmY܀[m7G ,ބ!߁n| _;j[mX*Ȁ;wiXV|--yo~H ހ~q~1=m6 _w4ߡfzZv ;G4{]_wANO{# +`1n8ǯvNrFdzwfl(0u|ƍqT_Gގ|gfj75-p`3Ut`|CwKW80Y`l/w $,Y Xоog! }gg75pHV`tCknk*ogκ#5v,^lm`Â&}=˾9ںRNܜF'%x/ wn&o'yV/R_.3G0V V_J89_`Z[`;?_ ةnT}^hBwv/W}+ n˷>]>3H[|ʫ}| l*K𲯒yce`k}0oL/]_g^}/00+x]ks 38ElvUNj o`pAO޼g;L `҂T_Gk0MH$< lڂvKogo; zZ*/U_^Yj[#$p`}-tW[ W6h6Kwu}(c3:𢺭vU-c l/*J]v&x3 jZ䫬xWWٷΝ;}䂦|a}x]u^Ƙ, 0R`'_zeے0ݙ$l(0km7[u&Va[y^eߝ0u*\[Њ/k󒺭&\-ho}y]u[f(;Zq`낶g#/Z^ڵFl0ƀӾkzʕƓ/Flw4,{%MI0U,l ,{%x%t'!vlh,kuսtTC%QX̋Y`[Z_,I*h -kKw"}c'v \=T}Zq/i8t5a3K_m=yQ]ku/gi8, ̐|] KV7tZ`W.ս\ٰ,w q0}36OZ`7]J}%ަ4wijeG%Vc!F \_Kҵ6}F{}Ea5_M 4+(X-ߚ;c6bsN7?~OK/Y^oܖ}[צbq| ^E \, 0]_Km0_\mg&NCb _ qd\ߩyq|e!0(0חu5vƾt} ?1*| kuɸ̾Rg5NĈVa"hy)]ƾX oh1ELUX.|zxI]\նc߱ K; ՆV}\٬n;a$/i)\`W5Zq)ƾŒ4 8-_ k5~kC#.ubAKq}W慺Xul`` ;KZ ,7[U}K^u5;NDI%߲9/R^]Wm0}Mcp8YйoB^\׀A8_2I KE]&9΋:h L, ;zĒ|ѫRuh>3.42N i8M|;Rye]Dq pvgWX^fZ^n}گԟ0}ƄpvɆ|F[ׯ>34_wg1$΅ oqiSba:2Ƙpm«R5]ߙ03a8][Akez4q.U8N ˱{g[b][}&0_3b\WN-y3] Nʾ5cE8޳7=s;uU]'O,ıpCGz?oʛJzSR{b)6& L8/ľ'伅.mzK8W)qRxwiyK\%P;sa lIySӳ=„ Sf8z֍ocvʾuNcGܸ^.h;dS9?̮3Go^IhG:?33G&dw5O>=OΝ=G! Qx>UO<أkTy!oRE -+, 7A|y}IxJUZݟ︼>,"zV}L ۈ K-R|5vw.}Q\g]// l'|^[ .+WEk i0Z?_P]MWW }^aDK5wi1?_z.|ہ%R⦳29Ƌu}*xgW:Vᦳ30qz~zya})_n<6߈d_7]:T_'_uCC`Geǐ6])/<|ʾ傖 *l>ߞ4@|#]d5yvv \lpI WåtҼjI'׆颼+X0)70}U`R*KַJ| ,+WYX-% Aׇ7+_s]jL 0>S^#//XeNM߭0uvU lh;U1 נ>`EkFviI2*M‹U1 7ub/` ?w̐|#v׳ 4-.ngHAzy)^F_Sq`„p;CodYn67tlniFb/}Fj;ku mh"Ҍ)uyE|LEכW.?0-ڈ~F.RޒW?|bƮ, jik/8~K4^ ( _Bם-hÆƀ14pߨ1/U_u=K6nh_# 7Rt=xlh ׮+gڷ!0)x"ۙo#NG3Dӭ nxC[0^`lC;|#n6W- X-F 3\_KyX}}A ny6!F5yz h}БVj=7 hkU~d!F)_;o(W=|WWuC%ߨ9/ Hxf9~3_L%kocnoċmgz} ڼqn"~ 3hȝo-_c$$ߨi=| Hlk,0 DjR׽pwGa᥶3Y_|\`rCCo]_/\ЦGhkom_C&ȏ\ύ}]Fx^#@ȃ^ϮLz!FH};lG!ނ 7jR|u'o벞%_ۂv d^RYK#{0F.G2`}#/Z_b0Q`xDS׷Tn^rx&,ȭZ < S\ߗ*<ٷ\_ E.cz⻾ b=6VO׻oዓ0^6ח􋙷3_ x6ww^7.z-Gwx^?m> stream x]O1 y@%ʒ.ZUm?@b!C@Hg|wYud@>%Mo &Vq*+n:?`7=]/$J75$;k{AlluK_O%Gs&#q*MK\1 >_> /Filter /FlateDecode /Height 480 /Subtype /Image /Width 800 /Length 27781 >> stream xW}?Fji%G=pBC2 ZE $/y;u8#&87+q4z'mw;߽C׮]#C` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠3` :X1@̠:7p|,9XU uHht@,}W .mDAD@W@nx"-_6~(,_v&Z,uB .>_nsW%ɗ4.A V0Dj*$Wh&-s_|[$Wh !Yaz *FpIʺ!`;HW"!W"N" l @D}%}-}%$B0ǎ9By}%WW|H;FK:|[OA:} p_u 3r!`i^XtV&uSU r]"M k+;Wh/g"~>.__0Z:C C Ql$Y, }bQ\[6&MX |u+ r!`r.,f|%/T{ W]:E4Ur&HЩ[Kf-#MXqѕԨkbWmL*QWUs$TT@Zn+C\cV?gP\CF˹_(%J | :6m+&,<ټ|/_[ͻL6)0dKt-J[A 8|_5MΦM$CdVԸnfˢLF>̍2RJf`.=}w_t}x꩓ynGNgl%DFjKtZl';yrVHٴ}背KXBC$èix7`niNϖf=}#pFX:a*}"z/>MȨ*[n<9WU+$lD>Eي ykE5w#˻.}o3)|ۍʋj.p2CmLl88 cO|";6~Q` G/V kWhCSKO&gSwBz;niI|IZ$q'&z8h8m/' gJ%Rf~"=T[dYgfO"@lS6ho{:|:;6~p*wr -kpJϦ7mZPA횡|>uv\qKnA B2]~wZ?zWI<6/`@p 4T`B=QHU88p0\::3_ >._WsjV ,, 0 lE W+CT5qm :[6|"*&xNm"_ 犪i" +p0&y(r1aP@\Q͒t VHxևi4P[AoT(iնzJއB[ 7C[6 | b$&5+rD$uF#YM >TYw6CA -t&v {W =6د_f3PEz(yrEmZ\lܣ_+с:RqA -t VH7 >TN1}fs⿓~Vs]=?a-ëx/=]t ૸I$}F\R [N"\Py)[&,jwjz)F[5Z9E͉[s cWU$D~"V*Ju[}C^+"R87/~(zPO)xźzvvkϫb>'r(NwS߁\QHrw+@rϬ}$t[QkR"z[|PaPcǏ/>TcC>S3nɫpA<o阰H`aKX%s?4WEX.[ }WUH1=JD[Q'Tۛ+mT? 8<GWv0GBӰp7{P&O3"{iW$"A_@^$Jh\7l>\"KtpX8}>We5Z"sEfݷ5zh>b˝wTkyH/av6mqmdI n_u6k/ M%WTm,kF;Wq(RC9^P#3 &?<·g?넃ٷ]fѕ]%' MDIwP4[}fN_WNw ~"(۹47xçE{sAYBCKoeۊXX]yZ#Yup5>/lcW_8V:F\ ̞/DWCWAyJR/R%U݂o૎_WNXXgFmEKOJ/VާG|ٸFu+|]*p߹A;wJGu vln_u*U)w)8$?w١ܯe(VӮw˯"Ug !Aa|I \QFb[Ljz&=uT-:A(Ju*"Y--Y|n+:Eoe+`Խ(aEUN಑6SzM+I6ҧWϸl?;}{6El'Ij7|1zD[jي"/=Ѯp3 %ا"bAsUIGkTXyk`|_u9 ~m"+q6ڊ|O\eSkUVj 'R;mE|&+̉Q+*6; 鷙jޗ [GXÿ|u[y7|;|az\[ŠV -3כw37;8kfV{C%SHst?TX=>Ƚ;%Y3uZ -O6  *v+ҹw[_Xrhz]>]Hʫ\컝ߚ}so8M+eG[n3i$#+o7U}wYBq +QmdE.|UwSo.犺|{A 닧r]bRUGs4鰵ue{xKپZI/ms}F2,,9k~c/ph,\۽ |U J}Qpڑ+J2fӔsEɳ>֣pM\lѫ](_WLѷ}խ~Y{f/Gy|Gs {h+m^+"Y{*J4૮g: Ch"WTz-c!cuIeeFcRXrr=ϓ5C03ʢ ; ~|SG7[/~NN8XZݻW!WU !HX`ӽ6*}Jr]YU '=[tɼ"J %iM"?Fi|ݮ.YC8C˧~i؋TZ(6/u" rUbR7WэؑeYoZ* 1ʻ^ByJ](n\|4-m5l^+ѯ􁿤Qd3sMڴym HϿAPK`}BEOy;'r97Qৄz ѻVRk Fmml_71Ƶšۙ'᪰>][M\ш!%5(__|z nhs1@aq6wSiL촮^-us2"\zno^16tھfn3ߢazZt>ɡcv䊆x9a |_%Qw BrEPNma"˒k{Qp%݌>ovdvy&9mLѫWG7^(/>fetq?6l??oYo.h`zVvkbz3+U!|$=Bv.'T訸Oi᣾0%x/!s^2kԙlyѭ ?"l^JC~$i8JRuGɮVĕ+껽vԋ/t+*{ o8H~Š1h^cxo KeKչodn垫Hxe:N^ުA6nft<'uOQe|VKIJT87"K?X ӢL˞eiU9|k^:pvb[-C7g;]JH Sڐ-3FK֍RXWR\\:OWN}ϔe:S80u8|974MjW |J}6ZޥckŪ m )⡌.@ŻTYeBNW?Ҙ`[Ƙ3ȋ<%}=ӭRgךv=_WIOF, (۽ 9ՋCBR,,]<_ɹJٗϞϜ* a}Ȧ,^_, st5uU~Esxұ|/ԓ)[1ya*\1eԂlEz |_9DžJX|qFJ'Ł+dJccn^m)<&$cl ?e^{⏌ѕwzN>:lz'TɲN=Լ6G/uvي +KV@U2w:>lE(z'u!#d3BMZVS鑢sBajJʎ=G0wй|Co߱S×|whT>gehtt؍r(>5O\ciE9p0dc^[\|_9_%y'0Aap3R4P*TE4-?mfd.5yR#4=闟a?I[r}WnJ;+j[r-+ox?{0b3V> glr|v3ٕ\ѾЁLFY[[۷ok KR`ݶ cw^OɜP.DcEZ.9Ӊ bn6<5aV߻o:^H򻝤T* rrbġܡ'o0gd'd,~fyܭV;`\}|_W=A-GkxKu?&d5/uPdQ%A4NUV}8/I+AGXdGl,\Q'E{6= GXfOLSHo/>/eT\MSYG2jGg'e@y9FcY>h;Ar_SU7;?$}w~slu}5ĠPVd(‚)BAWU mUN9g|IXJEkB,cgkEJJ%e;ZY}|hc*OuMI!8Vιc!¢zY]΃U0UdWo&L}*,?c U9VHɸеsqOnD0BP#y9bN׈HYʍC2qlr&-esJaZs{Hąe5/uۿWWꣀO_`Du ote #ҽ98QG0H`J8TvJ]K7ڜ~c[N-#ڹOrܬ^#wXsL8]p-^ga R_%~{?oNUVsw $(pIC A;Pi4ns%[ocdPC:\)?k T<'x,\Tٰ_łSVmO:ߐ_nZ6X=]{7["z-ơnT zsɄ؊++>^+u50\KܙW ׵cb/")GMk^Mrn2,ɹ̋tLxƚJmٶ"[R:~h.gvZ' 868GT._Lx8vީg]v![ /_W=G`џ9W[|s}7~WրW+wf@ }c8#/gKʋ& Z6Qg? ze|Ke<aa]%5k^MyV .a-MW嗍 I=~/ͦ7V@yj=34dv % |_*euljgT֞p/MB[,tsUVi ksRKRIʘ?f,Sc|RƑcϚѱ߹|Ff4& O̓ݶDԶ\шQlE}q+wm, 7{Mǯ*\QFz>.2Zf|AYK<_viLG(}+3YCL4`[3_;X?*m7-n#q}gBhor֧it4Օg'?0tfh, M  W=J߾脤7_P7+*bAO\U>)iʨŸ,%R*evsiE{">˺+F.E崬a>Hf8G-?p@r/pH3%P_z-/[/gRg+w|_ }ƢQ'wτŹO \T` "=/ i3O_"{Nonxr̈JmR,0 &;)!Zc_B"{~x^8*Zi :G-[Q/_  z}cu;7XPpoWSW95\ZyS&uz {q֎:7j+Je :|_W ^\U5),qKa9yq*ga\X0(ڀyAg5 M9Cﰾ2YV#ׯ0(c}Uue񱋙2Tck_y؊j%O폿W OfjNh &lE &A'@!aymUm\QpCCk{5nt[)s;cZ4=2.\E=p!l _rvyevOV䕦"&7NÇ9N-C-(6_WUw ",V Kܫlo솬y*ꅃxԳ.[.g;2 ~jhA- 's̻Olm Hl IJnħVqᇍtA TkXJ h|EUwwV",QYW!K:۶r!3Y1^a|AjUPąwҦ,YVf(mr(~h|Sߩ{ʙgeN4ɞRfz'!W|EEbGu["7件׉{rspPx"/.Z[mNr9T<{/kjs9\D-Ε%Yz*>so?󍆃?_/Ч2" w;8cf([4 #|"WUu [,,A-PAIVGg|*GܥAbpVUy]&AVGg҄%»#&¯h 2QjK3<^=rƬ>#d0tPdg[:SX9EŅL9fSERU3 rPm^'u?GFh<]AߩΜrutq@+S\6.C&_BX^[k$:`;% "0X6.6α8T*8d2s+7 ō-bњ&Q;e+(+eg-V72\ɋs0tΜJ,3^Y]s{8lt[3 }Q0kSЗhV |3X6.򷋸oaR:u^K kg_-Z- Z_;Vz mY_V S YXlpE$=0ug9v~ ofK~bo{P5HX*A-[ALڵ+zzq(a)[QGUMeXϤ'#_=%ⲓ>)8!+bvWK=mQ%cy"Ea*JKVOnNܶ򤅪/ndSDUmX'32j N^~NO )c2h͑|_,jkWUO3po8.2n_@[1:QJFޔTYۋclz;AT[qrEʾ˹T8[&&c"Eayg3?k;V<_i|̍cr;__\>DFrUwzK,>ҙo 9l+VP%ݵhĉj韾!|_4" AuuO˸P̂Q*f8֔ٹ2Tˆ4׾;WbFe3Pd3M1>{2Qu:>RN92²R6l+{Sw)a~6:w9Z:{Ec9}߾5јg.aF[ 4GB| r8Z97#] *RSƐ3+VUujàՇᠯ(r3E+tqyvCV>OL+/5V7RNnA#?~~;9ŋk% _NRa-g?f7L|lWl~ JmٖA e jݍxvqN~|ճ ێ 8wEZVx^˕ۮw DbѶ2*[wb9cc[Lյ.FSA`< yIl[`!"'\ *h+Q[eTU,`mQkAþ w>ViӨ{\Wq{țTm\w.Ly_|65ZYZ5x3JĈW9tTh{oB^A/>A&r 9TM46hOΉG c^.ٽ1VFm*2L l8Zþ 1KՎ, iHAa0NqbiTz\&^ra/)OM@ZrQeA R=y$7u_׃dJ:PYG_c6Q\9'lF|7V SP~ _W=@QXuCImjfFtn]Mg,y E[f3?-&=a.2 W j84hgx/{{V=:KS:w l׷  3 Ǜ@vǮxj- iFonD ݒU9mnoݸ!þiHu[Ql~jQUa /DSx*9kz\lUk2?ٹ9~܆<Ǿv{sw>U%CǾVsh-=qaM['^_EkPW%nXj79|ՃSh#u/!T =*_U;`JRG}CJr`+Ћ嫆,id(gWU_gvnO;z4*#o ޸lzʲgKarx꟥͌dIsLYE#w\P/M=l:C,jNoY8+W^E Ԣ_v+ިaNȰc:XLΧ\}P /Gg|9&{my?H'JCTPxw>d0ٲt[ʔJ=-2W<ڻ07CΑ#U392*q@@WR\, 9Yߊh<[| N`𕫢PKbrsclxt۩%Fn4o~*㨑pk+r"ġ`yysEZ ZvSKJl]CYmؾ4'T%-.˿sS͜0 E_5+]&|_"8ڋk mwșk] n}תW(ҹLPјYA&icae* A7.,_['uwv9gN-*gt;>#$XasK^¦} l:Ljb]*W'_Dڋ~5VSE~W\<;MesdJUȕx~ *G"[RYkc=3]Wf}]FFjb+˪HS`ҍ5.[nR\4`-{ߜpP';,'=]:>:g7) D+j qe ? _PNs ^wS^8ҧiRsE$ 5q%So/ь| (m<>5ڒ[q5jg[;WT]?وGS/׮l+R;jt)x= 1"N.4!c _W >ܕ;qE]=-}B,<\ BK g/i{x89.U)޸z/~dfΙ '&jV&'klE+]S˰xK݆h/9ß? Cª坻/` 0 b閃K'%J-C~Wב5_Fwl&=aKrlfʣb+ô=4re:3;\Sj]#W`+OlȯC~qjWvvu[jPrhp|O-sW^|XS-= jtVN}Vm/QKֲ}GCNowJ|_|Ճ >w@Չtv#c؈sEy]؊ e.s{15t];@f)Kו)c 3T8sd\o ճL-#Gw| KgOTw(:'=_?Q :#}O&hp+u,P{QZzZ;`4 Yyg .3rgֆ+BXmȅ`;=#58z^!SV^(3:[3o¯D@ qmEl:yM޽M}]_|՛!ץ*te\(=-*.2U*rȎma-@ gU]X]+q(Z3}!;{ԧ9$@,T%"s?9PuSR7I(u@2| u7 z|F!gg v}_eiCveh W/ر^zz*sCCQr}ޅ'Yn9h(b+˷9,A%."%<܅aV`@䌣j,% "g5hv^Y`,`qJ4a+onҵ+5BhETʩ;/434+;<,8uT< VxO&.u7 a+|:!i,q૞T7q?M_ƕJw/EԨ>[۳ˠա-F~|FK40cA l7QzAPV } KF[]4IjW=>×lv>t<:Uw BL"_F*Lu>3:nm>#&a?S0;F۹=;EŚ!8sD8! FK\b ,mbyLd#RG][|LoLvt)( FJz)A0ȴ+RxEB^&cWU+,, ׼W/2g~QٰrBAvjamQm+/ʑvQZ)4k(q!zn;,{,oVVz#O-e'x?LCt*o9}GɏUocGwkpZՋ"G{|5\ X[ lzV.]WsW*WUρϨ2嫧dO*?Fn,`T eSg></;/Gz2OyZ#̙yeN*{Ec+=Cߡl6ۊ:1?A+o{`WUρVpx3,!R]7Jtv{ZêNlaj' r)?)EY}CVv8$@<>~ۊ0WP,)OT,RSѡry_L J},oy˝"$rR^> _9ăVNZƕk˵o+t-.3NJ8j1"T r>=+<.X&Oz 'X^Eu9FrK{)#]X8+JsАRvۊ ,4`1stVOLfs%'Ke为`QmΨ8R)Lm5F9Om~>U/tvsL ]7 *ViKZ^aV HE`' Sk#|4xʾvO_[XX0V /1 ˉxZ>󊭨"q6GeWu؜on.][- B>Vg]cZJrg|x%R4.,,P@Is;9'd2f¨E),,^Ng-/ꫨg[}j:Z!x k6Gd `;LiMV4r8d_WUO3х6 JPy)җ)d%Ȟ YNg'+J8/25gQ{5X1@$.IW\/ &e.|@8@h2;+$Y΀O3D`݋?E7)C7}j9/x7PٓĖ'v8(mU{-2 䶌WJf&;i#ڊ%՘?MM[Pg, 䳧W _u |#bJAPmճ*'AV3WG=S4בEMCc!:k8@I/ I a+}(KM.zQT;"ňO=|I&F;XTEq"-ݕ|U⚚ťJ1|/zd+S؊iYuf\&|cMMt"MRXEiJ!U~n[#CX$Xj(+"_u|i},LLfwPzX~ ?ʃѡ'P ][Z OaѺ[4f}WY"_u|ɢ38IJywlyjѵtY-1@me*JtH4! إ&GM^F޵sDaVHXO˹ec__u|ɢyX,~x4OZVZx.ߪԭԋ_\V/VShp .-td19-|E>dz*S3dIebR5E{WrVD\ȶ[b _Y2u,_}l]a+:Nu ]ܻ"{Q.UGcD23]9iSETfs%Yf_nYgR Rw4>bfhkލ[O曱AX(.,h |E /oVAέnS:QU%6خEwl)3ԯY/V۽1sz+յO%6uX N=xP,)#Sg_y :X"f6o=h9WeJIZ3_xQu_mNtK0W$|3LD?['^i-o"T@.,8X<_w'{*K,W6UAoQ=>ZlWy=}At6ΧL.64 rQGXt}K) ۪ ]zŧ8cD>N;q]r|DO+or0Mf3gWmZj!*Q J#&x65knSjx"tOBa0T)4wRM*WIAA̓o;2K|Vlz,?Rk aMU*DoL ``62;%{'8W}s j!Ӵ+ȇrʘ_W )ƩPuȞ ˤB>oF\&+a%'WTUnnYvmE|^&g`X0,޳UF'+uaGPXX$_WC.@R[f;fyŋ+>oBWJ\FH X,6V?tU %\`XX(F^Bt+:Xv7l;U+Q Ѡ6'y "Cg@eJhz}W*i59KfSS2",nrhHt軅Ŕa/yΕT\hDQNe()#e:XKxKO\{i↯k&K*rZhjιv.**59KM<0ąwQJ]+04B49r'lt@WAWA'J C\f/=};9rjVV|2|LH#“ :^LOZɑcUSv__%|G-ܺw{RRg*_\2X|$__%|3_o&YTY谚OZԹ|R9GVΰI J8BEmE ['UEх&`+|||M >k 4,ULZh9j>iphɑf@*">: AՋ$3/JTǽ-o2)5O}1Ȅp  e Z0u?R_m5O mhr璁HU(Uc WWƇ<}6:8XII+ ͻw. l@Bz|%|M;KwX%Q=sNp\7F璁_૨Aw|sjhYǎQaX|RTnnEd꤅%|F9m d_5"V`Pg=_7!XXE / ǦNIsH&Uh"ڊRCx>V7-4h.:6?moISwݏCC][*-',c>iAsq@-%A%L4A :!%PId4~9y< gywG+W `cȋgqsF-ߚY5H-_v১U͕ WW]92['D2`NK_۩ ,i#_33=afUᏗ]:~vx՘eqGըɬ2xi.z`9XNVyWj3̉/FWYOO/vo,~͚lwA^ɫm0'Ydֳ>ioKZE^1#"#pEVeQg@O^1"&Y݋sroJyEkIRNS]J+$yESfIXξYJ+`$/rTg場.W4b49s`?,yE &JC[:}lYA,C5W+o#ΑW-sFn"t<%ә.iY HWLd̪q)pb 3fHЈ:2 hG^qcf1̒V@kL%M#iC^1a)%9+7˫ lB^9`d`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`)Xa @`f˰endstream endobj 219 0 obj << /Type /XRef /Length 218 /Filter /FlateDecode /DecodeParms << /Columns 5 /Predictor 12 >> /W [ 1 3 1 ] /Info 3 0 R /Root 2 0 R /Size 220 /ID [<9fcca2f9532a30bc51dadf188470918c>] >> stream xcb&F~0 $8J?u@6]P3#ϠJ8_6J' LBs@g "E) l 0 DʀY@$[HZD2RJ]R`]i Dj]"YH6"H`]o$)\ y &goV0%!"wE12," endstream endobj startxref 336194 %%EOF