latticeExtra/0000755000175100001440000000000012656365537012743 5ustar hornikuserslatticeExtra/inst/0000755000175100001440000000000012656344010013677 5ustar hornikuserslatticeExtra/inst/scripts/0000755000175100001440000000000012532765145015377 5ustar hornikuserslatticeExtra/inst/scripts/README.USAge0000644000175100001440000000305412126504022017204 0ustar hornikusers Data source: U.S. Census Bureau, http://www.census.gov/popest/archives/pre-1980/PE-11.html Steps: 1. Download CSV files (e.g. using wget) 2. Preprocess using a shell script: for f in PE-11-19??.csv ; do g=${f/PE-11-/} echo $g grep ^[0-9] $f | sed -e 's/,//g' | sed -e 's/"/ /g' | sed -e 's/ /,/g' | sed -e 's/,,,/,/g' | sed -e 's/,,//g' | cut -d, -f1,3,4 > $g done 3. Convert to an R array: readData <- function(file) { ans <- read.table(file, header = FALSE, sep = ",", row.names = 1, col.names = c("Age", "Male", "Female"), as.is = TRUE) ans <- as.matrix(ans) upto74 <- ans[1:75, ] above74 <- colSums(ans[-(1:75), , drop = FALSE]) ans <- rbind(upto74, `75+` = above74) names(dimnames(ans)) <- c("Age", "Sex") ans } Year <- 1900:1979 foo <- lapply(paste(Year, "csv", sep = "."), readData) USAge.table <- array(do.call(c, foo), dim = c(dim(foo[[1]]), length(Year)), dimnames = c(dimnames(foo[[1]]), list(Year = as.character(Year)))) save(USAge.table, file = "USAge.table.rda", compress = TRUE) 4. Make alternative data frame version (omit 75+ group) USAge.df <- as.data.frame.table(USAge.table[1:75, , ]) ##levels(USAge.df$Age)[nlevels(USAge.df$Age)] <- "75" USAge.df$Age <- as.numeric(as.character(USAge.df$Age)) USAge.df$Year <- as.numeric(as.character(USAge.df$Year)) USAge.df$Population <- USAge.df$Freq / 1e6 USAge.df$Freq <- NULL save(USAge.df, file = "USAge.df.rda", compress = TRUE) latticeExtra/inst/NEWS0000644000175100001440000001321512126504022014371 0ustar hornikusersChanges in Version 0.6-18 o combineLimits() fixed to work with empty panels Changes in Version 0.6-15 o graphical parameters vectorized in panel.3dbars(). o new panel function panel.ellipse(). Changes in Version 0.6-15 o panel.xyarea() gains a 'horizontal' argument. o layer() now works with splom. o panel.ellipse() [was introduced previously but not mentioned here]. o changes to panel.smoother,quantile,xyarea to work with the new 'col' default in panel.superpose(): now "black" rather than NA. Changes in Version 0.6-14 o new combineLimits() function for per-row and per-column limits. o new functions xscale.components.* and yscale.components.* where * is in {logpower,fractions,log10ticks,log10.3,subticks}. o horizonplot substantially revised, with an argument 'horizonscale' (actually for prepanel), "free" scales and colorkey support. Also the default colors are better now (thanks to Joseph Guillaume). o new functions ggplot2like(), ggplot2like.opts() and axis.grid(). o new functions theEconomist.opts() and theEconomist.axis(). o panel.mapplot() now takes an 'exact' argument, similar to map(). o new function panel.key(). o c.trellis() and doubleYScale() now have an option to merge legends. o c.trellis(), as.layer() and doubleYScale() now try to combine 'par.settings' from multiple plots. o doubleYScale() now accepts an 'under' argument (applies to 2nd plot). o marginal.plot() now has a default cut = 0. o layer() failed on expressions with missing arguments, like x[,1]. o removed the deprecated arguments to layer(), 'eval' and 'etc'. o simpleSmoothTs() and panel.tskernel() used an incorrect (reversed) filter in the case of sides = 1 and c > 1. o as.layer() was not keeping existing scales if x.same or y.same = FALSE. o xyplot.list() now applies 'FUN' directly, avoiding some evaluation issues. o the 'style' argument to layer() now applies to the "superpose" styles also, which fixes some cases with xyplot.ts. o the 'zoo' methods for panel.xblocks() and panel.xyarea() now use coredata() rather than as.vector(), so can keep factors intact. Changes in Version 0.6-10 o support arrows with panel.segplot. o several changes to panel.xblocks(). o layer() now has a 'magicdots' argument, which is TRUE by default. o use of the 'eval' and 'etc' arguments to layer() are now deprecated. o new function simpleSmoothTs (calculations as in panel.tskernel). o panel.tskernel() gains a new argument 'n' (default 300) to reduce the number of plotted points. o panel.qqmath.tails() is now deprecated as its main functionality has been moved into panel.qqmath() (in lattice 0.18-4, from R 2.11.0). o glayer() was failing on plots with an existing 'panel.groups'. o panel.smoother() now omits non-finite values and converts to numeric. o panel.xyarea() (and thus horizonplot()) now handles missing values. Changes in Version 0.6-6 o xyplot.ts actually removed now (forgot to delete it after lattice release). o new function horizonplot(). o fixed rescaling bug in panel.tskernel(..., sides = 1). o mapplot can now take colramp = NULL to use the current theme. Changes in Version 0.6-5 o new panel functions panel.smoother() and panel.quantile(). The latter requires the quantreg package. o new panel function panel.tskernel(). o layer() rewritten and now has several new arguments. New convenience functions layer_(), glayer(), etc. o new functions theEconomist.theme() and asTheEconomist(). o custom.theme() gains a `...` argument passed to simpleTheme. Added a variant custom.theme.2() with different defaults. o expanded xyplot.ts() and moved it to the lattice package. o improved handling of colours in panel.xblocks(). Added several more examples to the help page. o fixed panel.xblocks() to handle cases of no missing data. Changes in Version 0.6-4 o as.layer() gains arguments x.same and y.same. Changes in Version 0.6-2 o new functions 'panel.xblocks', 'panel.qqmath.tails', 'panel.xyarea' and 'panel.qqmath.xyarea'. o added explicit 'layout' argument to 'marginal.plot' (was clobbered by the default NULL in 'c.trellis'). o 'c.trellis' handles 'subscripts' argument to prepanel functions. Changes in Version 0.6-1 o fixed 'layout' argument to 'xyplot.list' and 'c.trellis'. Changes in Version 0.6-0 o new function xyplot.list, to create and merge multiple plots (and not just xyplots). o c.trellis will now set same scales properly when x/y.same=TRUE. o new function doubleYScale, to easily overlay two plot series. o new functions panel.lmlineq and panel.ablineq for line equations. o marginal.plot handles non-syntactic variable names; also now coerces to data.frame (so e.g. works with a matrix). o changes to default axis style in marginal.plot. o new dataset EastAuClimate. Changes in Version 0.5-4 o marginal.plot now handles table objects sensibly. o marginal.plot now applies 'subset' to 'groups', as it should. Changes in Version 0.5-3 o improvements to marginal.plot including support for groups. o fix to marginal.plot: failed with only numeric variables. o fix to panel.voronoi (with use.tripack = FALSE): wrong colors were used when xlim/ylim enclosed a data subset. o new function 'as.layer' and a method 'as.layer.trellis'. This allows panels to be overlaid with independent x/y scales. Previous Changes o several new data sets and a few utility functions o dendrogramGrob to produce a dendrogram that can be used as a legend o new generic function 'gplot' -- like 'plot', but meant to produce a `grouped' Trellis plot. Methods can be defined for objects that already have a 'plot' method. API Currently unstable. latticeExtra/inst/old.svnlog0000644000175100001440000002530512126504022015705 0ustar hornikusers------------------------------------------------------------------------ r412 | dsarkar@fhcrc.org | 2008-05-12 14:07:54 -0700 (Mon, 12 May 2008) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/DESCRIPTION M /public/Rpacks/trunk/latticeExtra/NAMESPACE M /public/Rpacks/trunk/latticeExtra/R/mapplot.R A /public/Rpacks/trunk/latticeExtra/R/segplot.R M /public/Rpacks/trunk/latticeExtra/man/mapplot.Rd A /public/Rpacks/trunk/latticeExtra/man/panel.segplot.Rd A /public/Rpacks/trunk/latticeExtra/man/segplot.Rd added segplot, plus misc fixes ------------------------------------------------------------------------ r315 | dsarkar@fhcrc.org | 2007-10-20 21:13:38 -0700 (Sat, 20 Oct 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/inst/Changes note ------------------------------------------------------------------------ r314 | dsarkar@fhcrc.org | 2007-10-20 21:12:31 -0700 (Sat, 20 Oct 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/DESCRIPTION M /public/Rpacks/trunk/latticeExtra/NAMESPACE D /public/Rpacks/trunk/latticeExtra/R/brewer.theme.R A /public/Rpacks/trunk/latticeExtra/R/custom.theme.R (from /public/Rpacks/trunk/latticeExtra/R/brewer.theme.R:293) A /public/Rpacks/trunk/latticeExtra/man/SeatacWeather.Rd M /public/Rpacks/trunk/latticeExtra/man/ancestry.Rd A /public/Rpacks/trunk/latticeExtra/man/biocAccess.Rd A /public/Rpacks/trunk/latticeExtra/man/custom.theme.Rd A /public/Rpacks/trunk/latticeExtra/man/gvhd10.Rd M /public/Rpacks/trunk/latticeExtra/man/mapplot.Rd M /public/Rpacks/trunk/latticeExtra/man/panel.3dmisc.Rd A /public/Rpacks/trunk/latticeExtra/man/postdoc.Rd M /public/Rpacks/trunk/latticeExtra/man/useOuterStrips.Rd documented remaining objects ------------------------------------------------------------------------ r313 | dsarkar@fhcrc.org | 2007-10-20 19:50:58 -0700 (Sat, 20 Oct 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/DESCRIPTION M /public/Rpacks/trunk/latticeExtra/R/dendrogramGrob.R M /public/Rpacks/trunk/latticeExtra/data/ancestry.rda A /public/Rpacks/trunk/latticeExtra/man/USCancerRates.Rd A /public/Rpacks/trunk/latticeExtra/man/ancestry.Rd M /public/Rpacks/trunk/latticeExtra/man/mapplot.Rd M /public/Rpacks/trunk/latticeExtra/man/useOuterStrips.Rd some man pages added ------------------------------------------------------------------------ r298 | dsarkar@fhcrc.org | 2007-10-04 19:03:01 -0700 (Thu, 04 Oct 2007) | 1 line Changed paths: A /public/Rpacks/trunk/latticeExtra/inst/scripts A /public/Rpacks/trunk/latticeExtra/inst/scripts/README.USAge A /public/Rpacks/trunk/latticeExtra/man/USAge.Rd doc for USAge data ------------------------------------------------------------------------ r295 | dsarkar@fhcrc.org | 2007-10-04 15:32:04 -0700 (Thu, 04 Oct 2007) | 1 line Changed paths: A /public/Rpacks/trunk/latticeExtra/data/biocAccess.rda A /public/Rpacks/trunk/latticeExtra/data/gvhd10.rda added two more data sets ------------------------------------------------------------------------ r294 | dsarkar@fhcrc.org | 2007-10-04 15:30:46 -0700 (Thu, 04 Oct 2007) | 1 line Changed paths: A /public/Rpacks/trunk/latticeExtra/data A /public/Rpacks/trunk/latticeExtra/data/SeatacWeather.rda A /public/Rpacks/trunk/latticeExtra/data/USAge.df.rda A /public/Rpacks/trunk/latticeExtra/data/USAge.table.rda A /public/Rpacks/trunk/latticeExtra/data/USCancerRates.rda A /public/Rpacks/trunk/latticeExtra/data/ancestry.rda A /public/Rpacks/trunk/latticeExtra/data/postdoc.rda added some data sets ------------------------------------------------------------------------ r293 | dsarkar@fhcrc.org | 2007-10-04 15:25:40 -0700 (Thu, 04 Oct 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/NAMESPACE M /public/Rpacks/trunk/latticeExtra/R/panel.3dmisc.R M /public/Rpacks/trunk/latticeExtra/man/panel.3dmisc.Rd added a panel.3dtext function ------------------------------------------------------------------------ r263 | dsarkar@fhcrc.org | 2007-09-21 18:59:10 -0700 (Fri, 21 Sep 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/DESCRIPTION M /public/Rpacks/trunk/latticeExtra/NAMESPACE M /public/Rpacks/trunk/latticeExtra/R/brewer.theme.R some new stuff ------------------------------------------------------------------------ r240 | dsarkar@fhcrc.org | 2007-07-27 13:38:43 -0700 (Fri, 27 Jul 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/DESCRIPTION M /public/Rpacks/trunk/latticeExtra/NAMESPACE A /public/Rpacks/trunk/latticeExtra/R/mapplot.R A /public/Rpacks/trunk/latticeExtra/R/timeseries.R M /public/Rpacks/trunk/latticeExtra/R/utilities.R A /public/Rpacks/trunk/latticeExtra/man/mapplot.Rd added map functions and time series methods ------------------------------------------------------------------------ r231 | dsarkar@fhcrc.org | 2007-07-09 16:39:18 -0700 (Mon, 09 Jul 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/NAMESPACE A /public/Rpacks/trunk/latticeExtra/R/brewer.theme.R M /public/Rpacks/trunk/latticeExtra/R/utilities.R M /public/Rpacks/trunk/latticeExtra/man/panel.3dmisc.Rd more utilities ------------------------------------------------------------------------ r224 | dsarkar@fhcrc.org | 2007-06-29 12:53:09 -0700 (Fri, 29 Jun 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/R/utilities.R A /public/Rpacks/trunk/latticeExtra/man/useOuterStrips.Rd function to update trellis object to use outer strips only ------------------------------------------------------------------------ r209 | dsarkar@fhcrc.org | 2007-06-04 11:50:13 -0700 (Mon, 04 Jun 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/man/panel.3dmisc.Rd doc update ------------------------------------------------------------------------ r208 | dsarkar@fhcrc.org | 2007-05-30 15:29:52 -0700 (Wed, 30 May 2007) | 1 line Changed paths: D /public/Rpacks/trunk/latticeExtra/R/panel.3dhist.R A /public/Rpacks/trunk/latticeExtra/R/panel.3dmisc.R (from /public/Rpacks/trunk/latticeExtra/R/panel.3dhist.R:207) renamed file ------------------------------------------------------------------------ r207 | dsarkar@fhcrc.org | 2007-05-30 15:29:31 -0700 (Wed, 30 May 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/DESCRIPTION M /public/Rpacks/trunk/latticeExtra/NAMESPACE M /public/Rpacks/trunk/latticeExtra/R/panel.3dhist.R A /public/Rpacks/trunk/latticeExtra/man/panel.3dmisc.Rd updates related to 3-d panel functions ------------------------------------------------------------------------ r202 | dsarkar@fhcrc.org | 2007-05-17 13:20:42 -0700 (Thu, 17 May 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/NAMESPACE exported panel.3dhist ------------------------------------------------------------------------ r198 | dsarkar@fhcrc.org | 2007-05-14 17:46:18 -0700 (Mon, 14 May 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/R/ecdfplot.R M /public/Rpacks/trunk/latticeExtra/inst/Changes updated changelog ------------------------------------------------------------------------ r193 | dsarkar@fhcrc.org | 2007-05-14 17:33:28 -0700 (Mon, 14 May 2007) | 1 line Changed paths: A /public/Rpacks/trunk/latticeExtra/R/panel.3dhist.R added a panel function for '3-D' histograms and barcharts ------------------------------------------------------------------------ r190 | dsarkar@fhcrc.org | 2007-04-26 19:07:01 -0700 (Thu, 26 Apr 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/DESCRIPTION M /public/Rpacks/trunk/latticeExtra/NAMESPACE M /public/Rpacks/trunk/latticeExtra/R/ecdfplot.R A /public/Rpacks/trunk/latticeExtra/man/dendrogramGrob.Rd added man page for dendrogramGrob, plus updates ------------------------------------------------------------------------ r189 | dsarkar@fhcrc.org | 2007-04-26 16:58:05 -0700 (Thu, 26 Apr 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/DESCRIPTION M /public/Rpacks/trunk/latticeExtra/NAMESPACE A /public/Rpacks/trunk/latticeExtra/R/ecdfplot.R D /public/Rpacks/trunk/latticeExtra/data A /public/Rpacks/trunk/latticeExtra/man/ecdfplot.Rd added an ecdfplot generic, and removed empty data directory ------------------------------------------------------------------------ r184 | dsarkar@fhcrc.org | 2007-04-23 12:55:53 -0700 (Mon, 23 Apr 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/NAMESPACE A /public/Rpacks/trunk/latticeExtra/R/dendrogramGrob.R added code to support dendrogram plots ------------------------------------------------------------------------ r168 | dsarkar@fhcrc.org | 2007-04-11 15:54:43 -0700 (Wed, 11 Apr 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/DESCRIPTION M /public/Rpacks/trunk/latticeExtra/NAMESPACE M /public/Rpacks/trunk/latticeExtra/R/utilities.R M /public/Rpacks/trunk/latticeExtra/R/zzz.R M /public/Rpacks/trunk/latticeExtra/man/rootogram.Rd added rootogram, fixed warnings ------------------------------------------------------------------------ r135 | dsarkar@fhcrc.org | 2007-03-09 04:15:31 -0800 (Fri, 09 Mar 2007) | 1 line Changed paths: M /public/Rpacks/trunk/latticeExtra/man/rootogram.Rd misc ------------------------------------------------------------------------ r103 | dsarkar@fhcrc.org | 2006-12-15 17:17:46 -0800 (Fri, 15 Dec 2006) | 1 line Changed paths: D /public/Rpacks/trunk/latticeExtra/data/benchmark.R removed spurious file ------------------------------------------------------------------------ r3 | dsarkar@fhcrc.org | 2006-09-18 17:00:16 -0700 (Mon, 18 Sep 2006) | 1 line Changed paths: A /public A /public/Rpacks A /public/Rpacks/trunk A /public/Rpacks/trunk/latticeExtra A /public/Rpacks/trunk/latticeExtra/DESCRIPTION A /public/Rpacks/trunk/latticeExtra/NAMESPACE A /public/Rpacks/trunk/latticeExtra/R A /public/Rpacks/trunk/latticeExtra/R/data.frame.R A /public/Rpacks/trunk/latticeExtra/R/gplot.R A /public/Rpacks/trunk/latticeExtra/R/rootogram.R A /public/Rpacks/trunk/latticeExtra/R/utilities.R A /public/Rpacks/trunk/latticeExtra/R/zzz.R A /public/Rpacks/trunk/latticeExtra/data A /public/Rpacks/trunk/latticeExtra/data/benchmark.R A /public/Rpacks/trunk/latticeExtra/inst A /public/Rpacks/trunk/latticeExtra/inst/Changes A /public/Rpacks/trunk/latticeExtra/man A /public/Rpacks/trunk/latticeExtra/man/gplot.Rd A /public/Rpacks/trunk/latticeExtra/man/gplotArgs.data.frame.Rd A /public/Rpacks/trunk/latticeExtra/man/rootogram.Rd A /public/Rpacks/trunk/latticeExtra/tmp A /public/Rpacks/trunk/latticeExtra/tmp/hexbinplot.R A /public/Rpacks/trunk/latticeExtra/tmp/hexbinplot.Rd initial import of personal R packages ------------------------------------------------------------------------ latticeExtra/NAMESPACE0000644000175100001440000000471412641452724014155 0ustar hornikusers import(grid) import(lattice) import(stats) import(grDevices) importFrom(utils, modifyList, head, tail) importFrom(RColorBrewer, brewer.pal) export(dendrogramGrob) ## FIXME: add some variant of heatmap export(rootogram, panel.rootogram, prepanel.rootogram) export(ecdfplot, panel.ecdfplot, prepanel.ecdfplot) export(mapplot, panel.mapplot, prepanel.mapplot) export(segplot, prepanel.segplot, panel.segplot) S3method(rootogram, formula) S3method(ecdfplot, formula) S3method(ecdfplot, numeric) S3method(segplot, formula) S3method(mapplot, formula) S3method(xyplot, stl) export(panel.3dbars, panel.3dpolygon, panel.3dtext) export(useOuterStrips, resizePanels, combineLimits) export(custom.theme) export(custom.theme.2) export(xscale.components.logpower) export(yscale.components.logpower) export(xscale.components.fractions) export(yscale.components.fractions) export(xscale.components.log10ticks) export(yscale.components.log10ticks) export(xscale.components.log) export(yscale.components.log) export(xscale.components.log10.3) export(yscale.components.log10.3) export(xscale.components.subticks) export(yscale.components.subticks) ## contributions from Felix Andrews export(mergedTrellisLegendGrob) export(panel.key) export(horizonplot) S3method(horizonplot, default) export(panel.horizonplot, prepanel.horizonplot) export(panel.smoother) export(panel.quantile) export(panel.tskernel) export(simpleSmoothTs) S3method(simpleSmoothTs, default) S3method(simpleSmoothTs, zoo) export(panel.2dsmoother) export(tileplot, panel.voronoi, panel.levelplot.points) export(panel.xblocks) S3method(panel.xblocks, default) S3method(panel.xblocks, ts) S3method(panel.xblocks, zoo) export(panel.xyarea) S3method(panel.xyarea, default) S3method(panel.xyarea, ts) S3method(panel.xyarea, zoo) export(panel.qqmath.xyarea) export(panel.qqmath.tails) ## Deprecated as of lattice 0.18-4 export(panel.lmlineq, panel.ablineq) export(panel.scaleArrow) export(marginal.plot) S3method(c, trellis) export(xyplot.list) ## Note: not just an S3 method export(layer, layer_, glayer, glayer_) export(drawLayer, flattenPanel) S3method("+", trellis) S3method("[", layer) S3method(print, layer) export(as.layer) S3method(as.layer, layer) S3method(as.layer, trellis) export(doubleYScale) export(ggplot2like) export(ggplot2like.opts) export(axis.grid) export(theEconomist.theme) export(theEconomist.opts) export(theEconomist.axis) export(asTheEconomist) export(panel.ellipse) ### Local variables: ### mode: R ### End: latticeExtra/data/0000755000175100001440000000000012656344030013635 5ustar hornikuserslatticeExtra/data/biocAccess.rda0000644000175100001440000003304412656344031016370 0ustar hornikusers7zXZi"6!X5])TW"nRʟt1L|ۓ̡6_A+..|L5Bq~#IH7;YxiS#;QtĶgE!H,m{_mW肓|.Fw >\Ǯ;o^T! $@' :ZgMYhJI5p9 bWO#t"y4gd>X @z<6mOl҈JAp%.hr>"ۅhBo; ' S|I 4kѕ7%-@ jy@pCWAr썶{p!MfV^ ~֜qY$THWi!X3*d5`my\xߜ8r' N #Kdz;0W__.wHI7|(EcymLiVq'&j mtY6eތ)=(Nzc40J쓃4Y6lkVEE:tsq >h0(P eԵXx4==v8)wLٱ9iY',ȫH,bt}**Ŧ PSP%aZE-y3t]nv[7q0<ŦzL { , uӹPF 6BK8~KN75J.<.N[%xfm(&0c T-HQe 1T }(c7R/>.6DbsɿS_2tf<6(Y(FBJ (OSgWa{tp1CCqXK WI^ ig7Zx 9=#y㇦-3@4{i}φ504$ƚ&;u4D$4pUYS~7ס&6%vˁblw<_'O"k+KEm(>`<LtĐR{oeӵjVJtgC*KNts (uǓܱM 3M c6J2um@\2)el-˽ H=paܗ9 8 ^!>a*H' EF !p;Flk|>? 6eJSHKKͣ" lѧyIfH}?\%+YJx; [|Z=,:4nңGK^Y48d7ʏSFX;*TU<"uR,*;CܑZ\]@~jl{f r ݪocZnjwȎ;ĕd\[0[r@HYtà[FDhah:^=Ѻ:_@ZXIP(CmxTQGKodV+ bXɟ9쉍T\,3J#c{Km?QT-s3)%1%V%ON>mReuR -z+ZpX(YXC.,%;=z~Fp"8#>1l%]K M.> 硓Jtym1ƪMw&#;Ad㾨ʋtVUt̟VD-.oe,(9YXvpM+hk Ѡ@w$i!ѐv.eo4o; Ģt]4qwMɝ3ۺ}r%u<5n DEN"25o&K-e;y5kxR'A7*n|N˚l/ 玚kqe%+li9뿺Qܢ]G;tF$b%YrQHC gb VZ #QSWkXƒa~"vKKy"Ხ;aY C|! dC-h$dwsCA?FZCZtKD Đ}y: ^Xl;kUsxzyvhD> v'e ZM_!Y-ǸV\ΐ}(BI]O~`^[-Itʻ!{T(*A篏ӵvb_/X 퇁 & w|vXQ1fS7 +ͳ9+=4a]&%xYƠ0@~D|QdV G,;#y|{oWHʳc_QQ~rZq¾%N^ Cګcߵq;#Ԗ.޾Jf Ֆu:sHTKv'V咯gtVD1]2m 5񩫛%ω0J~jd+yN㡠.dji8sx>rKb& +P'[̌x ^UN< ި6p#lvXzJyk8yuS$潑K;G ьc]b?-wO(ܚWzK)QvC*\,@- ٪i3 872P!a!F]4/ &Ipb+Ɖj%qNH+%X"NK[ۘ,F(ȸJbP^c"U4b#%V]'f) T3|4$lK2a0<Y0TVY({u.vِ./٫}k $)n=&lZĊ,Gu%Ί;[LQ_`V~b SP8 ?K`mfdEF= u@sVPF9[οnuJM (܁lִ%mܳf3| __58sX5+V\ϺJ,Ru:X㌄|N|xnݞ!V@߷e!wՓԝ)aX'WC7*5޺5<hJNn|nq7b Ԋ ޘoyNH}2ϰ%9ω80Y[QmqAհ*>-#Ȼ+IyfSJ=?_ĮAбjbʡKTn\PW9HK%(sweTcH\䖱qd.M,, sxKL ;R?Oyjgh؟Snn{}GK oSr lU4sWw*>}ZUw+0OBw+69q;^N 7vmn:t/HJ'z$[yv5Wo^*q7aۀTf6~,Esp$ ]As[?HtAK2Kª`6pS9$VdB"~%7N=cdNуҍ9ލye% 557- ܚ<޲r)(tUJ N "3.W a1>Uy^rvN?8qK6 ,~'Z"X ;vRƶ(.aNj@zSRFBԸk%hr݃݊Wrg< ìst:JP4x QuIkN]lՕXn <=S 0:<$8-@'UH2^b5)fmZYqvt1 ӵ/ (*-4C+~T\@ez%pF OЈf: FQ4VP%t˧lաW}X)Io79j'8!Zpd_< ?y70%7,rJE6; Ƿ/Z<7 Rb $dA6 [rL8Mn#dpa[Cw{8 #Ȝ31P'<+-sM2O74,(Ϯܯo|+8Nmij,(B2\qӐVa<-F 段5bk#̘eM7 4r=9oZ;A?k* \®3 b&Vh+R~o|ԃrv*?[ t5>Rɾ2FV 1!wΩ5 3açDOF!_[2b{Anͫ ]9DՇ÷e`02xti7[٦XM~gOKSwLVnVF?yO ZJ1hͪP6g1ͧ$mpN>lN)EJC>ݡO_f=\*3sfU`v0r#(1HT{xLܔ|nJ$x]8Y?QJ*Z5Dh,罾XLZP\\bxDWH H rQ!mPRtp/j/]՚1oY!T9eF8'gY\҈6YG v޸Yհkt2G_嘜s ֒5Or6/a F)D7Y{>d<,[#|naGL׀8|U֊rm/,<&Z 6'p%Dɜ8>9W0k:^x-vJjyS|4dIci\_$XX/פ^P<7xx1C L2o#^iLec [MRwu2tPEq^Q*lSE@=Ui^`i.N,x+:H,hCQ9BO+:!UbHvnA՟ i؄Ef#mJpS>A Ȍa)4ֺb؈X5+:=OG bE.;sknuHC9x.eXL\V]3^u EP_RSV)1[{4 ŝ,;mռ#ID}q)0 f6u_9It>#VN𸺸2n)[TW#U9rjmPrQ{Ϗ9\ܜ~W/2p y}? 44v_Wvp-+?^Yt,А1੓+$F (0^9 GаJk\ X2`eW5ۧ{R: 8WI^m3.1`yY+ݜwLQtaZ !p1e~Iz.$ Ą|5p3B#xL-;Wx"]!AaUi@$F2A ahTmr(m89X@UBf& k3O8^HV.X~^=עj4iuK!o爎;؋^auBN19Q4@Z.tLaG-s;'[l}*F0f,E4V2lD.D#Tl}䜌#:8Ҫ VSp붔, >j^ˢG#nC/{W\M3tŻ6PvGv3UKu؂\?moMo,/ Y{kO&T97OQvb?{O[hV?rJWÙB֪vZSxlOo~RbWOb^q= eM,]Jwrt6@<9E90CkݤC`;*㞚i"3Fe鶣3_uԨw!/xE8>y|=IKTAx(ñ@ AGlG]񹢸o(:x"2{h$4в?Ժ?DXn 0#IdH^:ʮw S‹ǪD6\U&->q[Ydmgi J"cU=>~$h.EоoCNѱú2gc 1,*(1^3gΔp; "r?Vo( ;w+N k|t2q&|/{W!1 ui0(aAiȱSGAS!l#(Pc^bܦLGPyl@( ƪcTv QStQ0q=GP3}ugs_]$@Cs" [ek^]~|mI~n%BŅFW"!HwJK1v6U(-̼]p#ŻoBN N2&eAd=\侅FokzqAS74 ppZOiV#pen\;n Lʉ 0gP@)vn; m a,Zrsu]ϰF{t`{)O83l HNp&DpHUSGԍ>)~ }㦲LՓC}aPގº})yXhold1O8F%IeGQ[Yd٠ M^l^{NH|cf*"j(Bbg㨅~nz9-܄6yac툘1z{ ^P4;nj=s$,H rqapAɀFA~pmP ٵWiR<)!?ʛ( '5\h==s|| &h|$R~S(-W:La~jbD ҢֆgMZUpV=QOv6>GntQ%p땷{ɍkYK9^s=<{'=l}Zf˄\{3X#ю 7-E}z04 fZJ5s]< <`qLkXa:%si A]-71kĺ jrAi%9-*#> wH!7>HG1ye)hG.@o`\arì^x L$9q /mgwK _(#J HKU&hVN?jZkJL=7'@q.vO8󽩶?FF'$պ6}kס'B1C[^('W̓'\ ّ9 T[žG"|ˡ˜+ XmWC[7z[ ϕYմ '>yBW 6n&8BBic(n&TRfY?wGOע/g= |+a*+> ,Ha+hٍ| );ٿ;Ctu!G/O2>B8RtZ# ru_0( wyB*_t: cpb,ƞѭl~3KQ4g6?fY$$>fW=6s֔)%BKOgnO=YtVbWHoOVY4 ϗp Z4C5 =d')sX/6!>= !jkfjS,<Ѻ.<TPvHP *2Vm ʘbѻ~>BLJg0 Kh~|}v Cak,%(m+]hd'Zoi8ep"\BٷS>wϫC`MCrm4Ȍ ڇh uGi`4 ЀԪ[R:;2sZ[#AaVЧ8O_zpBR%|hg48fel>s{^?Vf7XӪ*11ǗjPƨI㔼6j& _$ w%Mh*,[P=Obc; %x; {QlNSJN.FFظdz1[E&D#As %+g:w,RuuBJ];U@g#X\4֬̀;v@nǏk)CKG1I` NTmꋀO0"< H~y̠ZNYaEEQwjp0=ߨ+DDI3f-śd ٓ<;00V7~ rWV"#B}JJ_Hx )Nui"Nk l+ǛzQ*79RR_MBj5cι'Iʋ 1&>%똣~RסK,1>a0 xvb$vQ姌pwִDI[ )hA] /z9۔VV(Rr]9MߖV X8Ąq+"Fl,=R?Qfq BSLlfJq$"[*8_LB9k TT&>0 YZlatticeExtra/data/SeatacWeather.rda0000644000175100001440000000354012656344030017047 0ustar hornikusersklEǗR"o( RJyP~ \%%m*bKFBI_TCM %1F>O`yJ ufw^~pΙs134oYvT˲DWJJPXIVw%{ P "1J짔rװy,JȻuꭏ;k/ 60LYY󍻾1u/ "~M8X-uKBKau,wRb= }0@a C*<0LaNݙIf(d)g0YaѬQk6ʇiLDf++|93EL|ៅT6և|?L?L ϖeL%,8rKl`*<6l_gQ,Sl|f.,3M,G.}SInҺ>>8oȃ??Ex\z~‹ *,RXćD0>Ⱥ & 0vL ?[Xi;@w#,cOWϣOcG4w?}Fϩqp甜N\]XJc.<'3GsN*'|[=W&Qn@/v=Smtx]=.p ^O}^z07|C7{1^4P8ȡ;dSr Hx@轴nxܒv[G4-[2Z\1*#F~?/ٌC}xɅo+Ǐ=TT ~#󫽳{8gj^wͳ#/+},_G7}x\Q?{X_o-oZlȋB_oե}n5=/ѯ6w)MY(qqOҟT\_fO~ws_ uXRw^_&w*2[&q ;?ǺϤ?;ٗXK|rNts*||RR%\RGs,o#vjsQ_+{ndmyid쇡_fd)bwȏ[?'rwN>=}J0~}&EA@~/C^So}vM<$_ɣ e!qKO~u9AqjS5J籫%oYqj`O?vYA#fdN0.0zƈ  5n8'Yzt6᱅;Q /wq=6vM΂󛕭gjR:g|!-%ZcIhTWE?[V=$%֖Jqv5$cZ˲ۆo2S:9;G0)`s7~Pi'?ب "ˎj1#'b$aeFjXgdaE 3CQ6S~~pրn4Z=#(]y #IoU|1⏾ņ%VCWt'|F=VIl$ȌnK$mM^rowm:ѬIQX\fke!޸0NMapꮕD2E:+|sH9ť!xBbE2դy\>_.5`„v8gXm&;$,+ޢxxL<"QlI n7+sRF]#Z9d6K?ى,$VH-DKt6*,{ {IGC!zxR&,Z-vn>`ͷ [cMܺA<' cD]h6$&\d87B90sN&FR%fFDy.Wf,Gߦ8Z<`HɳYlWUwl ,&uߕ"B]`9s\`$ o%h*jq70Zib)u Lmdz2Bl:Iy 㳖 U˂VR wk:ۈ{|w2̞l"ףCK/ɵ\SOȦ)h*7Jxq+QЙ^񈾫gvb{ `9`%7^de53"#uU7@x% @>qs{YL]ϞI:Gzhc˚3 It'(a!_{ 9[%=̠8S\o qiRT IK$zv\71e՞7O%SW Rf '-~/f=?*T }B[V?tQ O=̈́;b W[WNci4?5ʩ"B@ gȊϊ-@ z&|ŠQ\'qa])oHZxOBҹT~"̘-tu>8O ހ=:S?L ?=/vg[+^Tƴ>rx~7_!W+9b;9|04V:\UAmQ.v̓$2p?>o9\ZV6P̘u+O95&v1)_ }s]"V퐩ɋT۶31% crc'hJH C0 )\)UA) e|`Լv#)}DBtsNx*GӣnltBo.Ȼ-f4..ðeuF0>^y=Ew?"$c=Vyfa}=2H4EL?w_z^UȠ>M7IuF: e(N cmUq:~꒕.Ro˝r籀*]_Gabmtp4`-o-_e2ε{U-mAwy*6PjG2Mn=TmEƔHׂG^гb c0o|J^lG$[Z .Nk1Wk\deAiwnU&VC0 T1CL! u_0lF(c=PV]FR5^+<`t|aDy..|$' u(| ɕAB^# "ֆ(/$-VYϷx}Jy.tevI$֐ Sc$A6vdT\xm!|dP<>glOk#4T= P"7P-ӠPȢ.AE5&;և&0,f~Qi9# lVX΃0D?l@!͉q,$᳸ 7.B@g[diJ&(gk2uܥdvkJՠʭb_rfISP8.1y^|2A㷵ʟL8RqT pQZc7x ꡎ :NYyd,k29$cdiF+~! NiPvahĚqG<}Қ9]?&AJv5V0] b4%=Ⱦš G]jHvܚ7WxТY2 mrbC?5+҅ď^boowG\W(jH ^MUU::,եCcw̃;Mmk{BwqX6*誝D~]W(_ytio<^J{6 dQغ%lp^[&D&9I[ !|E?Xߓ0- Kw~s&H9f`ǹc2揚 Wܻ(ocK.{P 7T1Z}/'įlWKH!" =)'Ff&/ ,A,;`ƥ1O M(:A#*~) \Tq0, ~7*NH(c-ZЯ9ɜ0c:XIw:b ĹI) ٘{J|Bbpmf{L+Wl$TкN& .%D8HϚMZ>; ٌ+nl%h^ pojlv)1NA 䳣W3U0H{)/dc̓Mi萝9N3#F6(J*a7ZE6}n"1+E KP-ͰXI[rea܊he=g-,5 ˇG㹝)}ukZ+nXٰ F#MA1+B|<:';7_η cAї V׃Lrn E܁2.a#Tb]kaʾ3#ȊGs#kH'naxxʕ@rfâlo3K?GJ0S ~>ۻ|vI~L#x*$(7[PuA8Is["UӳJu0nFҚ<_:Be0`<+T _ʙzl}D=))h:kҍ q7+kN6/HO+J `\pGi2UkSAG+G5b`]~[ܵ@ V$!Zt߯YQ (>z<| @ñcKm6 Ewc_m8ۍ1(,<15}j9k|$cTJeKԵsg4AG[y[:lY`f=SHƭJsn$4YZNv4h}9,FLtu¨Ƨ}xi k4W3 7D8HwlzKմs皧K-0 8JX_~cF-35fm@ifc\mLX{/ Cep6&0ypVy$Αp ƹ\OnXX;XQHJm"-zQ(&'vⴕWZ90Bs~v%PH~DY1s )01jmގ{#W{D8%eOSJ 2#Mp;F%2DjإѯkSMf2F"AHleDNHbcLBTH#/z'K@oHDX^\aɨfBw)i#sRS0ݪ5LY\M6>i(Vh >B@ Vdjd-Aƿ/ݜμVGBL%ﭾPa%2)ZnI~kL=+nas/urT+~[,SC]Q6HzZdo~ d!hBm <*ۙxez@Y 0.P.RcP+iZK2$lOq$+)?*Ҙ*Wv$~GZ"mrxW{45'+ u~/Er`mPH)NFd;vop?{ ZqE&Q:A./ȕvQţ=^͆G|*ĝbڛG“I,K1GcAimx3hZ@9Fw"R\E;|%?A*r(5_'Pl(X.>@A?eOr<\M6 ,$ӒD6{NX~e)f~cewc6NT+rghN,V~l)$++Cj:!Nrropz_!G6|#4fi!˯UjWPCkG*@_ Cn*:Zmǎlx5{wࢫ=\fXW@GǁJc[K$wyW] B ̲;2U+Kr =1Zrnue|x%FƬN[)긱o] f*e7QTWJg7@.k*@ 霯4TNBߥ"N2??-nA1ynMCttZ UWbNzZ#~guC#`Ì-AQ`Pъ3~Cۼ;ɾ琽ޅ%/g)hO Sm=N/6㥐%baM4Tbɱ`ł3s .ڿ_}pLrF\ @􆅖)I`ޡEAƣSs/wILrO"{Q~ѣbPFm T-qmԅrϾۙuzD٣(F@HB!ǫjk_:gsߑ PuF<+?Jp-k#;ǡWzEMdud^鱣W*62[BY]WK2'F~hv쿍5TѢS},გctI"z> oɇ]Jm!((Dau@B-ln8?IbH4cw䙱}:̡=oT6Q۴wtEW)­]7Vf2HDc뱆z6Y!V#y3+'(>/oVњ'a A2,dS&7];]$5T%Eq5ϟ,uOk4 >A%:[t=J)BH!ṵ rj|1B[ 5 Oo{KXrpRָ \2q9L͊9"azwi)-ܛ`?f Q?]*0*#gfSdyd~$#(`:~"$"|Rm|:=C4{|A^xk;,LVY@MM+de@H@ىBmQrf$)8!e܀1\|Ae ZRMSdIٳ"UƸnrv3̝yŶ 38.Nfa0;㚂4۹(w@^ͥCNP^b7C{oju"춧Em OXd{qNfȹuQښB2 14mC8FzzhHbᮿhS*wTɯHO>r^S1p%Ҕ̜|QHRf,a۞/2ucvШ%_$EƹbrW2$?Q ]$ Lnk}khk>,X;TpmN1 4Lif^dOhNYYKw۵_'?Q4 Ev9N|'fa44|h4":r8W/E9`L`׮@جc:YJv{ILv}81mcOB^[-p\<0=T 9ZGILS=/GŶb]c2>9#ڿ405a"%Zu)w3y}1[봑C₁m%^?;=ե//D='2y9=`| Cc.BxK\rw&1z+ X? F{柸sIZ2"ijٖHV԰N%UiF=`0qJg(_urwmfhT|:Nz?a+cD]I^v"EBG8AwJUEdml;~Xs V|ǝ0C6Se4%A (d?{N$: 2 (NjQY^ ٓ):\ 5aT3`IG`(*f9" AX@:Nqɥ ?Lɓ͠I e*$=XS*&6'EdUmg~̜k?90R̍\Q0@N~}ءMfEMތ#[,3e/% f ~ʇ< >b);iw1HKԤ)[KPiT8ߡYmf΢B(Ha 0[Ҩ@v}NC;͐b(k Od`GFc4ˍSӕRƠyWFtW NbA50ۏB)n|i${S9]XO22͓s@@!e.$mmL.LJAa ّMG|`d3 HIpJ1YL7icU+lC˧?1kD P 5B:>B^#o-Luח+v7p;m}Yz{A,sZd [0eyHH^?iL}1-s bߏǵDELA,B4]jފ)^+E-0/Bv)4<]3+i7YlbyV*kڷtI.A85 DTEZ;bt?T/خ;}&NrqDp:JYa `_}F`f'WOY.kGۛSRH6LTW6_hQ D)LP%PaU&|Z& OҮf^켼<'\ۖD]ZAo שZrAߟav 5+o}Lt̙ݬ".}՚%C`Z2R>6C͌<}`}Օ+AX{x,t_'6n"o*_c!'{&1y@sJ]5&9&AI^AC/9V98w6_d\n-%GErD J*cr} 0R6ѻflR_ZD }url S,Sbu6q`5XH=%hA%CD"3.S:\B.Qma te"aK'@Q}:=(z>GR=D/1e G`Cb rXhSu1MeF{0BGA_'_@avFDA8<|,H]n.$4U[xG! 4bs 'Jr'm(Tf}lWFؼ$bߠXv~Ƀ!slB{]@K\2"]zsa#"?XLzd>學£5L>5}5mOT2'qTzgbd8 LcDM/~h{Il@ƻW^*VAe3iGW#ٓRMoVӦj4ċGk(g|SJ,J Bva^ Y2'Aє+`mEID9H/2SkQ@;MV a X.{"`t陷7J1YI8.P4D " DW<8QO:Ϣaן)C E&4)׫Ր1@O*9]k$CEKܧ8#  ԘД)^/`Yh~{Yi]J,1q_8 ZS}{bt:MIG HwA ~45/U\Mp zY.}=2o0(,AVR'm7 x D<N :$%N(\]>G_Z^0_A_ ӕ\('8tb_`YʷPbGМYz: Mm-S~4I8V{G 3&dNe W!\Ҍùxl=Q d4?YVS4u DT:ZS2fa/1FA]]gJ,Әꨯ%Ch`ڈ wJE0]Ii޺V vGKikpHhoJ,[BeIv :ON wQVW8Û^o$@0/šXW]x&u(촛=!CїR$VQKR G%B\VztM\&fQ'9] (/X_g٥.(أ[j%i1pZƋ}q4,-T[5_ĥ|[۩@+w&l}u. a@vMmHW5ŠXR!AcwMt-I1 |a.8I;$b_K_{(jhBq G"…˞xcmu&|aHLMrlႛkvgOa!' /&(N-hioƶ#HCT5EW6>ʧJm-zv3Xś5/sǶ*4z˂vRP&h@ۇZA3YI1LSxZ|׺1c>Ġ!:dj^oozyF7;-QߘOGЇ(<ۣHKic{Um9!: rY*=5IHap9&6aT/ zpҘ-y A 6B+z4ĆOK*J$N[n,#b8PH:oU0 Yy5D{\b=$8"{Hg@1usqSa%y3=6Fz]ț6J> ?e ݴCW6bST\|/tMyOfnijq|K  xlltc:@) _1!:jz7`W~.^NdZPmBmsasl0 j\T+9+a}8\6ߓ´ O'ETw bDh?oa6w-^SM4Y`c3ztM͏bB=иzI-n%fTQa+؅.)YR}PUlGZ[q>PeϲxGqs&;"eC9^uȳ.'۟X MQ EퟍS:%i!(:w 6. KB[]-yZ2\W/ru]}&LwIסղǤ&SNqp}t5iM]0k;0@aͥCJ6;~&vME ^"BDSC!*r"mCS-'f"'SF+pPkaERm訷g"Lݶ}7vIh>&<)aBn+wCI%loX-MuD0 QX;V689~{*x4}:+ 6 $댫);jTȵcd($+cmw&oG$ ³oᭁ{.2]h`po/4>+%,c7w<=E7>b_A<7b6s[[5taAM]J m[(zpF|4Ձ/ ]Vd}rhõ|i)A~FǗtux~Zi}^ύmG8c&B+]^ &dp-qMq.8#%aS Ê&Yq 2\]6C[n$1T-:N0Kx%h/窇$? u$='D] DWIҞz"X^X_mˤݶƋk^ƍ׎V[Yf2)S% 7DMBhWF`V;3q1e3J:krT $6Ӧ0.dG_ZlprErJ`wGeNez̓|{/?Cܛ<{'f5\ks{KIVY#MڰX\T#vLbd;K 4)Ź-Etb"mFS ԗDu400qZq81Ӂozw0sɔDRI}voM?{Jp$>+?VtB2xƔmֶľ"vHo}ɪ>W`klϞ.eෞOiC uaMr=~Wt@rF籨2| 5#0 j4]X@.!h3,J:?Wcqәtx{J_^ '(9ߡͣl1~(W  D" `t-sœBcՆΚڼFG9mg yfxt 2Au4 Z|xv6 labz <,,K!ɉy&~yaKH!EMj*2ms$߂ФPxD$% ׁHi|{OK~̓  o4Qw rrH@Q ƤϵD2~ᬱ:uF5?qq8/@#zY%6hbHM}Peg@痃+@1Y$|w<.E,w*ء31=Qh*$һwz{8ŊQ Du%>Ra~| ΚFI~cPS+Km?*   v8t'"A '{asdGIOmz}-%)zAkA}E^. SQ(Vh?8"OzNUlv!6h3ÄJBԲ1mŪ1x'Yj0)>vW-aBX-w5^-y_y|$z7ZI N ;ثN\*Ƞ M |- 1oWyئ⬎^e @c(W~?3Y7rξ/!*) ֙>z4(q zY8a1mdClTJ$18bA4[k>:⢏%\퉦݅RRmJPlV;>#&0/埼̕pR,v@BM)7x8Q\upqrm$ RX;d$]|X&Eםt|EzӼ@q]M‘W_ÃgX?5YWt%c:G]jo"o^9Y8Ǚ˘[4oiN0v]#ȴ,1©" <1wӻ;!wAy{ ySEz~T^ޝcy( .dT>2._g.'!ʯis .g<*yn +8B;C ^ ?rxփ6$YσؗXdÑwPpb8z(cDL׽FRˤ| WǬtD'&z2j<:P@jUsBf*S!&$|o#|$ZZ!њ]ڮ(gYh ?2=Һ}\â' SdhC(Y 04VMm tػhL}M%+=t;#;B2Ȟw;:\Čq <. ` * izntzjܽѾ梌'УUp4j'7 Q<Հ(or!NQ:?7}!1VSY/4]uÓv# x |۠D\!U?KH)}uuFڸ,Aڴ^4ôD^8~~iS_6mo0Iy Waf|WŎMS@zz8H8@Jot4i8?:OX9Ks$Gp$ެn ߸pV,|ꍧXBas<dE<m2JO?CLǹ6 TVҁv˳fna^+&dW{hALX8LE}hfYˎ慺9/eG9Iv׵0,Ls溹J3* 4DoL^?8jdeű,=)wZܓ0ݯR)eMzn&'ܟÈBڎȱ3uB=2 ĽemGHS&RwGq1V={6b1aTY(Chty Sw Xc6k:p=, ͌"){ 0',e PqRD֫%C!A>dZjҕ2V6j9 Ouu禽(K8L9p Q莊IK , s;6}aJŊTټjoP x3D k~zq* R[T sWȳߑ>\ʮM' Kj39멾2wX,п`8lm1ܹ(kp[$8:uL.>ETD#8ypiW8}3iO.3>Pㆷ!t mrPm{rWg OQ>=u Po5w[d5! Q5:KDj rn W6SSeIgE2KN~'!oB[Nl+յVja>  v̈"7N`#u zƴ *}'D@6v@Ćn/89>`JH2~[`5 QOr2^& ь<Kw]^ʔ_sSƞtu*F* wYx h:yuAxGW7*[F?lEqvn{K*] 9 S肎߄+C"P:W0Wڠq؆d21164F0&ٴS"vZ/?Kz^z@BOu -q2Hi=C8Q%OƩ8. t4 m?ss_>ړӨE⑟8rOZ.q"D3ZEYWWc ӛi9#7qO|]8ѐѹSwi/+{KzAb]<qh9ǛHx2(}yQbD<`fs%Fwi+C)mDn-m6$cWiL-D` Q@:*U]AtskE')ʣnEJ& ک#VѪf,$o>\D`%Ra`Zn,?P HN̨ ( .q3/u8uAV7dm)P#%G29 "G_Qԃ '?O y쮧>GF*-wOU:4bq 4!0=I@QU7 ڔcsnM7)S(ĿK,P.b!|Az̳W^Ft7'R:99:`O!3 <,c9j!mZ&c*`uSYZ J3 aiˑ FT2īk Hi5]*\tc f#DS,[\ODKbOŁlAx\9r\qiRlDe;*GN .Fuf 4YO<`լ94Jیt|[:%PVT9% Rɪl)dG #UGou诶3߄6./ cZnKLnG)rC6# |{,x 0o%0z^YbF9Y1a :esw2BD"Of-ӈ>]PB/3#Fx̚>@eUH+J\z%y—1'yNyPRy\Ԯd5"rH,XiCxX㌆/8d[ImuArnT闀 xMkU]0 υx9sxM?K J)t.;߹̯~px%p*:>ǃ*`s6ثg!FͼzuG{ۨ)+hwrQGvlѷ|xu<$ QE{_0?+.迵n 8]#cP{J3佨Y|'CiPD[ʘ#<~Xiy 3eo2h:]gH -tp+dp'npW TULA⬙Rd&%R[b|GЁPF_䓪7[ f:3Pi"ա\_">? Qs  9~gŀ1<* sU8̟5+CzL7~4{Th#KW492j|dž 8+3{ٵaL[?MŤ!.Tt0H+e*W/r-H#¨z4cW=tjΉ2mtXU!/b} rM_ϺͽG@n, p]A֩Ypxz7k_|:7\:꽺zG'6Y2AoЌD:ę46ƋGrDr?QeWɃ *{NS K:Qо+ 6pjsAse9rom8!9(I$y3l:eVP?ڦa=> ϵ1csYq5+rVIQJmOͧ~7Qh 4$V; NeW|:UO]VޖkG ~ "~8KEx1{mGf0FHms,aC5 $- >EfG2A<$A}AcSlԧ)aN$e+y2@V(nvO?r& V`IԂY,\5*a2g#) 7X,.1RLE _&"mdvC9F4L>AtY U=!Ō>TբJm:pԡ)B% n&FT X2;*XķEjT4z5Ev䠝b gkz8/o}0[^U0i"j|'$%, BcANff]lF?RYCn%XrӖXy&(1qy6W'!LiŇ>^[h"2gl Up6@QqCj. fy67Eti"m},u >JDx/1ҠOx}i"~w/;a{C/)۽'ݵP's";wѹlJ!5>dJ*I&k\Z⮐ hga;Vư6vc5EvBɾEbi:ҽum%{]Vd*]#U"`2%1@š~6 !źQ@ny`ĊB_%Ҋ5>.uzm7C7o>Er %"r?H]%1G)U$F1F20uuweն|7xM^GZ3fQ Um3?(Ow0>fFผJG~s.>gvf МxE~^]6*1[(@:x , a^S;LvAKhb4X<5); 3fY9@kD3YL?"tzhyoMl =9+|T#IE'n4BLs#G>RP{S E:p(,\LNi%4Eo%n01}Vd.M &=[QDPӌ[}%V=Kz%hē^a`84JIO3gw=ؚ$Ê Evxm존DF 6Q9=?5%Vg[F4Ԑbi/^@`x%C}:cO&)V#ӧm$Þ$/Tݼp XPRɓ|y܆ V;hp^m([8JEm !E:Yp^R Q^{cl^ !;xa\ct"S[֊;TA')!(̻pl)Xxu&|v9"_"W>7s]p 3)߈ #g ذ5>,+W]lal@jj# nq~5oh³.?rm1$8ta77*}ڳV ?˄ Lho |_(LOYjykXNäJƭ2XSѝIvg'PL$F revt bqjM| Z=!)R:^W'3)0q]سq|jќ)%"A0~ \AWMt0Po韎K@_VMSa%ȴY);Z,H%0Ռf l?ɾT' *fF%I4vS[T+-wبoy'mkZcBZQwUcj\{PY6F죚-4U@!S0/2] !JPIW(O)Ik!~_"(ÂJ ^DhshX?ݡf> |&&fS* ,L0ւЍ%ڄUCo k{U86a Zf,PO?h 93·-UZt)|j(2|ԧyARՎ?jq/ZxQ^U-R='a]noYؕLp~B61>jdžIӏ^{ 9j(2JCM#0nf,T-W)W5p.)jAQ㎥ ˞mR7lywJ[gͅ.$Qpdes4{}ա;GŮ_5$qmۄC#EfxyЏdSJ񃩄DqhFP_Z}?=ƒ5[Tׯ~͞o9Sd&3O0sN}t״jy6i4nn"Nx*Yel}b0Qz6&⧎yHD==&cbxrw^P"v!I::a^@fy%NMM "זޞn.ՙޥE&H7 ē]}Bѯ~KecXDZSARl*S-J67?3~bAJDFSLu;~.nXfбV $3f@EJ E=?k2εKD"~"= 4]c1awTj#Z@{cuy#?T$ ^?8ŃA_7;Qn ߟZWrBaʧ=)c1, ?XZ"ԏH{s6u^7Rӵ{/7->\ڍ=,5K` tU֝ ezENՅߺI mN ʺh #7Jetrbop1oS׻/ͩX(&F?3aO g,w2bmVdYI0]Gdc.74HZLr](Z?RH:r) *B;*ak)xRS4u^Z5/HA?!vSL;S4Z,2a;@u/˟)7Q#" b"ШlcRz1a/L* =/S;yv`-\-nGƴc1C{0 YZlatticeExtra/data/USAge.df.rda0000644000175100001440000014230012656344030015661 0ustar hornikusers7zXZi"6!X!ā])TW"nRʟt1L|ۓ̡6_A+vӔW\C$k!r gezm2V:To1諤SUG,]+ۯΩ`}4X2䋄Itk 2kΑ%؂[ 2W#sٙ6ްدvMISKf;)9̒܎4O!+}[ejW[۝POꅰxѩޜ@A2 ЯE8ojlSziF&J21ᄈG; B?nyur³ZU9b?>k۔I|9sGR (t"UwIؤ} @״w~[4>?we9l-Qxo3[ϰ)X®/I]ҟڗ=~bPB6xϔ8x47EH~!.ԚS@#mYlKӮZ"l(|q4?l+r > ڤ`uwQvc6ղdHhOvzLjI#PWƬ*7^Urå`UbG)? !5v6h,\%3jfƾ~@1;v+ZL.b,2Έ;2?_ǹU^=LagW͕!NW:L}9ߥ Pj\\uvW`?kO5$Mޡ%!OBtތ)2%rܳ;မ 8 ̘ Li֦ed.'ٔDkE x_=|.6?Xt3&j5Xv: RU?vjBj<LX\ƀmF"֛֮VKӀ1ĺȿ/E.yYXgӪcHaI#΂tHMj(5 v/!m||RV)uDVtUpۆU.?H?iCO5 p5n]r vH+x9Co݌F%Z/e}\=$U)D >a^dZ8aK~IAk/KQP^fjke !ҭYFfڥLH)3Y\/=~XⱢǬPܤTv◩mU*iG#][>$ɣD;l-"mH|+ dKԈBomo%AYK&Ӑh{`~VP|n b.=Q) \e%}7+5vɚSLeNu&ەYʯ BRteҧ^`Py@O?<^i$3А"G֐<љBͪp;%AXYK8iGnb{W7pL#$+mp'z9Oȵye]9*S&,:0̣:G^n&64doeXm!B#{z`n(8TEyhQ`:;!dg ,6gČ~ X2*";+KeSq-֢RDIrO;˰/|_m&7|ܚAŁe1^_='PU˥!>d> Lrlg_3v"ffk\"VroS̞l;Bom[-\Lb+~pw"p#圝ڇ2nb.͌O,ďȩA?_|]:<|7{@<2jLl!,eW$qIpS#e1YhfKP)U=O'{ r`'QLj+EZsAF%޷lC>wVߗy̩=V<~ȕ"_r1::;)*i,'V f&㉒ ] i,s*,%@fzo2h_gLAMJ+haC$qA B8jTLw^b;7=sM(LJ;gު D4)a-$)T'AP~}˼͟(2lz1:5@;Ɣ $]c#GCF??oWJ3xb! CASv~9I!@!Rr{—/p e1*##UP\s]OR46v?8XebJ<K@;XqE=;M95G08kg1ꗘp4?_>}IY1^\gH6$.SVV[M]"(SHQ.D89>B[*N]W GՕ97^J>Y8%s;;~e΋C~kn.f-Y)HV7G"y',@EB/Ndf~v)EJ]%r摅'*q 9h=Ҡ8Ӎ_A|D&o+ Vx%x@$}r[iKq+Se2lˆp#;R4"QhL_2@UeqFJ}v['+=AZdC,v ab&{nCфxFdxUi4 >b6}4[;n[VHȽ8Z Fd^I']WPlw $d:wۅoD/E9Pq{Pp >yqL8 *+{-'C9UHȚkW;-Cm$q_~%B1Aw"S*l񳼆]Sf9 qMM7qEoȇ 9ʉguڠcX~5WJs X0}2/tx"n| ?4K+H~keyjE1ٹXj6rY(kYA!`vT-2SLu_T? N 8&s m+ P=9O1{İGl1f#OђbƴFՎꧥ:]-4K6XVΙ B8x!]p$|*&+Yō[)y@ic2J `NFm';YHDzBNռ|`'[=i[H}rZKLjr+5^*+) XUҿ{  )ʢy~G$Ң@t51Ky DAگA,x-T״LbT}/7J A ^?!sV+-ww*> g :"}ܸ< pOSl iyWT#LoRpp #)(yQ4e. ے:$:8 z,Nj={5iNglb!v<9mYz>^lbKY0՜+CX4yj+J 46K Eݯߞ9xbx;H*/ +xCvMf$6z&9" 8.lMTde ]( a+H]#ѣ&Xs\? KoT&YUF&yf-̏Sy%lQI;5/uK25<<;^X2B?H$Y;fG:Ɂ3$8O ߰Tmb$E6Q:ZvbzEZj)"OQBf8!kH*q!97S3Ixmq[1+ i( X!c}0nfQ] 3ŧHBλͯPCK5*R\LDO*RΧ7IPsl{7H$p Ky7{]p4g.1HΘ8ݲZn'{\€V1$Ï?E9q r bqN&zțʹ3jY!ܗp[*x?J2"&PN7D^I[,b<sM W܉J&l›b,$A()Z Jͼ\_e`sv.MxYc,4MҬ2;mn =:Tn<ؔ,+dS+S46rCnS5C FQ>SoCm?}OvnLCFjB9n8Mqd( Hn*Јe"54B(:=Pvű*|} /b_'LEdz6!l,i9_s: ֎lq=:ĪLcR3/g*[S 1&$z)Oj:'f+7bG_`b]c>'=ݍ28MtpvvةX%'fO}\~Gʥ5nyİM]csx,+D%P>z]Ceur4< ,i_;pkғ l?n2sV+=%+=S6PwqDj/}h0)!'#!J7B]0`mO"3|]Hi@Vv{PDZ7ҪFX^L@FH)mjbQ!7XTlNybX\ZuEK'WԀJ3&Y% *gp+vqGENy^o["}=|I:MKXU]uJsH)g5Σ+A ^⍝mG( NjbPOyZ;@ fȋDzlWr~v kDmUe;"05A>2c2KvE(ugCM{HO nӢW8iy#ols޿NG\^zS)Y_b&̯)=sMnA9ԍ*Kv{yPdXdƺDyM]0V=HEIƼ3fwek:b@Zqc=x+tކ)PW5E UsBv94p0BU԰a'3= Er Lzڢπ`[R`(Q#;XxTB"C߻ȀHCZSW4N$NJtF͆^ "?AS#Hm_aY#gP ܢK&eVl]QÖC v_Dƛ$4j?-LGUWeBkn<%] 78n%,}؋E4*w D봡@(X 0\u&Ut#]J"ck<[*2u䙏fY26GQ Ml/[ Cƴ'xnAȘYzO_.P_E'*FQoлIOL%3tB6R/~FfK;Y/v*#8bMP X%,D:I0OP!jYy@Ô-;_1*JYzq{C5txiPGd6(, !}%e0TpG8%:W^hΝҤ S0φҪ$uW['iԛSND(Yxn`../8S[C^i4_S&[¸78hqېVc,T;v]pEk,tFU;CXn[<{(UveS饜%qXZmpHK(ΦEyNf@BOGleHN\t?qH/M׸F&׆B? )HtEy-ɞR%q o=PJgo)̌$Mb,hi 2"'fY=wPbI&%EKѱUN<F sA( +䥛5ճ/-K &Ya%^C1|<渰żhmDO@@|\hoE[L(34|*NՔ$qѲe`\$Y?]Ku0W+ԅ#(:mmCUEec0nW+Y7峕Y˷ 6fSFT'=4>ot"f=jղ w!2T6\Z(Nw=f3R7,gݝM|gmO֔iv/'Ռc k8>I!Զ ̗/8+-8 Vy/͛ZP@NCP^AEی'U}\H/( mѢ u}K2|1 RB(2~`T\ ?j9>(I)em\Ž 9U?,磲ԫD7L%լz:uoUIPI:PcA!\H&iCB2ˀ8q>e\#i]+Ou݆4ZޱDN!pMedX9Yɀvhi,⛑%Z( X-o]}l|-9%wr~2OhIWX/u &qB|$N-b7Whg۔}a^QOMܒ]"K\u@OS_ ~lrA7 zrXZ'Bq3;_@ ͮK 6·3PCX8xEځe?O 2H7 !wἇz ?0"oSO]~u<+H%߭ȑ@*H,\{𰱝Jn pۏEr@+&+*7!%H&F|HiqfeB o(wL:ry Jz (1 8I^mVXx c3WLa~gX;1/d.PR 2Z}8/z F̖{Y@`6A o>_T#ox֒c6i6$bsχ[4'niqh )L:WB-AZcuVFYwOQy6#+gʱA^;pgH/q염1|a@d6Ph1΂Hg,aUTsϊ{?=\~D_#pUyP*A̒ljb$XV,K nj }z/nE *u%i̟IY,2**i4sn3yO2wlgTh4aYowL6 >9<`SFkU4əGиp-leEe?qiqBls*,<#7I>j: v(J.Wd-sޔeNJ! l >~AqsFP )ZȆvsv3JX9 :Z8`)2C^' Xt \VӼ>ܺɘލk < fk.^dh^LXBS!f -ݻݞ՜'^SBFg(O hS \ݰlKRMYJM'(17)A.22V* 3œ0#ZT3@*W`gW]#Lc!]U̯@v/6@tdE1 ]RĢ0q0oGr҉YdPfYJ-v[Z/OW'Ο7F-TkI]T{ ȇr]&fE8hP4sO?GnchD %Gc\zfc % PqՃH *%8 a2Ԗd:HDZqu Q!b7p0@6! /:0T '+H"R҈0Y3r1"u)hǀ.9|%켜$ HtkwQk˥2FW[]o;}F~Q*#$_(W8Z)NuٜH ["?YAȝ s񲘴T|xpRH[--^!_{'$jCrj1>j Eɑ+%.>M!G^a1'W rp\ i7) <4rLT4d&zq$͏7dlΜPa{ rz$Nfh-vv *1xp;Bv>V/_ ւc5!C.w.HFx_%8`1FvHׯhwS :\NZ$1ԃ8l$0N z%*E壕Lqe6LtqJV7ÍsG\訽ĤeӂY FEBcadO.Z-G I{Vep~q\;%@;@R׆͒ؐrzx $SW}o*J$]6T|b}6Qf/>^-=\W /}`%|rq+t|k]\tY=7}IH6]Z oWira Ryo2 ~mY:߄̖۫5[fМn7J?yK[W.,BJ4~>Jd۔̩ZZskHih({EpE9ˡb%Yphz:|>uJN Y_=(F\U0!+jLbq7ƻD@;F !*"PZcd.;|7nuw Q-A0VݬvF~I{1(k%- 1 77m29z5D`JU "yP}>`Fam{ד^(3Mh%wPm(鏻&J" RHH}RkKJWE2hϻjE3hlW=!~gҧEtl6!ZjPSg 3 L*y}nv<ڭgcK^HM~I%ͧv-\nå)"?O?A,V#ve :=Q 4_C$iK:VIPD]Bvz@ͯ]% ռ#= ?Lm&J),‘NܧXz  EUq^3?qVZ!vj@<?}NPl2FcY!3Q yKd R= {Zq IOIjmB!4׸pYVх^?Y&#J f}H[Ҵ W,}3fxGSUZhMt0n gxf8rV`C.І3A[`'!Uibc`/Rfš50^-e:ex+D43U*z,Lgx%TI`Y$o:I4о%GL)2$gK7Aځ[DÕ BEdh*)LuuW؟F갡e-$ ><3 -WdWca)䰞/Dp#r`<-*sx*.|%23t9iL!@$T~#m0yB*bŁ_oITR #>'!;ֿ㴒xuLZfݲ=T.`B+u}SAiwðV/pT-Q%9!ɩ $=Q+UCDMd16qѾ;Qδlž za]"}yxŽ߼;LrKF^FުZ .~ ncPym෣<)eR 蓏Ќ՚;Y/O9m{1YUZ5pmKIkىWZf~R<#zkh %mc\8TO;ۃisyIʢ=4c޶.[@cQJ[O"-T(@ 8CcveveЅ#+?.%o/K݋Jtqɦb9pSh$I3'4ZPII9} WkA`/6+y' PDj6s\~{(ɄK# 'gW"-H@(Y7Ԏ, (Z10^u8E,}c0YVaJ<׍^GrKf*SƆʼn,ϾMl}ā(h F^6@#X??r51o챞|bnbՠ߀aZE\`#?5i6c; -U^0FU,e e"8 Gpp*A|bȑ<:8Զfp@^1R%ӭ݂ 9 Ǜ ?G7 4C"Cj5F%a06}/!#ΘEfӟB)0~>*"")fZ>aA+f2 B`no2/^kozaɐeϯ >RTڂ3kr0}'}N3 pT@1]k,04 >qr <[<6@v3}9i8Q8#h2AqWAq*nbUx34~,Eū!̒i?ao].r6WNUcҞL+DN'\>a'q| p4! GQ {?$QP@z%LW‘8<{*>.u`H% %NnjA;рȊ ? av75]z:"5:ߵetm*g`Nd+DGXxJ6ŗkjߖʍju`02Vm6z!,02!P%rAf}yʙeùAGv+/Inz~9R5E%PeC>͙EKC=Z:/[bb9yjJ}'A$S/{Vt #dkjn #n}L3+!>P9*Oӵ!/}1 [ŘHأeZPH:`9TNAo3wBJ}|MWHO$H*b %צ3hc:{e|rPV-(UfceɀfbfOb*;ysEC'j?/P=\y|kp] NXr&9jE?4`މW_DWkDSbs/bPSbl)ڢ*8Ɨ/jI=|icp<^ajЧI#|~|%w)6&U>dzפ䵬P_{URGѣQX-"8$,B* QLc8~{VO".߰3]o+/5hA.78OQ6.ǘ8͜q_:d0emBpIx bF|F-OF_リw+\2ئˑQ8-UEp' 5szU'OlVT]Yٯ)O:eT? }ei,J Xp=8^~t+%;l ez̓+2¼)É4/`?ӖLOʡ g-eDo_3׉J GԿ[2!bk|Rb5ziPREC 0,oY?[`{ܪaesDZJ_ȴ| kNsI͸ty1/IʬU1/}* GIRa.gM9MTT8Js~o{zzQ (z[ h P^t{&ҷ QO"C6Q#sGrr9T _@admSULu|]!+`悥4 `Zb)3']o&S`#SޞC0OKI51?f8-\qq ,N"~n{9g+ANm"@>OǹD]K*DU%nԃAs[/W`{AE4E)uL}=:ZrXL^okyY[aQ`w *m $W5Dz4͓h^E,`.륁+`e[uc!D/'{=+-4W7h-JޝAh&|B'itCM \ĒЮŰ鋕d6Cɘj ^#Gq@jHZ-21K4*srh:HN.:KVLU6G*iV^T; f㻰UYXՊIBUɌjv4+]vtitQEQoJ?Qn*-nGk25-XwNj'5Pi]0A7%vGkG =gGMZ&G&%4Gr:@9?И$6^ 915?)wu|s@\_ jv}ij|Ѻ%(| wC 6=oݗ7`/?.ɛ{6% eW)Ɉ!e"1/kNs͚:bau_^O0 ^# ͜gU`qԋD﷭3쨯$e,GU&\/ER+ᜓwgOrpxta,RY2XF6ѐ_[XRnFx~ϦxHPwYέB]}qQN E>pRNҠ#LbƷјGN6"qSQU& =9L 1Tqոnb2~0ж\ yh30M o ŽE~ %IPQ_Mad'J^meȭ%>6B4=Ljo>sICՄ*.'XLDR|#JA_Llls>~e~;lTRp׵] 4:9_eEWh/6a7@v':lø$N$ "ͣJʾ8bRR#{<:k|GvS矈דšv[v>EjnЈ|˥4IZbǒ1uSUHy"G07a¹m,]͵`sbbLL+&f]7"&T`Lz)v\xp&UѻCʡ}m@_ 3Oy[4PGNIؖp&['\vuWbk #%jDq?d=]GrPP$_QM/[3gfP d3S̑H Zd [H< Ěm:RUA.t3&njZQۤT\Ҁbph`to#'4 s!+^qw[`pzߛupQ2GM?]uNSf[aGkC>^exo0ߜl]2ȟrHꚇ@S XWNU%nO<f% "^EeXd~s>&tP .V=t8,L@}]Td e<mV L\aYSA{u%.|RQ3GKiDk%/l̪(K4wk2HGOu P(;Xn`o6G~+8>Za@s#AJ78ן'8LI:,0(ckD]OLA6hn#ͶYL_y)'vvo[ U\pRdīl7֖96꒬0 @A Ǩ_Ņ!^u7>UeGPyLIOoF]$CqTKi˯;ԔI?_a3mWy!"O/D]YU͝y'0ścs }9+)x[+Gi}6 ]~x [݂IRW@o WBSqJ,$P)XfgΗN.p um*cMag3؃ŢF0SشdSV6%]xK`~a4.D' {Z;o'_ceyCZTnIY# F;5}YVɴI,mߋ/F=2q<9ʥ_^/˯E3kL.[wZZUМE* CFooL ?5oJrMcMLFL͵=b5qg ɳ#dyޜ|=9vmHf"t_* 񦅬UhmESnUWI ]MUb1KKxKWhl5j {1Efo;I3K,ٽ2կW>|;ԇIVvJ*duwH5a!iL#( \V77s],w[c8: lXYt#fbb^a0k!>%gs(bkg]+ F$a|Ͻ=W6go+uw3s'I-O=缇҇G"D~{#jy䫋P`" $?cEP|?%f><8nK7'/QQK"dDKʗe i!OQzj澲7T=`U&->x;$ P6y9u (7EvڥJ"ygE,"2Y#n i^'$f/(הۊN_aO[MYw50w??伙AI" tWԽ*NFʺ xUp4C:,<߈m곙BH^KMi] `}ܳ mR '?&oO>GH>stAǰh(3IiÝG0= z7L LUE ^WQSdnOAү?a_$`hR  `/_6/X ?qo@yAϨ`SVJE_>z2,5ذXKA)lCC*VMcKB4\ :+`ܴ6YӅ/Yd¶XTiOѯiyQvSaVhLQPϯBBvM$:żV _ d? vz`*%uӑzSZ ÙMԌxutM< ɻWJ9ت~y48:& nFpѝ(NMFWu䷼S0T[1wQ?n:tg۠q OIa#91C$ 9%S=m:f6k1g[Tң#h%u:#+ģ?~sNbn!EPJO.:䤟MH:$u&* #3=nVqG_Q(9`M"ME=jkOť S%*П>+ٺ[oteD`G:HE \AKyG-5't *вS_V@&x@72B =n/b4796y@dB(HW{lM__i8b%M [#ǻ"# f'!Obot'c4N oyq?.kڴo9KէB_i9dqR!|{2:@B6}>I֮%o&%zP J*8=^%4-hg/0&q\m}9Ĥ[ewwu胭kS:>a540eg?bX/`t=#]TLNMny'&N1 ^m4|9I$8E4C zqv"n g1wGk*pTҒ%;fBtI%S%%_k VJ)'fsYՐI?8Ze2ތLjj+J>ƀhksvj6TE?d` Eof_IE)w)ryǖ=fA(Yf W'5:6VO0dwRѭ{_uyTR}6'ʇ_Kyz[ҊCc`l 8SjCpCT4 o*#> iIp[<hyٞQ{$9׵%EE(U$X$f[?sY)e!tf9gCUc>+g+KIю^c kWX6dk%({KV:ryA(MDЃNLϡ%b =wykI\]xtJ2GNmvwPoi~A,Gvô4{K T7ZD@EVT_nn!EE[ >\uH3Ԃ(s#fS= h_1z J.M" I֨[7ftږ$~Џr;~/g\Q.*m3+ӝ]X4zoiN ό&Vpeoi^Y,shINGp z_M.AC8YXU ?1H;bZ&]A؊al=䀹j$˴ML*m57L7N\5 D!?M_Y~t89bZ)>(#ߝ`dX";@.Ο{)5 $]喖gY{(p}M&8"χ]wK'ٓJ"%V9e}dd-I75 >p5,-]H7-5V'hX(pG`(,ok0Zo:ӄVF,i1Sj?S 􈽁V `ff[b{ iXw%~Z- JW;0 ; 2`Azi\]@xs00VCV(+LJ]bg'A m)eKJm>߆E+׭iBASb?-AgKVHsi۲IO}_ W!axh x(RF;Pޣ*%GE$9 ;*Mf5dHV(N3dɈjgьj  R yr.lP-(S}MR s n8كl =^<1Lf>XS*zhO@ߢ,2ڍR S5>} \eF$i[ëI]8͗c}/RCw Y:alr`^Bl1nўm!'s' \kQLFmſV,XZT0ӎ\︦)Q P@aLMoPK/ؠ'|?q."#}Eyh(;x/'{B።ѽTmS= ǘb#2."EWV|<ɺ0d/%ZKvbOU<};RR:(&.MiÀң˒ $ oz~J_>ci 3Na /"}vBKh.+77115f,t 5eP)7,Fʢ;վpm.chTGB~HCzT oT3Pj~b%/G dcT!jj"FnTj]'_QU_ ' 7 ,b)( M7PgJ,9QCڕ,C Ɗ0?rZs g|`gQ/i0fNfDJM `^Y\N j言O޳ \QTyauJUsV"؝KEY`]]abϔE/*Sk>G.ׇOyQ閥P%NU\׀sPy7t Bp_,4sh!kkj\SL}Ff 1 <3x<}ZWB97wHwt9t_\V$E>>ܳռLx0RSasFRc2\V\7u B(bikz֖.J|wl"*z_$Bm)1yQJBPo!%1YLS{ja-s{)[1;J]Cѡs㠧&6|G;/̚Isbzdqx+UxB@4mw q"6m@=c4P-Q,Z4M ʖmzČ5 0s;s@'@='D/uMe`~訧hzjBZ ˶u~_֏ ωa A[VBPI \+}2=&n/$R6k9f^>Y*'O iE`b!ƦfyV/tb *`۹ 29}@?ak} nݸ ֙3$ VUiWcaAOT` ^F>OHڵh{#,oh{]1;4R%5J$1]y2A_io~{s rWt;lAo-H0JT.lh[oȬ'2z[OMm~-rg2.q"s"iVS0peVUU]5 xx@o.(1(+- -5%o1k@<`i KBD'3W.Qv/bit-G!EXBFA3$6ɗNz ^;b:lAB%uyxvbrIiz9ͤ}CUaÐ4*d"k֭ߨ( 6@ӽ;E8@,J3c#cO_.,i^}\Ѝz(s' x`^pGo6g0hQ_jԧ T(`+T&EB r .RZoR6.wK iO!85d왅>$R:=ݛߴLq _E? ~+c'@.%iA"{EyK%:{mG=Fb|7 ix~l/wsXDZԝt=W7퍲Ή4(Az炷:f;v#[?d?J@Ù%W!q"u=N B/B <*kKR~3 5d/F@EqǂJ~śHXpI*f| -=4}="yfhd1\9cБXlWF 85 -t9ڢ u(\/ bb) 0-=GWsh=Ip8Gp%zd""'Ӗ UZ];=m@Yg1s4ʲ2+̚Z?,%U=i~vل6ij˻NSP$k7(P yw}.f.a+_m2XTc͡.I3{|k &4ݰ\4N[uct6=貗0ڪ#/'Wd*:t- k؉oXN@;,| *0p)<1/4{` .|F\pk޼\=z~Ppcsd^McnqXwA%s+"r4ވryRjhy'en{N_5ͳ0d4kڹg+['?=-xvJ4*jn⬰)Amvrx&b1=1ְt7!J*B{OaPbE!CCS^©Gυ{\PrzoƹPjD.mLjcsXzn3Xň?Z50! =ҵsd][[XKk/6äB&jRz&飉 Th>F{]N͍.moK 4tmƒ'nlA`;5#V*2$e -<>N%54{w25]Td-+L}kv&GGAwSMy,sp̻ gtKZp%| bL}6D'~WOT޽}w֜<,bfRCzBVRwmKH)p9)oVo/&v [!nx?Us4>t8kYzӽ9&Ax!ݓC=h%~y"F*C,8@E8I+B);pNj"q|G4do6JFn t]3'fD nH"y[A 2>9[LᄖJnJ~(S|2Qh w8QYc9QWHF?%>e\.ctōt+?5 ܏'lK{QJhimpIZ:"Cdi8KFq(pU hRklU8@ 3j \a,MH gHWjkP#wI"N'a!e:MF,wSȎeNQ(P %RF4zC 5SјB[Tw$fQceCᓢ00a&4H^ f_J4 Cߟ s1-n.э%HEof{V0Zb9#|#:ژzkU4').J 4Ѥe st}!ό`Uћ z 0+x}׻F̲K…[s#{\eMs'R@z~Fň;B#MXRb#@={uct=вys0"%iqRbL}Ѭ)ޯ&*h1͉Eum>̐02nA$MJWr[bifz Wtߙ'5E\ܪ){jff`k".hq_طb&~00n*?MM}C5\$ˍ&S͵db1ZeT$zї}ۢHsôDk- HO>Ҁ+HKTT܆]6Q{I98y5r|E2'MHǭPMXx4|]h`P>y/WؒİlH0@NYb1yn_fh /q-MHfoR,g?zĉDar4E <'  cB]{8Y_fɞ 3[}1vcفAӇ4(=G(L}'Gxl W]1^T%Hp\!eAqKuRSe.P=yᝍk6N ;!iV枢W:y'#Ɲ$A4IC*eoZaHj?Z]E hZJC\fA-܇}mBMndOjsH)sJNTlfҭ Y^Ew8^L9z=6$9vߛlj8EasRR@ =G<ieaq1!B?QJz_i̲cl*ə;阺s(Ļd*~ L>+PA 9F[н(mnMfIJ̿ku"C*;Ags*Wm$X-7SxHyT0\_ 5J yO=QWz(Q !s=3 "*BC :M/ +7#H9{׳pC4PfqѬ\.yQ1߰.$T|Q1>lH!PVZ'879]= >шS0ǛϫrI$?Yb== h#V***Oݵj˴>* ~Hu{*&zxNq W#W2).+TuvYU{3}9T%ZCm7P28L9Z]]ȁv"7= ݘOY/bX{ʺ  hm6 76.veWKP3(2muA|3"_lmYIrRv -@b2e` I҂9jQpt={ 4Wp}l&N% ޔ󎭓C knT:B.W*TB^H]U\`Ut4*%So}T"2Ȉ$!3@4%ʞbS?~7D3Ak^ _g)&SB7{LQJ+x,i.n:d8ѩ>yXYnrg<^QʆO:XY $C[9aC~' of|=0_V'j( \OH(Lg2Js4~Qs\OD&7ej #oU-T ,:D"jm\Ͽ}#u0b/*")周" kKIPh7d  ڝiJaWLA~ARYX3A2:dtAi>0Ie70L̲z*<.ɐҕ?o#Ly$Zٙՙ74dM(՚i$n\L20.Kwme˅k :7ƽ7:3Fz[ᕖ}KF\Py<k}Ur1zg BRU4F?3 M9 ]x6)Y^a붺8ua G-f%ϧ |?Bs/kƤ0j< 25Nc %߷DN=^:0Nh]dc(综'VHY!%FQNM IWtG0i5eDe0VL+0dZ-/#aHNVM.4.V'7Za|ʼFI kIc60Ɗ˓ @%{?:,Waa!._ZbכB<. =aR/<#)bˡܛ z΃܉3[cL]K= fzǼ[wf;2:anH,{yrTD $ƬبHEkAY %-8 @8[HUr}t\$J4'|Q$u0<%e*/+WǤ7aV#=sa%ɜn ґsV4 L03]t(h,apY3si_.h'[́UM}&&ż͘KT4]Sjhʸ;*䉤%G'bvPͪ>j0h cѧY6C^a5f4p8V4j 'c ',hwā5DDR}I)KzHspT(X:VONcKHlsՔ4.G}j$p 2E% oʾPGE~©y>F*'D4PQ_Y4uĐe0}\6o9`{5qz`̪3s2yε^2aEBj O4q `[}om2>H=!e$*?5)9 8߱v'8`.cB>|MVLG x.b~cVcch͕RQ]Wq-R7^ B=S^jа?ϲ|&-!6 O{ܻ1F& <(])(?mߦƼLc+n\hdgmldkͿo5`TPiȢl@1#oD67}v Ӟ:FhӗA H3ݻߔ(ߟW*hyNn( ׯ f~1uzQ[|EwܢdɌ6)?PCV"gI䠲Ѹԋ Yi> B1׆%EdEoq,S3DfL|/ (Ɠy RepQ-RbCDKH4Ѕ@36i<#=v $P O,Mv"bR]47fg}7K9RMFÀ0ϣp6  3/ͤXfu\U8%iA׾q"W CĶP ٯR/IV4̽ O>/x!mۥSJeVNC˜Os䈨:pw}E.Y ۘic_ Nfu(۵1#3lo3 :_HQK°+oR4A66zkwH ê+9ND}Soǧ̐BOAзmB)pX {xF`WY7Ȯ+{Qkk9$%j׽÷NȽu2S ]xyg6ηFﰄc]ZKM|z ^}@ҔKT OHT1@/ʘ&rT12#} *<5A+J0`_uժ $ (U$zN>Z ?xZCxFut awd kL+as:ԘwD/E蛀(m+6Tј`f@[9N?&(:@ٚd] )SCpu\Uuo+d1iIT`k%c.7/G07Z Pg;}PC[lSQMzch`^O+cqWV2= gw8b) cьriΧ+{;_P XS! !힅iAxxkACl z{ނ;c*9F,*/Q? vܩUV@˲%%&'R!A1 Nu3 2є! ŋgʒ,t?z+`fF]{-$BTwTgvxQ-j9s wFouY /L<J=/)lQ^1 *5pyA*B~ Wi*qDCA=0I$f8jU8zTTJ2)OuL%:Рnn8M|^ >XaշDs> `x$xF m!1{(iS&S6"7UI@Y$BpW:@+YÛ޳  0J~9DZ.`'W'Eϋ&7Vu]S(]jyִf2 9Σ/rf5g,UhZLK<7)U74/sě"c)Oh^܉\$Eɩ4"Թ|Vܐ@c x=GDKքԮ9gV¬L1`jHt)~JA 3_Q}sHTdR!e2uQ@҅kjWFdѵ[ԿkR[gA9.^A%ݼ;\ۣ3N$#{>Fdᰢѣȴ敠!Lm+G]~~H(B-" Mn5pAQ|zN|ٺe:< q'ء]J8BpÃ6 ^6KVo[G7VuO܏2* Y#RP/]N^e2I|nb+ Cp#9E6TBܚ\p,r(8k%(B+?0)հq-_F*eC*֢vJ9^^2A";q‹R?#hĨ*tAIП][XiKg?\9#67Q֕FwIl(5 st$K7ikLn?J \jB]{3]t{sI=^<4gpV{V&mnM ䷭<|;ҕTb_rUOBzF!#Hw`5CѢ`ݷM8ݳ69ѽQeX((q3-da+cxyx9a;`޹/2;&QރG۲[ˆޡƦ.;eizK;]dκ1{oEOJZ[BD?TX9tvAc%δʵ7rKPWX#c201Kg>X(YA4r2'Hnu%Oɩl{czVhNg$'8LP:0TjtxAE}r 2܋6pku=&o>JyWF+;#)q=2I#}W+jJFKyw=3o5ZM"v>ŐT$cU"!:a^\3ڴk'XxCx`-UQz Gte툀F* dH6.# zto5…"9WN##!hc0إnXC<-fR/SVHc!Q ]C^#;27pA*Z;'AcE3FXB%8s||Bar6Qs" ) %weXI˕okRtqZL: Go0dz$ X=K̶^{fwR `lMӧc鮿3B Ԉ8??[\.b΢ >VK t3ag֝%S"&m1#-}+3+`eDFg?;:tq/1EbQ]ZCSvby$zt?1cJ ZD0kkmG [Ø0㾛^Zq& GFcMw=unlAw'h:A:2 d~-ټ}Gn gQ$BvԳľpũ ;q9E*ae;jng hԇe"(~GI" 3nuaym=] )񛱳z4b_32DmêCK+ EMȌ,~+iїult0mV֗*M_ `x/.{%F\eœΡPL+s,)FB}sֲ-u Wy06#fO>!T7k2w}qQgoE'mGp5xbъ$ش$1OBsV+ʵ!7LJ(*` hJgz 4j`]hAs*P! l, xQsjͩ=nQ}A889Ģ=8Ř/`:Zae/)z.>i3Vv^n9B Ax;G -+6A3ym]$k;h~cl¬oVSx"@d s:=޾F.A j܄xDZU7 &|>5' i̽ *haοbAO@nwnؐ^N9g9${SiUidd  C]`\b.h '2TD{:6ZAzJ܈*Ǭz\Zˍ!on*T"ñ'"k^\*>x &ڎ'~ Sߡ5<5z)F>` $9`+DL!Z䃆N Z+}JtpϤo@2El}}7ᥒ/\LPn+2qUfL.a!*!6gZѫ2+,Jz͆Z,M^*,*d_&JI] ۇ2NKTzM]mpSBVoX pa>g~w6 x~̺%Մ[8aDɵ7o i;i3γjM=X$T 3|cdT1tnǛl,%e3Js{B+#m>3hfa\/ 5Hm2R3JXd)84%UQbG-5puy#ܞ)xY{',샙+'ZU6թ([_1b͗[[JLD%hd\˹B%)3)ȋߎ~} %.Rm \J7tltE[Sw̝'f>ד;s= k_,+ g^_Lw8GXHJT^teEf%X*L}h[¤ڟF-AZXߋQ=Ћ$#p- ڭD3uHn(q+6xH85޿={h}-L##Kb,TSȤR5bȥ2wjsXSY-mLt$Hu lV7d.xҫ^+便]ZK,k73')y$D J(^sL4bCT_Zd90}PSP"02CjӇMҠI9JBީ_kabԋkJ%VnZo;z_ u!TjqIvI{Fv*>E%}ǂ-#F1d[YcxSW DŞvwgBce_._?eWc30%)d[􏅌b| {'uZ/vok;?Zdo(HMMTfNLx+H;ҫ?uhÅV^QҌ-*.lc'F_88tm TfjS`.t:,Nh!vE Iz$fKހ89-Ǜ"FuzjO"d|GX1:BE=I!k tJ"M|C%E+A/s{FW) ?b|7_\ʨPBZ%vSD@ISǒHp7ap~N[Aq&-cWS 6jĝ&ӘkW\3D0݉\:]- -< ضnGYּA2| ρzNQ_Y'2ˈ',g BlkAIaWZضSs?rZeV\TOeA;O뷞~(@aՆQ)W T}tT:41@̂ţ-Q(4]D dBM1'ٺ)n~`N7rEXV7ꌥKא^[3zW)%#[A芕iZ>{SZXt=(xg`K . Eg,.d hYG~錨b Vίc"p[N/ր S x=b^i~;XFOr/W)~g_Sqlr-v'm'ۤgϋ6邶Q~c"i&J |8YcJW2zox1w@ 3 p{Do1< 5F 0lrCȚz'n/q|Ӹ1硠֓܄|qdXnA4,CKKysc$)(qvzг7Ы-HQZ%D4WŔ5LɃ1W30;KA;i%y |܅rIrͩ`^MB_&˖}-&d俞NmUi)iQBsx? ҙ@܈O"6+xu<}E!ȌACRv{9{gܹwV?h4&Ί$תơQ( ɘ:+aqI!4wW#V'8TA\\:q.c#S?lV0ĒƨυJ<#Ch %\Vh;)W|vlx06[08k_ N#m_,>,r\fƯ EBmYtIv-rvM]<pټ?~KeCDs)X93V `Ӧo!8ѻLa9EEԟM{tFr܁/󜿿H:֏zՈ"'o5q101sa2fz3lńR1=T7Ԙ]h+"1aqbu/i@.a6`G A6(t#n񭳖"ȶC9I[;քܦǾ޸*WPQK{D Ц)VT(O(wcrI#o2iuU{[JF_5\!X=]~+)| <2rtuu 9>||ǩWL&L]T,tgbϭ.@(Bft%S>M+:p $bɘVgqvzU#| z\< 4F6YcJ~d m5Pa3 8њ .0?ϧ؋:Ca`xND`_.S&]1p94Z6x\xlp])T$ԇ[|2_?49ktd^Ԛ3#/ j iUX3' '-w]LIyTvvǛ ;x0v^-{#[n z9-6#keK0 5&+E]U~!I_Ua6¤?aYcC5܅}Șg@l{C?1&yHӲ>7, V%u/k/e.%N6 ޒafZTP^%|hRec@jp€͸|b,;BxLtAK_q@/r2[5䀮!f-\1DE:tAmhf_"GTS^Ιˑӊj(m׋I:󯽩ތ&;@quqY! ;odb8E.>s@0dTZtUmA$t##3]ѧАݟZלQv<|Ll6ߺj49 IVU2>Q /Vnn7gnƑRU?ܷRi"B&u,Q~Z?+kw?(UX:#X"e `nхQ_\JMGuoAeNJU"m<{,46I7-I=, Q w[!w#:Sc5颿1.O,(SpA!j1X.\:zLL^L=Jnx#h3е%|>mPu"`DFqRE+UQzC~_'PWI<|o~!+VCں 2t$Dga^A`7NPEH+p4h+Ř4B['}!X#a#8̬[z7oUOv*vQ`8w0☮uL{A`RDYD:)s[+_bGCFihpch8층3rKFQ^;>pyco8cާl&@hk* O }>G@q?5g2YryR+@!ۼ v /`.qV`oI.#z9Ar(jO 횆Mm%X]&m:jG w{J׮J@ F~j2YJUIip `..c ,0-V]\'.L_ F`{ߤg:yj}V МBT{Q$gy/ozw6;u #gLyFմ 픋#]^QUB>&e0 ˠn{_{d*y[q=jN1puVm!;lfvDFVX@> 5LP |#Dk굞wN;`ʧugΝ:|wpq;1~W:/#I70SΒ' uNtثmpjmg<,gQ")uU~Z1k:.@DT|BB#0V&,~5'Ҷ7JK@Lӟ@ 1vu3bNُAOQ B+.=c !MJ{il \u(PaWFa'.mGf4CKcԙ>c, ; q E \4Y{6oyΏc6^:pqWǦO f+K( gQDxGeӬJ&/EXu~H…֑#bp0 ?7) eM:V!(wNJtYj N]yKGSόhyu@e*/܎ hbF{s^/PKgGG@z>,Tkܵ%sZ;$ibl;~ё:BZw70fb YOeu/'oeN'U6N5ཅ8')6NLʋՎ̃fHQA-(R-C%j2KA/MfFtPr"\?Da.4U~YZw.W%ɞ߫VC(`=иzi# nݨO;^BQnPY;_`zt]t4G=Ojov EH;-Ҿ'SZcg:cٯ* T) *K)*P#,x@ӎ@Kz$6hI%UZ}}h& #lU`]D1\CS[WRho-s^j: 3!\Tɸn 2_ kdZIx\L.T3j0ipKOXNۆɢF[)i֭A8yf>|*!V"޳ z놛R&@b5wL(A ?jk}_۫\c;_\M:%+e[ 8 j}`n)~f_C:^πX51WDc`#WzN8 J#OII7MTX g)PN_ \A˻:j)NRY T[d?a3Mާm3&fC:E}IG=V%D8Qc =rҘhn1wO%dc"{: AZ #6BGY ebb_ {8m j=_mnyvQ͙CJ$5Ƚ±)8Hgϐ;&2`yͥcN }Ҡ3LM &;slpȜ-#CD"cX ^ ɣ͒zѳQn8u lZ֌JU[=7ڝg]7_pRB .M4$5L{=Q@:?l iMj&`#~*_tLhĆD\mNTPY6'߾ֺF:}TM/tRX†6o\u(Z@8Dʹ o=JfҶ!ϡT6a=h5l% όeAQ4#❨XydfݮHcH%50(AU:F  %`r`ߺc,2DkJ3$U7 e5 riHR<#bx"E0k<Δ'HWcl Yd!;K/La23CJS;N7&K#Go6&؋&>xݦWߙ&fZ=36*QSZ,Hk}iwZKd3ٮE`'Ȩ/*fauCFC?aniފهe Ў+{ ,LpM`7`hJ~{MrP_G3RMzUu OLB-qoE=+8VsK|qղ4b|!]dGfL=ōl(??;W;t.B<%uځCZV_AG]GhA{q?HQb!\?GZV/.fL G0UxWf9s8ĤSnQiwn(,Ѩ}BEvº.Dy[ɧ}Ɩ| H6\ؕh.}ܫ⩸d5) ιhb" >4 !=C MPAr[䒱(յpSB\鸭{ ѱ M'rpA83q5qEmD-Am Herd_fCv%lf̦ W`qCU 韛}H6AഫY)<ۤO_ǻj NDlF)!j3;*x+6ă~~^= _*4 IySFmy?6p' Vd8tj;6}xoː7#C?HP?|&2GBm7ZR5~p/0q)YS81D1a|Eij?K zwzjAxg:-Rv,*˒bCEgM nՐsU/i"MrE?hɛ&=;{4zm6C#Us/WX>QY{{ّ -aPzz/gɟ !׹ #!d()P}ϚH:hU/v׸K, £61{RhkHnNI^Q諸Po7ΦhfxK<enIEEE#QoZX@ߦ:şVSZ^R01`ls/'YUآpy#AGI@ָ*{N7zqEi ϴ?>HnZaSٙ-ȭǍv>LǙIx~.g;PB5x^ia XTyvyWyJVȊ$D>.z^ !b,C*ʝT`t+z'|U%C""剾ʯpodeMcn*|-%KELт{'&YfD J8FOST O%R`Eyqgb4A6n3hR%Sn-sֿ$cJےp+}ךNgkB; ѭ>3 n!ҕJ#q<_7iIEWC#-r ^]cpxGUˡ "Hi}X-?w;1eQjiͽ. W'պ '޼x7qd6ר/L%(̎jWw=wY* ޚI0 VĒWc SȄU\?cŹnBSdc9^ R?)j9‚Ӛo,ѣO$@ [Xx#^79:.p^&hOL+HkP4ܷTu汵+s I}Έ^-DEk(׷zǻ;/@&(߯؍cA^Y&}kAj<"u.hΪ8LVE_cٕ޹9E&"M-aʿ/P5KmX;TG|T$[yTWJr|F`v g*'Y q6J !oIcTSNx,C]%ʏɌ6Iƹ\gw' QȁqT-D9twxYD֯t 9f\IZ@1yjNhx=%nD5M Tu썸gYB˭)0yju{I|W%ԞW F4{jg&#mVb jFQ- f3_D5wu .NҚ 2l]d)SW~3)l?Yj/6>P{`&-#~Gv"E*z;I4:Y}d(^6^hY,o#n? >poLb5WAZ8GS%W\6r܏xcdՍEex1Ɲs{h喯$u4skR$g9{%=I<. oU5%e_1Zjc~z'K4Lf@۴|ɟR" ~5r=rJR/E]:~ ϗaֻ^`Q{ L<ǏCs 3;}G'f)t ЕÜHfSԂ铮nv|:aH9еc`ltvqXʶnVs04[˃VWYdj:֦+c?ٓuF&{ -@QHkOp; =qBbߌ[%+#M0k*;h0%n  >GnO1p=لP248U6"d!yA=%\;"}snw$ 8BQHu&VC O:Ӌ[5anB0OX/힞(_bZj`%e(̚> 57e|\,+Ey6@,R0_;]5T\OOպZ )B:nMj޿BMH PQ7VJ,[!g_el9 B8}MSqȟ TzL@P#o1Ҁ|^"893 69,"'Fêz+n ԰[1㟑k,ӄ%`zعwbS }:eO/c9t`2,ΐ05O:nнD7ܦӦL+N{20e/7?91Osy#T3'jLͬ_JFx[)L-Z6ۢv~{ IBOZ2*40 YZlatticeExtra/data/EastAuClimate.txt.gz0000644000175100001440000000162112656344030017476 0ustar hornikusersMTn0<_anDZy-i4g&Z6rR}gh)&Mjvgvgpƻ;jD322?/澼]·.'}Ƿpڝ, OyP \*a-|kEmVBIncʆho{۝PB-H!Z8U0mjHZZp|įbkzο5ZG\̓܀D>"9]/G]sHR*@FDE҄wi8riϏ3Y ˝wd^FrQ c?帺Pa9ȄK_K$%Lj(o&]@6]^~D+#= ʆy0K_ *cK*j4Rm>p=!:c9F8Ԭ6k b)shq%m8`I&kҍKjBŒH[aqV) Sd/] :u /latticeExtra/data/datalist0000644000175100001440000000014212656344030015362 0ustar hornikusersEastAuClimate SeatacWeather USAge.df USAge.table USCancerRates ancestry biocAccess gvhd10 postdoc latticeExtra/data/USCancerRates.rda0000644000175100001440000015416212656344030017000 0ustar hornikusersBZh91AY&SY]-{mm}}mmmmommmmmm$i%R"RL 3{ANPR(*D  P @BEJO@b綫Yhv'kZ UJ4KY c%$l|UT%J")H*U*I$*U }iTBTU**TITPTIU!A@JR}SVd&QZKBw5mh  A$l7ݬ*jy0WB&v4HcFFpt H@$NuQTh"--ݞo 9z 9j1o| 룋s@t)xXAA*k;i=IMX A(zȅ fmҔM!6[M!mRIUT{Ƥ"lk3`[B*(^ѭ R( S @$a2a0jf m #h@4 d4 =A!"Fb455=OPhz@G =Th!hd2A@F@hIR4O$b4#&0L& LLL$!SSɢli0x&d#"=AFF6A!!@ 4dz!6M)zj4 2=F@ Eg5ko/S ; ~=lk|Cx9%KwJ9] 2KUutAЊQs1a=W˗QjZPuK97KR:{ȅǒo Z 8wɹ)8+P.ٺVNe/4 y珷[(zyi15W+4﮻ʾ{207 @w;Hw3 *5RZ5Vfqdqכ5k1Zg:k|︫,k]35ao~wVQZ&%eRZ1ZԦ&k1+I^Qt#Z$bP'wU(QgR]޸u욡ĭAca:ԥ]LSVocvzt!c3އO B5g/έ oy}EW'_FfMh#%gW8ڬGj6LRE#V JO+tj; TSɲLJy a8]wu+ۑT*/:zzF%I;IUfuL՟}oGAOЎƇUu\/ +;ДnD|7d1 T2 .3"m`%65lg Ik#r2Irsg ȗ!v5Rp.C8F1ÅfYvpWɍ4ІBI,ZY1Rm\eλd{55lJLd~[vxnMÊ# F]s Œ {wKw|!׎wcu5-Z~T7հS^5f}z76ZZeׯ]mkgR>6jJؗcMmn^y^[pMxdwnXYfGSolq=h_~;sӕc^Q~]Ķnna~6c-׎T~ĭK_Zq^n9ӷ>2uϧnK.oċ|ƼRMs.4ۙ}Vi ~㔞mYccg<;Yx4S~D{Aą53h tO҇XCiuZ_yP?Q5=A.UGrΪ.EN^a~_`L]@9]~0~)+띳<5 uTFCp++ n0[hgQe2Q&VU3P#8&K*Wf4NBP* 9"u2`ߵ@A|^K-T+*할 (v ̈%<ТRN`RNAhDlTIC>uy(%$EpwHS7,0bg{r! kb7hBm$ؐ^"[J PKB/s˽Ӻ1ҹ&G}j6!6 IB+?;<ѕ1..g9p9|tٝ#ȫ!@ 4[HBѡ g:nL[8d ( E9C(ʓ;O<7#םk(0ϩu}f&*=*RP߳5w]J?~kj9,A Y\4 K#Ҏx#噬$4Ru<4; ִ6»sE@$Q j#QFAK6i/`FQX٭(˃эjdQ> CUOVk]77Q{ cK&YBƈ]:Zu"OG{EVt& ̄kY }/%+[T= m{jsU#)`=Þ_Htј;kJk3",y|s#6vy~QcT"c(͠B*H" !`݄Ya!)*X`KEU24TV(8ƽx;W.cVIZPGvhs6':D8+>ϮHv}!&LAzQ zeVƪbC H8UK-pi>Q6D$3siZ,cڂwqi>7g _'t \z9 ÊO#ͻ|1z+'a*ѮsVԕW5 <^ck(Q(1. .IӳvZ5*Zli m\^hvzJpˡsPzsA)%;Cs4#|2ؒ;e(3398ŠDf3tZc y<։ /eIn˻o!-Z0_=1:<#06d2syig{y3w/}4͈ϸ/A~@ꗺyn(hzf'䐯o Bo\ϧc#:CO랥Yo=5g>{,Nr]JRXgrjd@:V[x0Uo܈<3\)[ЕG*VbwLguE+hhQA!z'ۙ;ukHd#MO&}|.$%+:{/~?Qn{*b/Ҫ옖3 0 xV:ġ<󹍽]8{s}Nn5UѫU1ngU糮]F ">p?6nwv[d8 Zδ]+à5JMdaZ1 YkN Q5 tr,խifX]eIjEk(3ZRvjuAGSզSZGMJq]kIjYĦrEŜPkZ݊fk ̐AƚdUMbaSEfdZj6jk9kRKQiC9JeA3$ڲ9mش574ɫ&ћkmh#RVsb;qZ۬ZE,]tUR9ՑV-VC ֬ڕufC:LŴpɭ9m [5S-k.Hm8iűXֵZ8q)iJYٚK12ZSf4vTv(YTUrKv`qUDNHk PLԧihҦNщҳUWHmUDզY5k,jkS9aYm:5dVRʶ#bDZhi VZY2RIrqh325Wc grQ*S]j"gZVJc&CV\5ifg N VkJLVd,c0kZȉ&ѭ 2Y +nM[1YbKUEU؛dɦnѺZź Z 5ٳd]tE]s2˪eeU5RM (fefmZM,fXrR錖i[M6X JLKs͉ͫk -l6F,d+R嵪kVuNĄ$..aj&hFm%Ѳn"۳4JeٸÖSp,eZN&Ӷl5 ѹ6pY4UîZbe,u8Ֆv1r:V+LhԚUQ5t֮ ]b+ZɚmV6,t,Zci1H[Zf5ݣ;[ g5cHi&͚f Zb)$K]:"kSVⱒD1al[CE,jժteҍRDΩMJԴ1eVN2kZͭZejcYKֺ*VdKY8JmE!1ֱiT+[0$fAkRl- Z",un4UəƸu,k1RvsJhkƫ4r @щg,KPcsE uKpt1-k*ki5gZ%͆ӭlfhڂKq64[NZMKXE9WKXZNfrW-j:XYqL9&SuX]hʓ4VqfJ%LMdjvL-kEơrLILLZbef\hQ#:ULvrѩ4ŧQJӖ3Va)u5(Z5U22ʵ-&ceM5m`hb&lY-U ]MZgZj1\ueV̒j:̱3 :\ֺ]sXudJrWefs.3''2kQJl-Mi\eiL9ejYtesiZa:ڹj湦5.!uY&Ũ-c,싩EZc[ZI&[keMjU5BilccJQU#tahUeܶek!ee4Rj8ZS-:Sfclӹl3U7EUg #SY6Rs&kYee4lٚk]۶Ф&vm #YDجkAL5050ӫeTm.k31k@LTgJɖUndnmd*u$kLiX`Rkgi1-Ùkr 2[-,#JL֙k[$;"LDѲAu W-l@kִ5VUSmZkB%ʮtZf%AKJkK9#&sd-4Kt9abifZ&a&л-ifdђ,B sn55-95-KWkjRf27\JTҵI`9,*Qƕfv&LZ:k4뎮kuQ!%)H$ٮ -.U֦XʪYfMIR[i̒VNCRk1t5)W;2fuͻqMl,MՕ- W3 k4sXj媫KZXff-N3]Y;6eLSXZGujs:ծ\+Vutɤ4hZn3jhfKTщ %GjmikENunU֦fљk&2_7[+֛D-! r763;3*L:E8 \Yt6uUΕdR֖kuWN*fkDebI+,VbɚV5MX**bmIlSKڌY-[&22Ųui6VpMl[ZVYCi~:924BUm 1*fE2=[$ngڝQAgjLB 2dn#܌vmwxAF1}xG[NмBB\6,0 1 a_?__uGvDž]ȟ3q-~T($m9ם51sEK nmÉ7qu1$..L|"us<$0y JD#E0;q9wEx4/V&‰Hhxn8NƌfJ@#>8mFݨC1T&.~&mvz*n"};} Ifr%./'M$=0+?&ycAҔ>u_}ә / Q Jr#1Fslg: P#t!f+e.S, c2ܝz1ܵS;f/WK͉!6mn"M*BW ^v?OG{%,D^~G$LZIՅ R>jw ?BSz7:c]V&;ӟ(~Zc<D ~DY|gKMg[HyݟO>z*qyr8sԏz?@`2XGж/r} ̃2#jne泓S0}wLƛU}u9܁֎$;CސLk(b#LJwN$k65mZkjxTOR{?V4{=&ǐ%&xe"GI(OɁϾb6ȄhɹyԘ'|Dt{Z2YB#RΙWg{/{ok/|y<=mx 7e%0#C}޼I5'c3EPڲ)?ThQ$%Yz̙[D!S..2 'wnd)x1n M7iu?7L:k{ʆ 8x ~x/oI>>;?$蕝Uie<&c˸.#O6d, p;T+_##g9E.)9εP+Q#$JBS,3Iɂ~[(ipfx DwӹRP^5?.|,O35gYfTRsȚS0xϾ6vUqjpj60}9`A4yKZoy4=lXuEscۭtԓ.>Yy;exvB9޸s&5#{o4LB䎂rpaz/h|K[؟cH<^qicq osg؄gte%9R[{ {ENb}U:03ߕ]տT=^ffWTZr$GiMZ&~FUf_.[y:GR;S)e_]@Q>׳56X@"&D@sD-ֵZ0י^_]gQtw30={pmuf̮SAХrreή"sx'2#cLeX(D4Ʈ%4[1-ZZNrcRI3}BD<2jNk<T1E 4&`hgR)iUk޵i{4AD&`d坧%wvR@U\hyIPh1p,h[ǩ[5` #}|:񢠢ySωy]8.CR9J 찌!jQ3Um7!Wшal{-'ͼ9^8oX`m0K fBaKҜ b." ݈%L(E)HYhgd- b)a5x9 p,6hSy $ /3)C&Cb'|X#|x>; ^kS%V#d{|WyCz"z-ǐ>/iй3B$~ܹ !,)x?+ϸ_y$%#IRb D)%'A)ٿ RY I"Ð*29 n͎l<} `qv*ʪ__Z~F> *u|+ֻ"mќkW Lf͕ϊ!cq1HQ{3fu1"J$JPlxɷ>y5EÍm|yoeGϖmmփ׹Q[H7z< { (C6YF"D،V#Cd-LvҎ_\]uM:tZ1^1 +F'6:WkB>*qoqǸVu߶&F]cag-/% 6«ѢvU*n)ey(A\6n1Ddɒ"!&CdA(Pf[2ѥ % I#"O 93M(!p8' ; A5m 4: @Bj᱑ǝ(ih2uE^]Ɔ!pSAFg.s%ƒ`bUDF(AfC$AI'AE;lf(@G 1 @Hh#YU6XV(&$nPD`nl!RA`\割&6@ @H x(8@(*Q/Ȃ *2Æ$Qf 'J!c0h!&+G "2D\q"V BHI6D!Agf#6wbsH*F& !!eE|)!q)fچA,ij@D 81)Ʊ$0 Π@(cpEj11BB"3.ep%OQv`TT! <"$6%,(t\Y80/NYpb@S2F1`\z\.2HXA "̨p^H( !$ M+ E^L3b"b"S`%ͥ-Ib]V͔ݡ@*%hsPZ#죀$ "Jnd6ppDՈJ R$&%L&@BCl)R l 4,d)qJ0*YrC e p$ 8NuS5`I#rdDNU!!A$hKhb6L 'QݨL%̖RT@ $$Ep-0a܉s)84 J4L$9JgA HE(8pXd0C%J$l"DA9std pRB bG )bDnBa&D2*JUP9ʂ#VS̲"Q19bBf Hwh0em''d" (I0JgU KM@qd6hn hd8IY 'fҜ@ajV4@T6E'UA w $TT,2NYh!Ȓii0`\n9'$ pq'Wsz4p2GQH1COYamb90Ipj7\p"Es/w}(y֝fk{^t<ƲJBQZ-BDB*ԑóa:%Z+}9S޺χrjKYBk;$V*Qs[ +Wj@]-HPKRRei EW7a6'8RXi%MZkFa"W NGXZ&I=+g%o m[Ad¶;+mry^wˮʐ;buY%e gxo;TNLJԿZpZbXա|lNI$qZZrh̫[EMf9Ou<00sij9P+uGjj ױ4EIͫkE#j-"V E,K+w˛oE2Q{,yHȮ**:l=í䡱TիBJwuViBTL[3jΰVQMkEWwka}Pe? ]py Ǝ;f'y[FU]Wgw<!r1Şfij;w^.nXzKw:/y?u'zy9|Q撯#3VeH%pV{҅;bnK2;T@h\gQi5!b$ : iV/aOKD!dƮqJIW!Yek]+C&m*4a13Z6*tE"fr`ԵjR`Y,&ZU)SA(YE8^3L^,SZjDvS9Jݲ Xl, #љFP+jc)IIH=lpUuB$݊ƘFql!j/ d!aoߢկ #==#Qyn޼=wyyxMZo\1Ҏmo:D'0w/.ʖlj՚֭bEfv(NFjkQr..$S",eI# V4T"(ږ6q|R۪-E̖FS]ϷG< SiGhˁk [l˽,+2=fk lddEwc0J-9D3blw)6V%~R띨tۛX݈X.3'>Dw;*k>I<%яq3=:qqߤhq+T$>UI㷤-b㲦ۢ+yzݖ\;9qP$GRr4<{3ۧm՟ ʹYηoPT%.Xm緁v῎8Kw|]בֈZ!N>}3.μMx鬚!+leDrW~t*p\ Wenewsˣo-dc;;Q^C e #|]-rgM[ǣ N; 7l^zhkN:xmʩq;tQ;eEUǕ':~pɻpBNnLnPΚr~]%uzbtۏymI˜9M8^|9N8gnd+s-^۸]f]"[楷Ns]ҾCI$wxqN)$Աuwl.|4÷1Уu̮XMɀ?#ag5kl"AN"3 ~ix0d́2gD@B s}nnv'qs2!P”@Ua0Eн15)(G)x+?x{ҘDhVp~͢t[N,4#'/ZYYBh}/32.j%rK OVFJm-kmvc9{k3/Oz}Nᄒ;=dU]f]|Ź}3`>i}x+c\M/Z}oֺϙ'[ݳkyki'{b{y}ﭾ>[igxK/nn6uiמvYͬko=L8{Dq^8fٮɯZn{vGzd^zByQ>Ӕsyy}[+6[ͭtl^rڴ.}{w]\}>wwz:y9 ﶁq^l=jڵr|lmy#^yؑ{x_zJ϶z2]og-{-u% WM>5W.Ы[g2.t}8bAGm[#oC}|nJ+ovdRek32LmkW9eskMkmo)y|%yQm稆y`ۛj̰y罯ÿwwoo{d^jrOlԲ'#m[=Xer5[bm^^Rylfw&ǼW Zk]҇lZI{Ցzmw/6\T.z]WQ[zJm0ZlY-o{c6\N.W={6;,3֌m[*Z4gK}nx{ ^񳵯{\e)< M[=׶eHNô-'[|@Eݺ$?&>?Nm{ۯl^mZs&ꡠ͞^NmjޗϯR5Yۖ='w3Jˌr{vmozbF||,{^cgsCZc罱ެ8$3ԽzS+ӹWtocmS{v{>[{2yRetYǚ[˷k{xv=fH[8yuٽorYu- \[hq,UQ5z^D_2/(f4ej:L[Ұ׍[.eڙg̼<μt.wn;.v􈴴W6՜md}/,[m;쳌kYb]Vzyn{}]ΔRK%h՚.C.Zo[geKN4bK|=>mwbۍߏ/Rl\w\-_Ff6Ѭy&vqוdO_Os[eZ]"|o}=<N^]IW`==*;s/K5={GUzڹrXNѴkhҔ'&׌Γl8Y&Z+.mj׳X]XdeG ۼ{-ElfWYו³%- zzm^~6>O8/f[iyoy3g.%]. huU.;ƭY뷮ܯ7k..LCs+ްYszW׏֘.nkm #.m1]y1O lmDYYiڼuyjtkhyQNz] rB;Z:gtGTf]y-^evòǽVTMVfu5yqy/kwkmzwc; =sĦj׫۶M;.,3&絖^zBt)n{խ*j4s"mywZI77;Xʍw[{[{ڏ3Ċ|k+Soou}z|-;rӲ:8L'>ק6ˆ-sZ3^ݗx m6rmvDkUTmeͩm^۞hk֑eomsSGz^|^F]Ϋ6΋,LGeąjomi e:KicUU- :to{^ַs{k7*=mh][3޻֙Z\e{l8E5UrKei=< Kޙmi.UrZ[Uh6nny۷Qi*oo+zw7P{-)ǽj޻{^yCnЬ{վ{׻K-;Z mP6v{e]]z6L8N/YynCvv;p%in^QʵwXwSy)veMj1t+-ב\sYYkۼ{6uon5~*?q Z0LhkVLJCסačUKȴ!bԝږtE"Ps05Z!P$: ކ}mB h@$$^剌;djLUsD]X1?i %FBDD"M_etg,+0S bJi8B``+2ew}=x?s'ˍc/իT䱂FYdDQd5|;bVF.[ݷ~x|\B2JC\A1ZQ2k^3w$Xs[߫htGB Mo];؈ M[CX}V',@完3>qo &Z ]N,R =1ZF,LTbC1C=lv:1rB*0hk3 {Rz[3_qwSX'AI~'pDg| Vr3_(@(%OYP's| {aOj!/J_~E,u0{=o;;LY\Z({_L{fm%܄wŻ. Ok= ;3MqyU`7x?Z=3\~W4mj2,ZgRTaqp2= Rzc0 @ςCt#TaHkkRaGo|fv?SKACT0ϕ' mvk__O2[[?}[}slT}b0_hoLݗO)>`GQ_q Ae?+Ԭ`j6J,Ձ,V ʜ87O4FJ1[K4M3ij~zaP'CdGyΤ-=,}~v,+B~յֵ5r_~Vz⭱XgũOƍSdTˆigYdd[Wq|jOҭ+u{y;Wg76g5p@SH'Ƚ:MNM*lI#CqJ64?3> ,Dq/пwDZv}o=H l&QL.=h^EQbXH&yѱ"KvbZY?Ϙ-,~E!l8bb(~樓5?1nɾt{wKO~,j wٽ'pa۫n.W * ' G͑hf,0~$ߔtb[Tuc5u o}GK0ͯۈ$D__wgNT~rnDj+pqE*#lAQVe((0,X |$QTu3 .jI_Ŀ<x٬ *bTdw" T0v2!U D *RuqF@k ZT<|çH8>xNq ``T< X3:oGy, @@ H V&袏u E j^Kw ߥPy_WT4Bl/d[vS\l.l8Yᴆ1js5o4?RM)i& -Vtm~ kkyP+QCNr$qq.J2gFb /boO*qz|01%l Uk5孶V BWxI9@$ѿD34fGZ8vNTYrKeZ_⾉ y&>b}٤`":&M 4ibV/OjϹG{}1J?~[?N?g~?_A  Co|mV,y!Q_#fX?-8׺~ٝ^#g5c8s??Sb ٱcm㍿ߞߣ~ϊ>oţcs='p_h#m0[JdHb`݉M^MU1}ls'1c`:%&;Y"SgW.xT@@9"W.UrF,*1|C:;0IFh<wT gR$uX8'0\0MS`bX2Ը SL !D&"a4A,Da@F)I!dRId 8 FLf\T(DER,CD@Lȇ.A 26f*0J0%]$X0p&dp\& "b*,"[b%` : J4L(`i U)0U F@Q2 *)Cu2I2aDlISQ.LMpBj q1x2BZIsb$Ĺ/Z1)8SLARHZ*YT@!5.*eDU82\ԁT)rӄ2 9i2"EhD9b ( Tdp+ )pY$Ԩ"!MDXTD'X !JJpHrT@RԺ2thJ"RBéw6bDTqKRh]J@&4:p&A%HI bRX2BdQB -X E"Q@2A6L$0@2M8S *)$ bi.![FFR$YTĵ+,B(BKQBm8zww6lu[ +R\">0$˗Q}AE!#!"u,[D]mG÷M=Ckocb^yeyQi\Ntck3S>a.i .zjW0ۼߗ cE YyexrCnG>| B.ؾ&11RdZ݈Hm266Аc2`~W|uOl6{`䌟5pt8q%}څdmOc~+wv\xɾT $"UwWr 8|tȾp@ Qe$UQ2Eb.T#T1Ι;Cʚ9o{r'Vyh#zdsjl΂o"dMɹ7}TzC33yNZSKYzml#7}C%9#乭gx:ԛATݙkE<ïl{C p” p_tBa F?9vFuȡC<#uiU 7UpmGu?0B"m/טr0 +-ǏEM'kx< <]5"]:f{ٌc .- 8 i;~'cB9AF7X2,S z3 q1d{|AGO>AEW&o\-\,IO-6:6;lj@˴td"#NJ8J*# "N(cn`8]5msw`Eׯuwu_ Uywʆ:cq ?&O^w>='9gi!áєxґBeNch@qnݻaq%y_Chq|"p!CYĎh)A6{Oỽ!i^5YŬz} WO:WoϠ ȅyyPTHl'ŁpaF`LPHnRQUTUk托+R#P-l6]&v5OU̶vR짮sWmZ]}T* Df#8T lV8fmgo9>OWwٽBid{܎gb;>84|P轷@KK׶6 t5IX. ]6lK`,ǎݹgϞfM N{=.8eC+ &I֞4( i^@r@QqH(tAG ćAΒ\qH's\PttHtqG| F{!=^ٲCP !R܊02I&RI2-׳imeGGRpqn˙x7P?X zɋZ1,.`:N 4 P9qh|i|~'v)uQ}E 0׸}?×/pȇ~  7j@,Z =;"oq-*J\6 a5[gܛ4>H;%9?z)d6 CN+VXptߦVtpow`G~,kkZĪ%UB=e Oqq_eܔd[fBEnz?Rj=^az!-ݎf Nj6ﳤ=ăa~xzcC䕒́F"m{\ ]wN~-eϫ:_:7~_pH B,$[7k_Sa@v6,Z5(!b5$y G{ 8mCipij39m!3A+oig f 0_ +*,Q.#Rf(WD3GHom6PB. )eP3.s3C  A{m zatNo0+)K6F\L Kva(nFKd!@,nFł[1N2ͺwzQ1?2r`V d1>8+mr'pp`KB戜d׮n3xKg'}?~>} & cHcBK ꜦG٘@u}NVtUNnZZ^X/; U_lhm[D0cPi| $]CPnܳ1!4Đ ΙLm7$qԡx-abhzRgqR\uͻZ٣!l!h o'%q ;kd X.EBK\, Vn16͍+o۵`ET6 ZFC@T.qCǤ 6JThco=%6AjKU[? ~/|j _NQ $`!"/2"h!#Q*+MH$ )7 .X T0 }E"M _cfU(ܚs0:7o|Or^2]Ǒ!A2@d-GLaCHX9#EƅXzDS\#Sa^ Tglfʂ N;d7w% jX ӘD'#t&a YD$Q@D< L/s˽}ѭuS%2 Sn$hP f]@ĨeiA - ZTlQTbl e*<4a;Q2!&%;Sy[kZ6Cm6 n:bqh9hT(W` Ox"`fFYe2kbs CFdK>VFaԧ.ůWvge:fM-‚iMH:7 Ŷ_qw+?*>?^sDd i-66VѭMc0GlmֵJCb63m袪m!F +aᆒBCQ$, v+56m6q|X8l K v"ր$1~ 㩞TIK_ K,%>Y2˪ϳ@&_ɔJWH±]嶭ƌLKhv oK|<Y)vV1igCPϬǑÚ˴ܑWVt.(Fg5U{޵;/:<;:PS=u'j J FڵH4FD#('AWtߛ+NsNOZVz8֤1.8sfH:} ysFIqhSoLk1Kݧk*.wyUЌ׵s6 |ꢍjTVig 2v[Qf҉Jj(^pKB } Z ᠮz [2LI5G lmFueYqՔZGYdtwrT27~9k~eke߻{~ICtGI%9r~ َ;Ǥ~Z b4>> uaP1>ҪSؐvWuȆw697e/oudf| 6< 5kB=t/! =g8/GMޯZ$̡Dy^NSAM-q+7zʜxpq‡Wӌ49Ö|l|Zc㩙ǻC,f#뼌[xMj.^cENm_))[<ټ mQ\s++Gr(0K,wrٳvco:.huv$7nݺ@i\x:r0UJz*Z7j;C-~s_x`NfY36+Y5g=!.&}L2:Ϭb56В_ TlG.Dz ?L qz>Gz뙪ޢM;}yh*/7/W3LMټf'̡n)Fhq舅:ZPӹQ]TrU'pzβP'g~VA 7k&jGOmR^eΣ؂GAsw67{D<(>971w5``Z0:ٖ7QKvKt8L، al 岩 3.L1D HaĄBbK, #.DUDZPЌ}|6qm%⍲T m1`PߦM? iALh8W[g<>史Wǐ>(eRHYВI6p֡\u-4PHNAGU: |.C>&6 +y'"RgQz0.D 'cllm^Ŏ/t>c6D)2`B'7CpYA[mt0nUSKVSalv%r9zX%Q-Fo=HV_o50L446w/vgvlʒB}<4%33V6fV0ns)rwhbpy7 XsF6ŚE̙Cqu,5C6a|` u/B?ъ's B?(`_"z,gY]VGz]k9z=O}uwf-k9kQu:LdkǥW]Vu5cTi#7wl፭yֺQ}u|#w7 uz%fֻ̩ ^!'RǨ~uWrgS+ltNGZJgc)Fm(Ԗ) (cLc#w҈j#,<:j[\s*n*}޺YjrhPלR;IaVniJ?#\,7ĮmGqCcIG 7ɴ.3`ծYK^.Ow='{{gO1("fyNukvzc~_Q9껭Dl#r{de]JB(R*S#Mgp[;1ƻ78g`egܯKR8kIm(:Gb$/qwlXXћdU 6'4焤cmu:x[-}).dγ9m%ݸhWEGM`lN>߻c  s)@dC[/Cڧt˖KvY]{i©7ש#T;{wZ$t;Kf\OfU\ǟ1J!$9êjmM.1㦖m! Y1Ytٳnw9 Xn i_=r:B׉ke[5aQr4WˤKOktǎݏ|[w\O7F^.w|sVZIݴoӞT>;ZN|xvע,ok}m;uSg3wwwMiTᮏ~H^Oۧt3 nchLrٖ܄4)qtӅ=::A|rcKNT廮}6m.[>g+j[#>}4.s岢%cyXo2z4%l|./_Q>CKUPV߾ ഐ"G1xH4 כ۬^+g'bTIݍ 696XK(CzRP3Ltun@da [7lNu CR+~kk Ygo0&wSccw͞U&az%L,a̤{PFr[-aqDX#!@QZvDF Ani"-3g-BQm~+  mgdK KIɓXwWrm_/=״"j!HhFNc)`h2b7r64ԁUeHY*] Eyn%2Kd4TC0!0h$xbL0toAQ? *ne%Dˇ" e1"-"D%.0A 3.Ayײ'W_\Pu8I%.gYaPq$GirduX\BЪX5 lU]$Fʻ*yV +1e7J!@6 1q `0\e{$^1bFS}HsXQa (B@3TijD6KZ!kc *PZ)@)&WkA3&UbV$MAv؄,J@e8i NT?E0m14̵T X$555E# |#"Ʀٳ`Xd3/+!cа1_X؀nłI Vd\\T&_ck]\ ^t?l++M6QT)P@ acHcMWb ezv25RB )@[|ʰ$ ",+$4rG!17GGa\lr6#a'U$H!5cLB"V(2e˕~v #=7QVHac#jApâ*@I$q׷yg}+\h",ٙYUYfg~Cw~otRIp$8DIpDwT _:?wbS,y=T˟N̥,P%5>%8Q:$8)""9)Ҁ8Ν9.8($8'':"9((K8:*N"$)89GB9H@E99LF9,% $E/J)'ST'Nr%'NG0im hmn  m-a]9Z#wr@z& 3%&6dZQfJ{J/˕bzިP_}#cr>M11ݐcMۃ ノ~߇OvptR%9_\*je€ r)L?䊒vVV/vû!wA``tBmH @vt&ۊAl=h CFHjT9-؂١@|Ybp;G~ɣ߲?# nzI$ tfyg$A!{7, %;}l8P7w#Y5pj3Ɵo_mCɶB SiJ&BR EU /ݪRrqk.O^*8A-0;@oܗg{xlhzMSGj{]tIr9L:.;XCkYL¬hVB&" i&qBߍT1sVҒCl @^[~N8a )Q6%]kdaM665TT腢,% )ඦ "|-6Hb&QBb m#mC`2Pmݨr+TLHij-쵎Tmc09|wcO@a}yPV(lp32.0 U! &C L8d0 ,0P! w$gby.\nQ*:q2֫;GNT{{ު>=kO{7+bPuxdUPV/dPA\KT^zT!53 *~U0mS&- $D7U 6\& s%̆n!O9Xx&<7% %3Xd4<}/5Ud aQgR:!1߱$݆ (eP`C͸˙K2hޮn(`,XbH˓AbbsH) l[ ~_ز_~.鼿ywȻ.(8$Y24Y٤_/JחU! )+U*NJ:rޓwH??7-jn1b7/&#rܛض*Q5q hh\8`6~[.U7GWaɒ*zw~Ŧ )g( NfQZqI$6tMߑZLJge6v4;caMP5Nh%l`%SH:2Ƃ  dq$ϋXAA p0]fCoMSf Om ҢLSylFFkH 8g[h+7"\P鎢.ET, "%h7~fGQoG.OcNDu:1Rz==dbl##2E,rA\"ЄBb*hchmuRQFÈ+{ `9Ȣd3)SR9@].' IsǙ|s;̱+&^)tnJ)+QynoRi$i}{|Ͽ GxA†~ĦhN jq-5WEo%R_q!ܪ  QD'2 ' ' =H// n6F% F8ˍ{ 7_` \TWRJ^#O_c -J[d;\ Vqsکq/sNcՉ" >r_f{J:L+ @@2X1" !d"{Pb."fIh eV Ԍ ,g ߏoWKխ2Swg|b7kxZET_#jItH@"|h^4tDLJF& k<葼vJM 0[_e. -^^TWɛMݒM _NLL")JeLt$%$2 *ݎU.^axQG gawd= Z3{}OP~R$Wꏪt(6 Ue aN{?~N9o\Ax $6.Pd&% ~gh#=IӰYjUkfY2ba*õ,/gG+"Gv(0ʠ9WS)`SVٛvaG LMʀB krfJab8ŔvG*% A%6"LK%nPy2V2CaHg L@VV f]$TJZЌM1)M3&Y*Bm qO1rɰA0qBRLV!S`YnlOK/-P!fNE" (,Q'QP*VkI,BRX$ADeP[HmY3wiff2ɦ0m&fHĖ`T;4Ì*%B.qL@12g,SpeHAd XX "$DQee!Yfȋ2d6Ha4DIbdhSAX;8 V4 2vh):b0 -5 !0BD$KB^B"5+'f܃TҀYHT~ F8EmG 2]LQWI4ʚgMT9ɵ8K*ťfۥPS6M9n޳fxYA5TQ6>,ID9! 5$HA6ᕁ!" B NӍ NHmGtpRpr-(j!N˜. 1GzIwm۫'p@ج!y *V\ _E]GEwEYݭg_~y_xs~Z)*. 4duCPF.&P %2LUTRdɊI&`1duUp14!KB$Y6] *Bb"JȈT$FbnG B}y~/8pD&L4KS8 DneIE_ęb`qsYiXq:Î$U6>`Xр617el%]=?&qp#<=Jk2D2R=.u.\dI z0P FZIxP:0)̯Cb}pt/OZxvGtHTZ2 D{ڀr6HD$!7i{vڳN.A$̵I·Vv*](el]K4²;+˻.[bln,a[ias֜1AF `m $ؕIXĎ:C0+ AE,X!"m,"աTNF(%U$[GFZ0z8yf3˙<|zJe?brbggVU.0T29"E@B?&06B%Y@A ~jo-DJta22D!06$y0Qc4 ScQ XIPȅ @<3@zTm9PyޞJfkb\d Qr$q^Z>դ99'z2EHH? @ajci`zyu30I/^*һoĩ-m/wd[P)By^1Pq#f&|ȧM`cnO3U>t%)[k[^#JOAzgڷ?O5[1sdDt4{ok嬋l{v\iX.<=JzWz-ISFr*:G m;?4!+1ӯ|; bͽ|t:WR04Ѹ[J$ 2}ȬgS5yqeAbnaOG07/6!tq_3+;Տyz=֍}9PYk3Uo#lVS?9S}ǯ˔s,9?@Q"\IM1R*Vs(_ `Áo|uP'?=@nNٌK:Zi`&cژ*.K Tb)O7 gIQ*߫ >snXèoʊ>__crCW]rziUu\}Vm9A)D/x07˞ɍ MPv[ǝU7>3h`:i j:Q~vrdnj(K H8C1 b Q@2$0NA'Sn&P NP- =\cGE6!͐p!DfcWjцKmMbV @-$6(|϶e~{$tϨqdiA$D ( )! " % 2҂Bh3FIX 粪P@}%}knWnII˜i! ̌sk>Op(mBBI叿>oށM՝zx܀=3 [3q7`.óG1oʮ͋gUn-ܪ9699GNr!P(Iq#qm{.h"C%`bDbX,w􍔩Zrzɼ7xF ouY`~Y >}^h!!fƺBY)tF[50y: Nӹ8twB:uFτ4W,umdߟ>^uUuucAٚU6CV g iN/]=em{E!87o7Vѐw~iLә(L;-g2&tDxI@TNAX p!L0hd @ب09Թ}o>_C 499̄1ˆZ /feVTh7cYl?Tm>ҋQ?m5 ~a=P-D'n]A.V4uA<pc+ÆA9D> !1B) `ko:f4؍d1%/M $NNqR9I)I_U7F7zm}zzVM@n8p۷C>El=rvJn:`Ęmm /x!ǎ6afm 6][x sipr]}qInjG!~9uo5_[3C<T9$6!wA^^^wu}tXʏYpBYA*T9CS!ux!,h }m務r%ѐ//%\28s ͙WxL1(#'$#NI/16HlEq$ u{wu~ J]EG\w.}z),,a!ev V%&ھ"q֛U= o7BYV$*6*uLέ%U_^S+0Db^)Nq 6'׆фeϞy+ӡb; K=wwӿLפ!quDyv({]{iqK/B !PBR6.YԲjQ-ӣ WԗkUiAF \(5קK 陙[vHs7xB m1\­%7j_$n` FAUHC$ HRp`-A%JUI ` hH{hui

yLѓj8ԨgL֍(`4%CVk\(&xhP xK:nZ(a{5rsq@tIQN!DGGq!98#Noo}~~wOL((22!bł6~h,BY F-UE:oc,f}W3Mu)ӫL lqǠŀ0 گc$u#u͋=ܷ^X,lbC.+>spi$drhT^FLNؓ?4#+i:*I7 2H FDP?0*\ETtcRak) |@,f d }3}hH{HR$ N28`ic͖!FJm6ІG"HcE,UX tN2Vc{ oS3}2{[7R{X3+1ҧUҧC)j2HBYx22M+ DͻD$d"qb 1D PEdVDI$BT3ȀEA$dD@TEYEBETJDxpU*7\uqԧuGuqNuQuq]^ߤ]ꊺs;w*9;Ҁ1m0*2$0a#9$NP b Тa񹤆'3MG^`}nc볹;NF>AݡX~,cп̲R$8q,;w )JB"U&F;so귇l> ſM@.v u@qF_׽PZ~7na=16qu|jxRpns9^y?OP\? \p~2n~(iP ~dU`D4INHX1XN+&]5{cwz?raMN?(ÄR }1# U3 4J5% -9oTCA+Ю#ݨ5"TK?NǞ~Oyu N s)*@_~o=wt~e5RYh!'\YB˓9ȫ?Jʵ BوN̩/qbR@JJ„fDnD"8O"\Iǻ[ Qd1!/6!,"vETwwwq=խlfվM d=-FMCj2IxNH? xwIsELKb3M " G'b(d(- -Dbܳ?Z˯>}SdC&aܱB*L,"R2  HʸYc'BuvVBl;װ]_ف˪H\lU_URDnc &b2xI@$ aƟN1h;h v+,ZtuW(Z0Jbh>q;NT\AtKکݚ2Z <$NC , 769F1Zʊ7Qk}A-f6ʩ!՛HRc ԪŰU2 )M(cq50rrShr+ܦ\lH)ɋ<;٤8Xe0Ul-hZPzl23L4Q`ӣ$L$"#q&6J;0!˂$e5af+$FzuyȈNQHlQیbλ/](8!@$d!hE9kq~h!9rA2X$`B `݄Bü}\M$`Y"\4ĒȚ2 Ѹf.c)pr$fWP,?>C)U&G#h}5[F4$O;4Iw,fRS͠ظ8Ds9vH%yA|Y'[~RXf߫oITuY#q|~=w6hj.@MB]ۻ֕Mԏ3@f{;/j~b_iJ햦>U/m0RYd[Yϱ;HCtEm A~Zu8c3 `Ֆh ӯHۻGAtgWy[y}=VQXk{[ L C $)0irDmTH|{_mJ>h}uzMVeM39&AW mfܦ7V!U2h֧tm5F5s>iN@,(&XH!3 xϯm ꄼ~PXϿ[A)L$y]BɎgq[O"]LuN37=d5.5{ OY.u?󾿏/1] s͗*.Ag~OGq9 pC21qWԄRW7-+T? ,ӝĹݪGR@lI]K>F8^Qى /G} !rP{NyVڧ%ᒡz0{J&&sB0A8 {J5?yT Of_tb7 Vx9?kMa5MO+V O(U+Tj st~G+o=ۋ;I>^HG^'Ghy_UOLiDg5Byq.ȡr$UrG NwP73(Lj*A!!mx 8Cgot< (9r9v.&̾?Tǁa1LqP)2I=j"Dc%Q2x,|,vyPQGaxYw]v7ĝ!:uH 茩zos}V;PL&v9KIChUY&FP= F}{睹~wEw:wrRҺөX݈Jq]FGu{Q&RV{َҲn9ͬk(V|,T_1vgW^ ú͏5z>${{sjG}j&95,jh jV[cZ$'lM8F<ϓKFo'}:+U!\519`%w@%o<},ί}n̸7g7w}g./.~t{Pak=_W]"6">#q}k}稝Ukp"5gck%ު3ո=[u}s~//wؠxy'KW {ݽ. ~w²;2+* "F)dUҁ)KR3I^_73tGSs]fkJ}VG*sLgWeV'}lG$i}]\@] ݯB ZΦ411ps'7T۾nbgcFcO{rN64k(jU֚Fu&RJzFw:g98O1>'=3S׆cs<խ1^ߝpdz#fȕ)rh(K&&@IPH:;UlyvfQ`gp֝\:-Y *eK^V2{ hZQ`ה4:NCrchJH ,. NճVZsih}u"TsosK|&_A֮:-B@صR$,=tV`9;pϋCg@k2 _dɥ2HpBpW--b9 =0H:6tU*xާ eJbBpT!&"ycg1J5-hbUX8fhhe1 cTMj Y 6šh{3Yj{6N" ֌DLJ3+a H@\g4ryRh)ucjrMծB+j[nZR;r9Sl6l*s,[}^hC \Q2.E*4y/KYo>c8Ϛ.-Wn{/+Gls>|{(2&xjdK.Zg{sʳ6z5{ r+(PM״R69<-v&8I 8{-]K[lqW9쌏"75nAےl>RkLxŷ뜡}!kך'l4߬LlMn6ԁ>aq\llox%fh]z0:i]{*ӏ :d,oX,Zׅ\^[r߶lj&=59:q{.F9u\8oW)܊NDoV܅羉l7km67^NB=v<;txo>v$|v#ӆYe,v{7yeWtkǏP{2ەfevkZ x6捿vxe-^Y-Ϸ]l3!q%FirZN6 n܅\*r"V=Z6Q~w<~?7fmKb (),+W=lc*mlq,b`z]:cJHф?N>͕""q)э~/~rCOֿ]~8;#*# 뻣;;*";*.*N:;뻎8 ::: ;:+N:㻢:軨룮::" .*+*:.EdDdQId FD8+:.듎ꎢ+:.;㺋;$ؒ`6HZ6@G5<* #La}XuR%fįԞ06_W:B%g$Yz, Sڧ`W6q닉l?Chh3v3ש >ٖ{&HnGR#DCBH'잜;{<<pF57Ac&r?kIkyg^m UQ>wuO]n`>^5r`sCnrßcݼQ=N<}׭˫33BIlc|g M})q겮:0rJDb 7aؤ##rTt3QG k}]-ǽ~-ufgC/ݳ6,M/D Q-=i^/>W'3ZDg0PWZҽ1 CkǶT y*{R'b*<_g 01QrM P⋻q_N}|-iy0#'KLٜ9 w1 SeZZ1p uFr@2Џp> <yy*Ƭe)$ȧN'!WQiY}ߏq5b9nUXg%OA% ɟ|/5OsJ~~,gVJoUOJsbyԂjzZ!A: oP@j[̸j"O8KH~Ѿ>ƃ_8ȌxY>d>MVI 9)Q=?k?"ϱ@Хt5 W38G#5db^sz bX -Sҋ=߆z6|"y}>ZlM4MG!˗f0tU" u4_Ԃ|ڋң9J$"6ŊYAd|u K*Lpf2a'nЗ-ab]]}顡qYfWz^g+,?96-tBd w4&Цbl7HnR6_V3 $#+ @+GyFF%/b)bJwE0;徱gm{צk 17d^&a5sgeyNiQ(𘼸 UBU͈$@?*FLkxk#0Z|Z&Љ)P,58e Ri-QY.[_ dS(26u?U񄇱}~p^`C1,Ld+*nF$ Z޲0|h <`h&')#&fgn3or%GrHe՟ُ̽zweinP!=xr& E#`] EHiY[3Hv{F褼ЙBS,2 鶠. a%.ӗ.z5hϳR>G#7UL ff\RhP.Á:gZj**V`hJw^w3|uݬ֣ΧWuhOGdw"`-OH6uJwf ߏ4LC>D- ]ĥhؤ,H'J6o+Ilex..y}kw0:ZW9þj\5דuVgζiFfyz.̺VR ftym dSc\A(9=y4UpuHdVEiΖDb"ԺSNjif㮛Jgz԰(J؊MkKy3 XҗU;FbnQHVvgb*R#QNqªHݷpPD5cY1BμȱO|r.yy:&: ^sƺ~p9Ĵ9{={9 v'U\g5˃~t9)Eo=ĭh.JBdF:Ejs"LoQ9BC= u]-<;?ʼGLYQJ*4כזwgF9]$;z;ﶼ:q"3Fx&k;սO]C9GQ=.w0b|UF+ϡ5Nϥקz ndw&ukFԐXت'!R9!l`T*) "QԜBűYlf,|pLI1['|e"r,l-zEeZk54<̥x;'O]˻Sfzn~i9lMxat=&:kz3Ӝ˴cxv}9m\,>: ן. ]wc댲)n}.SNz[ .7lk|r۽mC~cM鳤:mxE5qdžk?k\Rq&1nCNwN6s1֥sȾ ѡɌXg5iIlQR/g7N; K)(.oVQJ22SF7{c5F.V3Tg3p[j $NI"ȒwwD]Ht]quDEIuT\\]wt]TuUQqtQuQTrUGuw\u'wGqq]wtWA\qtuQwQuwD]Qquwt]EQRWqtt\ttTQwQuStw]Qq]EQEQwQ]GTwtwQQQp]tw]!RQQ\qWD\uTwGqWwEQrwEuuQTwTuUGq]Qu]Gwu\wEEEGu]؁q[W bbN;յ?4!?ZC L6L8|\JwkH8#>rpbP`!A\M",hA pf9B/ES<9ڃE*FSڜdYꈓ6=fA[[# <*@0=09y^<=~2F  cu\(ay3cVH?%D B 7)Ɂ!‹1K4zlЦ1;6Ճxa pyDԀQ i;bJ$^Gߥ˨6 ;C;6-cԼذ~sqWs]ڰ]ɨCp4Pf*C+j{x\-{nIa:Ё OXO^]ʞ׿v2 T$5P__2&ffmh,t) E!j~=EQUm^38ޗ=Sms ^+""ء'$M{ {//WzvL^Ll+u~b#l̿w54\qgɢӄNl5%X ? 8?3*-EZNezp TƼDWy7_o}>'DF6;G?Te9wEg }l} 1A]2a\8x`6Y)Oyاgރ ֨;ȑ D XHfr7ʝ,R?%XI{M aX c| b#Pv;?N|<=&jڞy#U SHF1cFnvf`hbBFq IJ" VH`̌'-.v |>>=:zr(5r7Jʔ9g?8/bLpO? &m!3ޅ*ɡ?3S[*K'v `2_BeU TLj 2%J~!=wJP$xӗQU:oa330?7Y$K59fm09CRQHf jlDrxfjV73[ʥV]o.=>􄅻f s"4~w{Ժ"lo ͼ?JHәA#FZ{v! c?~!g)KO<0?CJ@ګԘ xB)F?QȔ6SJM gj)ޖ*d2vEÑϫVm61> -EF XxMAA$pIN0c07Umf< a R<%m>)H6 T/3/ܑN$@^latticeExtra/data/gvhd10.rda0000644000175100001440000367757012656344035015454 0ustar hornikusers7zXZi"6!X ])TW"nRʟt1L|ۓ̡6_A+ز6) 45qRVZ+ҋ0}Pˬ^L 2U'x;MJ evB.,1kxZqcfL]X⚂?Q;W.gNѢqj6e+IΎUF9qͪp+YqR-JJ/9pY@Q vL˭,",e`ǁ`p[-:>ɮlNs s|ҥ)zS07n7St<,`HKt/V &p=f/$&YfyHxS={絲]{ŒfV[,%|_+2x/Px0V<*Yq2a*λCTa``0 dN.бg,9GjViW2]ˑks+{5y kۚ($q6p*mhpDuκ et 5I5ؒ_g<zvK3WZOw(̏?X#qףH0$]ltS;n6AW_k[v)`닗;)BEuIji$i꾌=I]c(^ . ih9^lϋ%8oAU76d%y'ϲ‘.>ad܊IH^u7204ۑH4goQxp<"fr)4{C֬z$ qPLN;$)s(v $P5vP,/=K#*7TUChۂ~&3 ~D/ >u(P^[ 8;Ldvȑ bɗ yS&ށ: [cz$9<}4(F7FgaYM>Z%XdT*tLr⚼\JZ7>b?iYYD?_bŠ1$ +Ai;]>1duʑ9Wc_"b5oj!-P؈^q}1t-܊`Gy0 ֐9绳8΂٨*ZIpRĂwBzoqϛզC/JIbWcdU=uitĨ(:QMXbEFX. jܗEs~B{jp73~uC椈,B޺N$k\2E/lCVf́󞍈v&F{2t\8Gv|4SQΝfT YQc)ڷ!%K;qN*d?KH14XoxJ oC-K#"u/ul Hcǃ=Z *g&|An[(F=1 Rɛ lFø$Hg6 c.>[^n)7tǼ:.԰*_[l`xǂ8=U 1D;}@1%eca(TAK;^?51masjrӪW^_R(buHB #i @K+7c{1e `F.]s\XQj yctpzPsӱ-riH^#ꊜ CQ՟ʚ@]Z=n{t8 *{e-sd@z)mtO.;TH!}oM\A͖=} +#dTI#d/#VO1P.vpؽџWIsqF14йa+ݾeqjAxg&cUi&Ԡ5 ̲(#ى|s1aVgSNMh-j:ulZ5˨YUd&((X4"TryoX!,z |?Y YޚNйO𔐝3 칞D"&%qO@"x !Ť6dQ'=Oh]g aR7q?S?U s-bw_%bf3]1Њ L~ݔcK:NCP(sKt豖8,F]ji$5nPW}CY+0:gȝ Qm[vYkOғ7v i1%C $&1BIB 0Ҽ,R){a iEuc[NPi5iRpOrMs]j㇟/0{BDg;{LODP5&uq5ps-gPjf.^;l!܏Gd)TWe0&Py`|XI6ڗ 훾r#8s<ZKgBR!{_2D` XƇGIr%ˏo&aC; ja/3(t/3{}0&ǐX-ʫŀ{UY„t*/7Q; &͏394/K(jd DnjmoQ!?vLFĸ2MBG*Kh)Xt( 3j PaW:{^\R<5gB݇b:({D8Q.VF5zf:J^N3mGaaтWII=Vrح"8K?|Nq %) Aģ+`Gaikhr=\}U-x۸AR&?ItfK憐Cf}ePPuOFۜ&ow+[ ^ ʆPFx/t 0 lCC_j%(P\?d +EdOaNTk uG,z^+(ו}DŽV~Qct0E_d=}Zx(YGӪhmѧc[ViӰAv4%=֎3}+UA#R]:+d?x ~#RƋd,:?6'Br/'ГA׼֐nA+7$W (t[O1 uٍ οF . +ZHAf9?Ab3|8D>V9OibjߝUV AE~n+ՏL-wJ%N^z'Uۥ'Cw_oK\_c 'fz|SG i۟P;}ϧyOC)d=*l `W'[ƿUnU$7!Ҳ:e ^Du"PU[ّr4AV(/Չ㢌Ū^,TDf]w)k ]*b iς1Ckea?=Ә&  ;QNTxBh i0Oh#bLQtrCAAe)) %zQw-|3`U$'^ɰd[cX# }g;MSUϧܑ{fF~fո N~@ÉA誶ʯs[Ulqqu>|uaQ 8D&If?  lBo.86?2o Zfx'.n Ylsy˰\Ssi:mӴ7gVHo҂oU(Z1,? 0}"ň^;d(Ү,3s1BW1 ](K@:`YmIԞ4&Zrp3Z0k$fB['p\: $hN6UMA (8/AΠ4 a֘d 1/^F_+KG]\SG!RauhT)7SvpnH;/{S  j9ssLʭ%)倕 8GV74F(|CZݝcO4B8mFc #J+0zDey;u,M_fw@,yEv%I"kQffZ)|99:Vb#(s=FTB=n,*ؤL5 i Afh98ùeE~4$޷PhUSVP#ڬR/IZoROP9mh۳tП\j%PP_ q3ȸ8] pgSA"5${XKLFX J^U0|E /ϒW1E@em_*Fu䤃J׀qXbjcl,pȼlQe+k4#"dwQcOxt%~:x&?ⅎ ˿1EUU똺+.mP*-\~3>`/y\ɫSn{>kn\f}0>sy=ޔYʏUoYFdn@0ٶ;{O?m?MҟӣO_%a[列QOPY hd#&O{to\N2؋+DaJر;R%8)48x ;'=hu߶E5%Bԩd{ g`\RN[ il{|B!kinxK8a] 6=f߼zc 9},(S5Ɇ%VKmDQZs\5ELImZ!Uj$<5[eBΐXɷ?wqTOf[܇jX, q\̄bH& b)!a4v惘1c/0vs-.e-kBno DgCf??Ɂ2ωƀ:i4^9#C=JQv~U~/2-~U}L@n>pbv # ZڑzŷÎMc.;SzIvT/v/B:csU2ȭsf[@)"7 %[Nm e+*&mʨoJ:\/q)kۛ+h+TBbGqȣI֒'J)wP@A> {Knnℚ)9TKʗ1׵>y3 oGLCG50O^=h1\L&I.Tg&e dWgB ȼ=N[ogNbn8:$wm3 Id(_6T_m!*Bo6x|jքo* U"#bRZ f9v{G̬ pt|!"g9:9$(>eɒH t$9@zf蝕餔/]j4%L0gl[.9w. _ vofa"~DG1PoάN H`{7RKd],9f`' O/=WCirEq0b3E0jc5.a,k~le}~8`z[pU,sF:QJB"FiCl"t >zӇRjmN)HJu_`7=jo> o|GtC'l5Un!FeLӁV<> zɇN |F$hk){D0Q0rkƉ4/Uo6B_ R -Nw>Jz̭fqy::%}1[^dn)#Zޥ}a f?( 5dynu@4W ժ\{!Hvr,Qog0!ûdj>X/,ۿ^4V!{Q.S4]A=m0@[! k 8T}D-8~omj ژ{PH|BAgN h4L)A^GwoMиڨDu\-bv:!cE8Mh| t)e!Fn u67w^qN{j}߫XUa}3G:,\E'>pĭ.<3!l`zmoަTD9Pf7)Ys~^X,73=aX0n53&Ol#,>@5Z{Uݐ'S+(˅}MOM{Z)? m9d$8-#pIq54@cq}t?=bL-9teԫbfja2%TV[D!0iiu˙O;ڔWZ;&?P5?D[zW⏸t!H˵Hڙc[ %aXmV {s3G-*+xX{/u<YNmPGB?H&)ẘNpkk '^;}!ٟ t[ے[oLr.ŲLO`8S50 ~? V_BEE@d"{ɡ+ѯ\'}#gp3@) Oa")7ϷM §6JL!s~LjrUK`׷uE'f\ƍD8Wj\l9e_X0,7汒u*Z8I6N[hx>j60u>njF%^_JXdᗏ:y.`u­I<⫌b$v`s5Tի01ly+J7͌ZN,8[K uwP [(AGQ}.)乹*;'!7JW7FLaYk%  x1P"TmO=[w=WzZœP\l[Eǽ.F-?P0p4ZTP'"\BkRj}t,‡(-FF>资<Ȕ&p*$Gsw"9y'Ri/?󠤸*=;ϡZKGObA &hJ`PG )7b+7Jƨ̖蘳jw GO$;zDWv~VM(Mm @5} v-E;]]^\_enšGcjf >٨䘋1؛E=UwYFYwO}(dCkO5$!;a9LkLoBVE񦕇/V҇JR< Jdi1mkMvO|?Jn9Gei Ou2ASNɧN4hsNO҄0e569a*Nk{. E_% Կ2ڸS-Gon#lz\hcG{\Lֲɬ@5RVwe+IH2,сp=m1w.X]6q~픃-7y0f>no4 3LYD&BhxfG4yDE8d]#=RžιCSت-z6U(isOB w Ŗ2`B!Ov&xaTqOژ.oadD Wн6o!_`=p1AYQq% %q칒V^ ɟ&YQSPvR6>( 'e-&Hb&g)4C~kVZVFB vz {7g޼i ơd̈́ĆDez_$XIYnYrEO^w%?- ;u/ AɸuʆP[Fsi$o\ck@ 3G O/`[[i$ |46JȖ뽪?8x`Qʊ۬#K$]]k{XitJN<_!XY;NQc#YȤ7w&9Οi w,Vi&"2ӸVH@X]V~oԞ%OZ.R鹵+$/Bj~}[g9.5d‚jiNVܜc̠u)Ykxf65D^G<(b4d@_nݔ1B{hVp&Ud4&Ln5ya&wȟ*;s]zUo L'4O<#rFi3h}aޏ23Ag(IJ~ו #hNEc֘_#.`a$|sQ./L+lcU43k1BY.! 9d|Cr3}v hShƘ/b"vjOnt^Ǘ~QKM?9|p:NjQ_;մ6HLuN^b*1nϭYĕ2C{BV{#g-Z$`Y/#٠J~Y~4qec5{3ّ( df܇-.x%w-(0dt{ߖ\u%l]ǞI~@aξWZ$Vl"1:WMzW/h?Y402  + \U9nO';Dz+ ,,4iMXHo@3N^g͟nաc%+8#^-H YW:4LoSH # Ck BDطH3CQ(C&W`jߔ-΀$"#i86LlA% bx :lIX^kjOآ$zBwT&h\K5i k.? egAZ:aZwr+{^u4^[VcqW.C{"pTTA/:LbÝk~J6T\dT{VjSmr{dW#3tb$=NխC7okY/~U> 0B?br>F2;ZK0'E?qkK1O4曫$ h8lQ>Z-w3X}ud wSSgF}Q! >){luvx(#x!t^2yHѬ6@7uLC'ӱM]xx!FydrܐN*}>>D՗lG6NSsg?)ҡ8?ڕ%}U\2!`ȽtlVC\Jצ Y,l⃲YB=W$yذQ8ɥ|UNXq˛'%U*ɵi2#$es,':ɭ4[9}t3/j;b/?SU."@m8q6}fTpT-=A!RÃe^`vg bz&祹Tcacklў_6׻Wn^. Vt? a&B!3 !ag-m;Boh]z&݅>4i O.w5ҳ ^볣֢B"ئ a!"#yv/Ca8cx=_F+e[D(:3?IE 'mH0L ag|ث 6<Gh]ՑAFTMِdVz榄q%r{̐4V<៹퓻])`.qi}E`QbY{,Gla9KMEݬgVXf|,5F1zwT6l]I e05ʗ7|76tk Ak'j|l)3rq^tX8/$!}a8Ւт2MSkvSp +3.]ʌOKG(d֭3C_Fw*H1NGWrKe=V U~ L @hl@LIzG+D‚itp”I汻h B_, vE;U.,,-Wjl=2-QKo2~l@|TZ!(z;piLF_Tz䏐BNؘsM7+5~k}H*s*ViT26t 9УwɁNۇf߂d=(o==Z/@"Z(,0WJ#ߔ*b$v_ eA0x+t}xF[@ +$fRPpr๤cC&nSSO0T}bGշ[ =|:;ș1-&%H@B|& /O f8>At2C_2Z@ \>Jwr#RORT5^e=RluyPE_4+rE{"znL?X) FxK/x*mk9y{zv ] y.AdZ=įp+ʠ^"p4LQHGz=+ 0PV]8itq䭛8{ 1C-lNmwb;<D[xrlD֣C֞~:wgem,Y0C?n8a+r*$=p $yg, R:g&bKo[36QW48@z`f߫җ7P#%ۃ !>&7(( E"F?iW{e:pxÙSgel+%xd˰NlqJKKɖbZn ɻ0՚fklBk۶# av%]Gή=7v$V@V>_=l n[஋ﳣ#Ӿp6ƣ)#l@n7q%HCoq+/X"T^}i[j.c&>rt` Wܙzd[B7/d}ts|0?ǥo< %LUj0]&T7-ɌjOz/e;C2g7Qts?}"hfaC.'fz3 J "5M;ZdqjK r-˼晖kolT%mw6k^xz&@VǞb._t[|'8 7‘&v芴_>]P|>D$UAK7csbƗV֣~S}Kq1v?Yers1؎Ha#2]_zoVa2%XuM%srP1zHqQhU=JR\oQ $)d9bLΔZضe`Q:C;ꄇLfXK0qjܧ[2/pQ)PDnE /:>*"Ăl$l{H湊 L:g,i(eX lBBy$~U5/n ٦3EGO*|> MS^mwUj=?s` ٳB8׾=6OQSV3*W4@ Ъ0e -5[u:ĤƳ {)6w+Ie8" \p7ty]//,Z|cDܛgqAp8nrqZm@7qF[F<9-'i\\]\$BpnYvmHd+o_ӬBXe3*A۽5uhq!@'Uz-/cXԆЖyE^4JϬJŧ81,kl-<qO`9>eb,oɉ$17at,\ .8W}RBů6ۡfm LޟB5{柛@ Z)s=աȏYbM_4 ,2~ NY贄q.+:ͮ4V]G9&(!Q8`z{~TwQͰሕxS} Ѻ{tnxi"|IJc؄~@h{7= 4Lu9nj*FU8PZ '׸.{ [{ 1O--CxG]\=BȨh!>w5=욖0r~%1"ҿ%e61͗6͕Ь>}H1Wޮ$:` 6P8x$`NuP+_קĈQb>ձݓ@u#ۍ^*K5/ 6R+jj%`}X(%y1yZ{LJ?!$~ XaA7 $ոk:--~0]]5rnM\B= g,ȆaC\nz<,6פd[ڢO$)ǿD i T6 J7황3B<4G D(=r!6hŘrL0'*=* SLݼ<:WԦorOe=Ǿ%aM_~aHKJר| q[y$3ra(\Exڹڝ]HAq u jjevwf*LɟITkQ3"a룠˗ЈwE%j^vD!(_W6ϗN8FB= B};|~rxx=qmOѢbah%o \A>[Cas8M7mKBD↍;(L7dc2΄j[$|: =[]/7!92 ]T[[*ADѭm$;Hs&9.lՅQ|B#]-ƒmTvCj|81">;JN0ah}g `0ڬ= !^Aytf:fkhr] t)c7.vBÄ %lY-m?biTObƭc:C_%~l6v[*Zvńl_S4gbaNZ#$lx8() eތQ ]^@[*qgRCZ&b\N'g LJ>ٿ:$_FTR"-C94Rݰ1K%PHg;oo6B,3J]=P8оe)羙\]UgBCMc$arfKȜ>ߥY앖od?ɽ 谕%X;ߚǁ6cܖ7|E{`1MG(P[b#b-cX-,]N? Muh?j!9B-$m~bG<Jl(9524p/=?(mCTU',ZQ!h15W&WE)=کUSMʖPbP=Z-<${SERo1Gsׇ;,2s'E84eF}4Z }?l]KJ~Sf ҌvFVF-<Κ(daaUΡ_%CJt"CP,#ZE?i3uBh2 Km<{kKi4m2hNV1"gIL7wp|+20eH_4K:K49^ҝhT5TH*n_1"d*j~A4]^YB'[{],g_GxS6]ԣ~䂩}EpVOmYQ%Y-݄="IHHvR2Xay~᭢_ۋ_D<}UÅgXY;To~J?]8ިZt9 Keb[9Ϙ02|=BAN[ŽLc::÷F1GضC—_=G)*IZ̈]*2S)]c)7ujY&4(_UJPfUμZ,W!B~ظb.^]4#w _8HVe[6 :f w<-MKPϗZ`}z,r eN4әcx|^Umfj&sX\xmj|,t:Ck0KvFA$wk'Iw.zU|`eBD5y<_gܓ- 2ipxaiQ'6բCÄ}ʦψjOWfU]nЈJ4EiETy`hh5sAQ>$AbYW2PʶbIg9 -01ЬT g|)M+,A9om$2LJ2PMJ1f(<=\-aAbW<]?4_|*CrA;I,J ֦7iv774^gZueh鴰ogچ9"\UMF 6YEU[4aC ^s L}!5nX? I?bXF7rΪ_!tYq#݌zhJ9,f3rٓdjiSc/gPt8FV%y̖bB䠧vl%#Ę1 |Z9HVR]@S碉cPH 7DrB]WYCrZC#{C;3ݕA{ڦ` p;wL:H{ze79e#~gkh"Z brlzk0jAL[hB $^M׫ГFg1"j_5Oz],;tỴdbwJb/"4!^47gCB^oߌ-+ąSi J>$V W*S}G6\/kD:Irzgf!"K +xP bu>a.u ;qJ}z\^Mվ T8FlcsMԼzZ!8W(SꚻK~df [܄ nx<= gM%„gsTlo9DzxaKp;)̛ZQlޯBhH@ѯf-3Kf닚'Cp:[82aJhlcKM9]J@]TsJb+] PzFdkL2{tҊbHyLǩC(BB f蠟#:L5("3+CC莨FuksK qqdHMԄ0N@Lg9g##^d<_xpc]Dw["'< Izur%swݤ*5~Cވ;:d{ ",ڽ 86<XF k"%.ן,s;tZ&;kf.t>Z?ȌjB2ߴ?gfF=a0E޺1w=’GDe0"2>QBHZ&B*eceu·e.0չRC"gG],fJ [ XYF&7Wkm&7YXZf5(3uіiLOTM JYP `R%rk>Fb@x31 ߲Y;`A~CUkԗȂ'ۗ<=bLwl \CCԙª! (>%=|dC&^$Y\*X9Y:p}nK)u/*z 飋Tke$:bO%I;gjKmQ2zr/R kN֤t:dfˌl|C-ώCcn 5/£k͢Bzgw94+VED)D[cQ?M3:/ljMv%'br`ƪoEZoGV5>C*$)Cs 9›HJwJL%Qh( N?[+ 'nJ}~2gXq Ó{^ :ɝmvV@k밐@o|8;ސ>_eoK9 ͷ>rQ; 8:Q3 HKLpF_k~ @m!q;%ҁһbV\r`pϛ 3mVXsxڸn2[R2|3CbE6TK=z*Ee|fx xND7t]'[Ǹ:=\zc)b|~U[6 N~kJrF> H$T^68PDŀlf] 5,'ſJ{MWobC)dUAA/}2!-l;"7\4H;a\S &R?P?kfs_89*$@:"SQ-] ,#Cz4m;x3йNbQ+sM7r uZ{rI#.1Kgw'n\E KeFUDKrUg->dA n- kfe"hRB7I[z"M1YڄbhMg>Nm^u.CEJ;y5d z&v`lgoˀ=ZJ<@J[93 U2VZJM{bxwEw/U]VQ u͓|1PͽS@1xߣ  r^I>)j31TGnt881b@P|CTpW^H =qR`@M$Q+<ɦ=#g n)lF''䪂AV@?_AN!dј?>RI5 ^@Y妬FJ}YӨnb}@&pL2q,QcÜeIPt,@+O+nf;QSG@ǫv'ALrJ3#=l f>fXП$hy|T!14:r\߈ǟ ]@bȺȲx/D+Og|[CƱP)sr$8cq;CvЯ,P\B9^(;=5l_-$g׶vKjE\!^qB38*_wB~&ܰzq{+s( >1w A)*G{O}3H|I,6 ,2E^t10q*$xmk$5mHBoe:d*QoXdɠ%S-did:Q8BvHVO!2e#w+D~/HCNԋR0F8 dqV!A+y՝ѢiJ)y 09ar? TEklSz#\IJ`"~DSӒ"+0G|vAH +e*xfmK=U{8"O,I#bq ԞһHk1:ԛË7hvc5ei~R㉚Jq"RRkS&z|^DOR}8sk9.0+ث]bdºߦ if\̂!AH9@!ax#9REG2qm7,މp}ۑeBӢQu,_m/Q]bez$ Ţm6 T:+עDU>QI"po xn wA$N yY99{ ȹjRj3.]1ċe wgY)( -.EU2.31.>B,_vBIIxj9 pG/ ;PvuEݛY<=gS8b0o9 &OecJE OVkn~.4N!NwfǙhҼli*OճO;$dk+Ջ@sc+ڒNd,iO3ѣ)Orfi?f266fFAeҹ" 2 L$ y%z,z"8̾hA#w3cfX12;MMMl1R`/g.&gOȁG7X' Kcy4: Į;"9Ez2c>jN !g;Ky 6a=E?pR{ƪ4E\ F%:YrDg_y2Ro/nNjwφ`E"pFȯSb1bYf~FSb0a6\>>\j'""WSeTnX <6`p]O^e:B͹FcB-C35[=jE7\bZ4 |}9$3fz.*C-m_ Ȯ6ڲicZ[:giM k@ p?s n9B?_,0 [ .,fUUNмx|~eE { /Ll iolĿ9p-d?!RX2\!ˡ+ԠWqJ[Y\DčfVƗNN)XTyH̼.>eW1}he3qkg),S_$n"& $+iC^P/&Ot?*H8Qd@˗׷}nmdA(WwŴ9Ǡ*ﴠ/R[K+ލg>+uK(7cFWkԎEk@e10ZnΞG`Vpq"sTz^yBAx']Kb{L<,I>)9*l~`;ݾϔfA4/{K捱ΚƠfZ]&x,Tf0:(0[)m;삖`PWNBl+o><57^Wnl+:<-C.cQ>ͥ+$N lDRƠŒV;`"m)ou'(O):ܧIVb?}+'iI۵#ִrYrH%м.t7e%x @9i 8+ -㧤 <ۛ~*cl$=i80vnyq?%\ %c%K/_DJ@ ؏+ni=0HsvN$-E`[H|gexΈV~ 'VJE[t cKuIj-UxZ7KM? MoGe$s?:RV?"UDv*tf*E>գQS>{ NG'ʴu>rӡ-,cDؾvۆS8ۗ2~7 PY@QȚ= q:RfdPGvPX%gd=糉)]w_:m[\F/J"#45"? E^?Ue@,@"6~kw5"7lO/_,80sݲXGɾL-8^ t#yK E0}#+EVRwr׆9̤133v۪e$C/7 6Y4f1HpRJBuDyvAbRe:eY>{jke4&ЎS?2TiK:^Co{wUXaېTR?b.Y fL\VL[`3[:(ǟu 8 j~9ב$.9! ]W!G͇>}gxsi(׾822+'$2(Nk)'$g.p1Ă5Cx]P{gq9^n>S !E\ʟ耋n ; D+*k'vp]'Ds-]m }. C"VCN`sb_1֔P6CϢ'IyS k/8Tzm18S\d[")] ļ4^e6"bCnT˻N'5\O9_ۦ3sC^3H4;G,H͹k7M̱lnC ±bػE&?(]M3D2Қo҉bD6:',ʟ@)y,浀A 5-N+#>yGޭd.}Lގ4$WTi+t|@2m*AݙV !jݜ#}S*Xhv3tS+£zˮ>b59hx4M-kN&,BA=N>h\yLus< ]J|ZaQ$[ %F`JRL*ܔ uGS9f`:ektvX@e?#OARnɪC_M_X]+Mmng9H *|`hK񾳲.RyZ6 -odm|yHUp><5q-#IZ~kYTy7n_B%t孮| DJ6[QtYam`vrw8_dC y^N557;Ne.*4Rɝáhѯ |Hg>Œ>^#|\jko/Cumq0}/<)t|$BD]sϰă*x +r)t橞 hϢu0>AjE.HC1,gAjSyUDMlgWo)w"+sJ{4K6xw}n|K)pSP{A4]~2rx*Ô'?cx8pn LsVX}e!|0d6^ڔcW]qXX3*Q!;#SχR#8@\GݤeRt]R4.Z험wђ^^Zxݾ5q>M+MAUгU|$oWaQF'հ[69 eJ'$c՝!>#b K!+ v&0Zv"wzq׽TUdh'+bRQS.-dpO('WqЛD^-*mcA 6) e Zٺߘ=f\,˜&<4DE,_W(,EZ WZ}#&s@Hem7lvhsD/z VHVZlkPڽCa2R"˓փk Wq0GPy71*wKQl>wyqrpm 9 loА l$gi uy-Ҙ :lFN<1\8 x<jї4gCGȷ2R;:<2zv)i콺$\_%BO@rp$'dIYݛ}8&H܏7"-1jWPpm5I'F(8%TSEOTˤYʂ>nqmR ߭^gf V42*_1VKNYo^|!mr8dWL6"Ӟ`aogKWwͧ3l-k1М&Ihj|brGrCO# =Us>bo'R}1 @Yhg2Կ uVHD-`w4abBAϰ&ZPeAm8a]1S|{D2^1#$Ta"ict$ ժq:XtGFTr.X x“X {-"5X8C=i ; KY9?w=jIhRx͉Qbw/e箁჏ WORBw='@eaz_z> Y+bkvƃBT(~>\V|#>vL hT@nrGO即Jr}qc\C,+ScoBVz"Nm @X k,+F9ȰPTLv$.9}A#`% CHt=B{ɖ"cxs϶+\H%I+0C%DZķ"%҃1!+!PG:[Pcm׭2&邹2`Ӝꝴ}4?>1Ily#q -8:vm3{HC-@,yQ9Ɛ~(+t;g!g$&ljWo 3f *$4Ƒ:*˚T0 IF!8Tp7iDrǘEE4Ejw[~4!fMDX홢 [2ܣ5Hg2NSdU,{l\ZGoqK2#{̎ S-\\H-වcM/\T>|^TeVϭ.w"];Çld5֓к4i/JD|W7.#beRg@[ ϘMmLC冐҇0U+&$>iY8ls3jWK۵^vԉPގ#&r6Hx.6uK G}ʂ<ќ 3e±k<(d1=ᘊfsMk1Y)AZt C:CP(5 KQuS!N/`C[[bBW1PMA)bIVY|=݆b-58ʌ$:iwt7~[,4SDwkMf Cv#vO+JmEL]eJIڒj}6W,J8%c:QĆ>XLJh{O܄GQ#Oиߑ|vyrdn "E sbաN9Cq40iSY_ mCMw_J|PHNݎ=p#gvQ3OEf,30N&cum_¾wwqyFJ8|.?"ze5s*’GZ]zd}4f66b&e(Z_-zD~YA _t\7"IEP+Q]AWdyj}xŝ‡~]BbQ28OANG᦮8%h48H}㤈 4E7}]}(':91D`;3: bHq9rRN,QR3 B|WfczJͥ!DsR.C0KLLͫKT1Ζ;kdy/(NSQh [ @I' +Gs;/qToÅ\*$ x>@V.țȲWsoU /XG%OvXuR>tj6MYwIAA8y3Nn>Ӯ3]ބ4IϹkД)q/ Uђ޵O%v18& Flm7te.u ` \”֟p4wDatQ%Led2Ṻc] >gFc0]eqÐD嘾P~ 6ۊv$11 Хa+@eM뛗/VD-;T,'G4Ն_72.{ڒ0Eb\ ȝQ{n}?G- 6M;:zM;4m#Io?ЍެPv=#%Mf:2 N|YD"[n^lQFeK@<3S7gu@I)l^?k;ms4 Ic$\¡>$]Z 3JwT$֟GH}eO=s:屲a?iViOYV̦a|XqiI Ie[F+T|õO=D#\v?OStF|ևpzٽoz_\{׮.Jx:U6†4YUe؉F-qg7,,"ە6 bek싂9^Jg#WnR1  T]t.`\{IGdkSTҒT$k["jUh)ޙKi7.Cxg aN|> Ҙ꟪ c[A Q/E#roPm^M3^E|O;|$ltŜ J8pQsR>CO?r^#rDrj53tl) jfmocg%v^XnH ]p^ qڇߢަK/$i#n~ .2n:a+ŐI>W hKq?C-m)UVP}0b`t fu.k4esvբL4k]g"я d\Ï/ 22~\^:7RnDG; [&L4f\YT% YCv@ 2@ߎLs[ëV4ZB5瀗0gZwTF-ӀcS+w{״Տ3E &&.N(C 1s5}GWH:;H,OnRӛ Ρw|H?jdHj>7ZL=]jd1uF`SMI ޶94Ldm_n/buV heW~.J5I4q ['`:(upo_CV)ٵL穝)%ݖgt$Bw; S7ڿ&᷷5d>E=|Nrs߈!pw!J~؜N6w#TQK;g2 ?71(Ը,˾jT;Sd? ))_g3!41Wij7CK3 V""|);>i;Ѭsj,Loe'~OD#e4*Aeo=F z BMF[ֽ9:@m #+jgU$y@'glj_ĝpps`e0ΫL{ZўRꐟQ*%!=S[gKak&I֍2 P -Fd-D`%[]Y,1D'^d(UO[vdP]7ΥcWa/d7[KK0j2``U|PYnթh\b 1 LB_rB%fk/Q@5f[Sኪ4 -O!MHg|5uz(<~CKJ3F P5W3`Pߏ=["Ni5Xa!~oO2WϷ𽶑T0TFa}ke8;!ED,Resuڳj8{N~MR?}!'6UDj,De"tjT&4ݯJq4 $+"w?oӖ<#{?DGYJ*m]Erx橿[%U=Ked` ~朤脙p'QW;[~ZuF]" OWEϧZ?>\C10e ,c3ϵ~GJg;F3y3Lc_{m Q^ͭ2f]H5<_y>n(\!|k-֌pc 5Jx47nS >AJXNJqL׊lpcBcKQ@32)J;tސj Ye acf mf`oN>mR#' <nc2麍xBB@vaã$QHGB, OKVw mqNq j#c#{Rnb+ONSkgy Wt辍c>K?GfT$<}roK-c{nKlBJ+V}0盿@(e7GoEwm^jqyL8uvaUSlxW (&!t [)2ٴ{6PŪ  v2LN6.jc¾mjE|@8!Hsʐgz'>eyn)v>ž5)=]-)N-AAOaɄ~lo_ ¯K(UY#V޸v1 W\r!ڔ`2tq˽ ^~4P`7m' JHnik|,xfdMT.J+2~~,ՒcJ_R_-AN__?@bϗW>x&A5V_qT;}WPfp.ƞ>)QʂHIyh0VΕPT1%Zӈ5̈,,9`hG7R9b+vdz~'+)sg I;Qi,c \1C.5͎/M1X}J#9}?rb$=q )Ob^31գ vsEUoƳ7UW۟y?׺gxoZ"1q-nnCqEݧA~p46ʠpU?4Dzk$ݺ7\L^Dt[x5wYc u/K @g L(j}<%bY(Fv},oԿ4CGA ?dCzB3;t[2;xX jok%Gkus|p?m %x&I&4rχҦP .scV8F*#NNv,yt4\Í8%LÔZk E-"m3[s" 5U\zvu& $=^7Zq(-s~IØT΍p-A }lV Q+[V; N$wJqӕh-xgX RiyZEѰHc.RP?eA7cu[U5RW2ZXAxß ZmJ]'l,r2"d a.6YQ/+t,p9l8B5b&v5j?v/wbc;8]YsRkfda/Mso٘ekZ;󦈭/_Ќ~JOM^lF.&tnDt %Cz@9=K2FUes]n""jTxZ #dū)}6,1&hݿXA7p%tkX Fkc2*O[u}1@=ul|}U.A`x], kъNlJ/:yfc 1(low^F#IC<?<сY#L7$j| v@Q} Okqb [BLTq'6cNk\Ԩ+حJ,wڮ>qZWҹLuRz5|+Q|DZV#x* ֌3&>_]͛'uWZ-&W V 6թ;Ub.[K53C\s8ć5?K/ [HCcoZDźS}ޞ٥+ҧ@挊>HcBpP؞?r2Ttҩk;7P QX?ٶlC𦓥r~Q׳C#(E JIėy}iOti2968zfbYWa_#N&L,w??:s?P/է Q=i"65I|t1@,16I}3䭌 Xy+>xvLf+ 5fuvH4Tty R^,XF8^o*@xwlK. 8zSS mk/@!j[,ɪs;9;t r+w TaHaZos 75DND6\y bBtT\j8Qw; {%?6^o@e!ޤ+s)"^E=ru#c% [ tq~ gA[ `YgR%m^*b繫/ň,ջ>N41޻`\#x9;^X/0 Geg_YH@$d; U(vNaf+̍PH 9Ş1 .6 pE#} ȁfw0Mi .[,Ѹfj7~{3 '_/8z*lLUir))Fb\&ڇP9+R̕D]JD\# 1VM`ftg,A:Ċ_ewgc#\͵ HLD2.rnH14h;aR@GC&LVۀr3X>GJHv&0Nquu2(}" F0:1r:SGuFħ}=EcYМ&+@G@N.o&ل p20"{PfBb$Cw`a{'1L1LH3!n=,#w=DlU }8L jT*IxԊiCFؿ]^r"P$׶؏5nE3\ٱuʃ::D0d 4p0odĂyL]-RD[.'BhƴHRMI.JEd݄g⸐ҵ \ R_) %m7pAI~5}b"agM#l쩕$Nڞ`ߵ8ݨnfkղH-O1*K"u zlEJl6UPS `RY**U(2Sr|d~z/5<=ܘ((7|֖p9/s%Q';*VMSH; 7"j :Ĩ(kɫJ5kٸ'?7F3 ;ecٯN$$bz+Ldd0(F+o$Ӻfr s8j-1ϑ8V|1 5"oAKZ!cÆFm5n*#9}k7TaS?rRYcp.ypEo3vlh6tw]|ɵ) 8xt<;rf~YPWDGXsZ\#՟'W#X/emYn+{7l+@!=T2R/0L鄦uí":I%3$Ma/ (iPpaVT(f.U$f+jʱOB)-Y%H/$m >k1X~.w'O^m*RZn6?"p# oRrrw t=~l<*\jh0s/q3;kA,֠v}/C-C;O/ HyoZr͌-X~Pl&Yخ+#sP{/6' f9ze .{J {, ]a %[>%]?Gݥs].QJ'){-(`n[GAj-[Agi#>2e2a\<.)EVgWm9VZw> >|˼joUAf kb0 ;\39K1ViYSk^)\c^R1pAD\A]TLIH„0`z=3 xY[yxj-&4:#8طu;"zTLmq˔9G+B09g34c/;b|mր~j,!@q0W/iiBA,-%MK|j"xL_< : VPuqG ]d^% T:h{lkN bJd4X֍%p,_rW=0⟢5vmƊb NAWisɾwzC/L'F}v&߯cN.v__!Q^ɚTQ*a+ؗ,)sڃ.g6 "5xRM4Бbd!SH1yv)N޲'B6U EMrI?p2~ VRW5py׮oHdf ;K2i(.yQShwtշmkzf{0v ?PX,\]{Mm3:"r=t2fώ n.7`"W]q繒)uVxA#A.b.1)fdlx;ߍkh[M&1*$A)/TN t N@ej;H5n.;9;hg<~P2SA~<o딦٫QT\xH^EMc̹݋0Xɥl%ڻ΀I46z]؈yl:H9 vBE9!O%P$hUvA7=h[&ݛKv hdS|".Pj7%&-. n  cŻ}Fq l )O1Tez8-~=K_n1tDK;/nтmpmz?+#Tz/C*qw1Isz|x^Y%B @7Gbȇ&ĉr[訮OZf ]K8:Dh'Iv$$v`nH#ʿ@FT` (bW4>6M>X<5Hu-7wD}|\vGJ >H>alj*CS&&ZwH;>B6μj .T4/|Sv$V<p_"rB1x[=?WJ;%whz*6_} u /&ag5ͰEy }gWKztsB%όr,27وݞ ?a:H3[U{Z +JS__@ՋA|n5dcᘆ][oWV KFg xmNfCeQ_.[;ȼTf)k+^??M.NSwQA5FtdAyKZ$fnε繉5Q9tf(g*;[LV䂥ɻ͓$ai_|4|ȘżqMy$Q$';UO˕ϫafrI\]z4ynt)58g77m5dΡ{9v&^^%ŒV¨wέBrzlL@7 Jy)@l^KAd# $ˮb"ɭLgLDZg(a]Ć G0)S@eqZ/a EgS&.HZ[0ב@>xuv N<[AoG6nOC؃#6LQDPD$~'RI%/ `ؘlG߀Xb>r Xilwy̙%̎N4 qoZVta~֛>.$5[*}zt[:k& :5ضK xZtCvad1i'j`ս*pZpcr;ks2c+\TM,:oNZ*ȏ$;]M&U/wE9Mv86CƘrڴ~)TE,T<Tmk1|=2,؀YfxOwuj+z?un/l+p>)A3bFA d-p B}u f<͋HNF~8bhGj)e}]-%@S8)"$lj7Ӎ[HǂW{ggzZTÁ | gיk0pH">E`[q9_YX:7Bx7Y1hJ (*8(ܴjAn5v;F8%fuq@'2DLu}hQGl;VN u8TwW_@f^7YB^GP8_@4rTwpޥpDuOGw倳BxQ[:\]L;~P̤[i^+7q[ΎfOn|kف5y-g7\aB뷎 FE#Tv4i0`Ѐc( [] Z5[\ X,]p>q70k{5!J, Fb$VF |EjWvRx[a'MCz! ҰTXqu%5ZX|Eܔv<$7&gV2ǂ(e~L.qu ]iڤqЛQ1rוH&& *RU#aW3fUofc"X[w=B-Y6MWǗxm4Dał[E/{Sn}m=ʣ2|n @kH{aGA:j*楷dL:BxPKI& ^Ɛ]϶?E~="'’C押^KU>!5S T6½ і}͐;?T@qD?2 'OTuK51 d9_8g},CL d6@z;̖ENqb]2W3e=c;[/,d898~BޡCXb:Aw9IA8P ! + ~P ޶K[v7U\eI,\e9@% p?]qG< t-b*12doځuRhQoS̆[$rt胨oWx+Nǻ!U'+/gSQ?]xCo2aʜõIЈ)sD3]Esv`ġ{i҂s6)Z12eKɖSm9΅ow~z[vcpaɲdfnN ds Y-@z U:)7 gd",v&/,71Ө.BHyS5w۞P9?>yzeݍ"PNK_t֒:*eyFjf"]f}_a'.Tz$Q$Ff(+jvQ$o:]9ATbRgNa9<^`xؔ_ =jU؈LR9Nf+z;;WVf4g!ɝOW9oL 9sh5{ėh_#!̼y1UmϤ ;b BgGYN.n ]'ϢQDW7Ȥ=dSF`WhԥO5vٸvvf˪H?~~c.w.;S@|`ZlO#k} kg|u懶2čt4Z& :{1rD1 d&o0^佭&wGK̪K!{Fi6i3P= h7iSZd-@QD(rЉ֕kk/'nszH8ک~Viv۬~sm(#-Sq?*yځ)^O6=a zd {aj\1Bu}p `Q9n#Eҿy~g@S.FŤ0Œ}UzTeoF8M8mqt y89yi3)Ws1ݶ)'/\)bݯ28opT! K QukR]T&_9[!4m3hmӧbEz+I"E`oMf*ჺJBrfbppvr/Qt}U -㩠AK W7jUD%Y$},lfw{H"[z3ۗ 4c[?\'s>]Pkit7[f*GAQe NM*_+h%r (L%{!;["/Oͪ􋼗PMw>tB~_TCMgpzك yw&+^|%pƲ4r>\ܣ(.{@FN\3 {&6p\kq!ʉ3S>>џfs.`ǣ0bԧXu˹ @1uE^OӡlhxXNz%:+Y\@+s)ߑ9θ&3&,!`}_-_JgKi#Aۘ?_ 8,Գ#kl5ZG᭩g ^.tڑ+ݟHmXi[G]s5hAlpjv B;Ecaً^n(J6HʫAU "o"p.! A2Q{{{meRA]m5QZ,R̝Ї0N"4ώtg -I&8Zf\ϥ$/3}"x`z`MfaSAȖh#__!FH+qP*5Gr=\:lpVG+mbӍR]w68;])qrEzTJDo;Hh?G*'c ~XwrY '!OIXz}×tQ9qvt-^7WcFq$I%PEs p‰Ši֧Jan&b!I %8Hz\.~c3񬯄9G^! j9 FMhӎRZ䎮 6Fofnqx "<0U=*He3F7P%ȕ1NQhIg}0c'H${ !c0 r[t_j1]%fv1J^(l^@|m}\ˇ$fP%@_FYy.A}29Xˇps`ѿo-FC-ED?1%u^lwxU bKҸ0[@ $lYEJY îً9m!'JnH7.P;|Sݳ'R8{|z-p\"!?H49{s-y=~=#^bAa^R:КA v^ Zb *ɅsאGuՖrݩ]9HxXFq-A^ {pCE|-BL{D>o)j,LAoU\_.$O͊AOӺDb*PiGr3`k'Q)Mn VAm F9xP jOߏlJeE6c'-%͆rf \Afӣ͑!5EQ9a}Ljh#ݖ:G0݅ejnyM,NFސ+_@kP->!TƬpKDp@h\hH.s +zs&;;k3aanxE72ȄitGEF}!aPf"pHGRB H]oi ?>//4J =B?K͹ t9 57ehB;b).cj_Frzտ|$4 -sn l$?%AyO4،F,&>d^SƚkE ,}[FMHy"LU TXSz/"_m}o29jԠ6k+ ఙ Q^RۃWSѪQ`d6=?dW`'Q\%mܼ߮kL9=r ˵}NPA`mMD ]KclWJ"j\60wa2≎:)#Ɖuo=zü074bGKXp[ Ma꒦D5T +'߇'K@<(SVY+`otlb4<-"m}'AXK6izR=;-uIpFтn!22٬oagolHGѸky+$F噄'bfOASdJ8g0ygח̻P1٪r90 D j2=Ǝ7YikU|m{T<O /jM@ܫ'.lvq:#G9-q>e'X)RZz8Un[晎0_GT{t]b@NYV APTiupgkrP]P|~s'־{;ޱ.2Gvt\QJN>?{Wkh'(x]Wg;َ呂6.iw 61ʗWwg MMU[0 oy=+/rq'-,_\nfͨNI]q@WAq=1W=$K }lEN HFޥ}G)j3'!Ns8ٝ'C` ѻ ZR&hDZg:Y)XBH/,en^-qdoM2;Uuwg/=a7C=1:޼g_nL}q<} PEM%H0ϑ}D+ ]1BX,8H(L/Z;k>?ߗ`F"ꥄ>_ > ֲV { iz${pH}1qR?Yx3aXmrQ<IJ9"Jli=1`UF9!6׍_Wğe\Og$ "9 ~u܀%P7vJs+k0rC+ lD<&}~{Uqf9hQ/?lpzq.LouSMf?|KTzX-DBn<~~'`N5WFe"M"9MVx⋌UjH/ xxCAdiVUW$[õ?g^m`gAs_UP(AJ AetwS?Clw:^$^9J73ƪ8lT `Bd ƹtXpsB[@Rzg Rr \G?\crڊ;P%hpA}j?kIi&']Ī_p7+De~m} Rkq+poK?Otںu-L܄>l*l'llFQT?2s3^tc-ƪ-$oX%9wk{\j,:/ Oג鷇f~O~ȃ`Y>\N+.@Mw-8aB/cK0aʭf(V)Vf~4-q]AۮgEpB J߁:l5'D['V(X0YJ4N}?[,N[7?ղS"}#i@6쎻oykf VtTKhI\%KMF6 >"8d=׎1QןU= 0DŽW'.Ef0@A8KXC)F!q&\wWU2ͱ{]tԃx }xuHˣtoO䶗j3=89tHtۅ5h@yVVlT֛ScCβq?1C\0֎u(PvoAYNn"rn2"ǦK$ ?ѧ? *G]zQ\1j% ~/W[ׯH6ӛ/+م؊q,L" 3:Ш&WN/2- IŒJ(6͊K+}h٤YU1[4.5j`'Xl|fVz-CiKmѽ'[\NB (kev m *}FƟ+s:J5yp75 4xmӨ}J@l*h&>r1": )4r0v 4*on/%ajP@gN ,鯡\+R3=^F~Cq 4_8ud9&;\Cct@67ͥ^ 6:Xt+#JNT5k)ƺ2:`{U{ny~_[2ta(vPѺDdD<:Í3v4`.e >/AXcbPD;a<0rLi2gQJ7r>`{:Li 3WC|9r}#u #zX)qQFfsH[ }D#h1J͌2biR72^ErbK4#2Mѕ$n]83$czq\Z6Vusٱzc$o@'}f́?hC|߆^5kNCkRR]{ #2]5ko;q,gUsJI'Wl樸>Uks?F=EO~kw6M!8:K3[E_YlveߴpL8#WLoevYavau?/˅R}As=+R4MDal\UHˬP?v_0o]RZkH~i~ zp{0yL HpBemc;fxW4~b5ut!lBP6J z10KJO/cW;;]+@jE0.|G!K 5i->2/9>0He[0YD nNzX L[)n@@aHu;nշG:ͷ l_+^qb_8aU*(l2;/Jw¤yޮ܎-hΰeKٍoo)e8^N^v-jRF TS/^Z;tX$/"̛<gAθ"#š\S<7|;w1 cr;MV~WxX(P_˼ٚv_=oߋ1ryW~+Ʈ9ƘJCēi.:,"2(˭ $Ax!w5&CQL{.OaN5ZǴsExF~\+VWoNn N|:> GlԇLۤE^05(ihv&7xA]z{;{۹Ss7A)/A&(8?wu\1nNfZRBhԩdo7NC%۔w}HaO|vX:OɈ <Гs:W$5!6#9ZOfUp q|8-c/;D?u: GUNs#N'N;#'GĞXsX;.,ϡH*5:^k;5d:+%TB$) tD;oZ'4 HiCo L7)mT$D9})b Yt_۠uʭWm9rN􋔑Rǀ'Sâ~!3^qB<)' @ kM]*b}pX*ocH Mb bs;M^!jh ]L%Ml {JKI4/B\ ZY5ȉ*sQkDWf,aYY:ytWp,X `P]=ET!c%Z! I3@w\pU+Kۨ:W J@ԩ׫Qe,2*w=д$cb `#ʂrn0uԘ:|HaRW}+0`eH>[Q/"BQoV$]E[8 'Xorr%]3}w\<1JPJ*Ht"UTՆ`ž:mr~!EϺ ksM_c n&2z*%J%v(5|w=__9^dwA8#'N%nRrpQQl`iNB+ƥ}:!W`p &cIP`Whh6ý~w˝w*vFi>cCةי*|~QFb aeE'r): ro CC~Z_0}݃4#c/GuuŹ}!UmkN۟O/5+NزS9e 75\?MgNz.RUg ʕrm)A©[~zXMVܸ&Na$-:޳=ݸ>/q7 :@gT4<-*2Zd W\#͌DHB1gOhњ['nXkqfJU᭍76K,&sBz Uʬ#=g i`צvʰ"S]{B~ \^tbrVzrsq`&>m7'vK<j 2%$ߴGq$*jPs^'-cpSu2Tŷn5 hRmgA 7Vl88T>-m Íu{  h23%ѹ,g/uR^Іlf=&c B Ӓlwr_+\aܵEeLuØ綱B!~__mYJ>׿?w5qCMXYÂҾ DLw͜EQ>Pb)>UG_z 'S{l6;*r?Fs"r 9o٢XzfiX$1H1rIc5ovVbKtu3ode5BƨDp; dfYZW\`e_JݾCH@V7c&/F1ϔDgT\v3et29;7J3ǐb [~op>WdÈjoPv3^!b9[ ɶy.(<)ϟk7[]R35lI4lJKEJltcu'8%t^d@>gr\J /#}u˃Z2 y"rvnA7 Nk}+^Y oCK&Ma?zy~IAU=YԆ1LOW-kq8c|c3s2DXHK~z<ƌ[Ǵ2b[jqZ W=ɺ?.8RaqǘkRM"IΖeʀ} -(=ZV}>(ƀ7B4/Xa#͒F(wkqȊӈ1B,-]H`wr~>%۹jZJ`}!i;f m-uH˄x( @ى/ XCSHр\6e:Qs6k'77h@Q"|Y׊RM bY$]qdP A7`[9ANԆ*g۝s1]FHD%tP/DznA ROd{^~0T!m1‹9]B1snHZZI&e K[8M)+>u\Bt XëE"̈泫y\3x')?{Vnq:rΜNcCDl] Gj4T[SIo@2KU$B0ؤ=c-Sty]r#WF%UW!Ze,mL1Qĩ/$zܿ-(ިij%e3Uv-a@hq:rN9%~Q^"Xb?bs-u߄n8X5FBqU; ؐȭ2LFwm6f'/쏮ҏ9Slq:֣@t(V].lKĕaF 2efA~/C^ 2#-bo>OV +8\M ԩ38o+9'EϮ'.b͸n(.g E`(&nCIe|( ?րixpa#!4UwKH?[I8+K$֪(eico,y.;IINmˆo21ja zyNhC7 ԗt7B|G oqY5a}nҢR㚏?1ǼBP0 SeWxfkfe)Nha Lw`nxߪE$c?Z 3AbܫQfbUKJ6ȼc,ؓ7KKMT{B.0R~U%Fq $&Hxu q=,fa5\ƬEΌ\>bq)gbN5k}H+@|xHQ{.5?(ȄxC8f;iX}Y׼QPTy)RA$8M"Lc6M0e lɢ&Pxę5fjJi$\N4hl_-m[0wL`՝mn;ct*N6B ||Lx n WBab,Fj1X\Zgt3g=Je Bqc }+5"ޮlX j+,%'-u:x%hS Rd.Ԝ \,=@h2o/?UcHʜ4- [Rԓ5lΤLDl9Y([N!کiٙob#FH,[݊,Sd([Ƶ ʽ 3Gc>"b4 (R_U,Z~* /G9תb%Zc]Mڰ3ҕIa%DjSk&{R."VFf W|Nbsڑ9@΋8k"r[gA>uVlY波=dͦ,!BE,y2H4)s/q()MGAv؛)Chctm-(:fR_4^JĪl:vzW04Sc,4EEuV94JBg~"@D1 "*RFjxY%hY%.6';U/A,!NޗҨB7:7D"VVhNَɄ Ke6wd|)$#pT ~ X QԐN|pd"^(Mf[h%Oq6 0 Њz,Ayܭ0ժBja be_@ ^:dC!|.%iz^F#h/Yf3(_,ߩWy E0,m$&W4r#ۑ&%4|۾~l`]<2vE#9?X\uq ®S$ySեpkJΥ.kI XJ]C=8%6E+ݡsڕ.'߂_RVQ 5N]LAI'Z-4/fA` 7+J9,6 4Fizf3=5.}FxocwN9LYOflm'ҠfFr ^P?2o[/>n*>$7#B{jmEl۳U2c&հ P:XNqGq7-Uy 4+Gp &#iz28pK{65HdwpB@bCr\'E |9qo@i`%Fp$<7Mh~/ ӡ0Y-C22 gzBN_‚O%eV>ݟھ֦jJn'kBrXw׿~iwm$W{czϐ)w1خYU,ڐB `vCnqT1p}!64cP=YsL҆QjPby(,PINm.1vH-=3Ƚ -H]J0bQ" *ܾWOKDXGy 畔3MD**>X%2[ *᎞ȖH>w,ylL:mB6ך}:(@則|Y?HSxgWǞȄyZn ~ЎeG@%<d-{q_Li%/;ԝk3H1.4@=K#-^Kナ:'uLMxTeTrXX!w>oXfP;LɌINԝuM1# 07@##.sv*THI"Gg'aF֠V$sȧJ˚jٴ[|3!ו(c5Qk4L}9R8Γ?iCbM([{V5 H6xj*?~"@'3X|*.̞<T T1pOg;4w[ X;ܲJH] r/Ue.; p%{ uںyf*--tVxSh'ƪV]~Pˇ.t}ڕECF12[g>0oXf7+YCP] ZCtcq\<"XHF$6g 0pc G]RO`Ђ?2T1}k]/aD>"NVYԩTĪ !#gɝo8llj+io&S|0 A*sz2*hdMc.[Œu֢wUlUΖЖ5,0p~̖5)3?zԦU4FwA4rȡI-eNC[L.o8 #T(`$n͏ǵ0;*a*t A H^Zno6s6h (_.A T)ͣ(yl*gv t%D1\#Dw_h{ *on]DZ_OzjS,81=<ކpz1=O1~/j顀֑ _;d89zxmnb;}.SF: 2 Y Zo;3y3L]E@1 @Pa >/fA"R[&.Fj*3߄Huq1F9S@Xzhs {G0<]yknU%ٚNiw~4|ϫ&mct%V6v=Ay{ȊX cGF#@boYVv\Uۮф`ĮmLn SS݊v]rK\*K3Dz.yM拣v>d!C"uj7&@brmH AXָװI 10Sz+)l㊙=Ok{}^3cg#%%cAA]}U0H)OQ u"ҽ6.^B%^7 /[ݑx}ЎlBwn)Wƶ0Qml.'c%=_O7ugfȀyZXmٻϧCN6&cUσơ BCkr3*vNh d"@(K%N)⮑~ֹŞ* dCZr:i^EOVع$yi94!q{:\Qb0 PNO8\:2fv~/`g=*Q1 4\:G4ٛ7@"]$OYWZ(}8K'hj (B|Z#{eT>ܺɋ2uUu4f@A詑`)mEڗ 1=?w%HU.Or~N$ Ww1L~ԛ`t_ar]U9CtVA޶|mw<}Ciܗhb=Dju#f= q'%9y”ʓ%$M"aC{`t0ӑ*LKǫHp DьOgyԃ跑0fϗiK+ҐGݕɪ m)>BC}]Zi{!?WW ݃BR?nq?<3Qq(mkeo4lr(ckqnB<hwx̮>x3Zi:{$QsHo%-> 2WZ"7"Y$$ s̯:IdȼE븬c"1Z"y%wOFkW0v!,ޭծu\5K6 :oRr:>2?;dQ)Ht=YT00a[':ozy~?((Njh;*IX,eW]qr?ަUއ^_+mNbM'f;ZQUT%I'j"[dhmp5>/pYff49 0bQ2/0DK5a=g"m* snrtCFnt'1ÿ)P)y8'/!/fZ[}WmvX[Xb F(N<2@U Pud_%ܦZGZF%K!B_t7  GasQ[$sMt.4q>C'::Fyl+^^mx;oEXA3`ź;H"NHb'@ /)"(P{iUzqb'Za5@fp( ^Y_՗ bZF@&ň[NUz"ζ>|/cY __t< R{}~ U쟣%dI& 9#J۠H CēQ@ׇ#O,382ñW>hL!c-S&>w7Ϗk];Eë Sׇ,\0&iog+EsoZW+#S^ mb];xa-}-'mg ,s; G;4IX854Yyi#*m_)N;[hS5C,:VcPg8jn}fP+a?G9Xŝ\W{%H"j'l{O ß똎CXz. \~~w`ޮb ^/zɗuq -1qݎ"vk8D ]Kb}I4=fj$]U'/Oyrʅ878C΋:PI O' d%m2u;[p\{A n xN(5Ξ|cD0U?_<3&)mEw`E8ڭ(V[RZ5^*kwE nNOJJsP>6(<̈wp ;k-dmڇ8[( ,Z:a7m~#4"w3^ď١ߍ "cJN*ڏ7zu+^ f@(۔vRpW"4DѥC(gd*eϨ`?Zګs*}:Gׇu1ˇOG:P-j ND)*;=&IS|bucdBlɛ 00SnyΌRAey۬Hka '=SLnMI'$+bAR4b}PZ]S7^{iscªCLh$܍R/O"X͛@%PaJn&nj0pam>iv1YH$<0k6N:.Ut״$׶mC )gBA<]\@kP^`B2aQV"Cf ѺQW(;|9vM0'd ~>EH+#&0~w-ԔM% Я%Sv:=zCۓ2nмe[)r,a6 ߧ.}xf<cl&~)9Hfk`+_V%|ۏ^i94s"B>fן /xc,A>'* ;h_[Zv!CqM&7=~Ձq2YVCiY&Y#4}Iuoi}4xHLǍ-_ha榹\$4`p !ϊx8:؞AV6NSmH牖^P5yb[kV#VG }`% qSH,3t x\9]K$ݭ!SKz]^U,QeFfiY* 6qj|#v9V)ָ3$uƹ<@G3(%~oaKkgRNBO)iGZqG|!%F,üGYje'cU@d8hBw `7iY"/F 5>+*s|2J<'h`sߖ5js˸pBm\ݓ<3E[҃mGP$Ha}q2u )et,:òxLd_=RQ9?$|xaV>[T㫌h1O*fN*V뛆iaK : ;`W 嫅H)l]GK0dĠ2'1ȮZ?$<χ9ӹiI~ø~J:)pXpT >[1f(z,pI x^ͰX+473Y qFQ P$ XSR,>pJz\oiegǸ% pƻ4cRtu_g+W"'ܶR=9CpDC}\y'LPh8KnPJӠcW (hċр?Ѳ 9֬kn)Vl;7DL t(0Tf2x4ljƇ@)c"aWkaB2JނC <`F}e4~Uuq IMSJ5B _.͞G>K:L[PMJ U]0/fDH[ %^Ҹ#>SHyp?XrQ;se/gk t;Ja\`E}cZ7Fyye_#'zt3MD2" 'bGX97vhR &spH~<J}Fx| MНﭣ®.aՂ[ R']U{FϮOb<%Ev[ :ʃd-/ʇ5h'UD߲5@)%,9?t a0k;|QhմKCJB 0OavGUI!œoR"#a jP6WAFj[0}CzᎢbRP!C;݋%RwUŘyt#hJOxZZ3wFhh&$7W3GSkPC5. zWYy:R7*t-bN 4p=xf s=XbĢ* !C8R*Iͦ3pD/^SX$?iE4<M3+l Ϟ8˜UnApq5Rr1]Ċ x(RQ2"DcFutd̶G|[;]O+0m{iyw**8V5Ot]bon?u "6- qOh_H<]Usczե?1X<9 V M9L8y hD:8BrOz03.9H2v ⼡ 8-sGCd&h?ip?JT^=dɌSKWZsz-/\h~p#,nb EzBXUat(z,4rq7zoUJR|d!^O dgThE*#1Bg,4K%o>8KU:Ϲ;$0T,|({q! %pM0 &ڮg~pCiJJ|^ά8 9DnIB 鱌.% jOg>єI:P\."㨽ː<$4*Uw֦Xg[C\ui󶅡dnh7O9Tٳ3>+ Nr+3\+V*ix` N|; xl!2UzӟJptuXGSgo$yd0).Cm+sLe38Dy4 ;i* +ru1lnv#O)69^J{rH-hZz},\=`^2PU@Ys2T؃O_7ȱ_1`D%UL=Jk3/)l W(D)_ׄ*OHUel!;p3,on09B 2 /Q |$*6!*,=vKXhg3$ noB74w=ڠӤ&8h#=3ଣ6p`J\q.#&3R*c:_#/6 ͓$ ѦuX75.Ɣg:(I .vjv$!Eê9=(ֺSMqɠ^/dգۣ% ~+c *T~&[-jj>PMRBBB4TM ֞DI%g{zTQl<0$AW$LWhhi5j(P)VIG {ݼG&&]0 v=Ӭ͡'FT+-~]Z)iNW;ehpo{hs̥Ty*I.O@|5qO+J[OCvR%x׍KzMTHt[ͣ1RF*]W+J2N-~S2RFn>#?1/pR}0CxFPm rsX {&Nؐ P%%"ss"䢱Sn2rZƺ]xܫi Rly8_+=wyǦO0nìHvc8P۠+)%,V,1> aƞUA%#y~-*KA: w&@bW^؊|3bFse L -W4hiÄh$7Fw:!=CW`T"P YZ.3܅္I8_aG2*@WX1LuLmǓlGeS4 /BRLmW{@;(xnh#ӐҲˍ@8 Qo?U3FIiŸfU8]_VO,IL 1$CgТųQqa:f W҇zx lF8W̜1r"NJ{:AoxSX.qV}Ct(#Aگi~p4Ib>Y?%gTX)UqcB/Ha[0,R+ZHd&aOQ*g+54m[ EF2߶ֱgZ|H Ƒy(7IWm`:A.ª)o$xcrvC y7gYN7VRݲZX4oAʅ} RTU+He^DFC]=ϔ,]y6d}bW bZ]JgqfUPӝ,>Hj&Rb -?AF=[==zpqE҉'&Cuz*BmtQy;}P㖍rQ~(e[aQi, ^wQq?*ȨvxRNѥd{P *ZvK8:5QY\ >b|Hˁ11$Ϳݝ&-G t^jqIdjzڸ-vreEpϣ*뾱$byҗ#֋6G1ZZ].Zb USz@ӑbn@A1e 4s\+ŝ,;_NhXӿ_đw ,N}vjxqI6RR6"W[Elj ;Vmz4Q"Wؐrs} ESΈQv՗ 3ǂX(B,=/X/ 3^ i[(_?h%< lL[ͧ%b<7XsJz*iǀ,\2#ƨNJ]Y`7~n(J"C wf|-/=-AGB 9}6;=B`91C kڍ0uPvsțCT#5-˦|qwCVCȹfX]0)keOyfRȯ(Y'܅s;#^VFr ;A`]2ihF|L5':.%'88NFMHC1C,)5۝[hiK>m;]F$t?I<~t@k7# JAon ZZDf_z+"r;#s%-$WXU l4!5V89L0"̌wC*ő0"Vd ~2u-Sbݹ==1P4G0}_~i#Ɉ-$)P4!W"M[&M=tC2"ǪV *}y@.YOT مˍLH"D|SPwxDF㣜ZRTս:yjQ ТHܵoo$A"& wx AOtԡbU]|Wi2'ZX~{ ۃ:H_e3 ˱oaP>= ,o-J" $FyT0iZ2Jo7Z0݌b36w^9I5U%BAF].U3xO)oz~GHr:ޱ 8A Jݲfem\\!ѕQT+Ǖ; #|=_U:a8J>Ƕ aOFP)ീT:nD jՀ8n-7 5lQJ*׊6:1T"s"ߨ֖TkkS8.xHB='Ds%7+֜MFFHwF"Gy;Z%;P`ʖd, ͼ2vN2boψM|.˝WkSJf/`Qfb# ? թX؟Go v՟N;T$o p/@|l4KUJjX[uM!&Z:o<^Pcd+Ou), '=O52^՘mIV8y_shؐ$(o885~c_:6{4;KMvvlS ݿ;1旄N' fx<#bXM aI }83A76/n]ozx}RZja5<9G< @ RFJUxE G!;VVFQ:f.&[L|ۘN9 ɽfVz{sRTAֳ}%H~mՋ9Qumе_B  Ӛ)c{<:> UЅݳ.Wu7]fk֤=e*纞vgXy??BCAL0~8Ȏc eյD4eىXPPJ jx@Q=lnVB-2Ypy$d?q3 @|" &9[[}\@ҭk۪$%s$Wgof)WYݾ6͞JxƐNClbdmNdH3)3-kOm65vkX T9/d9TnA'q&&W!4&ǨI#d7lh{(q)PK7Kxݬ@q ѓrR$يF"*?L#bWھ [7*YU2&; i؂e~t js#h)OTO@fm˦+8kMG?spiaEQK0EQ|'.ˊj^Kw~VJ}0ƣ,{,;(A`Ud>1ZSDP6G,܌ 4D9\AIURO¤7S]|4g>Q* .gyz*>{WiaaI+A6dvD+ЍE}ΙV;Kx5FFҺ #㹕LMLuNPG r!4jy`wD|qZ_%Ȝ ]^g˂T )[-$6K^ȗ/TlOH)ғ#&ݘK{uaLH.g !5v̄+b4AOscpim!gboDi]]b! 0U\3mts:BJݠxP*"e}YSʁɶB2 Ddضx;\頛@EIsldd 6tWFQ;=Yo&>k'7*(d(x޵ݸLr5$"Ꮜ% q[ы`b)4r-v~I^Mv#YL#'\' xs yߙTx[ +$ҧ=\ϩJ Y5}~Y5xNg{FUYKGs4-zI9fa|GتU.p><5-cR9b #ÉZm (<֜7]ZU{.ck!/0 {Li*'o#ֶ;%)($[_2tGˮW*(,Ymdpn]HCdCjMnTr[,<~^0ajΣnOuIL繙7] NT8w%`jEz\K)7F4*mS@U%ۧĥ?B#%R ~/}XqU K(AB<|/Eڶ3p.J!k¾e8 E~Eo|iښ*Roe]\>Ϫ]*cBk8w8/JC꺹1ƛ&Axs_oL&4Z7]J@$9%p6QcYv՜x 4(PWjôCKY2h/54"]RXv68{w1JWiZ바 k1rx#ڟQH78f*UТ]5ՙoH,S؉/j?e,%KwR(k'u&Rau}_< ؤen(}$ZC ,?=~e][fD׸GӤ9c=ku#V-4~*xǧ".CS;YWK0.US' &)G;[fM{ϛ1,Bi|TD@xƂ"륜]xI;J-u'SD %ap։ yPe #>z?/猷> f j CunWԽd7 W%*%p4=&f9Jz3ů_GS&qav }š-Ze_áЗ(: D_W>hEzAkcŹIE=kN=n!z{a+aދҟ&'fO3[ψ DžFنu. EPdՒ}?vaD=S &_lK4NQ>> s|qRr!4ۤCNL]fċќH{*.-Vcx i# 7zT1έR3ˍB1z3fϠ<{ƄT(8%ɲ4qlzX,z'6]bm09p2l'=ˊ>H۲Z>JY.5e,8<'oΎTI$H6r7huҟ|{*k8U/~Lw4ZpR6zD?Rs}(Wfњے&9HE68ft5.SGc>k*t~[T34m9 Dw,wep^+,M|b XMqm^V =KQ<)Z@6d, jŁI02AZ)g҂-T9q U>:vtTz(o+b4jDʖoknR뤆%g PPy1ڮ1d-*"X)-qqѣo]Yd8bAC";%k-G1ڎ}VfF Ro7{:,uT5ѼeM#6W[֚AG/I7Nd  /mN.\ `De}!> ܈?JM)5\pbQR/"iV*@\&ҵ zkUb*[tBs4(zl"ȠcD [.,^sPOo.f|m-+#w'ջ]q!C']S&< RK'v|0n%r rq<2 nz5|L^B=3sw.v \@M1O ektk>h6.0X<}[ia]JX4KJ[<(,y3t<*"bu?[K!-b6#UG72 5-++S{ h#'PmL_:/zx Q1zUBrm]c[cc-Ź& u۰UҌJv9!f`"o|+5896$IKķ%Hهj.)RB>AwiDr ZgUL#b"4@ =˹R vE LBhn\ d$A|?kzZeq`+r09kеM5xfR+'+hbZ1;Xo `Bv —6J_C7^9埉X}[8 r9w<[6FOc J;܊ ^֡^NV] =m"On̈u{E9۫a=r0A9Xьҕ&o RV/i_o`OlALbU7UVF\Sw_78^ugډGD6C7ypCZVڧSzekXQe梕l9 j+E}VKΜetr XO>eC. (}܍Ys!F]l^]~89NJ1m<+.@BB/UeM=X#׃#nϱ?)>j,Q_G%|_[yAe//45~YӞ +:M ޚa:GҜ&˲h'PZmMm{vyg =J'x[b^nR^`9qr6ux~ݍ73IXw F%ڇJ+Hw$fL,N P(aZ)XBBRekL㽘rYEći=J:`H}$zu;c,V,<)Z6AUĴ!CW+:eJpd$F+ȞC㼳%6?`kX 4O&U Τ[jNsU~a9!89uJ\xUͬt|/pOoA7J[#Yиm ]6زgY/8̄}/ՔZЕ h#=EJ& HSi|T?ӄuB @:C!*Pn ˦MUNmoA}GK2٧LF/HLҀ'Bsm񱮦_!$.}$\ ܴ"mqWO5,`ʣhh}Ikyd.gni ۽f9ުfsڥ'i 9.cՍMXyAH4yBkȶnF_lA}&hv9/ʡAǘQ+tK2,fI愠rȀ/jpoN= L a!*|Do kE'"035|yx׆47W.<; %I07; "=^nB_aa2tNVwqvwIVӤ*.CIYnFzxCSWu!ceر#huEaQH ݠ i0F.R|UgOܽ2u"ƷSBxÍP?mq]ONP*plqWx$p|06푸 n LU45hda@ VA]I(0h͌갋ao/hlɖν^+f #TuOO?9"ȶwOxۨF3flg'U-?Z.) /|0WG&È>jx` cѾ$Us`4a&6ҝNg^狱!Zr']ۡn:OԻMHs"[U1txC +FǎՐI;M MF,ع(<]L pM<0"eJ7#]h.V,;<7fY0U(A>֑. Q79IٮmAE?73r͂Q+=Lw>nCmu f~P"z C-Z7r^@6Xr]P7sr)FmH-RrM+-36yGP/vHvzЖ۶LGaOXG5 2Ԑ\ 6τHE6ڿŖ~C#A1uMӶ0ao2[XP;{׼bzr4{ j@э:+޻RjEDܡԹ9E1Iw ?ͼ4Ђ_}xQb9򼌂È@WC˰G1?oqyUm~Z繵D?//z_+}\43oTO$jndjOZַbC9-UW)64*$xi50mL]8AD-9x|5o4|OwxOȎy@*Х9ڍ7ioDS3n]vB LD_.ݸhz-B3oRV9|o)ߺXّŜ{/*QXڐ m@/6?c#L{4T8an\fRʴЕ9=lJY+Z[Y P 6bn0Y|ZDjȰ)x|ρUZL=59>t8fwe<9N v5h5z`M Tx7 ӷVtyauQWWnM8XtL|7CBa kjm`k l8Ձk֝1.(kw;ˢYȕ<6dB.Wi\)G&@G nB=tllF-xrdEʧuem$7: LذSu;*='~tzCx_*raHX^2v?{TF6]Noa~e;l~CҽfZ sܪ|yT_U]ACỗ/~t RFf)YTl`l)EIW(j~[+G\v>|?g|Ց&Adg9Nd'`ϺFK:-[ ,t-@49*c#0/T~?"e[E5_WD!M*ڇf*Q 8S{:ж4/kCgDW@VmXG|}g]' .;Tt$MT(hGv|3 7dղ$S c)D]r0'DشQ#;d\$}~#|9;xt\K9j 3`AQ"l'3IMH 2 v;}Z/Oj p).0ro@d"ħ5(:3S ޵K|-2B#Clhe -dϑ ZΦ {۳:Vr"}ffX2F ՜IN?G@.[s}~^$+b/'LFڏ|"nAbID։0%t˅uӍiR|.Ȼ_.I s~9K)]Fb7cXS&@"B|甎Ï@+0 Q/'ݛŒ!w$G ݝ<6gӻ[,Rh RT|%tN!oS[y[;"Vq&h< Q6 /V-_ZvHW0? "{0i4.u.h{ytnb%\o8qc2IKZߜ^EOϹ?LbuEPAfjK+MfHHīBrK ޾|<ue; 5~ο. V4mYoP2|;GQh޽Gџb Ypc9i SCbуR1ioHl!;FQ e[ fQ'aWQfH`Pm_ES}5&r-yg/4lbgC {W >L + .cD8^j8rm+狆yq}o" o>Uzcq/¹gI0B`lZQ-e{bHKS@ԛD](&>/)7c3|?ERRΓOF Wh]&5J@˲F~٥ʼnd6bp)\|L"kg_ڤAr OUJ/.8y j~b+XD! B{l0$5l#oy#ZS˸q:#}P{`R71(J|kڒ3?UN5H+X4iNN41*O I rMU]ּ~rJ^%%8-$ONho8~;L@EMu*Vȧܟ7sZ1MJN ^T.鿙ÁUO EX%@KQkeNAW>PC'pQx99z9a9.U=.cY_84!54߉noڦ*LwOV kVԃd WMZZLYq,L),L[[maApGB$F#a~h APhu j%8ŭlW5u7GO LXg6_VLA4&{R'y M}My˾I'd=ӆUb2B3U;9 0Nrӫ0KpcG ׮x_xPq9rah5 %ݹ8);A69_8<?77~m#TMr(DFˡЕ/$6Ʌ#J4$Gcsdp̣c\C*qsS#>n>-S@"剀>ir3%4*dM`ϝ|K  =4Je2@5 r]*^٫LL_gf`A6Zaھ']Y׌)F  XLs& _w:XJH0[6z%D3Lڀ+>9+5z㵔L=xO@f|E*ؾdR $ sk |ژ3^-gzX|9HWR(f4ȁ͎ 雍q[8HY~)c8 5Q/G5h,̇):jEU9GMpq#b`k_Βv$sUu`N+''a L*LJ0M:0a/4Nwoe/{Kcho}$g.O#Q@a`[u 1m1ǫ_ ufl NŞ< ;uqjc#@kg&0oxCm*^-5ԘXS碞Ѕ=zlx!z;z.OEsB[)!Zu5##Gc*@KA{vԘ]eR{?pxD,;4ۥiXJ_m9@ Y` 9<+YUY `|0Gв:;@iwS nQ!]p^+KE=hNO`% WhHS-Bp# aꂇ[H{W(BJՈΕR'"$nuW3J_Л  ]x˂D]a/{x^-Aըөn<4m3o o84f>U( 2!`׆ALg^(OnByߊv6}VSSڗBTPDnS7 rr/s+pք!=v8N)'q1.˻sGQ@L ]7G[[M21B8Üb'p5{ M^$~]0|}.wCdTPb?⽅'⍒ad6}9 0-&VY# ne/܃g2JT܂`%;EaX9]`L#6Xf 83H xpÞab5$ 銔+vZH&<ms (@ gѺQ?es֒ʣS3~EsG {X<`*\ ׋.oR2ګ2* ɲ5% ~9T  #@o[L8^8\$%ަ~O5N(hF ܅l犱 9TW7HF!(*kjg$Y7ҏK)Dd;4zƐ9a*TXE~7S)Fd*{[^*x2y۫"st ꅦnފ Vt"?wVIeZ_&?}?ٱX1ݣ\Mi%i\ O+..YK t@;W~EBBZN w kƝin)& ?7&N |"1qkcnGob+ŤS*:B}S0*CZ +Zgcnye lGh`Bu%.WXOzLOf heΆ$jθ(;f{-UmM˟;u؆Med!Ӄ? "iJ6?$M,KOAYE;N#K5Yw9I)Ydw\ _" aU[!_i@xbӵf)Eݳ6!? $D4Uui5T=tf>h~|\ЋBF~r~ZQ$ʄx-gD'C'2fһóbnNiEFq(4_Kj;g؞]6v =iyF|A+LNWf%Τ院c>Gu8~~'떣Bk\~#rv @86lz>- 1&LkNT/'d'Oܣǯ 7/xV%#&gnʴ}}:2^ +Sf]AW|;\*`@4 V䫲f &b/(n"hx$jo&K_M0v[vMHtyI}1|-.OduKrz9%RLFs#ᗙF*,ʊ_ ZK|.w̌ݝ4 JZК[7⏔ Ae|0k<jxza}LH !F5Qێhg(.x4d`0C)`k-_/f[FwZZ3GD PAS끆0=&~o98ϴX]xa,k\)1_;5z/ɜ'֛uLX0hv@x?3tD"8tNOi+`%qf6i[њ/Rg=PSu^hq]@ .Ac!ÊaK^sOhfMa@2 <+Չ>Hc4r "WJphQw^ݼqkK*RDp_LrfO?- Csˀ*;[7ȉ@SZ?^LSPuKh4iXk\ 2"x4d^bf` ݯ$/=n=qkE;l#)\ @e;|ޛiMH歙r$Vn  ϗ?ZB OLEr,>a(,IŤ㷗v#ODQVX-@QͯSYTn `pv4|_3DŽbZ8%0" /|?~ ›lyc b)񥬛 ?9Bh==+#lW O! 9 S$ʗ T*Bٝo }WW\e=X`kE ]Lyta":|+&|s ((J;GIX?558/aIAOI.ݗ=OUkPq[h` +` 8TL\[[3s6:9* Jd/~KY1(m};q{S< 5Ȑ2J ;1j&nG']];K*]M?N/c[F"00bH0lbƔX-~_paEF$u(8B̔Q, Dl-fSf!5}I;GU8;S޸Dp  a2{yGmD`u*~%?*q)3Y)#Ⱥ0#'=zM.ۼ| ׉އ4#Ƥ^==4Q$ ߑMfȄD,2bp=,q^Em3_?]Ĉ4mT,hVf#.0kգ<FVg j=@Q8lj 8d?5.#5=sÞ?FU+p"A7#,P[RkqimyzS[8tq.L䯼%SIlX cCFZ~"HGyh͞K_ԃ9p-$Y_YȞmk_~'NPY/ rVd_zwq3DVE.`W:[lL A-%L8[a~.&|!r۲'%v?y}S`ʲOBF@ +puf %|x ]Zㇹ)V/ݞMi/y|oOA 8j7sB–@zB/a{mt)9!4yxZ߉[mha%(aOMG_ sz\$;DuHgӱ]).Īr^Y9|TwLsbX-rfr+2_LʼRfys\ٿ-dq I | +Gc?4\ 8噠G0M-Nﹲ4Ou)}y{jVݸK͉\nC;{ sr+z^]u765c-T!%e ^E D6jV2C+ ĐibƭeY9j/7>'?\zCϙmSd4k6Bq dbr"HGPV'1:X[Qz})/z^2Mw{PC`Bؗ cPX]6ZJjP!ًfɩl?Cv*7yLP"ӽWH1amį;0ho|N&+Y2GS܍vqp)mOS"022$o[{f4^- @(%-A6FˈWK5#Π[ S8LSb){Oy0j`>o%fn6BF% N;o\ޭрjI1}wX>}7E/|yjӿ fqZ!Kmɱl*lEVJvqz CUyas_B_e( q-k?'H(9ޗ̩_9ǥTԀ:qܱoqn lfQ LZ^MѿE(@>˸Q0kmO[E_P!mӕ ^)G\one(lRTP!) -tD@D\] ø᳂t<ay;_`L0h QvO֘/Or~s̫+Bt0B:ԯkbo@$ƑE<8q}=V+LđT=6خ&F@OCC${Dۂ|.qT^>8oљw0L(& 9 N{i^N) gx6];XjT2DC^ vHdwb sa5?ds_C| (oX ip2NU|`oaZû]?c0!wӼtmfH 1\FiodWjϩF6{րN vsT7il@-W-#aiZ'Ҷ+]u|Ÿ>I#a+jB@'e>WXCW3/At鑐.x}^6:MI]lϲd+'ͣLt‚x^SSJM37^wt[ @*VP_ ))O ~O_ZSÑka`j|p>TJ)^E:ReYө$CBpr 1cn~f97GIƙM2R-&8ǞΒ'9M-כOVPp"vWNPkǔ67iP7S0;"gN̤+0Fqteݎ{6Qu# YH'xȊ~vtT%o{D1#P%]fzztyb+eu2'?򎪸cD0Vz(26 ,wtXq*.dB2 7ʋOnDW,tf|=w2@YNYjX^k :.ڃEr|lwR?[JNݖe~Ks=0=. Mfh:E#):Ua;]i%wW!Er9%sE{rפ6 1vZ'~S`x\L4(g n˺/TW¼ySyXAo6Tc7)@鴐QSZ̸_}p?)8i2|-0b*m< GcHM7P"\78g@K]sWۤ?3n{${.S8YHvAGA$zDCkKDAİ"4\}}x+ȋ ROr*DG!96 A)wi?e[n\\hMmhKĪ"-Cvcc q_r _mg7Ev$-']%#9ym )>. RaF^Um!{20Z;^gXɑl{XJ?"u} yY2YWZjm*TH6*yT)_~stZ 99F5\*:F媅plĘ4'O5 FFaMgz3TD98IUadzLoS]N PQT PLmuU8#͍$g,GH> a,]U{KR&Md,ODH`6z*bS=فQv?"%\g$DFnʓaXm 4S"%-YQ:D8p=$\[ȃ-b:'r ߒ9 =׃68J;4IkRHMsO4]h10;ӭ?T >]+̡h"#o,`HؔKo1x>*sEƓwڹi\HV oԵ^Vx|jm5?gca=pc)l+Qxyپ@=2x>{[gYM類0DglPHKj ] #gZHZ۫3#:A> Y)O/?Vϗ ǓжwO8w qgI{m[2_e7Gs結]A*t'}eKqScC *BK b Ϥ#"VN6TK%?]w3,px)25 շ8G:_' "؈읃܍3춁3\PTeT>(E+wi&T 7gd!mD(PQF@`BfAf$iiQ}VA +@oA#? 1܀G{/QZaJʦ7w!0)5NDfh'cSZO_zx"׈V-10~B=6"-ZҪˇWŏW/X#bKAxu[s̋5۶tИ^2noE2/Zީ뤹* 0(G8}olzFQz(,k"}>xR>fR0eLuKG1I=VЁP @x`h* mFK@L(Pe "?xӳ+w<Æ6+vMQJDߝc( {b+At$Ģ?@5fO8`|͗5K'Nծ>a:֭0F3˽T8{J!;(.ЂJYZgL.:ڲEllN)b_nf4}5&!v_x]*c%C0З߇dՀ69%"S|g@]scI,X\b.? l_&iHUU # ^\{_2No'QS ^3y;-11L#cKOt9𤨘8W Ng&ݬ85ixS :z䛑r|JI! c>J|=v}呑TAOT'2(Z8ύy=\qT]ͫ!5P[ 9VyAz\O# mLIX}nK?hgd`g!FP?.KX:phk"-F%Wx9soߝʋAx8Sr^?A?Q\j5 q{Hk gj&ohNP"d>$s);nHZb1RkfX:0.F pb U DGYû0icy>Ѥp|X;PO%KLw?e5PZ)KqSnt";r\w%M*FYRVGţsr陈Fwc4xypaXcFȎ1``U#wr]дXY7WyYqFCP?SSkFHJ&υACSSe,'Taˎf*ǠQ_G\</4VX#2|$a#@W+7FF\LjnPPfZϭj(J /{`KȔRe]|zi 7 .²)00'3lxWRE[ <#Fu_oj+C˓_ m„J9PlfPp/(X!moT.bE6Q)f O<RMV4b9$O3x XBUD=Qq S .Hi0qFU]<ܨ>h*YFWin!z ?tY&- 6_ߘʾ2E|GksfF# q_8qy1mL _2WDyhe~^c"f- B[X30ոuQ5tL̳["ׅ8/oA!F$P@=OeUu2I #w|-"lX.Gۖ!%1/Q*JREbKh=j.i.= 1"UjXDeG2d(= NJ*Mْk.%'d=3q5}ոN{{16 jƾPu8U-(r_lO`_+,?ُ?dۆb`'&_@N&,lw}姾Ka@z225bw4AQ>~}~>)®c|iTZ~8+c֘pQJ dln{FE?rf gRES|}Nm'7OnfN"G鴐. ?[JN?s/Z;osf֦Wq@ nXT Q?nN=r@tY Kdb«Z!U͊rI 8v˕0]sN}WQ7V߀Z}.*)SS+(>Wτ6u8mo㮃xg<[, }oGϲXEd뫤 ǷZCPuXa*%9U7J)@8W:)2sLA% u#Z/`/0>!Qk犁Q2ʵlJ7x&NXy|[K,r=`g[^h5六ƆVX T,alp;;/lWBpS\xSƻך8{8F@zb0EUFbip !f,]F+uhceىC/O{( !HchmRNٶ}mM`$ %}\ػuY3%\5hor6ǣҁ)VY=x ږ'eJ]P)4p :PC_m*/MT_s!R|AxRN/w=4\!3d!\GBhmm 4Onfmb ѝNxkmp;8V2QUQЇb^uš8PQUNdjw1֩QCNߎDRE"~?݃(ԃvޣB3ٔ#(ϰgEqR0LwV HcRbC|07_|Gtk}\|ΏIasʞ[Q͟ט!,sA+yX5%lhd%B|?P"(}? j4<{Loc\qς&QBWIm֫"zGQ@vّ۳"?,:pvЭZ067dV]sy󏲺0;`EC#PӅ|oYMـ&0 !Ջt)< (<`3e>iacT`!|RTkhH-Ow }=cR 2_j B> hn *ݙ-@ 4FOZ* 0u9Bwç5 NEhs/s<MAdǢ~ LQ;j*)+ #o 8e~EEhZF/Ҩ5Q_x"~ϊY=U'9kJcĵܒw-"q鈄JэivMEñG+lWԶrR64{\OL,ʰ8|kkdNjj3OfD%=' w-uk-W&Ph h5* #rp!1B$[_,|[m pW5[k8M|.]O "L'Q)"JL¼6车~%ɶlf-~&5B٫l5@Tg*ٴi"V >N%1xK^K/k!nOf&Sc |]6Dwv9h7TV+a/ԛDcR]cDbm&8-AAKށ}=M85BZlqN" sw-Bx{Qg,wLx"y6}r?GAtfy``A}p$P&a`:q!? YlkF„!a+7⓳ pu bw:3$QL=δaVN`* \.+"G\ PrA,gKs ( Or]zQ!uWw ʁ.t?g[? (:]-^V{`ԋ8mF('h;xl5E)ZՁ [LQ1"w$7TTJ[se䱲(i7M(%Dyci0^ܺ,h={Q[I"()iB>Kf7KJ30w$E,Kwp扑!$t&hXXf3 o-CNԓrEw(Jy #N :'4Ery@hMv?M ٛ "<;Sp|q)tkA% 'gH V<y$ݢoQ*bc-֊S!tyM|ZA~LE+.eOJnf8'Ur}vcgj (Ɩ[Ikڻj^A^PWG_Deև/閯Le2"l  FگnfD\xMXDr9ֿ#hu̢5^';42sD7I Qtӑn8tgtd5/!(Q*U%=z2>nZ*ߘ3Nʍbx' =?.|d P ;@c*&hxE<+zU1+ŐS.b( GA%N 'h--S Ҵfq4 [Ԋ 6\߮$Dl2 S|ta"b@$XP{ğSa&7%Nфula)tkv}߹vni8ْӨ鯜;0j; 2yZP EaB)sZ=cՙ@3!i(جeq֞" !fA3,BFqEJj^{9R'G ekq&F6/+~'-~">Víe!}k@Z6ĖҌWx8kB- +# 4mU"I*ڴ$eC1-<gc\d; d4ZtoXGø ] TS5広2]!,f#cM gG0 Asvd퍱s⇙ȣ ]lhڌ" l)X FW؛uH ZSڅ]&ң& v艡GLJ#G߸[Fת.={=5>C2xx\LNqc]nZ? [Wuim"]7U[:Od"VT-Ph@c[V^3¿OʱnX{nXbG2&r.w&g7Ȏdh.tI獁[Wn@Բ44@Q,%g{63]+}o.h<+ Ĥ'5Q_3ߔ{( Ҵ/cKmOH_fŶvL-.ҙ!Ip`tTIL'K @F#RYxtxܹȐ<9ڧ-6A(L jlQާ@U\0b,VM x{3oIjRZ\x߅)!p4K:,v3l>cKó+5>,ȩKp~{Qp`4xhԳv*K)5ڄpnT["HZT{uGkǨD΁SE+lKTW$մU sEavi !.]Hq3:%]xԵtd)*#.~\OoK؍G2Lq^U 4=D:xmlpSl_*P% <c5[g\rPb9 y]rԺ2,x b `r 똍Pu[z{Pbө D4۵)ӝoAmect"DһmG\^#O( *3}~z?_+@+FPu%.jɒnuޑ4Zj?YIǵ:S4|^*dl%7 ?rHHaIgw">%7QeI]:'^pw߲QN㥮zM*e! |2Sa0$0di|$r-̧6p8 o/lǓԌ]%qaYsѩYWWċus ^Ք~ЫŌ~r}&sh1;dsUx Mt3 }qתn%8+ѿ)F N{>*1sytI??5e!k t1%PC:F>r%wu,3ΙcWLv˩)wslգ-Q?͗&XIn.M\±7SPB$<;nVvf5mKI z9Y5nCߛg)Mv=<}!#`+ ,}2R՜΂"If?T2bYɩ"n̨y,yNTNŬN-G(db>@VhJswU}^2/MI$灠"}JUa/lQ2͝AaD(0|KEu?~GV% #.|r61x2u&~FX1rBwkerêM$_9ɡmtU~W2-JsY5 0E1`=%VX?yl g \XhhAYGҗK3ylPG[*e<\Bi";e){u.ّM1ݣbӼ 6Ӵ*Ż T}uhzrxo_Ѯ/L" ]23L0+Qc!I=_dsCȽd|_Oߏ`T6٨ NɊ݈TQxb@{BvǘdDl0Yhnn`IY-$Ǥ$\jo8CxC6kAYlJ">U̱nR9{ҽxH%*so 9IO5|vƪt\QAdxM\|!zzˆ̕\(Z[Rū_(D*Ð[䘺lN˞ܣ {vӣ o>ayvNiDvCXa{9s*iaVzCv> V屘Zکbhc,YY&!Lj~VQK/F77O.&7NN$Kڸüil)-o^ ܘ91@Un]B@ۍT8%0 -* oԢ}hgfhLoEq*QHwzAI8d6%??~NH9{)PC8 ~i쓽m5(HzT]4EK^,\pZ=4o_[PeJ;q.`@k/e\QWaٺ8[X[r&N|CF7}m-ѾH.6^bc.&Cř-- i]V`<23GJגR֪˗ !e6Lbt/鴠4pXP!i9Bnuy~}e4DN-lAq'=tU^E+2JF"ڛUPrI÷AOz IV~Aڕ^Js0B-/u6_4p҄A讲kZ0Al9TMvb󻾖S1d=Sxa\=W*Q`OLsdψ0dmv]*Jl`Weꋁ|. E$-7Y\%;)0N6ݘ*A+vز¤;|<jG$Tc->ZC uK;{Ya+K`j)m 3)k~.Ő* 6Գ u*#R[S#XJ-s&.C䨍9HY) $eX/7J+renbG-ۄ3ZlL-Dj.HqSMAtpUϡ`kuNVɼu4]A9t9_DKq4Z4aݢ^ĔJ : .Sˤsb;^Dw`^I_4T>ysO젓 Vs\xp*Vp}'-ljq[B|E`lvP 85gA1, XtM:Cnp>';ǂ%ք \feGzv:Eٺ1N0T [rM) qeL<w ?F§#և|{]$b+KCHazV=5}4F6=[m:ꃻeV2MN#YZZZ!o;%` Lpd?RYQLA$* +tu Q 6zzKmdgl<3+>ٺ ;[T} CW~":6~2(/C6o nK5,OBkX21Ak0R8*Z$ssg%!:8wlaҖ~K39wwW J;ۛx\;HzZiՓ46JYt `,"Np6={ERĀcH_C&\D"ĝ^*?Fg\ ÑPo$ \#Ɔ>8@476zwqI\H*c4m}ۭ㚝ӳUk75O<99EtZ|c[|zI8_auU ]4c&Fz>&g{Xd`> TΨ@<qBBR3(źC$z_*:jYU,P5i 5V#}_ 7ͅ/&c3GkWC"< Gxb:MG?"NJF- )ǣa{xJ5E7ñ\S5q$ݦ<=Mqy4X`Ҁɞ^;LX)^l|JbMK,0J4ZYЃm]4^|*,1ñ|Kp(j/_Eőb&!hfg8_f)*د]~AB-9*.! &v`&DOFQo<-2Sv 6'[Wz/&ڗ`,( {|[<q-4txxҒ;R}/f}ԣȇ/BA=Fj^֠-p=! ڤ @aW>I3 :1 8YmZmѹ_# nh [`=V0z ,v~ܰDGGZmyRS6VIv Q@s>G i |?LI1ǃ7u@}{D8kb|^NOFlluUG'7g@ x2W&MpLr_*Z?> 5]CO{~p};'W}SAP.3\1L&kL{Eg;b"tqmvUv%zPӜ|ɻq9 ruUܡW=b4c >D)m9Np1væҬ>:]cNn*p{7!⍆^pYƽeȏ)<Gi-$! AB}OǹU-аӞÊGJ˺UUOAur?O&'}N8P!eDϲ)ɬM@6cs 6׺vKU-"DOs3~O3oe8\=CNUId$jy?(Gق<|/,GuE49kDd2=\ctx[Q*=|ՓлʛeZ+k6Ūy&<DBU~;!̓l 4)x a[Lsċ5mz֦4In.fRG .(0܎VV(PD]R0} o"v<S)WZ@VᏡw4A$Ѥ$;G{{kR!Y]|ez{"FDkrJlRbbZ-EՠQ^s$ٿXGxY7s9nDW &i]E3TstbC 3"!fK{>O0g [KesPcE:q$.M0JdxCyeD;c2R2n"'Oqa ~Ll.M+x9!Dmԩ4OJ nPPן=C3D(R܅9viYύ(F^"(!F~ЦZĂlQ`⵿\^ .p>B8X,1rC$p;aeخ0 voxzkC"&\rۿZ {ֿ7 }no|ݾ5Edhe¥MfO*kx4ձh 0ҩCpSOŜh?*u`LJǨAk,I$aiQ@4'[=Ix #v@Uvއhi d~1і$S&G"Gݑk5_ei궥7VIo3$uvż , 3!/ւncK0c PH c|z{6 r1z Nhkh⯃ $`}]\l BmYJ.otv%lA:qKS>W-=LP3]+Lr0{NkL;{m6I$K8sšqo^Uy?j?6KtSQ$Vj卥 Vp׍jخob Ӂ .콎mJZùey8#VKbl{׋Vbqk6z aWleJo D c2ڙl4|H<_zg.LIa VE}En@tv |<^D^O1Dk4• Scz IN.m㨠@g%gEUV`j7M \rxt5%6]+^lUD+HD c]i4 m̵stQ8R#x.╛AF=i-6sF^NjNZFw>74&%*۽ ߡjY<KxqD:%W_/~ZC)l]Fsm;#xdxALTlBGg^{ZDF~/mg,#}&sέe}EgWVz.Cu_YQ9 uerC]V ! 5bBDT{]X26IjabJ|H?xC"[쓂M9V^9 cb8I_\h87P,°,ŕ1|I3xj#92nj}åCv O8B~Q&[/xƴofv$a6nXbԾQZ.pD0$KPGg_A2^$"b2lLi3Dm"`G$-iؖ>R88`<(5 -Ң+[)@s 'VB:gkrbē,o'kۡ}Fgd.22{wg~h)l5 Ƈt.Q 47;+*Y-,??T09{8STC":fӇ5--BZ:;P @#FnK(w-xBW[ ^Sr0q9vnN=HUE*0Q[^h--VaqьX3|I/ۓآcogsUnJiv yz-'2'sju2cd\s?aH4ֳVՁ'Y)>{U. Ap/X"Jg}Q%Ԭy}|FW58$8rcQ^v%a*c@]dlJmB-XpF8 Oec G1ݣ4u睚z5R@J$ɖ=őѐG0{X DGvQ#I ٮHMf!U;9|p1:&YHz8")j}jPJ3)bp9Ly4[H~N7%|o8/|D qV|۸RѬVx&YFDoĤ^9& nid;` ejr:4Nk/! 3C\1<ΫL8p m6O~Ē˚Wt~fU .# %aUf@rW[z_+y?JՃ1~ \Xf1Z)mGd)ޛ\!xCp_k`L{Me @{L}(η{[G4(o_e 8zs[oK/%K.A=8T$6 rWn1[[Dܻ! 4IA6ͣEӪhrס.^0:2@یԭϷ)MfiUN 'jBD'uj2OMu#63_}o6, LnMWǰT MZ`=15Ii )9n6Ԓ.XP+0Ʉ[z k;XdƁAe쎣$7;jHNt!C&BK0|UNQ-. nc+-]: Z{xt0>=SgʤtA^Uyk3EKB(8t'Hy^7PQ͖^vh V?yڗɒ|QHR _.NHۥܞ=\ ACZAq=*jrn9ݻHMo*?ڻw5.X/8j4X` HKB6Bq1$|?vr::arB*hvcٖ%l5ide?nnco俿:Q]FWh@0xX8c%Vm]ek K3uD*Kq<«ܶ-jtGĵ޲8д}ȤV4v|u$"Z /l|IaPԪ^ Y z(LIvVh \l$~^X6pyOo՝SVhr!X<ݚ5e - rO|P] 0-ؖke`XK3R'u1[1+",>!l,H.5pEW*R=jУe@>Zs H}T:؛ ;!C+m#[T`Gs-Vӯ.5,̢=8@1I鉘E7Ϊ$lF]EU#%ja<Ъ?^)~'&ko1TLd:}M+'rcߛC)XEwfK0O?/W8(֑z\oCɰ^WPx}`fo@%(x#(gI^`2SNv4cVRDI6,o= lұ{34#TO@6mD0 | r5齢A+pT,|'yC k \_GY\*:]u;V1:+=pP*51U R3ᵹQ=5Pf!ByCm4XJ$K,u%puLn8l~VM gO $kWdvvSA(̫\T)[_~_Ȑ ԖTu8n"PC SQ-NBGoYk?y%dzڥmk-ZBÎq7`D C|SHs+Hz:ucg:bk-P 97 ?qLӑl>Tɗ r,'xFf?St;-7(uBDA^J{=; LlUlҊVڅr)Ӱ]P$G^9-WyQdrC ^M(VݨC If'Ifix;bаz+7!ؿկĨQ}$q+@҈hzB2Փ#^ݣ{,DH7x@)⋼KkrE*T7+߰OQv^ctj:r 6:-z|;d`KJpmS=-wK^+MGT%%7([C_ϻp[ #)〵3BuZ)X,j{a Pg-мCDc^S(7C2u6D}^DCĊo.>O*liMB–mwW!)C teޕK8_D'('U L%u)mG8Lg ,ivz헥ڡV2^ KP( p"e fم_^*6o_jm#,fwR;JabdUIOШ\$j\]7oƠ0r" "eyjJ(# 9jiUV I$Dkn4`Ij)3]4:14/j`L$-1ŷlP]/!̕HboP7y3GgPGUٯpW:ҧ.s*>p |Ӎ?,gL=M5M٢ e񘽂 \'AT I4ܮ^`9Ϡ'r#AcWزɊ(ؼ 8 vVbj[y5jU4SSE߀AnɩKqM➚h ,WVm"p-]}ۿZoʍ(/ŵ[io\y=`#Z/蟒 [ffX.qzӅR͋[T6]aDu:ҕc8p^qFK1Nb1|]AEAre&(s-!g9l^e1GA.2#hyѓw+Hvf()[O܉ daNeYJX3L Dcoe_$j |kBVޝ)oDAkڮbݼ"_W?c'aePJ )='wȳ(+ObS2^x:R-TpƍLlܫȨF=\>ůb3S.v2W kMV'ov 8eIbݤc.^MVQw,zKy ezd +2KsMP6'z+K 9L*e|43ߕrӺpRzGLQriO?J/R >L臏~4^p ?kvS ^"q_P٨B"L^@G$ZҲ.D\cPI/][~oav|:.NcuH@۳SkNsPi\}71d&gwN]zk\+{܂iGm _7Bbh6o\ GJ^U8XwFxH|~P|V‡ M;՛Z n>q:ЋudD0P"VzܛqgBm ji;sTNJs0! iSɨ:wP ֠\Tfa+'/lGlZMdo Mͧv_/PJIM5d']BLR6,ýUn>ѭjUDY7h[\F'(?]~X2 &ndQp>7i'9CE7[X qo*c?ؾN=wؔx-Cmm:+ɰտLcfjGRI@0b8_*qN{6J# YS_.~ nKAZef ] #w5!w_g!`#q=wU!Ĺå6 (]$??y(MDW# cۓkx)IB TQkx`MȠn*{.spDA1Ok. *eBr<#DýL-3 C"So|k9vC:>,h}M­au!i: k͉i"`fX> =MFJ`]cуq"$[g{lb*(7u-85TE!۸Ȅt[.񫋼Ri hR4"NZ*J,x p9;HRc|?^T\lQ) zN,ĭ8$!l;}(_҄dq`ȨF\Blnjv\Eʯ /]ٷ1a'?>M㳔JLa>~'qَ$0+:$2Q[3N2ʚ ^1U:(`Ԍ2ESq}Q?y-5NfFٛtx PjYV4jZm*` &S0UxΗpqaTQ >%#t.2Kd-I+o4iwevL>lV~1ٮp~$Ci25餀VqPϘoHL8Pˢ_S| 7}aF `vI@[SS)pcϔEYa0~ktH~r ?>KdaDxW$qL U<BWR:4g&yJ+t/5 hI%e+L<6*fC}!i5= ȇǁ &,waUKW˱k׋.v:Ѡ]>E_WD=@&1u|v=D.G#YNѱz L*&?$ ˯a:΢PYrcUdõp9@0Ջ7drٵ%UODM v@/R!3 EO> .?ĠݸoаcqlA?5 A8}λɥ?ãoݨKg'I^C!/³y`W9ӏhKM,B^Zڤ:6ٕH1&2[,he0eJ.AnBⷌzVAc ץߚOZu ԝ-3W>^Ĭz[@M9I䵯\ƶ%y5@5#]Cñ H(^x͐^ sAdSON^~eL'\} eP&f/L*wC5^fJPxp,8]@yI.<窍] lP8{wG_0u$QNo/F| ʚgjO>ovlR` ҘOFUڒ$=Q)I>1̔%cș2b^A$2QF`3rwr*nuwޘyS(zWU;g_c)˧pZ+YCT>(2e&f9Y쉃È=IS~ ͤ',BAwQ<Ҍh5 .GVMeJp_a`9T\LBdoP鍽iSã@{eIMD{ j׼fJb܁>I^FbYR=h2By0{_7X;҂rT'h]@5-ci/ߠ1 |L "l̢DVPA%g B pkžY,i":# ʉ4.jO_ d5pN!dq.Zqx;t9/݅,ͨ7AeҪs0`dvB,3PkLbIm,aߏjʃ;as3a0=5MζtmvJʕС|C) u4td|]`$_  %ӧw؁:Xq;v8iWFYn'jM[Vrۥ N~Deba'&O99;;뮨wRbmm[մC腊dFXh#s<y?&e3F؊.;[ƆJ"lVOI@l䃔Ȧv[Bg*<#'̓bl]:[ +J/Ax Sr$ULG-5)8P=wY~*9 dgh[ Y>[4ݥb ۵ĞAo[Q\-~ݱH0po}mS(HupMG@̵݇0N S:a*S$P0xs(N¦&sXE88U1%%*F)Փv&Z PbbaAZ>w GU"Cpy|3hgR`u Z ڌx~Z)Zu\aRYTo<'Hq%#Vg;_ÌZ+f^4C1p[ڃV;P649TYԑ A1{v)@.&xW1k^Qo,ACV׳#II~AiFt4wn͞X uh!=wJ"ߣ#y8*.۷J@De%ҷ)SDki4oR;ϯ5_q]SpkNENOX~g#yd Ft9i$˲B ˺h~c5l3}&h8m10,4 QǔQ}hYI]Bz`gRU$P杈}]LNo `ܹ[/UhڥS\ cNǼ4dT7} ci_8li&ҶbIUwn9Dia6%|jfq| {xdӡ2Kdb>[>20WVVu{ :|6u7z~ECwǼoIWa^ӛ1,QΦ4esZtybD(F(s2iʬ9#׮!*6oqvmC4vEЫ`ܑia3|xxȞ9;ż7;/9lvxU`}^ꄜ<'`$l}Wښ4ry\ p#i۔ے׬x,y:Negu5RCzGʔ #?oYqyW2PQb8f3}޹s!Z*dڎCzC&SAs!ڤJ+Ę|SҺ)+5z~Q } 1+FD4'JNYC'(m\^NU # +[k8azME_)ӽnFNuu\=@60iO/"HFL%`]#$A1x,X+^XCg|Ss{IfBp܇Hn$MXPi/-64ۇQa]p5e"U_2Y\ [q$'(:s{'{KɇqLBrxMA6@et^\;?8’ 4O=#~ {fJDZ!KaTnlCDbb״GИ zfb٭ҋS&b!H>NMwz\s^^6hۚ")~ ֹ'aE;;@X"$Qs/xR%LVMp}a^T H,g@bfɾ/yJ֑B{LNjՊ(9>znټU$`ձ(&W Ub 0NoO>ږ+]c˿ >K4ͥ@/]K(EQS\럙]5"{][Kz1#Nmn"@rM^Lj}}OL3)R@b4u+gv5]2yQ29H봎z.9ܻ7 O.zux;ĹՙZ}GQEixL{;ύHfwG?ӀHY&V׃LBL:+ęLYԝ}UHc|4pV Ǜ:JL@g`qCfLA88/;Ӂr } #4.MY:& w+oX) }dI(fN4b.F$?0.b.u$.ie0ߦd:MƖT PYş&,ptzb'4<%38МH]64N^ҦcŪF]"EhsV0gaW 1IΚ][rfTo=pnpQ?8cqQ{HFrÍ6J% _t5旻T}i&h7=#Cs;=Tet9pѩ ^}2K~ai')@_)v /0Lp]/Pa*h^yKD="<~ʫU*D'-Rca=fZMȢfs|G٫kgSi@DmolVF ș(-zfax ϶L/fgҜMКAȠh8` Õ^ XtN՝MvpheER]h8 -5e<{[E;eS׋Uޙ Fn2]k2nVpB\ \Գr2!XG-$i1 <}CJ[f#? ZczO!rT|(]9Zt_P %^3x3X3P)_w_3foP|`Vo e5{e@Zr9ڛ/"H W񏇿Eu}3(:=T4"-NtNN6fM@ OXLQ-hmn5{\x3s(-a_E0wO%UH1DX$# 0FxPS]lvwQGdv0sNDvu ,Tet%EA7>ait*ۭ Z$Ve {@qP[pk;G n[b]V~N|wYK}ppVXF 8U(x m[ b/6}'%(|{QoUN4zvd=QMKѣ.5unS+ 87Y R &3bK158;v^8ja ]nC]N}0ee*w^GcN$yJ|W92JGC.y [[_>P]Ԑ@P"/'(xڷz[kI:e>iLwb8AϋU.~9͚pe=z}GujCTM׭} hM&؄0{`ٯܞ}2./Ov}*As]dk 0L5/a20ه&޺|I~켬\#Vx& 2hLc뫯j;uHO-hSV" A5bQjv}m.^79 LbPt|<È1IEܔ}LJUo$wոal%]k\Ҟ)5IijyCסv ݃ҽï֌I3?#Ttu/5wɎ:c&bvhx! ޵Ο 鞫l6rf KEBًgX" &>@}QݽQ|UI6OLf 7.z'*(ʱ&'%[m6kdI ̷ipǛ|>+}TF1@A缝r IZ E4Xlay~tوdG>P 8f_9?$ǐ32VA0 DŽuUvxK0@;oY/yKmxŋLR;/Y1tB$+DIU_tq-rsYCcXZRab,kl+S*gkաރdg]]e_X϶U X5>V D]`?m ǃC FpÜ5z,>E/bGS[Ł9kMѝ4;i'RY<S` SDV87905ԗERQzgK}A37O9ȑVzuAEf!:߂M>苀5/EYz5n%<7X24qF} Q"p@#ǁ &̮Hr,6:']WP,i`^ ؠnXIFCzɏ)\4#[d$ĽZ>vL/Eߧ!o2 }0}~-7ҙ,0 ws8T&þ=m=UNYOũNɚ?ꮔ s#̍ش0ӄ TgFt^ H|,M3`Z2| csLv4n1c_q@ kr뀕DzZB?!iT@υyBzT5 ErͲ68`D,DK3T)U\2$Ϙ@/ᖽxض]T\XnC*ZLƮyaicj隱=+5Z9}8n YO {m+q;ې|'6wZu \?! +r6LtMkq 31ƶ :_}zF2K|tJ̸ڪq8 / Ehx#Y#P;3a Qs^ J֑<ҡkɇ?ҕG.us^mt@:`Y^wXWLLܭe48u磢wJK\P/+@8fqV܄]ԝbbVv]uG5vŘuGT$A9S@1Ȧ-Pe'A[G~ӟ|45kԩIsOa^|z(W;!+A/QcENN^ܧ p$<]RPdm:wYveEۥ;76.JgЦ*O#-\R4t %|+4ߍUb7 Ft9GŊp~o k* zCERV1;Y8۴$b-8၏$`XdioQ g{By8%u3 < w}]I2=A uː+b\fp )Si# 3.:KjM9˚]n%7Ά8ni q |ëW\# tTy'trl.ls?v h:ndj<< 3^rֻ2DfNXǧO #0nEטbe;Ek)e'ltm,=VuGr `˰/t `I3ܓ>xD0M]2SLOIA*h͟[u~!vaS\ ]i?H',b\מC@8PZ_;qm T-fxSn SYh4H P fO*SA>X K?G0Acw&{!8Ц3 ()3i{$HZsτR3X)j8A>SwzzK#/t0 S,.9ą d)s?ۄ7YV鶦nH}1~tN= ?N #(h`O\g ۧS O?gt/L^uԲŔqĔ{&Q8^\o6 ! &$Ɯb X3%m}7;譇Zp+KyYtGF} Usx)S1q &DƇjO.Eǥ`*ߧCo,c΃hw e LTj)Gs8#W1Шbj:3F^#`"YKp8Ƙn (`][.ՈAnmÒ Oy\EsEt,m!6`=TeM)|w\!NG#F"ӂ0_VDEKq W^ekwQc*{a<BN5_x_"ZdDƈ3iF,Pg/{K6Q2usGLϫ ;발e7loV?wұ+n YO1SŐ7a6-VU9)ep>&SLö,f܉=ˈG5th{#OH}}1!K1hb^Kሰu-v˿› [7w(r~$^J2Ɲ^ DC&% #DÖGS]5jeoTUsM!Eg,󌉀b^L@\jm4ӱIj)dE?lyQ $aoI J캙硻O %md Մ S6VuyW+e)ՏDfDE7 Ct~#3b# ^ʟAό#n? n\h,,gsY\˦&rQ}HWЉ SX>+o[9d_$O݈[o֖='ٙл{qT/"noٵ^ PCj+.[`ld\nzT3 Zu?$ ̖U2i#]2 ϵR{NΞl#,8|F(oy elx*A8)Y9{΢>hM.kd׎ yzEbyQz7M'u $|]PWee>QZV62usu 5ֻ?=l_3-,~%(GĢ1B6OqdlbzEE(a\#Y+;\S.e Yn "T􌥤jX+0V4IXPK}YHXYTQn`3 R%T"<%1*<Q0 % V+ QaSx.fjPLԟ m;sPQret%Dd;(l~ˠ3op 3={Kz/4vC  GPჯ!BTꐬy*qJ;:{1po&OS VW4G,(rKB3]X1ڂ[V#oSycPO կc _]yk Je%C[8y0p_W|}34G+3 >0)d͎20E &˯,iedns`osQ#.DR? ^+6'}"c mm- *QXWK^(Э^y7o$D3%P-pZB3zj+ȐɒpXϕ6*/ TVj _]{S9׳ڈ'mc|?yB  =oC<ԱiS34 (ƥ@Pv3&{MyӞ|xj59D8톧kkBF®BW&zDTmT2< ?yu o/Jp49t7dL.u˯5$ΆӁpyn0E3s7;eeoe<=WY"F)_\ e08FT WfaЊC2Jq&0+-#mPWUlU^b-ݡ ҹԝ4ӯV4=U{.3 '(9;I"nl=ɖK_1Lyj}_ 2)h i\j:icJ"L97μyWTG IQ*k׀/[I _i߷FyҀBqÃ>(C&S=q!q> \JVStu < "[+#{Jkm\Vdj50vԲkmUٚ!)h5]^lCs$ ,nB T΅1"Τ gDP *8BbĈɍ3M69MT{zփx3;%/D;T`R/uNr Ƀ-kpن)!53yYZdQ{})C|k1p&: u2,ԅM&?/ќpPJa*9D76," 4ѹm0H =ǚ3veU@@΅yd԰Ũ9c.Gc pů/txD$)騱x3p!?ٽ[s3s=ѽbcO ڌqe_O3I(_ps?Lͅ H&hhHb}`[[`!/}]n* hT)^!a=&7xiz?D@l "O֎qR-Sߓ ɫT0Pm;9===s\F#mVl2cdžSKQ F'Y&[TqӽqՖ!:gYU0¶R/Vb*\8j́.OF'C$6'MNM.˩l{wR-?kӱdW Cڹ$ekWn<>2KW*\X7r}x_<@%Еrxoi3^+ }vY30Q?!>p|;XO2X^{*R-D$!: _5Q:xuIsX@ К06 `Gz./kKVL(E54VWZNmzD'wYqq(tٻEsOPu vd3%$bi*Ê4j g}κʇ+5"X$(44-A#gW?HI.<iܹ!)J9g~ODle}*5E$l}?G>f){'A>zu=ƟLU{DLPlx+Ŧ.B]˄HWk;mEOb B.ôZ>0oo{4 h}#@pϲi0=!$]q'L0=ޚAYFڢDH:y۴ H?&Њ.d"ޑ_HW&=GEur[Ќ~2c("u%)yZ+#HЮV#]TX_=\=ҷl1"Z:cΠnFRZJ`Ttj$Aq:U6zfy1a% !kܨ{dJ:4EBgŎɛwT>X;A_p'1ƻ0x(y KF @>!s윿Vol0kxk9a ϒ#IJ]5 A!O^;ZB"&AYMYjU(/<:I1@8DO'  L &dv~VwC<ƣJWGF~({ &^޲e&ŰRaY􈍴YـiY ʰ+BTgIh4 Rt-h.*?@`z찥+ Eɬ=%ZEwv+LlA^ؘ01YīISBq>O1W]+?FH# CuNQiH)}fiGVzyV0"Tqጎ̧:59n)!6]TO_}#ptqQVI&m5񮿞tS6IqIz <$fQ\UȰRaADGu]&1Z4\/JUdt侺d.Gϑ*m`M)t0vZĔL3VX&d了@{c"]pW+ڎr n%p(tZMܤdÆEI !6‹iR1!YXaBIp|`g> KfQ.g =ɦq+Re>mcɱ; %|uY12B%D)(Uh(Evq;t2uw?Pw; K6&Y̗"EVZ/ĊHPũ>Dwej%ه.K5CxMv*M %TOdVXׇmMhGPoGBveKݘzkfTѽ\"E)AּۗyPvmd&ܪV86W"$rG X(lצN&Pneۿ{vVVt)yZA{&0k))s6BePƧ{pb]E`GC&QoD=TfTD4廇+=ˀټ?@v FʵcQKQ g44Qd ŵ71/QNj{X:x4>秾_m6B[v2.!ܙ%$܍/Vm[˕9`Ef /Vhtg'{@tψmCVBX豞}F& $0ԥؼ9I8+|@&zb"yk:Gp֣8f؟DÁ"ğ&4R1A45^29|?@Hv|A"I&zFK!Bi'."'D =1űd$K3%cA;Xwݥױ6r|ĢX"鮮ݿ-ޤ0T]TF'Zǖ[ Q;L~GG΀{>̤ϙ4\a a\[mCR=XxvFsMz$S5 #K\ ^Lu+b&ö-^bp؝f'(g #'QyN#cVڟ-&;lQٟ(88WY/SZ&Rhۉ}gN"6n[[?cZ;yjPa4hm݀`|`.>.4 gn6p/}Ov4 cNr$EL('9ԉ0T,("ћ.ؾfkGg˽fx_ŽّgSMq=Ie$Saނ7cR/ XilYo-hǯ< 2'*gP:cC ;5?v'y.,[:ZX@5]F1u Ѱֻ9{D~KXSf@/[=դG( N vܦѳZbVvZD8Phf ƶNh[(@rR_30Jf㊉Hs FΦT\>f/̻-A!L}MFCFx(їt;x]6\ RX(Zѹrx_\dNƇ/;g66{9楧7O0AIs,D5~:mqSz.t IPﹶwʷt )ܾ!p/F@ԩվa34t.eܹ E}Ö@rI&#k|uv-;\ji>RJ~UPɃ5C\wI~iΝU*gb+L9-I(}>K7 Z"Я[:CCy| #(lam퀟nnP.1ˀv EHMp +xfYD_13'=g> D@'J!w6ςELJUDScDp3}mԸHs bE96 lxvJ೮%\}*Ͽ.J 29yU}'5N 4tjeBpgf+Gu+ ?14KC Yu ]%;J Xox&RvĂ@R }kL#E{d5lWiV+>ͯzG+s1}똸b 7SW є'^,J?K|b}쌝y%+sʡY]Tt"&هqttYF#.e9 qkň԰.95x\UgIDA3q5;R/R^Miq7*$u)wغI<+!(\jg&K\_~!_r#aGjQ:/DuE#D5N "#,H>F>T$oZ\'{T>~[ZGʵ8ٸePs4 1HDc` ]\s 8譱 ߶Ҟ ryőʼn&"CtE@֍"zp'hkq #-ֳj d?Y;;lkL$;33$&d-j;]vn޼=iI3tߤ f]|1/]'?7*M/T;)&|j%0#Ub Bu \ӹj^iLdy#wc߬8I2Xy{Pj;b`֑wÿ V7:Q{ lwSA=Prۑ8_r(՟a8ؾ]=&N![{)m!w2:P |PKս ]EdY"T)V$ YKOK0%0w _X2V O`ɜS_bJ|f3z,Sb[6pKI>*IXYpD0|k7ZI{9#.QsÆz 1 /4`Eե9߼:!m ~?* DVGפ`2+F** ɻb,±6 eny@5iŭP+ V Or#פqDvyq%tvoM͵ ʹ}2$CS`A2pxPb;Yatʟ$oj%3uSTMXA~%y]Pa_}2] IɁmF&7Jr]Q.Z,ds|`G'х17:'gfզ߂S5!LSJxoX+:ji$6{oEGPW0+>3o[g|? e3Uy E̤m"NT^ۤl8285tQ6Bha>~* $::?Np=9FqP@_4 d8ç\V/k!VbjCڪ,knkY95כQ i܎,`Wmo@LKu 8V]Sw$av⩄i:$"3M梹#ǓHUTf5IJšm@}IC.}+LVsmSshnc î_uM ̰78Fݸxӕ) ܂(#x ؋,Ny#ʫU&}KG 1x*#`~OM{T}rFБuJGA$g4X继@`x%ca0S$ )5_  iNG|glvM:8 2X%{9rβe3hx|+` l0pywɀҬO1R4ׅ<|)C%Dm!l[Cc%rw Ϭbrmn5 G'e5F)F.r*!' Xڠ_^5/}]tt$DzwBu͛,'R}(@*`3шb \0. eo붴(Lx?e8{3tt*^ww!&pAՄr%YHzvX5+ Y <1`$ 6t1H|S*izexYӲ0|]aF 5\^Jc3r~RI7 YмУXl8Xl!oC2G]ۘQ)fhִPͪzGF$s Q7.?P `k;J\M!BFcl$^3CԓͥS:.6B+rX$$ 1"ՁUFLo?1j\k?1zl*rr5 c8r|t?eQh]--d+aO⇧B "sȚd3VO[/5SpmS ~DZ`(go>-('u O3>?2OկYc;4=!tNMƴcA2A5X ?IwY\m"--LCTa\ϱ\-huun-BV^Z=OEӦl!$]-Zϓf(L6{c^rJL_` dWz( 7w9p;fd}N H_]̆^BIi }<=[1]D=%od3De;Fr4ҫHeϘsE3b@V$np7|?ʭխg+$1Ym3}G2)sNVt %0te50;[1ݏ:ᰵc„'2 6ϤYq|0 oV1 M ܣNS1zaF _bR~YaJ=6ZrBvvxb&z@LWV*[1|Q;&Q|\[NS[v: i8[Fpn#0݄'s"E]lZ0 \?dշ(E |NAazS|® d!e.T͈߅mu嬇\W{vcݲtokvG/^ Emkzg}3Fެ9Q>9['Y6KeDPy\(q4h}|)+BU$BvDɴxPs b VO9c 浠z񑍩K(4o6(14]Dm\Cs @rA_;?n=]CR?,UB .Gi_uN rs,g1zN[Y?؋_k7˳2X3aMeb!FBMDM19Hr2F02QWWD.(pb1hg 6xlLk NA'-yw꺼5/Q[=%sKz*ik+HA"̄h+`eYa(fJQ%~H.3 !B#DqG]+٨f"JAĕ^GGU]edw(J}p9"޷$7`MWG-^;<~Kgv*kVw.TUM~s nki/{qh}\i,{,s%sz`Fޭ@>ސi8z`ۥ Qqu3Ma,޹sYq3@eqeA:=C(I'JXȫC`"*5ljmDHȕ '!r$B$۹N^&šB5DII8; )STz й/jSR[1ލށnH}rn϶V_Mc;+2e=UvLf| w˽5*N4yAiɤcn`8?ޣV25OJMH\$K3T LY,! ߒyu"K6KWzV0P }vɅ-־FINL_^2iliLLIo6)B5(ZFdB c{Z, ^udME%չ'5BpJmQz6 HFAy, =Ќ`fR.Rx!n8}#-I4`U4ַ+tVދL9LݡP2G#әҾ07-7U<(VRG䦘WB^Mt:,~>wYѕ;ylf$T aݮEOۢe`2 BLMPMk;"}a+G3jHYR5l38+߅kVdSha"P%"Ա7v[ ͭ^,qTDVu}$+Rj)x_K!ē$iKflc_׫d#B%4cլ?Cv|[=Qfװ<l"fNo.ċ>ٓ8ٍB+?޲%^F iw 4!J|?IUFҸF/K L1 {tZ>|sav=D6U5hԹ ķ&rӧIX:8>Avpճ8olbQAtU6)_ϋtWߑ&PZ)| RK /-`հzik{)':=5bf{)( AAD_Lъ{O**Q2izn ixvOg%z5rVMsfỊ_0",Ucۢ!"poθclyik;F˸4DGa^z8}gHJ4`\ڮOT6k]BTH1etpg!u Us F"2dƋ[4Q(˜z]Ԩ gZ_#P#M4nuHBH&|OE. C) 1M$?]v25% Xȭ=񏊔N~_cR mU^ox%y۝ID=PZl6h1LRUaB%YQebKWV!`HJNJPis3`O9+adBJvly,zeVo"%.㛵jCHȪ;J1 _e(+'tgЧJWrI_U͑?gE9}Xi{qunj$9 ۬A<4Aܖ?5,^Ӆxjɯ*[d@ B[?7’3'`v]f/S{4&K@g?Nx"iyx&3 9CVM+;Ke1uGz:bz|~̢FYBur:T>_@V+(<v#T(K]_r5fFS›x6-<p-@?6PB/q]CEy@'/YTB#"zIֿ\'T?]Z0H5I#+}+P~Dؽ&'ō|`ei"VĀ~ adL5xn o}^%DcdL?:㵤[c~&\A #C޳.;+{&|N.LբdžDh084#nN"+x$LmrkƐƴX~`cQ户iB>[KmD3`>Fys|D17@*ftAOf($pzf\UJRNn_g-TAϲ*T_Ł8oiN%Oh)q(!Is"-Pp"+RNZ55%!B٬l {\{G_obu*#BO:QqѺffĪƏ᧭J>5TF9hYJ/#n~]?Oll䡅C8l(fҀPL@#vW>CIPfwdMt9ۘ;Z2 iEEbQ1+ԼVG2>uF&ڠBPaʔ>|U-8(sJqufVɡ ~~v ;\I i< dsRM=m _^ cnVm}V+a2E!}V_o4t`؉VLN-Xp(<✎kz$'eZd]S'd3hM2dy\KCj?(7!eQ2,sc5ƃPN] zigA\RG<;߱krSy* \SΙd=G`ԉ (j+߂o`ni^Km@ޣC1!EׇyrF%*Y]wЉ6Mw5)W,ƾÚK`WA>Ԍe(_B $C W8x~"f$+ɘ< k9(0h^smT{MB !8CTp'Q TpL[70=.P*}57%){ Z*Eօk(g j'BA700-J`߇]0&ukm9BPc` uіg3 .o~,vJ7P]"˂a(6MN>=T#UEiΣLv-7ސQޠq`ˁR4 z[C+g0KA]LS0 ^0p|[i%"T6H!AW^ڶj2cgsRsos_q` bվ_ܘbnwbE,^Ml^)5&njDB)7/I%ː~PQ=..2mE%sΡ*$Ur1pFɹhެ*JC"ÂM+<4]2MSPcZHU,JBFRkx 96||1˔K8?*TV~q`|4-quRXL2F{G?;kDĨڋ0hf$ ]z\Qmo:Pgs\ |1CIyg[XਈþؼYis”ἂcfMЌH~]X^B#Z_6S|`ggϬspWK?ɰ =D@1 i1*a͸RdfV7x_e!~,|oH8:6oP{F$?Dσh s:JeG`*݄iJt{`7\1ڔ#gxV峱0F1r&{]g"U}#3ȗ! b~僇{$"% 5Kg-Tm 86n`Vz|ڪg68H}1Saӟ3XXԛ)W^'{%l0kJ?TѭYew>/] ːrʚ:T1K6/cwPKH|w1!Tσa O!j!qyp[f=Nlν\Ã-X&ۺZBsi%^,\qMY3Q0,٪׺%sId]JbkÕ_?.{ f/:^dpV7\@/os1GdkRF!L|?oW.qgyUf.չ/5@>R#|]u!R 2D]wh  DH J@лn:&+-  h5 >kE'(g.r7Ģ`>M6PA[(+jMqu!I(UtoY i?MM;Һ`LQ&$0rvwdϠv :B06YCmO?2"+(m/@9P=\tƸbbߌ/"ob6+%e5P Vą+G~&I۾.yj`` G556ةqݧNE?pL ^wɰ ] PLR6{2|9 Uh#zghڝ` Jj|8èIR]G;;iQ)7ZDAZZY.(`e 'я:r&x&B_C}]o}G R*'{y Ru]t7@8oē956)PSMH踀1e .P$T_PW-SbXXᴻf)"Y2oqدŠԔ癄mpCRtr`0F~Us< b4$5I:WE+jd4 9JCL vm3 5 Aya[˄vxb~^Jl /X}hyG 5C~܅[x2zsֳ>uytsܻ0`D:l#Uan"2S䕩PMR6I&*Tz!ԧ9CI)D䲬Sq9)3G\MjJs-Y@ }Pׂj -MR"{r.'^&Q{ʑf9twpԽ.K-K[H =  >M;44fCz I|Z` "6C4.zVNgYC~/lZI"`s4*?ąZrC R'ⅽ>Ԓ֜Q~Sehͧ^4:l, ]R7Fb:l' *cJ`? B,f3LR>nX֎Q)Bx']tɨ!E|aŤ  55C$NoD=̙3IMz]T1lES.>]^NPmC5[. BP"cb8H:;RoFom <0wC]⎻4w$w247q#=t ±h==XF.(=s>Wgdl1 ow֬O\mye>DA]BN>?%*A9OKHd IeOTXCy-c]xHm×aCܣZI1&'UTaO9wd00\y,QNg`2/c;6k7*w2 ghpF9Q:S<ˆmN>H\ J7%T.K}pDaB>k)E}͹TBW,|7J\@\QTwŪVk̑덉}Rd5r?1MшS7~NIrRt@ov`0/Įtv+AjP-dRFxTrűg5NPݗϲS*˥iCrUQ!L1HO*9uI%ٗ54rJn6G>󃿃v׳@YfG`pFf1ήNEss\4 >l kte(VK{׵XZO8ɯ!Gm逎EU^{U2 7MUɧ0z'/ѪmTBA]! eY?_ {gg?\J5$H9 GtԬEһNJF;D0R0K*S#'A+/b e^9|.dcuI~l4鯷 CenREXUp׷_^\==sPE2VG(Oj;<@@IcF[ R`O$ˍPRb;rjE{D3a~,u01N`")hM`P y3 m_Jj]W]JL0 Ccnܬ$g-t~U41;ϐeyP5|-xLOO9>5yBI%@뒅f$p-vg0.֯+7U"WQx6 R1l)}pĠ^PNs3/@[o[( +*ѳT[v<@dHK?gݫ p2a_tzD0(q(- e \[Lm (çIjoceOԳƞUuG*9[gw|6ha.EO!ɇ2D8O͏1"]:=Վ*m8*SlݑzO{k{Ti~ -.P m|N@ǝ=<?T>Fb&SXiRAJ3V5U=J[k7Ej{&koɻ9焨栮|8~XW'4usvP=$Q)ǴΓ| lӍi$|SU4ON"ng5eBrrdTϟɈS>s_1@zw,vqߝ x{4R#{r>?>SRu³UѠqR8jWdƥ7HW_3[8FљkYyRC:k/^T[bEfeiij$4Ub šPu oz2LW5gϽ8jg)Ef8KݚfIS1$&Eew$q8g3v04  ̲qc) 5Hrev}d6r&xW-&-f@z&xRN:g8,w i<3e~GO qI/sá Jp}MH^GuiKY{%&(~A#gFVRuhͬΫ_y 9ӵBѡ0rzf!ʵf>~l֏u9S5!/"Q/M,]@`'鿚 P٠T?G&ѫOJn RHC\!Vm o`i4 Ø;n0)G%RfM?mM'jҤIg$Dvj9!QM:9zrV&X8OáaY(ܛ-ؕihu\E/ӒLsHH,$]~eNvaA*穹x 䄬j@;pYajʢcYꊒ5mƁY^[_rk9!u˼ʁՑ63ȍ@Ã:8:&z~ՃrTH"-UP՗OsiyD) %ܼcg$ ĘW7[F͑Bp ٶ$͉W -(N,+jus{a+Y0,k:Ty-d2/K.۠.XXqf"Y`pa!hf|yG*|;`;Vuxa # &A)<:eXpMTWbA DvQ\mWWvbXwt&\,7 *sӼּy1_1F [f4 G ugkp%M`]6\vhJ X nQ?Y-ig<[)mU:1fNL j`;sbeOJ)a΀CYe&X0`yO(󗚠[)x <;",[|:!N T'E5ʄ[U4PӶ9^[we `EiYEUEa4OH 6 >#%_rT;ROex+~`iq'sR 7Wa?VvRL3qB1_#óEa>֭Gt ԟ!ǻBP|SerZ{C(}&ǚhsM#FXxա JPLG-o渥 Ao7܉d=<=>*u**v}ͿyC;3%'\sW/!sS枀̠#uy@7Pg_IZrxd\6$tuvF->FRkL|^*6,8nxlhy&5xj2aI!fF~je5me恬m*_,˲+3c%9[ k<au`T@ӁW}r|1٦ KnAD~ŚMu0bb JknXb!hFBMR`{kz,|Z޶lQ6QK&yBڥq#a aӰ tC?S˶XF?BdmKtplpccP)IQ_(FZqPxH)+ڊ?*"劢䣺Tik2RyG42n:ށ(F>1J&p.EB#3k^} ; fvNqDeV @ !d\DsӂZ)žd}]mVAOWؓ+^#Rb>9/12!}nfD4rXR?s}az$*ұ^Xo;1q(zHp iF"Vo5m3'eJٕC?Q)d[O~ 2`ck.5SH5ENX*=G fVhs Uݷ;t*^S8+m٩oOa$.6u4.cNMQ<.{bÉMB)]\YEVYEǣhrZʽM ''s-whkM ZqHaBH22_*@}T}GRUtMH+o |O&P~F6`$A@U7@8>Y~$tx  B(děVQ)U݂~Ŭ%ɒ.c\I'Ե"&E/ޢ"v9tZɄSrlcIgP,Σ#)Wct3ge1g v􋛘w7i%g cz8Q%ۢ1*|Qf%yt2:* BWr+R ݏK.`.ݽi&hu[Zyn Q=xMav1] žҽ@B׺Pv*"Iqw-@FR^hإC8Z>~n xڀ+9moy+,؍:͇r Je ZAhywf~MFP?N}r$sm&h;A%5/-)`2R0sCnWxeRX{:S *̎w0 DuGeE5`MGpM ?{qeB/31[@㏄N Iy-WmSKC"e UB"!bBݖ9 uٙC((y& 鵒"?]\DW˗ޫL^p龖>O| `xԗa)ѱO=[PƋkn{DD{ ~6ѧ쒱f! =(&NFUEEU&f}E)( H9J\ŭ\{wa#T,=VWP󪊀J~M~#F{-6+b0*fri=MGg9a;t~"W^;2!f/g30mGBs&5W聯LSdBkēPtvˆASn*ɿ[i[K+{Z,/@AJ~g 76 7ʢ԰#+tH `h= %_`!GQ &%Տھrm Ez}0@ȥE%/^~&{{%7[T^zSk+FcXvWΡ{ˊۍzoIt w8SF^@D@%;R؊~Z/3a$X*|&V([\VGcM)uCFʷsbP:s,ӆmD2IfIJhQp#u͏ ^6\EGm3&)q}8o$ApcȶCaXv ;g @( J!r&:,\vpŪtL\fBg'jW *cYBs@ˡ*:\5ŇTЫ 1aIR&pyjSPz;P~4kGuDB$} PARD?|k3zZ:{:Ж4d>3eg}{$ɠKثo%G|It N;afx09])^> 躹P4/fL,fɥo:7=֠px7y`Tl\R-~[ cip~3gC(dVKAw*=94Y]ksEnX[xӝ6}A(˾u$s/Q y>VP_mO]5&ݒaJmY+6lj]؞\t#w+?ᗿ?Y,r&Qط}U%s2`` `m"ġ߾ +hu9}j;-1s#dPcby#zGAI<"vRS5𢪎uoTTb불-edO-]mw/Rr oظD,݌]B~ZWMֵe)ߺ8Lu1l&8s_U-7m쿊 5:okk@{ 6\A>+ibV'jbzQ5܊ `a|zoW}Qg$`DAv@%T%8 My4f;gkoac9)jg)8&URӺzaTQ\+替270xK@Kew,ivet ,|ʂ.i#E`i~V֘ߟ4IQɖC-:k7q BtXf/ʳg7Χ KqH/+m; - >G8Մ(&mx}$zQ K\GX՞EbHпA=ڎD 6L*iӄS\]DLi x08g>GC.ie2{E8gpø  1M.~]:AB,l{TCu;f:k`OUE }jPdEӌTĸ*#OF Y@ D$bhMѬWGٯ!Aݻe)'b֞%ۑ_gvky<l-=:8Dģ7Dpw&έh^*V!d/c B>!'C,9w DS7YNw%J1kN_̹L8`C3Vl&Oĝm_k_~KO@Df I={3فg#HI7IF-'ἳz>;c@KלXqۚ wh;"8ݻ7NlK`։-K*mcu*H%P$wLf'\rH*V-w޵dUH޴_E8^3dN67@]=d%IiDQ)A$#WmbԶGUܦ.5)H}?<XYb$4PٴZR!yw@K[g[˛ ?REF񈅮$X 4p9.$]QuSiQj;Z38\W8/ĉCnw3 /@R_ E6}ĦTZ.I ~2\1 JnR.QP1RgB>pbJy,Ajg`8 Haq6 1 {J~ʏvrۊP_f8Tjn1=]cyN }''h ։跻Bu+ iIZa41k:PkwS:ߞs0z>^MosҙS cd-)+8&x:m@LnX]% :;/ k6PH&JL p(>M/KAɽ@^2vaY1xm;Dt%i1&,B[OUhuAD fʟ菇My}f-Ħ-<~=t[8ջl-(l9 v f}|*3}DO^%"|i#_nG&[+y2Hr-E 6h|탁aҩ(UxDJH_'9T\hG^Qh%OKJ0cZ~ݥղrXBh~)<ɐUg;_EXglnlY\BЊRat0"{ f)$Q˽|o0e0Eo[$ Q::JН!u_/A<G>cS,KCJ,n^J:rcݏĿHl_T Ysbɗ4 *gl .ܢNt~M"zbtq{;δLBuvt~+y&e$Uc rmaZ `iT! V[F`}k3q]Vvhk-1i`^rZBg5m|/C9nӲ`L;i/.L`h/=$| +{_+@~RY@;|2-Aos88Y"0I#q 􈱦2xrVC0vv5eyDtGr/Blrgi8W@'<,伳N֘Rɂj׉DEgcThL7n%&ԩ)6d> _ F-Jt?ƎWl]xK­W"* #d>%(՜ȴd%#K~[tJ#O0fEzP^nͲJk̖z\*mfiFx|O.,RDL:>0Z0ؕٞ4Y:Ct:4pPD4ղGS e^ |ڽ0+׸ͦ|J N~X]짐(Z|G"w]f8`FdJ%|S' HF`k:tOGvf|"]8zB#nc۸E=,n=EuK(£©(9Ĉscf.k8V1dYO(чrȌv\ WAh&rȡ9[:j^ۯw{sVoiqwRNj3<np˃4On~~|^"'bN :XXW"qyeP)0o]Ul@wB 5p=NGm[,g45pNY/A "Fnk?s97}-:|۔n(V8UلfV?«׻Nq4!n'tE{_se4}>c;aLje$ď0O0xVU򆨤_Uz׸gt?u0FȐX:8|ɗZvr֙Z_9|Dz9eĦSj"cr ӶVߣ^vX(8ڢe`&-O*k4sl`Ҵ(2Hrp 5/ 8 {)}_;Ĉ57tJ*Y/plbYAxs׭$p0+̘  a~ ;oF]_\t P78q8yVxOBbܧ{j<ѫFN[5J+J㋂roIBK]ȽI=,/)i1H!_Cyըҫ,0RYQXQ5 zѻ{ u_ `hq>.͆p_)ubRs*waXJ75G9{2[7ٖNbzfƁ!G>sՔns5qϜ֣ʺŐBKE 4cJ ht]7BցE|~"Rtdwu'SFD7%|Q7 x# UKVp߂Tcr GX`B[U/r/LFs_ԥ[_RIy2X"AY6`:Aԍk7B: Kqc< ;1L4,1>^LnݘcjD[ZSNcӶ~Ŋ"'&Z٢ŔK#6 [&񉠵18')ZZG\4XB%k2xWΪF^B XcT8ޠpY.DOdeMDsH<(*2H&Ui-) mk4]VZ@T/#2WKijɌ0w ?V"τ)_h:@͝V;G+d^ #8f>>S}= _VQ {ѻAF)2iz&;гcu;m2L#O˔Na)sWED xDl[,ybPTrɠZ4Z*Cht16*ln!}~au z{}ml 3;ެl-X+_JieynpV2h ?_GօmVMz٬\ 6ЪVA~{ SϤ5[iY^(~tp=w|R@|") /BhuvL 3?ieJkBCоqX[cAW69v<>'e'b/`,Cy#q#GrZEH!npMrd Iʤ/$~i%B<AoM֤?kf"XRy_m$b1ClCI T6_VKfIz0M$ޢkmEJЁȚ8 !)ߥ7uTRlۡ-Ki di ϥM'}w#HwI ~##&; fT7jr AٶXz ; i>!byo7OhSey;58c/s kTau$P)w~G9%]^[Mq " bQϻx6` 5<!h+51[x,# T=ˉ G%Qu49;Wɳ/H#Ī1Hv7tP3rΝ{տ=DEGJZMxuJVsҊ[z33k N[΄c8H,pS]Ulԉ p #7rYHr!*5Iy1oMRZz.@G>WA ~̃9Ya7VrR_ )hJ^.R j1ccjjϐ(:qr^ɥo;.zo|^n @xMVb:BZ떔3uٕ /ԺaX#$BNEw/{I̽1V FOzښ1KG{/BYϦG"ި-\cnvP|C;"bq]31SKoU ?dذTm@݆@UmЈ\XhqM#]c|6=5$kh ~j)kz QTL9BƩ!tӪ&3#j}Vꑔׇx2"y &hEGC7Ƽ!DƩHz亶o}PAcɖ)+ќ O)qXyTG(|nkh|&"s^ FFLz-1ϵD}mhUEF7r\m.+4ӏ|N5x\j ~ P"W_ڦy2J,Q3Y N B'͂bvBWQ, yN~Igi̎e =aQC( a mb.*p4!^ <߾ލ)g$5z oI.?1`JCכȆ!ܣLx">[ڗQ.)CߎSõ*bvID͕t) g1/Q8+='ɢڡ]c"EhԀ1iՕiMjHy?;XyRʋHdIR٠A۶$fDfΗV.oXBW-| ˵w‡4egJo7ǶVc<֜ 9? +Nt .. ʶ:Mi!`AlBBzp"',۩'ӗ:7X5w*mfK!(!J1*&Guml܄,(aN X5 o E eҾ!>-0An̑%BF_bxXSG[eoӷu VF4hW );cuTqbdMr _^BNJO](QY]mNOڧp늟 kSҞ7Z?5;VdZ@N ~F `5L ;cV21nh-ܷovΈD,Rއ.q:gLsv듘Ff ekkOf2v>r}4Բ )c"]E ~J <.U6?Eq*V࿼mg@x[kz=&g*Hَ:x83`53ڽf*{2w1FĞQ]݀mPxqgr(' GyNQ&`cS#-"5ݳaL@bY-0S(z,. x;;/Iw \!pHovu48q"el1Rd~RŇH&VBߎ st]K5$7<>I3SB1Ҟ K{DcO !M[_!AzѯF5 ,Zc[OuXz:wKwLAd\lRXwrbICe 9|W9Ŕd~5p|6x;Inf{nN"zBa#z@RGp,XZ/z%I =m`Mh4UgxͽLOۗ)|6Nt?F+∰:X t.̣Mv!6LM W*cʄf kEZ'0℥4 q%"mHV=(e0"$4[%Wk|Zi{./iT{_㟬-]X^bu7)ĪV>%/~"~ERIL+6S|ܐ}S17N Hn; yKz7RgSSG-U=xolC2mf~#M7}=US|0^&RF4qPBU f۬+:7ʓ<2OneĒ*v%M凰Gz:eJ{x^:Cck Zq̄J*}m]_[03ɏ|C YOF\iآmd,Y;G… ?v2_H-$ˀz֐=`N BǾI^p:цGoUF 3_5(93v4K2O`l[rh $ӌǎ3/$b$lL`ܶ=֞.1ǵ \ȥD1 vU1L ~!zEޅEͺ t[C˅%}CIOqʤ g&pJ. 3^ n"cD#+:og8R3Ui`UHUtޡNUInZSKhQk(ιob z!WD_™#N {%>+o3:Ӵr&<=`#6#~HrdK+,.Bc 3 2 /V+.XpBoV}YnrD&{c-ĶT9ۨ'N5B*hRʢ;WdӺJL->B1hH\sPf}?=UpGldi_OpC|N~SX}W5V앨5gu$I:\.Kvc9_J6^_O'',?**-uZp,B .kpfOy ^en$>7dt6g-8*}3g3-0=,c+%e{緐s~ES9Xs; P?EHhD veS`a$@QM`NP2\JU jPNmntB[ԯnua0xY'iVo 3|=nf4MsB'4&3~Š.5Jc/^;/ro3WÕ rx#/Z{4 pŗ DCɋNsu*яN|P1oi);{8I*|q75jZj@-eLn%bQ;hyg }<>f7r=,|l}3g{~jJ-9=u AVTNbcǨ)zSQj Y1;K hp4<^8PmTç `~i]mkW 9XQZgc9o9tzW5-I+8Mg OGE\N\"Фƞ(7-_.|K:'Z]`t+ 71*و^5^1Ƅw+Zs<Շ(FN4 2 bcW9w5s.'qbȌbX-9z>t]a/]*"Dv,bjgy~HnE&޷~h Pj:r+O#8bOve(ngs Drוro\~ L/VTTlH[%2dLz'N*BJlQPNm K88U%3NNeNJciM\#? 2x3WIgYl& +X'\%%) ~Qe+nD%M=XGyY6>EFəL`Dl苵8Du,rG2F,!Ė42_ N6?ab]Ip1m}d7&zJW)4Լgu4! ȔEyT ?dnh0(g/78$}wZgM^'7wlTpmfpTtѴUЂ!o0XxN "@p܃ nAɫJ $`?M3ÖJE)G 5k"6dyȿ#,r^O _Jf,t" -=2V!Aj鷨c LD& Vld6a?0DWT++H ķ/ʔn1m<|yh!呑9&]nMZR>ȶW3v/H!JWr ɜ$`{pa#̀ VlϤ3zɈ> ]r#r-vwK#)UAkhfWgՖsix ;Au1jM_MgcF8R˕KsHtk hkQ=(6t,)a%8d8Ë􀮹\?^p3Ehr~?8'o.9$~Foi +ŲbtU0{<$!:G#1dS:Zb)VʔNK3u i؀Kj[1`E3[|8RA %Ki(R5/O$MF|3Q'A^I%nOLC8@n0FԁALXSq/6nk(Ql_F Fo}לzOr01YE~(ow;jt\mb7>y̆Pp<":"l8=@IȻՂ}a@=cߺl4Ǐ2v[e2^8Aa7L\>%3 }{S'|kߩMr(,R9 5㥙WW%Ɣ F'yP{;>cf|T?*5X Bm+lI~LE:Bqʑ:Vg77pAăƠ/TJ?6__jQI0l+R^ܾdqWfjkVbTP4`2xE#gWl©cL%h1d'312Xvec,n8Wܡ3wFr KhSn4nI_/VTf ugUи wfGG GHl/'RҤB'uf^^$tNZẔDE|r!~*\T)6659ovebj%F#',rS_MIWzw. vFBAm[=xdX *ԎS4jk3˄Y2NɮaTdW`pc { fi >qQ🩰 ?E|a L=F~HV wyyX);bYȧ\4*y@p3rFIx\6m  /_|MԃЮ{£B f^e6fn 7F {v O3?$tv xv U&wǤeP.dTmeLY֜m;cM ưœN[ I E F`bQ5Xdp%*UÕEl-{ڽJ+VVS <{F!J f2v,%a%Hwf_0Im܆zaс;4I[,(q u=#1]Qn,-f^jkWm:N9!'*ٵQFj7&׫֓wY%<ӿB6Q1zB<2)7D%ڛi]8%m7Y}@Y,_Kp/elP^}oqtw rRIp:-qナ~$eGf%!KTTj=%`%*x_P oB ibE3%sfq;l %?JK PIƄh̶}G7e}t:3!葉Ye$@/(SIvwS_Dp?H<њ*^ ]OO ,j\Oz65 *ý-Hj89#ȦiB&p2L^O3㎐5 LҸHm<'.C.pn[dnǞLC[@QZ$:^WKE*yXJ[!RSXiZ?(x-:i(+]Qz;(1aiRιDžgfvJ{AO奠2Ňc^t`fI~B/ AֶpIw/@LuuʀDN>FVQ̆.?6+QfIKST :ť^Y[u2:"\ʸ Z"B~6TsmvQt1]CfDY'fH6iWz"oc>RCҒr8Tc^JQ/eX# e(JZzYs2N"#Epē X:܎*PjCw kIJew4㚉X\Vrt.ti+bQkn.&z{-zYL;J,hŠCZ5M3gn<)2addGc n:C^w؊$YW+{tya去EQ Ȍ1y[PmK !pn/.v2 0J+zi0źHe#ꛜՂ#ZO3yvm2#[yPE?ǜ0.a&"rA Eo|V/aO-c43*2g{5stvj[bS)<D$hPT]=1@j^O:Np:/ft_ڇV4;ɚ`8Nu1T f`j}=C=~dzXI(9M%R~v_+lH2Nٶ(gHhDXyMl)w$FlnE-ta%uh~W_ˈVH!;(J5`gL%ޠ0 ܥteo龶o&܊OvO: WY3.QWpQylnf-xWLC@xz#J̯ĉ<OAY OܧZi9v=oM͇ N_r,6nFoqfS6V2z H>gބȄי-4IQD2jk4-} zf~.0EY:?D `IIϿ`&mnatY8U(4No^`kRu{eJ%ܝn^/cVw\4Wӧد}?);4Y5T2!R1S L[AɭP$thJaP:gY7tOap^s^e\ 9*d74U~у= a 6!Djވ 눜~1`@% NWi{@[Rmp]ʓ͐~nOװ|?m)=L*hԿ6r<sr;vY캺Nx=vZdB]<_ibd,f6?#y3+JiiN{o\]ޛ`4S#O~-9(EC.̀&>~\z\Ym؈bl@g81~ܱ>0KDBFWmh|nD.{)9"_ZJAn3813}~1.pl({81L1og8>V)bSXV9__=2x >bf}g-ܸL ¨O'nm!i2#ats뇝CÝ6,P/-eNNN9%>KuEᆁ4] 0XX%Oq&}J ūέnߟkԾL5;}Zg{F{ q@vdZ,,ɡCe\Y"܁i5a|WwwپjYX@=Gs~(!P;oNT]={~;]x̄r t>ݺPbW趜yAi8/L'ӊȹ@DpTq0fi âl'"}nLbZ?bfw~ѿK$!.Pڹ$? l}d)>Y Pr?Ht0_J/ l\H)wWћZf. ,STFlDAb6וIku5H5^1KL|+]^&}{Y> 9?(8=\fP"`f*-Z)EGt^c$J~džp=5*1 E*r3‹/3U1Av,V-S="Cn]H'{।Nm Ĭs pcE ʛo _pv]͓.tHH!Tp`#q"B:$l %=TW6zF^z/(yQ ֐i}J=״}[=1Iu-dKv71A|(]Y`[S ҁW61?{mH{\fIN*jp2"T"%"ϵQf ?) oxBI;pj1]C11 uy9=H+pìSt A|ugmS\'B>]ޫ;'#ls{xҥC.Ȟb]gXuJT`wbl a/F%+|} ;=4Zjb{Я2AU+w$*ͼ 袂%Cf]҅OJtl8ٸf'o阴CnO@_m,MXWwn-AaPcgs}3 b' u)c7\h-%I0k=!_Q͗sw !`8{j`A ѣ!\DwJo|GۈI{M3!}V\5PcZP{(3hChB $ծh,1pC7@_ICO9uH?jD5ʀ+S$gnc8w@~1,_.3+Q\nC3n\erM9 ~u4չ*jnMbP-,q#mFxק øcE-m'lsDԴņ׷l~%N0Rkb'Z%O{"^=}I/CԽMZ;]RqAl籧ө30 .wrq d;Y}xiJ8V ҅oQ:%D!6Й`Jju oQ5l"X]hgWP0K渞*%7<0J/{'a\ʮt&{9mm5ChA'Ϊb;#F Qs՗G%V/m,{*yoT57O[瓻mاA`1zG?|mLߗA챰|tJ`х4mdcBN>:@=&V1DOq5-AkFI[ڒcV;%<{.?]"qi<.y3?zUPcy8?_ǧ`FN% M;#'gklbM?F񤊖c'lݸX?O+;zWvA(J[`RiQs5{ʨ`Ì_ҿqEF;]\N깢[rR8CWulD88},҄rli>WcMĴ[[G[ !H)F^\&Igg NԇDP{@t8+ᏤbCJ]&E^`vx&^_\ '!:uL+tWUr"o>*V[˕P"oMh;_H12S9Dʂʃő 7_W1ݼl`"óTKDp)a.+;90$gJ=F3g;3ݿ |W_|;~ YjDYRw [ 4Ur$2 3oJ-8Ǎ/ߟ,E^_>w}}h4O+x'?Dմs4Oiagx{ϝ2"-7FIARyI~ZBc@r>)H@/8_ (dQscy5XL `6v*h/NQ(aߎVwqU 3f)/j"&Gaf"jПƬccQY,FⰝmx{:2&%j8b?Cupvc@uNΰaajFJwBfkSOh9'%u+JyJWT{^ 5V/z5 {[As|&;(Rj9‹ H5&יkN*.sOr"ulך'06swHL[so,.fz9,K >>3͟EVs6,cUC=@V_XC4_;eƊwz_NطVfEd ܥSmlVipPr)6Y_+b9 mmфUE%Յ9r!Jv֩ˊg|lRO}a?)V bDeA5G k{c>Qل=(ܠ^3Hx<iRwl8ji*fr'8 5Gt6r0XLI f: )>;y_MEξ<307#\yQ¯i}OB0-~S!˂ObИa=jF'ҹ$IbJ;~; S9N.5?[ƶc pv\m@?h5֜`m8ϊ3ʼ8Y:M8 KnK4@h_az;?/ sUd c Ml*X^sS΀h`NyϷJm)t_3~m ZP`z/OR&8|VTQPV| '|Б ɊST]kJRQ0ؖߠ6UٚD,F|?IbC Eme-k[Bhiט/:e3._)1`=:A̢:XҟF ~/i@s҉-ʑDźkgANz6˨hD|XQȣOہdl::!3ʎO`gJ]M8,LN 7׶xAʞ 6`b*j`NL2M(AH|7LǫY,"9n (0^#uVUDs-Q`!!OzFsw ,4]-?;V%:il6}u*_pE"Ro6o@5#T}#5yܥQqKQ9Fe)%؃GN mZIg#?aY6M |gl^,?*nf5[z ڨ-s~DYApeV.Uf)macQRdfov 9z۔*X}\:9tGG?yOhJ bEgVNê* ;ʦ -#yi^{ :'9o% ރ;:Ta?\ YW$0-/8SWΨ :.P{HQ#SZ\ + TVᙔm wT;"r ߇8:b<+_dpM|fY3SӥP7 eLs}䘌@) kCn\Hc>=Kۖ']s>8^+IS6'r*пv qt˃-LCriճKDI(=_bLh?0P!"yx9%%K\+P'aavP)K+S글UVWr[Vb7=(SlSZh¨OG22$%LBVU/%5 ưNKcVuv.kq%ٿ욬*Q5[)LGQ"-Œ$_ bgN>FVY[Hw~u*'RNTF8,' ӡXx5,@ xvϽ.F,2p7bg_EAy`dR֮isANz5 O4- \S xu>7YiVOwLgh4Ez*V^Ynt o&uRD\R`>nm[t#|?!>b#ȠWwB*c$L4Rn ?#vgAm s;咥?Ʃi<))LDBx2(#~YV@%+ZPA_$cqvP4/MYZ(<̎1y \g:[4}[vp:ʌ@vݹ@B;ns Pm2T ɗ頹S *,tLqȮԹ p=b&Üf(vS *zm !MD?7F\l!o Ο}QNwmhqb30!keOՃd:Ad_Xt$kk*g42SN[ eJ0%jRS: 5ڒ:H.JSruo6Bn@ E z4[ | JN" %^o\Vq<`jUXp};Z֑j1y"s(pV7BrDnW5'Ojgƫ_/yf&_ \9 N|MpPC*ٰ)vQ3/ 봫=+˳$v㑝W]ul˜-O" Gŗy,Ɨ $#q#^A]h{O?i@Yc=K]@ubM^O%ȽibpO[rb:߅Wx; jѠo嵧,4oIpou0g@M;ft1%\ <Hǩ"Qb1gQJJ}\lڲgݪ s;P0KڣX/;,곛 Q֊97'}揫`;,J6=γFnGέvFƣo_cfs7#h/Nv7pNK34G}Ņ@uuc,kb4|᷾m90֭ь76SvpI{C3xeK{eELem:\=ks֎bHHt ! =CmXEd^ˌ =~/2'>M24ORv0^LOIϋ*he RhXc$"s4/30*BR?9N=FS\i9$`!,q +VsM̩~40MӉx5c^nrn ȥ$68}OT9cKό533 j0Ln6{稕*:?z`Z!SI$~Roӆ+.{gH7alv@P !,!w褝gW:z)d"k3ْ ]!4Eq1r+L3L)>g?q5&~:u0:KܨzHnYwZjz@ɐzw+Hxu[SؚAhSь"׻/n=h;Y/v@Vx}`a6#?=Oo8j6[l ɽrEeЈa.\Ъv>4fukG)@fQd > Y!FwmW3Ę_h+2DC\cq(Gf?=.J3Uyvu 2 F$9@+VkOLACh;rn8zAK.^4Z|@Wܑbfh9OSX%l{~8B5Y? k&6xfIP4xM+9;P' LH9ѻ vH%J&&CA[zd@uO[{cߞ}&l?t:9YB=L`<@4FI=fϳD5+(c賹n>Īin( y^RՊ7ǁVF.NN<#f*gyqsK,ɱ@ !SX(>ui|j!af!Bɨrkǎc&$#]CadD YB6 -;˰Nȝ@hN / Kim ,&F%RPR!OVe=]i{+KN^I%P bP5 ۘwp("4a/.W;]kyjtp"#=thF@(+^eoxѲuڍY. q`0{/ƿyoI\ 䯉XC՗kEU@˼J@!čtC9ަ)H#cp̵WZ :j-' I?j9ؠ=Ԋ)|)XrةXt>N$9wQaǺS݈@-cjH[Q%pr#DMc-cF-˫(e/Bw[n |U§8'#{eA8]|&DI"J.0zy0uCKޗ bT(="۔HE5IpFf(ѷx,s^3iӰ!3QND$kh^Y_VLGM㈘ R\7T1d0Nռ3 6 jfnFBAt$0' c<~V Y &إ2;aS߭A mM4u0|ka~~+;\I/1cyp36x{#1+YC{*t \DoNmb(jѢPw/k`ngl[~^LHIgibJ7ųe S08|:%ӯ'+h5%*e%UnMĵ,\B(nz,εxprpzRK$[ o8nVސd|sFR)uT-GP(as @½ow܌!=LvzTSR2Yl&2p F7w ;g1dd߉Hkކ&a'ǀn/Ly9ўpfMIUZc ͓fю)A=,AcSM}YqlsDqlW{sL2R0mD݇oM`/.A8 nP˂&`n~nRaZLү[SWĂ ҏ'|[gġzy'p㕧O 옩FJgn\G)eqۺݺpUecD5;zB|0^eꧩ[!Zs {)ALv >kA{fw-HU3d^E̖#h¶kv˼[a~-5A^Gu0G'ZsYMń vN5NU>+(iҹЖ#L2%B;iQ27@aM0B\K#'4?Ycѩp&.ww ܰ'` w tkӢuѨ'G| 005 S0ntK')#2;T)˱AК2끻8(h ײZOU7K$KpS>DOdWrӌA=A)G:M,Du~J=g 0 ~6%;d/rcc#c GͲڎSnY U7HgH%~q}I ګbkG!3\1vlo.WYjڭVH[+ 1Ł Ed/y!,T*Y{M֟ܭ'wOza"ͷq%լ > +Fb,S?5NgREe|40FKxU+յ*$˪.`gA_t}~ïy~ı\=@;@1$+Sb1 |Ž%kz5 5BIosb}+y]  ~{` ]ۥ5O2*x]xoh\CNx&|5^9"Q6vO!X8VuTvCր+P˛?)y_"ۆ-6IM_N.fFJ*5n e~薜<}BAcL4Z!GMIy7}pF؁ .jӋs E`绳rc]Ꭲ7eQճ(p of+l/tjm.ӟ=nIVV3-pi p&^~MMz:tցF$ S/ّY"C~{_5@hfW(;'ʖW(;Nzt,[ jV3G/a{x0ӹV HaUbw,0ll2q^ Ș߮P׃A+K_dMogy1|$Ry/]F`dK`.'R&23t'cz'<,Q^ :\"ղ ƕ*p$H4+Ck1J/>h5c5e%KrI$Jy*Xªx}1뀢3*MPؠP sdl+m#.rJĵa{I.7plQq mydl)`hж!ڢbѯҬd[fu<`tcvrf }k `TѢd 6p_# ϕ!o۾lqPw 3' $4wN;H>H7frwk-ooshE^BK yop&4VT)f'3kMJm `>r3vn]w} [N΍ߏwqX^i*8rƮPjDUzx[6EoOc˵2\Շ]pLۊ0j4I@25rjn/Fq K|hZ[/ {]Ů5#m l&"=u4j,p_;4;lDvӷ1hƬ v;T!kt}Ǥ$_2ړ4Zg#' +2vC_MTk$37BDM" &Zs\Nw͂80_UQ S>-y&To5 WBqK _qiH&%l4tF#: ~l}>crigziΫ\Kow>dJ8whyYYjeȀxO>_]wX_Lx,򺏄~NpaL"2^>O}&ZZGK X-]MPJ.z[}Ai =;R! eN'4@sL+(Ϙ[)s>҈(S/g]aa( ԩ|KG@sTyUU©gJB`ZQFh¯.# )DytN?eEŊb|-r9z\E颳&x>K/NGlh_Ca_Mfkh!^7ShwT,zfce%p\}x 1=8W—S}0 k޵&ro¬5.DO>/YL];-;;QӦP47C想Y jGAt]Cmm+4qcx3/̣OS!sr }xv{2 #9-6 ^Q&^#O*06t?P%v$ԥ:Ig:yͬ0k]+G G"K+L6v ,nDgQK T$BQgvN@FJˑǓDp9m+i4ileDi^5Nw?'PgeE@;|@K nQ_йC3e6?yߜ(R+ALs2򏱑`WҎ_m+dmg+;v {ț9Y?n>Nm-BDs z~(^pNgnF"UBUCTav\fC ͞mV7`3kO3`14GvfTǣM‡d=rrCÊiPM͉M2Rcܢ6/9mz,<-d5d9wYVY^ʺ=QjS4+zLDj"mȬƽqr4c3(ϾRLG_~oB Yq17_OR8_(GaUqkR{pZ]q$lG2:!Q(ܝAH[/vnn;JpY'G/jru`=pne[+.D#i+ -vBy'՚53>iũKPk0X,mԂ"V=Ua(P!BWdag`$Qn\>Ћ Vr'Ax;ׯW*iTGH N㶅/}+Ҝ0uJn[&TV}$AF ZˆV_dEa^JAZXX/y;;1J$:y:cPÐ>/Eҏ9pbon~YNH5T`5~u^݀ xT٫`‚x hmw9RxBFBB #eUUf=$|V¤VA}/p92P8\>[:)ؤ}ZMΣ(ZJڲs  Ս61)5Z L,~uUu( E"=p֊}Zt}Nkڂa!e ׿7<ޢ+zEή!USnPJ5y~D XTJM wtz (onTr _k;l IbTLс/1;7nmܦ=,?CJXoW^/] 2#!41ng|dVH@C=gR}Vp|F% Ot#uZ/,ɤb3~稿27gAfD36(<>k𩒱]C̱KZb hp ,_|TUcCN \B[mBp.Ǯ1vK)OYGF-4!Xf;yb6//¤l:+jd=)B` |YP`jUbn隸SMN8T,@,Oϫ`^ ?_72o,t4/-Y>-IJ~WY@#.(UmD SP v8vIcV' 3? π4[u0<bx)P0ޓ$6jŒ2ؽF1ld.Bb* 칷x,J"CTs5\v+|Fڞ3áş$& ''4n.v|ZJ+x̅9HЮ69Ի]]\dsL w5!`c5~r_? s+w`uCf&IwM.Nsn=Q[Yla])+^0D.~kf',V9}3Dus6pX.Dcȫ<9am$"|\pe] [{ogTc RRk5CgLCcXeP.ՑT0Xrx {ʂbݞ ^-`;g]Vןb&rsSW^V;I ځ?edd'/.uS3bT?*.S}[-%X=%I*sB↯`sHk56?j4 ^9[Cz=wЍ$/h [;H\ﴧ:-(DO3hsƮOvU7;?1>ڐ.j0{A0}.{n,Qg{Bxz6k9 ]`菡\kB9W uZ@& hv '|Տ` <As&, @ө3Ayƞ|ka*,ܙ(GG v~lW<eAy5+jc<ʑp6p VLkWaJ%p-eŬg$*uL2ST5iDJl,O JZh2[&"1 )! )fS\9*5M)a. Vzi0,c\pX\v>RX/Ij!PՈ$YQPӊ AAz'Sg<'0jv: p'v/VލxY(%Ck*f'4w0m8^ȁeWiJ q){IPXsA^cGC.IB^~WvΌsq/tFVM\k\"yqt0g` cůp?}R$P{ʄjt% fYv%RRz5}[pԓP\ᭇ4-C淚]2. Z6mK&3O'ԐUJZ+TEp\UڳUY6k%\~ r;hb4WAu|^Sv?T&FdO^yE4#yv2_c8fAp3H]OwwW&$A[ǀVćymifi;mqv2J;G؀*2E3ux[5%7„Q^TWTDS;0[1'# b ;uafY[W*7G$ E+AI=Kqn.[6]L˥9 Au gmTF !ܫgѶvTك=k[!0W,Уf/W=i˖k5ձ&%qj笫6- ^'aSCpj…#JƔ zoa3iٖ'`EmyLYSD 0ƣ-(jCOac`n"A8:͚KI#:m6r / lCO8]EY az2=ە(ʃp"J!1ѹX|ŏ~My3K9]h~ڤmz3Eֳ<eR2%Ja&p'x&ǧQ-@;{-, QdTg0Νl'JRȸiȨ&ϱ\'7t{NFKEzV >kþ]MZ0#%pPGCb7j4:/;^_.>W^pr̻[֢@iP8ۚ%BV Dm"G҄Y5Q7+)@5)4#5fhMBShz̙|F(Ǫ+Q h)|J]qUy{袟O&\[Ds0E< fC&)q-XpƕKgr;٬9;~һt@u4ޏǜ(PPxѪX#\ kFټҶ 6 !󷢔^˒;G X}toˎ)Fg˦F9K?쀹ይ?{Ob;TPS8SJ$&@Hr7c=*LSAUEE'R1ڀ˹$ڟhi"~u4\tnw&WRlDv(P}J!"Iy7gLړu;6o$*68;/W=9Uu4';3Җ53WT"Jͭ; ۓ3l_,ޙ}W6æy .1e/VNhPq4ڏ8Z"?ؑbIHմXY^(t FzŊzbmKc{6,J'İb+ +^18o_W8|,xzD,TD<LdXcd ⽎S]vLt#3$um e?#@N bPUB!+B!}9=EߟBKݒkɓjbRߓN8^*3]"Ցyb=myF->L7fk.;]! h+MdC&qoXnw>fYKV#;A֋F:|_2>cae*%+2V *b=E zL|01כEOI:B-7;li` xńS/[upgmU|7jC/x1Aft)YI{΁KӲvqA:)Nވ c~Nf|̠VCnpb-oN'H:y"zBGYZVVZlcϐC (| 3K6-dZ=#@i<T`I&ֶNo#5;vQA[҄cj0N^پ߾]/J' bta(ь0ӝ8w ձAAԮ>80j@ * )d#{m.OEubҮan.5I$1<`PR #8V1p Wz@7gYys%! ßzE&јqs%{ڂp>srGB]J |nSM0 ^ԡbH#k-Z@7DnGgt .=5޼> D'E ZYޣYIE\hʨ 9)7mz~朤Y4NL6 9=Z]{EGxyZrl"Jr-V6Ai$J(`>JǛ(2XQw|^@|$%%LHh}B=TS˥wi eOscS#W w-U9^#nXS !s\9}+݋ܰg-zˣa}r sMvk3s޽9 jTVN×)H]XϘ3ػH[uNʓ5Zl @4; (NԽĖm 0Ko,1 cfkW8 ҢҢh e*$=KX`gv܍/r߳5&YQbgITJ3n$NdjڒCG/`%ߔzČo=$|r, 'hT mO`m/g m!nͽv-ޣ[5kx =gBş4Y}tR9^Pn]zzihgO<+gXըn{FeGVBg[~RNx}(Ep|FuN-vB჉6PVK{MM@BKVy~\?yroY edgtN*EXA[IZ F{wJ堄NUMXre`XXIa'фQȩđdc\:Ehh3o m o*sGVz'J`8ޮyӢ,d4 fʩ0ɞ|,jEQMƣ/˹ kR jgJ)=U6У5O~0e'y_uP*7jq\geM_TU`T & ?KSmh!Z|^_ፌ$NrN[2l6 wҔBfQZG ȸ.| 3DF K |C/3ɫ )Fa%ƶR j$2am CJA 1iD 2I-NvO*OfxG\ab@)7\; vE]WB 5ۙ)(R<F X,I\g1K{!4]IATq|^!n56D>\C`A֛  ~g9_p;JJ5}""c`&hc4zLqv =nrgj&)\wa&lnh9CP|6%a2&JnDPFJD X)Jtf |}BK-Rir3K7RP(3F疦F\;2Y@yv6Nq@+厢'UbrM n#[<2MlAH (::g ~*ū<,KI8l$\/jHs"ŕkG,x} Yl(DsxqL\of u81%|.e\+sKQD 䬴mrǷd"Mqa8m!q |n9"1zu)39Gk=Ǻِ? ?^ WQfB9j6q+DĞ^Y,%V`鎺 y"B;UV/ʠX+䱕`-_˪_۬ VA&^KȪ?6/|mLC#Ik|I &Յ܅7wH Xϔidbj)΃bܭ.V4wOX# P c|(汬a2ؐmu/E5X@x2DzA{l& C:O{ΎhJ6M:K .)Uwt~?⦢ ǝgw.$Jd.r2n7i^xk;Yů(\8)r05sjM)'*.$5? Uz˔te`ڭY̭枾/w 3{h$Zc2Z+(ąlfyU3DIBV61i[TKdf0gob7Lx[ٖK2?Jf> L]` Vi;Id@[6AX>-Ïȧ@lG@6X>JҴs%힭eEϥGr(q5 оha,Fr]ђȀUb%T@҈q L_8O7= AC+NGkBi\>p%:R p.U{~,%h5q8.)aQ%AO`8 ƅ|GH/(|ĉ\汮]ѭɏ0gr1Bt;:N3&S!LdteԚ[ ]X;766NY%-F`-6E?OHWۂS/o,sT[zu#8$Βgz=yH <'F`k]3+(8xvq~?d'R0^ff.UY)u 6se@EPNMVЩ^5,AEOQjުnб}LoRJ,q׻ȦTGGlOD% AA[1m5մ_$P7#,Dм7Bls3둫1AZro^K‚9>l tgia_Ƒ@O3څwU9{.WiF9CebFgIqyJWܝWBxpR-IcP A,Nnlhè#|sEfzEPɎk|~8&sTGMP"bOMu%0`AQzB/zjVkou]CF~8ZtoiL&#;<-+4-X3yԄ)~m EI=4 nI'$n~ l)|qtfXNɒ\J00lcBCj@y0juv+8y>obVN?18{>l ZQQ:\wR/)Mt9HИ'4co@?G4O.$ HL#"g,yu/ ۨw[Fq Oim5XЛVSHSm-} MB filAKV T<ڳ.#&Osssj`4`Fz%>BH4H͢0=ER Rl&x(l^JO h99I{M$}>v佋OLXyj8W!9L"֤5:h͇mS~ 1k&1zƟ. 9̕"V I,)HQcsZ|kXcXpIoXt3V7%\ׅs&תhXN O*$&tk89P뫢6RA|rJ~+JHL]<ھ&V3`y|V h%u΀b%~.jfB6NAy>X>ۢ9MH-H2iF4ՁG@QB5%Ԙ9^ꖠ%9\h@UR)0嬅9Bmn6\$j1y~m< uŸnaΥt]#_lUj қhk[#>oE0Ny{T]5, 79Qp gv_pC/oIvʄ!ᵺ( _zk05m"Dmhh֠L)+(4h~&`+Sfi*\z]m&BeNpzzI-WVfRkEē=G=FTE;^v DǶie!d 4N5lK:$o4(O!; (mBۍ^dNkHfq*U;-^d& 7s_ bNU hHw( 7|Ow0vD\)Z퍎/RKYQ3ݿNGD}R6)3n|5S+߽dɨؖ:/; 02`Չ0;} %NMҿ<4%"$q^ 4U`Ղ-y+^HI lBsR 3IdVYzdEQ&hư_dZ3$ֽKՅWO-j}IB*m;p#6'h4^xЙJ \f!yJ-[k"s J%/IF"pPag] TgdT1M~sBE:)YA$߀i(lٳ=1dkFs. T/WlSxZepTTffMk0@ 7%Ub -ܡ1Y[%h-. 4vcq,+R1m?S8>*/گ/>Y,Z`ɎtKZwA>ȉ .NKۈ{7 UCydѷ~>%3ejV0Ab*h @H% ~|OU,dZ*fk,/n 0)D4osת"Tפ@ .+ җwZ&Gϋ*ᩫdڵ|:^JJ|ܷ.Ϳabd3rjIigq>=d6mˊE`ˤ3T^pid:9s f(V|\A/eqa<t2{띰<,Re(V!+uNVnoz?GIj*X@"nX"'_O')?"@Et2l8_^SnU?8[Y| a`7.zO98}n~ jXӏgl&~\bŵ$nR^YBPf=~Īz)A\J򧩮C)`^gn`DxtdSlX/ke?n*bJ2|t 1z0F"cZ+pKֻ>j/<02hk_PJ_ɀc?N;xZjHSO4\30*^$ O1X)BTG9x#o9c?@8J 6jcx[>v[ږ%wEݚP_ n` Fl?U"Q޷+2&S ah-B;uiEtApO7~q=e5;_o'A R]Z0j]PP" i2{b0W3#(H+IB\dF؍(p뛰ɠB-NIE: 8ܿtD,Gh= v_Zo4(ElFv~x:(^+SM3<3Mp:K_~%¸MqRI3$]u-pBګR,R9?Mm +=gc3aaݞ`8[ң~! <ѯ[# ! Bp{/OǶ*k2Lչxv 9FF2nJ"qt\հyl-5Ls.;*&Աqxf?c^TU8,̢·>@>vuE!RgX+~+yN;=V|G``mn bW/.LɭSթ{[j$i}'-6&^cP4) - &Q TvHfiGbLay"r4UHB)6 WWjɯ$RT9BQZx`DgcK#12L4u\YO( :D̼Ckްy,o#$CH}^M,C-o$Mt橝19T=$%{Es>+=\TQsGJ,+(CtuW eTkxQ]:ۄ*z 6b7TʽTg*HS phk .~㗞M떝(KgJ]CVDcmA׹kSz2ps,FKX4KElSh65`n]#}ghte0Dv+sEɵ "k%7#Gc"[>zf3('" gNJtFũj(,~]aV$Y;s*Nl '5WO7z-jK.mx$Kljn\M/ \`&%Ҕ%h:( [ecuyHYg*$^r6N0ܥOә&x"dKg AXI4 P"HX8#6͝>si\P9?n(|T_w׆~XO9c}g2&7<RLS돳y+;WEd@ϘBv=-_E:Tu͔ {h5f,F(A@5En^]&#* &z#, jBGE3>Xp1*50=i' 7cvIHhmޙPs̟5-tmƵfG[qٜCw]f|i)ڈc9 / tO*Mbײm1h9|YbN%aao{0Hi,H0NJe?vM -h>NQ#;*7>tLc1Vn;Vg-֍8QS@ZȪfz6Rxb0Sq"Cg[\/:W6rr 4VE׈̢m% ,`!P5`puϜ-e7@kdfHn KśCt(jA;r `7νӤuR1ӣmg&+Fϵ Jbu׬ j R{]]y*ː־tHDA_=Jh ,<ږm݀70! SZ=8I΢qD>$,r)?$[Bfq f0@~O׆sPw36 AW‚[IrWT j5]ܗ Ի|uk߄J46 5)Ba,N`%&QCg?|Q= ̶v D=V۾+`l3@waBF{۲k*FqWD撩Rm'+/3b].p7}FccaX9&z]fʑZ)xW]IѤw75B#COv;F o=QȮlS" c'U;h zw![(+yuzFbPJoa0c`o M,'@]gBٹxho:KR-WrG* H> ыisiMLNt$YXd1@ߧ3#Yuk}"xtz#10Lvi1Pu,#ڬ];4AA>i ƟalѦ(K-ڽ0v=K#vٯ3ą.}&ٴ}_A}&4Gdl.ͬ;58b??5TLVc^`88 ;S!cizW4`nYyY0mNu 'D' TkƲ' 5 x[V"qeQhu^ %䡈*a*PQjaHx9!eEgRޞqcaOb;X`SoⓖYΘ=}>iTu퓃31bܐ+5\k3Lͮz^77MtLUԺ4Ж~tN8M:sǨ)]|6y;dؠc?H5,bG, /$+)0JwkUPOAr;I~F841jiaIi#^کBٍS.PYiĎ7 XfL99x_l*K~mC,}MG 8r>'<,@O/2gYJ0x2yU˭'M}iGpzv6f\P_5'˚fr[lHUJ@ҩ]V`*l:r؁^/!jٖ/84hc(8"˹iIq8]Q_=byH1Z$Mǹ +֧ɥEn_~EоvX \"HhU D#FHb6oGy|YU~Ya}fԎicqWn `Aoy<[$Kܼ`fh<'¯j=scSaIc #PWyDРC3ߎ&ozd~+fnMoPϛcmdGAb]1~+Y>vK~ Uqxf&#vI!L/בc nTjN`[ء# 4ɇh\ rfڻ H^6 q/UX|2܂ mWt$TSq@N{pZ9q =X(Nv딆.>-H?bP$̮-5. n_H*E81lj>~9&*\9 u#tCnmi:E:v8=tsd7О-A!t{IMeU#D/﹋ ֏-rS.Iܐ8C*xh^/.Uh.9xX3ݲ1`g2l%B-SZ$n*Ζ}&KXUɊdďmE[Dro+heгf$l^.GSQ8X4vl](WBMչ/?h18N͠/0 c(,Mhgx}cq#/*;n$F %NVɻIn[`:()Zh`\>ݺavh ۹L^ruif;U>?*ndXo |(i&^ ĩ)/ Z M-_}?luaNLĤ*y|2\3߈wљ,[69 z#_@qVPk\8r49ӯS c@V[GuU"ճR~B9sѢg!bjN -p|/pc2XQR^- 2)!O&ADAq$D,Eb8ܡ1`.ZK!GPa:[BEy"lb's\ϑzL:R1o|N,NzI`A!͊]zbC5&HG7O؊?\bʾ5i_7(]m[qZ8ч]G'a4;pu7zŽJuΏқO ׹@XdaSYNRJ%|i޲2GE:q'Y%̕q[Okx1FE,fCPM펁O0r_t ,ROtj(ExE9Ѿ\ʚ(m5q.\y1 !$ߌ9Z96ϞusP\}xtv؋_@k:mѯzoyX [DV&D("Rαm"jB+,\*JF.INFDpnPr2'*'RtմyEȐxjO1M-@V-R߀jӯ9/ݤiĬmc\ӚiOS?V?&qZ)K[fVnE©I՗KY-kϥwi7߄xu#_4:4k0vT%(͢c'@ed~3м)&g$h-j|P /Չ2 /m>{ypz9^Sc[iQ^ՠSVg٥hmtɪ ,3}gQ@3ւ|ВJ8uш |DgED;nEիŠzw{WzrR/\qP*ci$@WИϖYs`G jː@`<,ǰ$+`[5#cjhT+"*FO@:tHO*q('C>?R k8l(-[MET:DLuG졄S|7cFmM?,U'ęAD J匸sX5-vdYQ`gFO^f$CD/-q!mh2#AK+2rS @lI߼\ Iz )e b!g"!Xs`t)tTj,W`EKK O9`Bj0? :Xp\rx^4it%)B'Rg*b6AXkL GR\Ic,Y2+dB䐈V;AE"봴ai%7_ayXHӉIa(7[-}r vW+8K.6i\~;.g"/Cg~p-koc#iPpx[S2,CT>fv>gHz"SL9 0g(8_5pqxå#R;[~e=+Vp/0zBIUM:ufC"pyIfWūR0aE Wel"֪5^QKV.+ ₣J -C:C+r0啥8yHه1{s\m/_^Kc#!rCBN5?ẊrNjZRa:I>s=t9 /17jhS!:m'g<]|XFACb_L`pP>#"O lL/Ԁ$1f*BGxlr5YHsxl'^t#4ա lh3k6oM62m6My$T@J EnS.9zx@-IՃ{Q2b{ l S SQJQgM TM 0i &,IqgDGSeASQ:ZW{tʽK~ٱf3 TQ[Ok=ώRd,?Oi@V WPE>`o!bAljb !#Y6 I1 e!& cI٩b5 ΁m֕!mtGX9Z^?K r[nnN($]xӾˆ10G8waiăk<ϢBomVM={7w4F2B<*jhܦؠ2!IWg$7m{NGF{9jyE(POm9R'1D ge:^|̓q YسuoCÙ)+9F\22q5sɿpDbp@ս~p6I!6l#K&- 2A[+)˰ Z 1|ov]C]dm7 >y%xlUd{CTIp"E~¿#jFS}vB؜"n|3%Kr JvʄM 9K>=_e'm a RGskk5^ fg "r59*=]A-@Bvп+@E7=ChbQ׏3Pqu38;任E&I7?ǨhpyV ,Ge[}1ml+˒$LߦVX焥09#%P=TXg?:t82V%{>/³\'*\ sC),ZOJKw)^Zo_N^N- YUì}!JEO zuQud^W~M7__?[fc#zdK! S|wƏC( vA@/4Q&fމ W|b,'7!_Σ!$3 )U".wD4c P/d *R ',upK|o@lG!s)B`m6]L"kn*}V̫9>x* = MYWsU=㟘X3urz}Q̺$o{Yνxblk3UO*^dL`O(_ S0T"H,oʢiOmWW/!7o/tEb b &JR't9qlꙩ.M9CbJOyW 4>P]ci+ٻ |x%@4'޹VYQ3Ri@ "8Hw[-*z2" h_GwO Mh, QGL2=SS$1{B{2}-fVtK{.^ƺjRh*C _>?,2pmCS?LyȚ:~r8#aA~jC? <ە }Ŭ2IKFTFF8vm `<퀲-8Cs =H{w?T %8s1T挂.o1Iq{- Htf,dl(ըw԰%2agϽ_GGspѱa[ks/j @,d, 눵"lDDy(Mw|5K|xw&:p$fc:`l38zl$1%p1hDFo0oț{#!M5I9qr*p *Gn'pg<,M"Drmo ÁwA\P2[b,ͬD&=Z+Y Y> 7VFcݥ4>{QcA40M ʻq12D"Ǎ vl а+:]ԜI+R(5x[>E)tU|hHN&;_C}<$>G`7_L⃄tc|n&EXl˂#P8Vt)Ep^]t11=^ 9^O xMį'Q6L(0连TE˽Aw4%wcqK=5 i{@>_]v}zb* ?!t*wa#qM#ʟ 5_B/{]М.u["8x0B>@pZU ]|,Trcs@ѐWQ8d֤Zdgt+x6 5,=S3ڼdB 5و'eքcWUV)Ka'_Uw"rma${ O a]ܤQPH9/Q5 .;tD7PYks^{UŽɛX(ރ$t*B o "@3=yS uh^-hu ;*W\@;X fPr_@XWy,ᣏ ZA//]i /HBA/$*:0Zҁ2|jOS+[%~|lQ<9JA_ * HnhJ $^ȴɟM *X4U![9pNr-Jx@zZF 8Jwz֯&sF$i!hu1M~|Y/˱&'j\:>~R!oRt`NKΏܘ?[MPתߎ`ll 3L|~h! nO? G:wln\oo}nī%S"iTڧSSӝwE靜Г}ПoJGL,(~BZiqA ES,rNpJc׶)<۬K쐏rW\txrS1`&jF!_YIp_JM% 0n|)ʷͨJ'(o->E⬈*q֔{/`CBji2Ɋk;,iy XY%TM*dɢK$aK T׮>Qx9|MxA$ h&t ˊ7bI XqăOI3_zvTUɋI~:U=V&h+c=s"}ff u嬁ӳ;4_!*h_ykH %%8:Aڌ$:߷iH=;xuܯt['!Qb^ $ܙ%]l<98lcK|rG N \٢Gd"l|^Bh ->'\w'W2tңoVI Ɍ 3ZQS|wx hUdO%ZTO|*(\ױpceל lDlȺZo`0g,1ր2Bܘ ,­b uAXpF|OTM_a3aZo3m3~ Lm :.LI[Qx5A8{k4oA^RinťUJ#^\.؃ٓKCPa)5H/!48Q҇Y/ې*Xf,<'O1%|ݕ"k{hj gMPX06}11:(:@P(S ý1N/XxgcG{S#E+nBMZl.0N >7{m";D\3 6$Ws[-pRsCoGoһ&X@%kb~4ė:HF6B:R0f#̃zhoB/_E-1 Z12T%ő%3A[e6e0OQ1"*i(?WdUַ 6Ut4pSj8-H1T6WPͶ2F-WoMT&D?tZZ?l>!:a WHsnMM\;lr:y s>]"^JR^uGD( ֩N:T@m imA<26op#l|% Tcl߮^ p$}iuS* &˺I6ffSJ醴+0Dhk=liux gҒ/U%,rҴU(B\#Z uxU mO3dSu#84kT0.ÿ1Ik8 ec-@g𕀭37iT9<6BoRnL];iS ZWqSϷ#lBHէIXEDh¤2}DUC`͕ U'hx:QK"El pkrXU Z7&NF/$ot kNE#'}+(WAT Hmo2ij"׫rWj4c)9N =Ƭr,_%&7L-[s`  ysO ''筛ó'FvdaHƻR&;-VҪ/-BN&bO\K4ۜdپ7aa)M~ Pr_ъPN\ācDa!On#E '|R6NUrITP`54r0vK/#̆:jAWc:b5JRaU,)dŻ4; E&(T> 8SKhզq5=k$FҪW% h6RiP!V=>9]# 9Vf7 0R2BLisyW`j踱@Xz!)Fʦ-A Wzeolh {9 2k rmEE\|t+8X7zaD9aߘj6 3HbOj {[t*0} m%G7?18V/ MއApV(+^ >'Z );V &<5h.FVRhT Sw m!GY'{Or>8~ְ'^z_d#3$+XSj0c䱱lf5: Am ݒ|awJ>SE(f!@mb_ n+tlF UZUΈw"V^ _mt7bDtbjYkr4vS<'Mrb rVò3X<` l6*t8b߀1S~ؖc7;ÊI.i5g)`-BȷGbdw^rҧC![z5Jp らR9'0d@=Kk$Beԝ E- 7„T8tr}1xVX1y-̈(l%Y׌Trʖzo 9ikB70 Fz@gS zx#l]yn.yboG|B rU usP?j(:"GK& ~5[AUZ,~SٹIyKƱ:vg%L=|ܹp[ X=do"]@-NqdϴdrRZ>7$.Oͻ"Rf>Bop#aO#8AWRu GJql_H%hiARVC }Ƕ;et|YAyhw?Lxt+(VΞcK̬K6aE*C_dV6XIA+m?y\ǼK pOֹ&l_JAX$|H%Kݝ-jJ-ߥwCʹS?psu[ /{Bco{E-mXJ$Pc,QE3#{g}-h_6jc䐬]!F60S3M5kd/d*i&o7m q&zTX\ 6Է_ޛ)|;|3lP,M[(jbĕ@_84^*/_uj4G@ԟFE&`-i*lhMr?q͹6+MgwekÜ73ݚ3telazvh#N ; My&!}3/v Τ%XeR҅[Yr id'W|аr)mχXS5&ւm){&$H-ҧ)e澾YEl\vvVVtX Yc*(~egBF∄k\;%B>@{b/Vuڲ³Vbݡy?B[ lNNGz y|@hRcav⑆Z1VWȨxEϐ* iEV+~,~+" 4T~7Y<2:_2]:ce#dn 77IrR0W l!\ΰeN_ Јw&ꊭI>egPR<0h˕lE8־uyS - ^hB@8wTk3UAJ/:^-Z=:4-;>u%*'i{b}v0@OcC 35;scek֚vr'$$j Yv96 @C hH?>uud_mKkMrZM!1p0q19}GPPo2>Hը;GƬhbDߔ ৾DǽI^5jn Aeʬ*Zڲ?ߤhx4,Ckj/G/fk`/&L}f? ׷%lsk!Eݦ~=Q'bء0F ?\䄔yJU Pt{J9fܯcէtWR7l!-v]0u0*T{W0a| # pgP$gerڽM$ f2nY77q'?7h0fN&&c?GsrLh~)ɸio'؎*M< m_yp& TPȦ%2 P%p s{4CUJ#"73VrY2r|06ˏD^mZTe3S!6ŖJRT ܁liΡB)<-2靳[gv2kO5{/ h s<ⵢ29¤;[ \Uo2SGxkXLwN[tYHa%l&@ea2xy%nΕEr]cn_WZ2%#dDRǬz]s EM (8Q郧T̹4g?5?2q}:o_|0](hWnunaS/ՙG|Q>Xj}҅HCsuqleb ||l;M=Y.iL_}Ė,<}zx祃 10zZS4~cdئ̼+?8+_u87ۣܲIT#XG1MU VA x朩 84k3,y%#X-løxɦW2UAS L'Ũ>to M~=flf¶.Ȫg¢AVL7 BMdWYŦ0{rށb$mt—A9vz3E3~F" ;㸉YƉұIs/BWbz,]yٟ(+];^)Ⱦ:] `N17hI9UxokPYƍ$g?ק:C}]RZ2f/YECmX/Β' -3Q=<5*nainI Jr5S9](^I[\xo2)q?d^cGqG(F.hl_KЊM=Ǥ8cV{4|=vj1ų6w1|?*Bl3NsBp܂kuy?xTs3}ё#]+h+izZM}"6D0?dr`s|'_^IKnkUDE$獽Ѵ?J!YhҵaO6Ҿ}&P|骛5Y+EFYH$][O?Bb Y9E)65^Pܟ[Ԋ[4dψS/ذ;]}7z _/›@"WY7(Yx=,T[hhɝ&D:ev6M19frMJs([|Q^}%Uw n8Dؼ#v%ÊA,,@Eok'elƣ2l.o}bi ^poℌܧ=}A|,3S$adX;Кͅ P{3S<'6aSr ^a+V傿pr]2sVYbGfbֻ E_ޔ\\5p9k:wό*$ԋ_4ܞZc?/FilLp\Yڱw K_Zƕ5}:&ւ;:ȇeQ(M#ō!k99u7SRZ⒏xo/lnƃk) QыdQ4/NR Py?|riA*,-۔-3VӼ6*Qek_^mD_ gfvDY!l{4弳q+HV˚{8S.@=?A߲0(ߵD<3Z-UD$ at{+.fC{ m9Naa(>~|dĪ^ה1ͥ+ÖX}S;@Cxhc^k:I- V=0'JPX$4yǘDLxZNnӐlSp>#15Ehn]BdKFdQ4 ; ybDna+`wU?5Ukw?yQ=*lr#TC Vc͡𢭼3k?(,w;/h#t=U4sZ.w-z%Bqq`%`]qu`5~bc[Q܎2vDL۳ v^FH})^t #LB1ѱh=V3?h4([/ .V`N .eЧݢr/f{J}t2S  GR@ kexQr1puȌ թ7H}/7+,S[:q%/ɀqC鐡etCNDzSwx( ".%1[+j Jtq+t7 wOj j/Jm<_mݾ219Pi1؜.wT"j~{"nMVF{yo|tIX %?޹0bmHf|&vW* ̚(l NPi9|,GB_ާ|ً6zXPN 둁zlblG9:M] P9z;|)uD:[/#dyeh3u/E@m8'5o Hml Yzk#,"0*'!F?EzbJR+$aW~ J^?d+3]m--RھĻf+Z96(rcnY1au,ϐ<{z[ z}(&kwSSY?|ˉ<1Gw+ݜ0VMf%m M{~+*'TI8թO5y+ Tk6lcx(s[t59hI;q8 N-*=1̼/cWc 0C[U#4(Fl&[߫+a$F]=h=."ovw(ruf3nH,r4t&С\@Hp˒HhdcD1K;~&AܵcipQw#Lg@-KmSK ~M?8\ph~QZ :YȘL?.gh@v8M'%Y\g\hiQɺH?Jڱ)AN铰t肸_ 99lk[ٿDac,?hJ/׌ɒo%ğ-5ږW8QFqkUsr~@N)=/g]^Cf#Bw磹L`FNGI5'f;減 Z66wBIcǐ2 S?h̲o9&l^Ec|kAQ9AKe$!wQ <# ˳kUBs7زREZ-FEΉIN&Iƪ(-_ 5{i3ﺅ.vV;mg|)ń8M]Ab'42۸|0!Êđ [G 赭8E+eN7uuZat3RVxpVʔp2Bv!q6vy~<)F!"T3ar2GB#=[>9~Jꜭߌ>U]-ZYM5asaڟ;Ty(Yc`0ͰNDKh ̆mhVscBpsJT I.~{F0jYzR++fhxB-1{#jt oA`S៿5Tx;D^8E#8!8!Ei+F 0:ȺTk]=aN1^J ^՛9ӜYXvYʮ¡+3ry !z-ֆ"h? YHyo`^4!ʼ3"dߓ[BCR:@m0IxYŽꪹ®,໋8Z9y y̗xa"x6ȠTԒEMAg.~C7&QeCN^k#Cl5j|j&+sxj_CIKnճt5G"b.15 ّeвV${B$F/kvE#a+L63}u/n,}214 1yu,Z;]_0R0q.\|g$ xXOLޗz2߬jp"b'ԑBB } W"5S[:]Mo]D:Wi{:. q 1v;<L{[i?PxI\3;RK4sx>v?a LkFa=8L=Y+󾇞,d0G8ol(<;+[,.<炋)H)͉O wtj|SGNVݮyg+>˒ŤlM N>IOhę(xS_xHLD/ͣbVm $\-lC`nDIT:,q2A9#rpF-<Ȥ*! BHȐ PxPxmL).v)C*_KlF850fv?6Y "Riy!\mD{^x [,@4鋕UR.'ԕ> ^$8:UwJɝ7̗:F-phd$Dž/4 %`ok6Q1uUv9hd="֨xb_ _@tpNzc#JD:q1] 鳹J@,wa̖(l낹 "_Y[U%Y)8򒳺ۖfsGk4H3 KwGp@Ƣ҆Gr{vGRQnz--iW͸0:%E;=B#ťł[( bigF6!i[qb3wWO4$rK ,L6>#>BgDoǴ%D<%`ޗ4x>&8i~. >K#}ݬewq(&{9ʫЏsiX9d= KPB9|8 )qa1f0<ܿ2)!ɨ_Yy(jzgaw>BR3Uڜbo^*YD+G`Q ?Tϩq!Dž NJ}p  ƾ_eN2B Cu|#oG9UN"LĽʌ3AAN@$}&on B!"K4UYRaAFV:`FEpLJ>.Ȫ/yVZ-[2]9fJ8#LH-ؐ[3'O&WWld~M6kd J߁_qQ E½׮nϲIUsA(|hs1,ql2SWSe ׎<9QI.~=dgE'?dunxVQªYllr5[~c?w(,͸(6HӉ|[7̚ʇ&2^0aݮ3 t%)8۝W'4 XQEUvPύ2/yQmTgۍ&*v"mJZw Rh" 1PZ{W9uwb}&`ymeT׻ckemn7w|+QS}KmmBr9[lZؓAB s el`yun@85? %AG{%qIyǢ}zW_Kak9P2&yWdC i_ʥv>Oj80>p",sH7^O=]oceC,&gE dzb.f8H"Jyb#OLa%e%ڮS[F`$ Y".:b.sOClT=>kj 2# H~<(A ЖxQ/4/h>SƬG-'%p"S&ȬT@PS9Ɂ *ԂZ,8#Rێl# oFʝ|ЛOq>Ѐ~h2f EJ-@48]\NIB/$YξLK}4KYnՐOZˡ `^6 _ h.%RICG.B{ሂ\kxJ BO{$q\!#2<+I Q_]7`? -画U6a8P[è(d_΄x8wFT_F J\Z/H@Vz_ui9gjTyn_ŅX3V eE3&&7UL$1n\N *y5"Z`?p,'V+8gu,QI!H#e4#! zP_NCLTX` }{ԯ%T=, e2 U, PJ@Tw1t Z驚׉aӐ !WeVKw0biHIymc%JlbMQ4@@wdhL';NԖsj$JE|DT}Ҧ5"uF0mBZb[*$?/b@Oo3 鰬s{ zؙN&o4 DuPǹl&S(*'DF @/˛sڡ<+b5aM\]l\1%Nᒐ=)|p&~t Ԉ=l*U.zXn/s*O=>}&?Dv#j[*v^.EQ0[vFb6&zR͆jT\ӄd^o)6m!Dl}'YwfpRDgP~q"vØ h}dn+~2hIC9- w^&\aĺloXQ!]c~vgį};xDz՘CùZ" eҨ1Mh~k2)gbJUNLb'v^Tt@?8;"KV؇?J q%.FJvZAC#eq_jlf$8Cú5("_?S ۘ1u%LA^ֿKñk#X fFs:;ݗo?f458'pƱ89Y/9̎Uܦ<"r{XGCf 6u4M 务 ~#u9Rnx-'2q2tTxp'$O[^|x3x&|=)~>ʡ+%]B]BUl'=Ԥym*(*JZ&)XEnWEuH!+G1Kfʇ_\TS40*R x2ƕuƘ*C@|݅'${GWz>"W٣#ׂkDžFzy -G_c3uCD7&vq~P=5W79%&~ KcCC:+?;a?o~Q&H2ίׅhfv3 "ԅ"BVޕ|#[[ dz-Mz@JmAvY D? n>uO*.`kĨl"ʵq9M` `)I Mj)?ߵJľzIT:RdY ]:d-&?C:2Ň41 ]1@70QTKvACZݯDZ ;;k%|Nm qL6q4×drq! ɦ"rTMi逜n|g+MSb{7  gX洁6ɔ:K39Z 40w3ȨQ`mmpgKoN)|SXeRnp |vQIKOua, EV\Jk?"wnlK֯Cό{A)7\~"\]kYr %wlEmiFk"c:Iߑ+5μa[Ϳ?J'pVC0d`l\-UOuMjgy^s׊(p3%mutFl?/Cg"C?6zrpп1~(z jHPc=Q:bj֠0 7HohR_ MK1'b ^0% /_إ^\\2aHvƅwuN A`JV+|EŽAMJRft-]Qƪ-Өc() cpOtkmɤrm@bkQR5f2G@j·# 7/ ڈ|V NwDN<dC ~JϘoLvsVN 2ԄW,~K`pGØY*!м$Z9\uklޥN,z[=-\OeOtNu .8"ۇ>j_ _ztRŊ19 bR0Ͼ %f'i!V{ HB/ĮǬE.h+UG頲I#)O|JoEOwrAZMlc+#sIhWצD3k K.DB<捲FIx(IlPp΀_ko.zZܜIjp4n ^4]CkʔpǩNq~U ǢU¹o~bd|3g#R;clK\`+a]Lb< 2*w-=MaThp4ߏ{Cᄵ|;?#gw=! 2SԸdbQ~=*3qڦR\+u:K>@UuO~iPfS`j9On$ʄ/v!-'ڟK+(HPCm"!I&i)i@VZ-4!mуhWq_'D9ktn%nײj M]9|<>.utW͠]h=q(:c2\ DfioA:S8֢"Ne>m,W)تFq"Wa+NHP fCqN3_n9шbw=`KtO{**ASWޫ:5 "DHU!Am/6hg&Yݏ:rNG*~ 4QpHLkbY7F rr4iԓh<>VsT}H Hg=6)K2=GU2Y1k7%8+MX WE{Тo(RB*Zs*BU**D:G;8R/1)|d>{O*hk]S8B'wç<-X>Gm1۵܍%HаwPN>xDd͘]8`2^|D,G9YlMƫMţ9:- =R(˪F( *p%HrHf;QFg#r35{l"w/;.Q-_C7Q<ҥdKr_ܕ؊CeH U;)}\f,LR71k]I81'S4?w`,LjۿI\`mj>PB{7>;t )پxә=;r*6?v;l }hU{󲓱+MSVZ]m=0Y'c#+,/OF7G* \r M-Lj=:a1p>EK_ܚZS͇ AZDS_L$XRwic(&2"?K10E) -xE]\Ǻ}o'b6U [0\~Of%^_@#]^hwrwEUkpt4/lYu4L|7 ;cZ,@KxoTvޜa:'=L⣲8+mwÝyV5~XB\{DXV@N.Np뺈Ax*#"}In [a_,bHhy93Ć59d>p'/G{s]CiqA$W2B8>f6 Dhhj]N hzO`p'%ob'CwZuљsf*0U#ܹ|uGE6A,i'hBG !#8#5jh Q&]AZBOaM>Il%lp+Z 'JZi$:7UO(&Hu@@t:<3\k;yR:M?2+\"岱PKӘAp dlm$*֭`wHF\pˬ7RqGJ㦏 D&5|]3{bRII.U?*EFVH5/+4ݺy[*:О|*eU>51AL&(bc$KqO+P`V!3ˁ}q ~o6R4dוB3@CKx*Awo0VxPpq -- EB"Ɨwus'4⥝($SJ lvA0 Ώɭ]rK?nBjݷ#YsZpV(3ztQVx۬J%n4(I*i`w"2lL[$Qv)K{{y:!gYq+PC`A2gJh!c!ًjW5Xr+Lcv2(P(9!}kO艰P^ o/ߠAҊ"`':#?2EsD}uUq#_/`\z A5pQD_45_[Ei. }HE堋fƔwY:KIŒ܀`cOm=8hHI@vD"#?GhxqL -ZxK+s6eTܽ--/ՑTMI/I,xǿs$_hqs$lvb;2"#?A`j F6c[αzHZ6U^lF|.{ySSfhLx(C UQ;6g83gBL& Yw{h#_{w7 \uO$sL-.04U1xpa)},^Y_^7yk^,z(Z ɰʠj١Mx3ɒqKX0і˸(6ּG|e!JJm\8aMxjxp\o#n/(uHmt wopvF[a#bWԔ e! 1.譣 UtpMzn+J O`9 ] )n6ETm<(lT=_ <ûgw‰F1ԒYhh9J9UOYbC&xw뿏M$[BTspuTHXhU:ub>L7[˦%;4}ge\k`0<~b?7l~޺ꎕ 9b M£fvz[9+`.gRj:#wm0U %c+PU-8ɯnDØ V4T`;a$m̓m@Mړ=ʡkw ,LlTDLNC|hɛL2&;Sk2Np\W x=ffiUn ~&’&p6`K>f.,mJo!9Ux08+`Ɏ{?`XJ¢zX 4˩qIߡ(5I~LXsTJ=`\mf[l>M^AVB:=8$d!ERePHvc1vtsefѸηyTEnxP}D>X TEĺؖɪhzB/4rҤo39`sg|vUr Ehtw1R2qOfjj/E|]jɩ }aySIN KaQi=x&VPD/~Ok e(f_Ihw#:naw=un7\/1QF)^],=.T2j=  l@!8b#CTUԒX?4GW^hʁ&0F`R&tR5.\UKC +U6LgӠP|wWnT$;F'z=TuuBK R er uCb:XFÉ Zdw,͂DqmAIy:AS܏wl*]ShՁ4›ܞgVdJZGکGavWʼnr$ 5˥LaJ7n9`Ai; r;`;3Gs`(U(g3_Ntg|: dQ%3 hNQ.K8b-w'ꅋ&_7C&g*فRBks CD3FPv-e)98廻$Yia15ENcê}2ۗvzDRcUʍ7oH4/dcQg5f.LcdgvagҰ /<̃sSɋs;)qC8*t>q+vz =`!eA氹X^f iSQU Nn\/ۻ"\b^7֝-k}*aI9#KDk ՉOURgR{N^Q LxC^L'utQFzII5.DFw#BV{?,AeOvK4Vbx=gz4l>q_"#n=v8^[Hga^>YlųC*z59Pm\ź %Dj)7 ^4\-IS* )UA£ kɦ^kkyVUՑ9(0`tόNe:I؟crX=XuK'u{nZzЬx5S$).{7(b}_.3Y2U fJNdDK+]R 4aQ^Ծzk:9˴3FF4Y"t4|molBQn?LE˩#Mf"f )h i1{,<ݗ"dl:ZDb\>l]$`oOp_&)!dw9 jzܗrh)-Kjq ^#g22a; ςQ$W+cpj+nH9~ߪozD{'廡$q'D_g XE(qP`>tQ+\7P>H dp( 1SeR +gzFs8<;˺ 2z21-Qd_}.wQE2Y\Fg.d1=B^TEպ AkqЄ M <}r ? zo!{Ct4 ZFTpO: +*M|u-yhz=cbDwO1*QNjv܇MB6ZsÊ{ (^Ś얿*9VT<~*dJjY0VN)qMuV׃5h9f{sR[{H ~p\ZS=k6u_dqxM+`5+DV Q 1YCG33-}5Ͷf#=d(f2<]Iצ_+GS$- SVtH7Bn#;)8jx.& :|P)|F1=S0؉.!vVܐw"Ƨ+oľ5TEGCi4VS4l++]կl".y4>`U +Ηkg bf~s!dILL "ԟ VR0Upkik^CvxO<1w`cONYWvY*4cpJr4ԊCL8+Wc\D, XxIH6ϰpϹz 1YCWB=XBE=Bkg:MERj2)5;H ۫|0afn \( a4) 0M>UWuj|)Í-\ Sҝ`96@{]E + #Eا Isz,T~^=?C,'&wM.>#QTi/lʿ"Ca7SP=Ph.HÉ^,hU0KF_=.6 Ipj/K!iqC2=Qw6z%Y҉SjfF(g_f޷w+g~]8J K8?Lƌp:nHr]&U_t ?0^\ 0ژ鉽,qHmӢc~Қm @wT;)p/SevY[W@5cH%_f̚IvZCgbƎ 1"xϏs.)&=l=Vs rL9'7c]SC~zY ;?bدȲPaBBD ;l_ }o5:}-P~Ϳ ^B!YZ2]m{XlMMBl^JFS^L2 )5h#8.MZRC,'{y;v7(ԝ6Rg"{k`ߕg YQ |p .H/HUF<`mK@p a4.,- WcիA ڂtr ?fȗr% E_OPW<_u*ᴉ=d9RFk Ck>Է&{d/!y7֔DxI"z\Rvm~VPÊ :Rvs POX9"\be!(4hU"ߗ8A=v="zr|RJڍy8Ԃ\I=-"&MKؖ!"y D9(kcq̅ ߶Y&WˆY;e!*Wdu-ZcILXJL!TT%8&[[KVм_f͸\qhyfX'8E4mqv5mSo]Jk^t,XovrX_SKf oCb6/Nlc{q?ڝa:;=)I8Ԟr(,m-ν(e)e.ukuCu >W|և#߈RHYeKx==l pm{I:o.uh) XS0'?ɫ_#f@:#b7f"3y>H)>F,RPҵck.1yyF1Af`)F*o*Jw 5-6DŽsQ@vKíp.ړnO!Fųh&X`Hn%;D|b4o M' d@4p ;Cd~'8,P&u =lhnPlp!N3?uR[n/Q/ ,Vpέ}~Ȩۚ՟d4z`}1fr6qHm!B}}k滟/i87wv5MDqcDq,߷nE[v We(alS+ʮ:)/ih3US?c;T}˵KzVz7$priJH7gӂӗ*-?zG%ۮ sC0^*_Yꤷ.MBLpy2vahvVzZ&R"ܝIꏠ+Zo.-:&1KxnbWѺOXJZ gm12TlFS e8THfE18RK /胼~1xK/o}99#Gאӡe> C!vx֒ƣQ?9QݨxCϮ'Pva'^dX`l,2q H6HB^%sL D&J+cNi1W'IFG/?zhdJ:)7_ vvٌA\7?J96K𤛝پK|1lxB[r/ezbȉOݎilr;.FP@kHNqx89 Ca ~pl]1t;3Q%9U'"vvŋeeR'e:|y @։nX M,h y'0#O_!5 6\YElЀPif?~ԼHS7(V&r|ysñbK5vHZx 5z18Ԁ䍿&TZ6NJ| \tbtUˢ8 Y .hdY{Y,ۼĠB_R!I1oK=kYAYJAN>SYLRh%@OlV>v:˭WpBa2bV6u˸'˘o0ϻ[U5{zlNQNW]!O,$'?`5H$ -~T/LS}IzypO B p'Ok+*,HIwaӲ]nwXڼN)X6x銈SUH£f?[R#a~(yK(SJz)7SKijX+wP"1'oKK[ lq4xՍ>5z'8;OrbyTP?Gk HݔXkW,u'הlA]lG #6#eǀpbծ_q˪bs@6Wj'`Xq: vu7e?Y\6sW iWhjR\Nё 7Ԩ-0L(4964q6c;_/X1 GُҡuXI64O8tya&JYKmZDQPu,'/ m7,,3(Q0G±{By_ 0@{EҐyRC.sa~vZ!6$-'lZcOdCb n37 w AhA V J*ܞx`yd3ÔY"J=~$q9Y%Jʴ]yRY蟍Oa磥&QmE~3R<_e@z]75b@yP^kz[VGotYgm-+55ӃyumD=Sp ? g,qXZ>B7P"3p GQ^?~>U>*Zquڔ @Оgl8OB,n[F> =b)%~NSQ"=m>;n"Qo&Lub@)DFDQ{ QWM . ̰ ?d,@{~:D*Y(/ *A;Ԁcj&g-!Y`Gq R"Ns; 4V63KuZ:/]Ph}YH偾K>/s q!a%4=\Pmm B4lΖ{}6`:Q[g9BܥLGa]t~aXα,H% RuT0QBa棨PDVO}1f1h(z-,]-y@8!B`)kpF=q'%Y~SJ(/Fm4+MAΎ'ˋ4 ˍə8;r*|_jf #T ,if㌊GPXfRHN ߤi/DX̂J% pY@sK9+%zGl) DQDg-.8v4N诠BÐIxEOF?}>*wM{ Ѻ89Z~8gY!])7c.7Ot:pމ1+2HLfy uzG4ŻA[HvܐQ䎸u s{JOAb&\k8/9q647)/-"|}6{R#Ors wQD] Zj$4Ǔ a8eF#UyϨ*+cwxGRː$Α1e<}9=lMd␲)Qs ䷾6- C=Ϟh®&_X,͋:\7-ZЏ2NkMs&/&}QwIg@mL"Բ1 6׼!ɵh }%˶_dul8=;"rv.@r#M9py6RXIsvǘVab:gIdbR=a=TN8.GL 9?@Dd +XR ߃)aGLjh`Yio-r27[AJxP寇ls~sBtx(u$3?-6Q}LIn9r؋ā*p@-ڇQ ORӲe qflσ~dNS%3K/JFwJw}Y5(Ւ+~!7лG[>I yQۘ)LڞBܷBs?m)Sʉ*+'8m"lu 'N}%k""KNAƹtvv%MYE#O[IʓuHCC*)Jqgwz#N(K Q{-tI߆T,ޗ0k5!SO[Ό!r0Cw|)1Ur-(z"\>o8`ؐ *;Y.5=.%YgVZ7Gτvu8; 'GRR\+:QOoc5Nc\!~[Mh`h 6vYyh2NK3)Xv;KA'&wDǸK&@>LPP{1އR|!kٓ\fK^(#~ mJfS7vU鍆*^1F|}IǧXrFoIT9u^X|Hlu3/yiPZ@&mc$%;?HeGTnGlr$OC>sf.?'M XOGׄeUu -$>'fX; Gȯ@^cu^>atΫio- Gfl*sbxl9,n-A`($r_6[4xtƯ8ئkĒBidXWIB|. 39u&wgaiU%-L]"Us|4g+BWE e`1x)qӇEBjpq%S+!TH%nT|f6Lgz>#[/"qB&>Q0|KSb#r5-OO#_ gq0vԾ.Pr!+xhq7%7y3o 8z&c+#ɿ7dv%ZIj:Q4dNW+\9K[ng @ ۟3UDHlc-U+5i\0H( +(8:An Y-(N,MzkJ2;h] aW:JlZ0N%~ y'Du5mv뭛*S0Ѯ2b\08AԳ#*\{]T&5?JtR6ǗScApK XG?S8PKoo`lsPՍI&ؿK\k3*ەu[R-ܖ̒~I v> w7Pa-hhHxTع%{Td ~Q _֫Ǣ!슸=W8ajkva´d79a@dǜiFph_Wf D(CG0B %X+ӧ1UғrKyI`D.5 GzO%u}T(XQ*p@?(Ά3KQ+4۷YW9tCJkT{[HXE KI6z ہT. 'ɖa]?r#|sϽpI736g(}_7'ފ[3Xw>I_qʣ㯮mxΎRF~ <;!iXu EZ3 wl& 'dl={h*4Gܶ3F!DRdt[K:ʍV5i Xyx3Jmac;䋬d保JB5hTaӧn_#;^ Z>u6is6[$ŖIg7)h/@ W~jM0a1X1k{S7L*o.%I:8JEԡۙ9 xȅb,fԽ =єx%k=\n:2tS,X1 !ACג&2W"S`&t$hf!c:筍S\#2R:_?N nTSGb.=*r Žaj-d.%:t^zBekr"u%r ~ad \M3 WN͋wDS滔gE CpާcnO`*̜1ބ/4Br@ɰZgGPa=uvBno25@S^$Uv)ә?h& vQ q ۤ{b_'ݮ2vPkr?-C, A98.k+͇eH+>UfiMc]=yHr/(3% ?pkix!y"%%͊;=*=~iıkgzȷ?e8#[7Uc)W_pkK!x>(lcq1phx _h Ba, [ymtUDt*X_f^ˌ8 lEVi]nv^ y]'VguB*GUHSꣅ> 2S=܈E!ZU J>4r ȃkZnF jb{5QPmWDmKմHqP@o;FL!ύvӗ+O ,!^W F}$RQp1o{J mr;C6G%#"{*0(]va.3+ !^MPmm^;F>jmͤ8_^beabB6KWdw] Rz:eޤY Ɵ IyLk c֊rapK[F>a*I#}E|h? |*4 ]K`vD\$^YBE/Mf.rS.DKaUϱ,:Ǖs~?35*"4y2ʆ @1tEMdz4-!udxizejݟЊI)y"w຤c%tVS1oֽE<3.']fv  :gcmóFJZ.DcߑJo0I&zL&2 .&[ٹ:7!PZ5+1 G4%R,Z_mGֲwh<gO*|JAL1Q,@1-/߹u%~MT<= oΉ#pN28ZKx Hۨn RGi+D?i}o*rNK%C?G\:x>ݪ]67'gyJd{;=|dbfMCc{`W-a`+s@2mHnX8 @5Q-McC@#fлyQmrNſQF\)#@Ψ[zG(~*H GvO>, EkZMM&G^`MT+ lVPۥRL ']bxj'& ۤ*`2?P(Ƈ6%\b[9+#f<}VE/Y ep/N-nLM,</g?EQ"o 0(oYB/{wA-Zq.6 JJJYi'n":o*Lj9r~Q!ݪ"w"<@Wۋnd_U0kR5.ۮϸP!T@Y*SDFD;FWT|{4>IW`$ mDqҀaaͬqHS0kȇ44`ֶ\ ;(F4d2G'=$Lځ;x0@µd2Zg mp).y=f/>c4Ohb /vDtߪ N|9&-9#q1=dW*HvzJ%ޛ0h/ fPV`pcJz ݔC5k%򯍈/u8և(_I elP1f/" d2[B"1j$W1kr(皩g3߁e)*P.;1r)i0; |ga+cCz*˃a<[ Mh4|AmEl_q،)%Ucpo[JMҋk-„yoHllE%b!4ǵQ@wf ~_2;*pR+I İR!IRn<'j(<C FO 5:<Tcѽ2|xq/4~_+~QSW™C, T 4mJ)|LHjԐ> 5@4vHQ_[)o/'@[N"S$zG,?A/J| |)oKX;U82k2?\@Qк#ظzO7cipG͗:XoK@zo"Vv=1Mp "P+?.% 8BgKRJa6 &bO2.0S0n|6B//~3{ӯmS^Wx3 j}TJH3C "Äȧ (ֈ ¢r %@UD ^øvk>5Ggizb w;OtkN~tṵ̃<q }\HiӿgREbc,Rn#cv$3!yv@-,ȳӟ" E`mh(6 d}`}ru6=#&2~0c27N'/c63\94^R]Xhغl967c˓$6 cN[Lխ5b^$.E0^/ێ p~z@z/e*?r$H%+ͅe3T`b~ej]Z/QrM>t+|ne@GM,ݷP>.Qu|[Fg,P9vd"Қsn %b$^Fd T=LZ2*w? ТkR)xZZȣI~Oy,h-K#\ 7ϡ4@ˤ1a,4.Fr9Pr}#S:ﶆ*g{D@Q&u." Q5iƢƙ,ߴbd-4!(HǥmX{Fpܖ+|CfoK Xn $$ gdźZ˭TWTz")&eiI'BiŃZC" #K> kQYYpM]92h.8>n!e]qp#!6~>\K)NSNWg_1cz!Z:),`ecR'{vY/&AjNYJe5sHtq&1rHpN9fx1v!lb"S.~o)A 苀-(ejuO+-ct=:l  O&*%c ٕI')'@Vv݆ܶo>kjd'^JC3)]b_ʥQW'pp%O7xȇdyYk? @Ϻ^gV.ѭ4Ǘ =.TiX͓CMSi#`ԝY Q91)t3~" 6<7VȞŢu).c6 zQWBE 4>A@.EtKBvбZ&aS2$0PMg 36='ܚpcz `ehD[`_lsT?ui(XQ oxڌ5b \CU6:-ۡnYPx4N/uـypv|BPhTq_Bn0Ơl0D(ǵ|I]\e𹑱/`^l S{Й5`r!*y, ی+pO\NNa#n?wi'ѳeq= s&hjÐ+^xU[ }*mwROMB_Acc;V-o0,l?9]2w ꈂ)(N XZCZ6+-䥾&|I?io1™V!^9IbNS2_  JCA2tocP^/<H0ȬeCPu,Rpi2V"G4xns@<;8Joth~mICbfFUUg6EHGnAE99 TGC fω'eq0L7˞-ynj^3V~y5A-fЁ,93H#{%v^RR_$rAS!?r1>\CbҌGF}(: }Sɷ1>׹/v;5njr?:kͤ hڝ\| $c~Α[+qkKE偄@a/z9( )Iߖ.APo#įbVS6.[ Sųqw4?E;b*;Q뜖H:;S@?to58#m'疆R`zW7m:3%́r2E?Q{N;ۄP"/=1Iz >CxMrf0C^se=k{…j ӭWئmbkjhv z •po,nWۀ[MXO@+ʃMqvd:JnJ){(.rAgSt2Fhpm=X$* hHSSƓw|uҰN`5{N38aOHtp;|=~=h:l8~K'}2eUؾ%EdߤSڊhR[hTb^i>q!*VuF̮pYRD@6V4Vϥ^GTsXV!$4]"BԶc[~chJKA 0Z䒿 k.pfӰjJǧ b4ג eoGr'b-Gg5,uuGsڣÉr'{S&jk  +bp@%J2>ILsۦੀ` vפA=T6dBt2f+^A,v2 +8jzsKԷ= GCШQD="戢&4x% 7{g}Fs'Qlfm3B|O9AJ.Bg,RĢ,_Ui- GDֹZ+RLsl~/$q9|-)\UܐʇJYJuplXslYH[I9LOa]>/F( &5`֏I9_gϨReO(i΁Uf! ]Y%eX~y3ta-tAb4enҒk0a9-){79%Wqfƶ,РJ ӱtĴ/K5 j_.# н/6WL0 :蕦@nwѰJ,;t7Xk겂[h!tV~[BGںo(*eyцgU /<̓DN<1>! |UgIu4 u\7neäSufS:Tti.e~r'5[PlZ)^)xzĞiN :yn~04tH0ӼE,-Y36IWsMHH^V;B("<w?9KP*WnuX _uh:Cx%ZVoDGR-_ 5Ff~ )3AˤO}_m7'Lٯ`(',(ivlZ`OR8!A#lLLs.tR;5v/[Em ' C'lZ 9eȽ>:MxH>)Atzd##OS#L}ܝUf'_6z{䢃9foѡ K3 e]Zrq`T٨ ctiem35;9Dou#rC`b[R`6Ζl >b{SEGR2Xn:k@4)-9QD___hv EO0:'Ê@-ƾ<,8;HnԃǞHgжf+W(,Ǔg?Mv:c\k݉:-pL.'d\Ѯ[|e;y@5jtߟTg #u}~6=eޡ%_i=@՟&*ekQ[TH7QzU_9 @)X_?ݐ9tߦڊ5+{qZ"Tז1[gZLħ핫aعy 7w%W^hj|yx+~~zغaNXrlųFL>@:nfq!~zW=&jfVMc] 2d Elfb#lp*+\3{E'N=CI]t5㐘5t`WiZ%7B֫j)^2pMmr)/wO{{EԛqьU5o6N4Y1*x?ϡO #M惽.˜bM(5Z=rbSOTMvv_~:-ˉ>y(C: ۳>ԓ)s0ö 3hᢠ 0Xýg*ə6ǔd`̓QT96jF3tH@%}cb>xCoi AR0R8"־:xY-gVFQJKìso'=Cܤ~I_2{&hN)J&s﵅JL݋ST6GN{ UfnaNOdYMXS:|eT3w!]PYWQ!äPگ̼1sr0;cM4F+դqR %Fe!\ )tTxzZ_\Tq\bYPo?FtN/~ M+BFBfICN%/$+x-J=<~ZtT;ZY\ }o)e?2bh4ͳpvq掘f3=k% w@(%~ vt WVR Ha)xJ}aW|B 28zJrvp?! v:&`nBEt-Xr a>ZL{՘="NJB<Q5=r&hѲΝ ÄNH#r\6o_ͻKyuu-SVv8&K|p>c-< Cd3.|Qp~2iBfP`mr 1wFBAj/9@/XѶQW)]W fP@ O(ZHs B= @ b7f[Y2ׅ\D&:ޛ.r]78YޛA\Ґ$- Ѭ'uNc/*hC%H>SԢVF˜(M}b wHW^ln5WB?19K ސPZi=PІVjYF\LqaZ^F۲n~$Hݰ~RfQYPm>04I:o5x⑀85(I8k^yȤ.ef6~*Fzߖp$b1(P\DY @~ T5,o"ǫAƖA]apf͚(֜2w$lm벻~IՕ3sJiTʖߊM2(dʇRFbIMZ7} =7$x٭tfRaEB6췳'mI J˲&!R[xwA8e[aҭB AV1\.YTa!`rʼ2ⓤ.#nL!YPSOWY nv $ w[]dGeVvp)u95L)6Qq#29-WK|z||/1.^HWrgUckz_׿L2Zl,|MuZ/$%  ,44ZT5VLL-kR$[uݧ~A@kdt6_ᙚxf m7=VqX:ĭ_ 4J9,'`L~v?T}yF4 Sf^.H C},әvقe&qZ+Ej]fT FG';W87[e*tT#Kܣx\I1aR2Wt Q W(łSWe(Mf"rfò'a"Ȑil]5<# /_PoY26&_S;!D~䁚)( g#Ii!l@ X6_Uf.hm%{ytQ)EVG|rꨅHTpO{%n;D@M2M,$eX?=mGM:_1qOHͳT[<6< i,A)PZd!=IWcȉ۸VD3% nG6_ V!熻 '8JRPkX򖩝7v-aL ui11R(u{ = ~ M=r35nk7C&tc0IVQw_o NrBGCQuw.2)˘Ic)bdzKd$/ )K$@1ln|P,b+VsqdrU .;b34w&)\\sV_g#l^6XE" n/,"8pt> M0_jB& 慓9=rT&K\OyRxE:DCS;5Blr dOSdܤ9;ň11-Ԩ /Fs=R2 BpԴ(o|O31X0Y*!&yq8`n|)(ztXRNkщñ4,L|.o}"ȶ7I0vDg:6+CvVng:w 5Sx+Ej!y?k7 єK .Rd@$r/^Ԯd:}PlSig#iHe5JFxT zQ7 MװFHf5n*$}eeSg`'(:(L8$\ b*J[Ͳxv=װxR* asBnEP]_0W0?6ӋG! tAt|_j[":|U"igNzG7+!Q ÷3QgN|ͥ5ʈ<~y%(}iSz Ƹy[rd!k}0lPMSTb3@ۥw5XCEd"I`EWmJqvhLl}~ĶfŹ8 Blc -c5 ( Sdϴ `D x1lL4:U É>\Jm:^7=o%S@">z$sғJe NJOFw|JPB/HVP0**'7>]+Y#rQliw[nuW+}F ue ~$⻖Fz$+>]?  Ytq96yer(PQeb)6 4^t&ƙ[g aKRa'p (UVbeUX;}:g[H'}RhV`%7 .d^$9 %JS [=|DhٛlO8(Z=kEgZMKMCOog(? ڶץ-Ut$iT8h nDH럙 ۣƖnw Gx*p_͈O[d I&Jf2m+zp;-҄RcrJ0vQ9i+>tanȊ;wSĦȶQ ;sQ^!6>[܄jˤ'Hs>xo4er/͠Ӎ[!V/?-M[sst\ßKzpҒ(9dX@(4xP'_'K,7Vah͟MnL6DA1=*}G I9ŧ3׆Hko婢,^mF>~{6먹B| Xdӣ^W'%8 {5]t0㪝0N5p5o=!#U1W\"ޕ3D8e0G錕݌09E`{aohb{ 6I@vdf6gNl[~(7H՝3AvBE'<2+{+"v$7t S5`D鼴.yӣ05loW1_jwu/;4oGk%"P(b#5rs 34@`(mik-KVɆFYӿ`bC?I 6; # iS y tyjߪE'˱5C"B\08QuE*:$sX7,,/@Ŝ8f}}:iB*];N6 s*S\tFY&"M@ph"wyBjK6F7-?Mr/ Fr ^?/m?Uu^1m-) |Um = 뺵: h"&~ʁ?:M$\h4CdF- yٜ Rv+U~{} Dp6u=]u`<$^gloKD] F3;C}Eke AZ~z$SgPexG6!]P~Rig ΟQ&rTb4!x=3rQ|@CT)RĶ+O@;U2s YϞ7e)n?=)O>K@RSA)1 W*lPҙKi|qjc6ִc?ɇULiPPȮUdd_೹H@C.i hV.Qv2Y^&t&Jy 6-lP6˙+7!fɁ񕀄ٸԘĠb;r@ 6G֯ :MH zxLf 1^HD++ě00fX*,aڱW+]j+0fC yq@{瓤Tl+j6t;Ū3#ZIT68ӭ'eihqVX))kE>$Bg̘Ô&Śҵ p*ZC֚ftnlR `q Vƽ]K!,vmSMQt4=#P* (4ï+J%-[sm< ?8]79(cǨc+Y*f܀ {*{*SڧR\BzmS6sɚݰBL Y.j ΞzdQ~6Rzí׹:Ulm^B$&@݊e{DʏmӍ S\#-*5Ĺ@ VOc;֓RΤ]-m8φgtlfŽbFa| PMhv[Cp+nDlk{ Kq=q$\2mg%a*0ߘKV)w.HlzJ'|=z |BPɤ xK✼^:0(V%凅7@W{!hxݯˮKU?9N[˨&v` N3ܢ}rphw _6cAA^Ejʉ)::FK#vJrY)pU^{ o\q|8 PྡྷݳMB'臦?"\}9K/X-~M2O{;\ݮZ!/G]^nV>9t`_.BN`cՑ #I1V8-m9ΞbN#yJ+D>^}P^d˩I}-,TUUe֞s̉K0".u9t Eq,`N 'TrC1 Aj*MVYȯFy;WP{ڛtSB*-Bl0käkp+DZr*^li⍐$i3<17[JUʟx3זȿ*I0~΃XLGNʔ:`3Ӓ3B0nvU Cer%\px22> SWǸSٶH`@/^zu)ܩ "fOEr%X#Fqrx5܇VP+/Рu[uT/&)HM[_5$,2"ee Λlhź9$D9U^V5)%rx<:ٿISgb7vôCF` R3L1cϒWoL<*GcfylT8j(f5z˔_qSte`yWe"g~G‡lobEA(KJN-6:su N8 )@fӞODٛԁu>YħPIj_hlϞq?\҅V.V)&j@sd/]Ԧr9->~ (*[ \Y޵;VXUǹE~7$weAN =`zlnm^@۴#̨F)D%}4Z`/"bf˴ ٬i?}V&!pAj>a&Ȗ2◨48^XZFE7ㅈ ptU$dteX+:=4[g2 hQEqTЗy ݔUt.-EV/D8aה}K Q <*b]sQY^e7"&WGQVhâŁQp>C,#RgS%"v‹lJJB[N@2+WGsG|F_=hDy0PAGl# wC:#C8Π36|靓'@8Zb:ic!Mt{>ne5L,?{ LJ * n)fW0fVօ`W;PnZ>(td?ێ"aF!~KuǍω1MkdW_-ualeRU * 37P>{Xb&?**hx+-` dF$/1 dד*ȿIxz2 TKC|`w#l0?Ҹ3mbob=قȋ],)xt NylK1Y{uHc4J/!MOUMЈX8ﯸVMQ Qb`ę?"/oB$GifQ>(%WY`)76 3nɨ1)oP:bm/wѰ@9+o75⳷)U4h-tb/I`"X'D>Z- ,t>Tn7ɍ?F8*5d}ؼ[:sI Q?[MdZe[ݥ!gw)gY(T^r}^aN;fC|jFGz8JE``n6ەM_eŁ͗W-Fl6"BD 쐑 ea#qX&R'pj2<i*NTD r_ x'im'-hl')@dmFzlJ7L1gRlb\9IMu_ JE"d4X!{ڦn\Sm8_P=b|P'E{G/&3 pt%u@~ om}  m eD~0痍oDHkĩH!G,h*D'M/sE.'P[xNΟi2vgKT[&۟>`b/z(UZ*h\A^W]qSzN[Ҵ6Y& IK H`|s]Whm}% ^ތז͞!< Qf,'#a7nl7l?Bf gB=8⳴B^;YĦ}dqVPX 5U\gW, MIV-PD,[G)iŇZ*ffI)_wk)D}Q $Lc_MNJbuцs7$zhxA}ִC@4è4ϧ//g17D|-/RVqԪzGΛI&B KF x)>9xRF 0#6w(=~˶eiE˹[9<+0L#7 @W0jnya/mJKxn KQUz _6M ezmꛞ_eB~AGms'5 >Ðˎm~inCCMZ3\ wg8 C58#'9U{r3I +]}i>%1 T4w&U3!qx'.9}ƛ_@! oѵ34Mn~z7xzf wמrS 'hXeShS9Ũ!'3ND4"ɟDö)ˀTQ Z$O#w_1BX1'h @2lZ'o*G+t_?F"CLMcyƭЂ`_JE$SaS*ڣH?w!3`2d?J T:q U2183L0!G d[Ŭk&p7"̑OTrGz[e h cǗE2 "} tC1V U?j|1+zk,Xă U+:iiA dG O|Xٴ]@ Բ!nLNKE1Y'f*p=Z΋Gt(›;1֯5m;RouE;du- yd[^BL\3ΉK{HifJR ",onu|_иs .@F(͟mt4?67Tt뮎W(ݮVJ?9_mcm!^ioƶXD l%N Ɉ 4Ē;S 4Yici\"2VS/B9߱]Q\5%Uf\󷟉\vb6E-%43.@#e`jN#_ QEwӼX {mNk̆Ycf-d߾=}(nR3W=/漈fJIlb\TG;"ЭnM s4"d_ְV@?2 & $:w Edhmۀ7t\yz*~ ˌ2ךFT/@<2KػHY8n.ڭAl 4]1(J9: WM/U ׄ 7"->l@!q͂y0Ί2\hbj`F)DT=0u={`̴ޟNR͏E DveUaNk,[`#$bNH?m0L AZЅ|U{,EᇘYh3d [$2;Mt䜫Vq:ʷڻFez՜oF!\5XVo|vKX-!I[Kquk}"ob Rg{-oɑc}Zii $m+fV6eie17ـZ N ڳZ߇8٦r/15f GF=M,hӕPN,'~"<@NE:Kj~IV|k;Lo=e?OJR񚖴|S:~i~ӛ)>9OS5M]ՙߔx :Fj^<96 j0pKCnK1" ? qY^_lz%$EG%$cmzUnm씈08BFR?nL Xg[z}"@)t hkzn|ta#P, *ŀ>J9t]'ųb@0q B %NnFJ;+hV }.t3Etzg'W)2 lNhҲ) \&^sxh{p#y eUgQ@en/b(3s34lz(AEs=XFBKJmWHt.w[mPy-{&U7K"Xu#vX5+ jA)WI~UcA|KpP1vTsĽ^8c|5"!8qP16 X؜ŬN3pzA v/Nd0>5U1Z'ps SQ:VE"T~IH'z ٌ*s;-9܁j;8(ϟ=[_gjl*iщw]F%2v AGhU@Y W|ZЙo@y %ԹaWJb]I_l{Qw(GJ?x.X2nY<87D`šZDlp\LO) B4B')cA3k_%WJ!_j%*I2j"Tà˾WMY":4Qf>wKΉ*)rH2p+}oyf)]iá~ $~,+ED9cjjG< *#6`V\-ǡ;hxxc")?NehpUAgKa}6[Y`4twKphiMei}l P=}Nk2&7/8rBVߋe.\Tl$Q(2Qwa cCW5= L!rl.wD(nlLYdsV6T6T %zgbR:C%} (is74Osy=)46A럈*ELu#e $OG%PFmm@$@L{ZbޭlMjދ=75W#1a9`X4XОt6}fHm *SqNh]O*J=g-ar1$Pm6H< @T8|7y@ XA@>/֘ArQ[jϛfN7 eMAI;ؗ>41<PnD!kۗU;! t}zb$ (zOɸzDvs ͂-Ga&0JF*2#mv*}SNC7[b+yX3kQן,ѓVikya!u6b;i4.ȗmrzu 5 vw"}3h_']hҺ(0TҬ\EXseϘ(Y+GrILꧬBo9cv~?E  *< TkPV"p~JiF6ͦ/]a:>yg,Cֺ}\*A2b@+,߶ѐǯ`k&4&‰q~A*R_E~y=wyx[;1 ;,bC9[*8V;ƪ:hznV CkԧS v`t + 5E_q J4)=’W\E$Ol* Լ2`u -\ P06~Wu8ĥ_'pd/#) vA6& \Ō򡂽jJ֜v G qTh%i 9>nn.D,d?A r͛4 V>q(mCZڟn;SRD%{ǜ@%ȔJ3]XqoWt<%ҨuĔ{E+م /^.pڻO XTH'xzTR_&-6("Y~9)~aanqӬ5:!.Q}й;dȏC:BA7Jn]ߍ`~ hHbUJ|*ǴbnpjZnNPMqx0?A2^|kU&blRk5t+U,"]sY8(BV= sZaol- ,B)r'u8шP4u13wz~pc$I(t3^cQ,=0 qH3 YMʂ#S>hco~4{9qmR\4۸C,ېV$@F7 gSz#S40`ƧUGjm֙TB ͈Ye.5?H/Q 9x.5a~\J,5RC4y iD<9̻ѧ[t,7`>] 9ǂfj<^n70tbX~M~$&+U^,EvJpڏhG!RD~ 9d_:ۨ6'NϷ~ޕ?]OC/Sa9?vu=wh|`m9gHljyyylkeiFkZW ^sF^׉ D/!A}*/^GF|>ы-6栝g KNy@" 0t$v6Uƒ~c 5Ǟ~\X'.>kk}H ^ՌLq6e_ˤ1[WllyNcҢd# Y7|H5pLX0^|7k\LJ5a`tgge#C#S[<h"gr:n ?go}-!8j^VK 1~9 Bj3j)UNe*XH:eݡ:3!pm =,3L6[):Fnj@>-N0If`U%}(3] ;0m˖q +V$\A.f? ]{lB]=ivwH.i0? Qݿm$f Kȃ!Y(-S8?*M?Y$_F S@}F\`\3<!=UL9Y U`h WH  ?,a> 2_?ͻztb*|Tt+y`a䆵$p͖ &ڽFEA{c~P E ÖuIˏ9CۀL4_%۶9a 8sLswßoŤHlʕ9|Ҟ_\|46nB#{ IY;=36~@*Lv$`SP#m&5QI_McQLvGfA&2uBlD֕NtGОSxɨЦD`~&R*9S[ms㎛p{8a/ ⣲?9I ׷_?̀٥"ujrvti̙EXįY86TzI MNW&χ1W+r:k6n}$yP!g2| žo7f*UxaXpwnm\hWu"xhū"cMLPY+Ϊ%!sb28Vi¦Se?u9@=LhnU^7\n`+5̀SwIQTO vuUi̚ǹ-BJH08]~5"2pu"RY= U̘-9"$vxT+KoMY_xDgi*qqc7[ݶ6d\v1L>mkC֧C*kAXUK{Zuv $c}^@Ȣ抭;|wZ7R3T ] eA1ux|Mϰ[F~aQ-k1)?Gծ*i ̤h,wZ;LK >c&bo=2$B4-Nɑ|,ST ,{ҵI5`k‹nj'赀~)OvlD\=m[=ΑE >F"z!Xg?i{GIa6~qu 2dF8/)*'AWy I$:Π)^-&a`eV{>q,@]9 }\{1ԇ*Gme曘 /v׫:w"; ; 8Vu=3?#M6~ _߉ևe-n7o Y9`UDJaJzSLZl v`+t*a3BjW%WpIJ{+(gnkVeOrrCD>?D]3!Ǧ ~F;3'SGM)Yɣ~cJXI)wʹRz vݜ50E܌F !=~M[#lYښ?le>M1yfɊ- ٔ4Q N6dZZ-26 j|2Ԡ8sz jfLh:k н%ٷy9ꛄ7dl+_\}vgB))| XF\!4<`4V; cr9[@ى^md)/}rfˎ5E0[c.{gRj*ăW=u'D 0R|(Tj@A :Hl00 G)Munve5N, JOfB66e${[Ԯ"(yj~,,2SJvo(-ޱ#`6t !BD5|9[x-G ǛSts7;Lҟor)tx3sb~D_"ꖫ|aL'$໊713DUƋ{Gmbq3{Nd@k{+)%# tyVSp7\(lf?+ j+Q;^ Y3i5,UG[ k}0[ڗr\5q*T;seD5E.? F:X?hMPUjۆ:uBF~Jg 2\zT}np;zoׯ8a2. }XA->V_[~3}[z<(ϳvpb;Fc~W,ûك`l?H]߁|~,gKr`]7 T}M_)jt`4^ЪXs+&3ej:]Nū.@p}ht{ a~ZYqg޽u`Rўov q6앁'0ڴ|kܴiJ(.P̯+<¨ ze[\B>>fƟqIJ\}=jճI;UdcaYe;G[ *᭬nJsl7t;+h*# <9hY$ՉEU1 !H<"]THUj3b@Ro1B[ 3eF:=E)~Q;b9+!nal.a&`풉bR?|wQT .iL_\\ޫX| ǦbL d{)z {J]2ځDem682(P߭WȺ_V5@/"&K=:2J-P?Ϲ ʲ"ʌ1,Yh)TU.~牪7z>iّ^{>'ϷWe_J(S@\U+ [Dq c}gc_|0+"qIF/Ka -rT!6EB:> b9M3+upS%DeNKr}R|#[/mbŒz5wauiAmHfٽ` ~Aj,ǀDM˥s)TNLMh}?xZ' ߞJIuT"e^Pׯ=µqŷ'z?T:cNj3 uM(xHjpep/КMae@ɅQQKo rsikNqyMՌohaJgީML`~$lvE̓&D?<.k,.ͳ|ekm*-bΰ'oVR̠P[{ZS+7^DŽ4*9;<و0=?4:|\=@j &rhѪ.!"bu] ]jb @]F1:jkKd( \Iv􀒾~〨8 z+yqm=sV->"Z!vQp?FhB5`y,0ϪIO#E 몭h"fZ,0gvrE9aO_@o k[Of1z#9fY>.?',PRxHp?e$nvLy|G@cGя6n.r8Ne/pIiL .Jep9)hKC,6qֳ*!|r2F58 'v}Ȑѽً 1 sˑA KN2m; /@7kD|'D7sN\x7E`_˓P6ha$yqDݵne/DUnʠAP3Cb: hm i3lpMRk'  |.aYFnc:ˤtʳ*$DbО[ͻ*[}QȖ1qrwk66)Z$*(kc}6LL%"Orծ<L7e]lT568be 5Ӂ6c:~2IIJ9%բ H9K1捗THh(hDU<j#--H=4%KxgMruS'edeȄ(/n=HI<2_*9G7KV]LsXՕZ.pX2,(tCgCtpRl+ߙ{}7e |#h^ /GJR2v3[[KVzHѕu{"|FaOۡUsqI;0dw06msl 0# s.y wmQ {]sG7r*:?25:,Q=] F9<|ӳoF!_JhU֢pwi`Xqs~|c3hFJ`>&{feϭƚL<(SiεMm~,^ll{'*? %O)W,#l?7݇umZ`m㔆k31/ nqϹz>,y`k-e)Bo߅zau4 '8dm hlCU@)GPWr} ryBtXI㍩6G ~3gu[PVzU;,C.QWNM\M} Y׃@9N08)e(ak>u ). :/ffi4 ac/lT_m[޻ȭ u12yVQAIABPNo#*C{,ɰ8V"+`{ aS~㹘CWFSUNM^B;u! `d&lpݒrl hch̟hp7Ȁu6A,rp%x#Z)-I OŅ]f̧ľ b8c}÷1/g[Y;0G"y,f]Ÿ`Yn"\c_C11Td6F &Yޥmy#c>b3á[VUV&Q!w ~LN^ȱNy襤'"u8ͲPupVle&J8vbړ5`<f"th@HIǹ_y>k;J#GɦSXAB2i?*kEnX=-e)E3 9 6W7_;{ w_+<fڞB7Sp3ESP3 g7ީࢭlAY~[ n&ԚG3W*x@4M@q\䚦Ȑs{t+~;T:~^/!5눐;vYTm[[Pq k*K2"$JnN;n YIXUAT,}{cu&i :"wjR9$.+ wRP>\[,/ MKu(Zazb/;^ +&{>I -4U'lwbq<ta?1nWt<c=u%& v qI&KW{A6O~އxڐ:q?jϝGX]bS!AfKD}{ %-9݉ds^P`ɩyH^I9 I6+ 4w?_[4g >0O2ªaXܮ&7@T[4}At1a(@sDHqއ2p>TScb%?J, BT VYЮwU0mݾ3J`pO$6-}>F7ʍNѷatڕpjPcR*_U Su(1• gr[ؔI)bfreK{Z@>cYr`Hs|Ot()'zlb#7Ro`4KawB*&"@@Ӗ)1'LsOO),ĥ#+Dm*D>xjbr繏_j 0gZU&pY@\czm{ţV >9!=6:Q(v}-]0zt&cGդMax=hrHY$MGm L0\9ђYV$?)A/hnpm\(N[! &SSqK:̝3N9hfZ"UflxV~ë-ZoyH%Ǘ|[l 2nP(J.GBƬL %>[,da)ڎkf]= 閶I$$݋tHHky3R~Xl8)9| -PM5v]v/[Wai]mB\CÕ%>w416-uY8-RF@AE7 gX A.{_öJ-r߁J&e<clgˌ\O2c xzVk6S &}aǏϭF]MNɨ{4v{sӨBӅG<ku9ܓmӏJa.0͏<~Wy 섇|ᙗVLȣr:EՠмhĴ蓅3h!O{$fpNZskb-BdN+!&KSnz~o3*+i qA:+/htwW-.T4k$${ wXy+ D.O7EA1Z"C7NxqW;Cˎ }r-z֕UB{UTI_>2 CIUCGZB)P/WwTKȈ%3TB⼥\T V3&3? ,!;UYg>dV\,D+x'8/j,Bd\s*#W,@C*'; \U^Sb.dGPo+-+Lĕ#(3#dIa"-LOTԘ6H2DCŽe& pv$b)nzO,?PM]]-/}ޏɊwR]~8Zͅ6YT'Pm9Ԓn{ GM-?);qdo7؄=3 k tH]8G /PF:r@S؇I)Dȼuev}Fa\Fw~EqtwꕧFFv* oV{%5sBOyBo\ L RE#V֐͐ nd׷ij]<ĊL.K䢎\V\ FCq&Ms>vRY<Pv=8]O2&Vܫ}jhB𘼷뾆B@ρTх +P䅺,u]O +"u2~w5ǣ[/aV,q$iZU$TQ.txKDH p9Vܤ7A/vGFQ b or)He/!b>YҢ'=>2*w_ޝ}9|H̖aԁ: -Z݇/<(ZblWܙ cR,E7xl˷x<ʊWF hT|m( {X=;lRmbf ?#hꇋj U`"xM(C!F%\3.c s(Un@J]<=cy3i}I:2]nB@ܔJ>vzh_IU` 8dJ5G˳ĆRl$ '2'zǬYe)j<b&`csg-!ݶEkLu ]kÎiD4DAk2]șR/OBL!i 92)Ѿ*6sDWe$1ܝklT5@U`LUro'tL3&`ߘ7?6ݡN#-涫} a> ZLqc;Us>R)ڭXueL P/٣/ۊkѐP.HnE'J)g(6_ՊKS&>ϧWi*#`kЮe)(, !=|F%g2FJb +GkiVjB<iv8˳1|%sYᡵ"*mp“nˆ.6kv-X -z7p tɯPSpfE'&`;'^&:tэ(<[hp1":DZn8{й573Lih!H{#wϐ[C JI [s2qV9HL/:zʴkz$!ZRIĄb 痜j'>fP ֆW&. 挌-AEyj ۗ+AD( 7Kgy7+lCt1%e)Y3 bCqCmGX%k4|bT>AR;UȎM12sZuٰ۽v.!᳒KO}5 K}G2{0(26# zĘHP[K8ʡp5M=D{Z;#s&jȐ8=*Fo|k/s70tSksrQ뚟 xDm();u%DZ4veKQ}Qj8\n>Y]iJɼ<Ͻ!'M 9g;,Ӕ$i ??'o貉h"EĽGqxJqfev JQUPj ӌF KL3ݥAkd= lxxu M=:-ÌEzUN.)mOH-}.+cpC.1G@DǠ s o6i~fS2os7-Ҁ(ZNܤ tM p'4϶Yr?#ІU#kؤDEuʮ$) ъ渑xm pdVQQy{z`+Pu^3{\^f} 7LK.UVw(Dl c m['$f4|o<@$xV(??l~k߰iy@Mx>,Itew} s8:ohGEXrHa$b~WȧsK𼷢խo\+TySI]PJ(Ni(ױe$_Ҽ^_vts%q=o3=O2~ . nɭ*hsh fgFmf,W)f$!V@E36ُfyb4pȪ܅߶i60, NhX%\4Kvص]ZLf6S"aoW9yERͺ/Cl*M??W4%{;SXuCjM\N4҄&Dk Ju2Hcx5tE |YqɏIb+u> L9N.Yê)WHL-BK ]N{pCHWJl̼ ,WQ y5R@-w +~\cIcy+Nnn1Un2AI8ǿwId2ڄ 㡻D`~dk& FjM$hBEe(̡h;/|?9[h㒆n7] QN:cK襎7&˪ = M! T RA:Egm>QOtR!yQl_,Å`@ =L#i"vXPnpú}HM 0Ok z$P[T~b6PKA7$sz%1:1Opr:$5}k=СO\ƞuiMd"[alx%ȩj citsEԇ< 0U|liO騼jcW8xT=!kkHRmy e:&&k%LR)F>ߔ 1ѠGJd:WvK)_GupivAQ[=kɒyUKdg-c9(ן[5CV2\C)'7dw R ӛwcn>v忆#ed{ulA8DinE^+`йW+ Hn`LبjN}˔hħ{}=`3+-DoXih͡o3_^Ws;0#آ9#ۓ~"AT/,qtcI>_' x~WsjYbBNB6"77ݳu{Uk]͠}2ʼTWXTVc$;A9Ӿg"5DէQٴ_RmXdH] [VJ/ Y=글mt.i)LeX:2T3,'S>֘ƥk6 {Mky׌)fCH~B9$ӿ\Lə K*C"ϫZ qU)޸CЛr~Ɉ4|Q=u|мc~Oms&y0p6JՉUR(%!gG, B*h)ˡ7?pىy}\FwNiz._;p܇_ȉ< Xu/Úz̷27nW:kI)Z)3eTg Հ RۄG42[qfIpsU9|t6{*W;(v4T2,uQG CJs:i|z(SbIR Re.=Lϗ}ʮDD_ c n54=~v6g嬶 W@QV)=͔T@$U۔LV+dmDV3)ՃM/D $U*=HTɯRl󺹜WJz8ꨩ43WK6ɽ7I˜kXb}%u\͡?vƿ% 8~D{m) P&^F{C3a[8 wAvvc0J X*KCd%EY'["t &9h C@.߰,&w@nIҔ09Wu78 `BfS?߻e_6S: M6V#+v樹 =wӲfv[IcvZsKOm9ܦ4TXqXıUYFN_ 3U;4#Wc$ 1mlr؊q$ _ҽGuT$fš%N e쓙, ̽?ֆ8 A-yd;U3D/]79k C=2AT"cc\/ROF\OZ3X]7l !L5!%NxZCi6 qGe7QE8g.wغQ1NYyGmSgP"qbj}d5!P cBB˄g9Y="/[ EW+UOy*ۿ7x TӔL<%WdZ4bTE[teaÓ,O(Tw8k}lW6zK{0%D38%=$*[r"@vPaf"m,J#2UzIDi ?VR1q'Zc'كn-!r\$xcNorj6YIؔ-77Rj̫^akŰp,>dqmyfKQf(w "*2Ir᯽-xqίin憲lzkVATFrW m8p3SF]p]+@WėUV 8M^ (+2:!˚Vq*txdHmT/M*/&RlX1,u dзY|&"T,0O;Ҵٙ=%'F=ZZ- A=~Yc! 1*J_4ly HմD)[ld+pqE\ot\)V*UZaH6۱6WHa2Om?eRBg2U8=,?tfvjnђAPx ti4 $#eٓ7yL_L@7NL,y .y>4_ ?WE\e_gnzSo&2_v. OX[LB*ZDi$! :Ԧ[S 1:;IO/5PxP<){z}A4VfLpGL"sNqD7oԱŪYꏥjs귱3)'A-I8hrc;Qò`^2m"ҳ]"ƤʡqHUSvvTY=qts-m:bS8M&S 7q JZ?{Iւ>(hњwz19LJX D@/2ʐ苯U ڍ@7P, Žc7|\,h@cx{]NB}>UehUKbC)5c.*8D-55֩/G$sXFdG32bP !6`A}%cz5 ?5VUڳe'zul{Kch8&H+tG##b=O@[-}R?:C * Uy4`-/Y9\4T@=@7c;}d@,$ z:ҡC5t&Û'Z >ZV}B{%X֡MJIDwHs1RyKAƬ8ywi, ]p'=uv-R!\() (O%W4y;KNv7[翫5D2dcc+c<Õ/4l(`[ m/BGq6(dEqD@Q`pOyzwe֍/c5Neq+R0cs ML`"UDsfCZiؑ!V}W:Dn0M`w7grI!ZL7YJ@l%2/]3WCYv.ɵ_{Qze­hO[_,\uqR= ^9$ב!g(Ƥ<:@+ ׽Uǒc`Y_鞠::~ҨלPA?PF*C|9Cŀ4hbŵ-EusaW'#Ii4bO*d?,=lȕqb\qhݚ0QNrNg2Z1I&|. JɈum>s±c-0 zGt]M'6J̰3B YSgiYvk.FFsxU9k: mnB7!PNӖ@,ʼnN|=RYi( /u6|it4MjD87 1x[ j/qYZ>YĽ>`w'%&]"Ȓ[캖4P 0:VZM$L4D ϡXQ-|C$1ZobV'Vm+*[^ fT F~KL! TubȢA5D:X(j'J={-2LQkEHSﴸkb鉿jh .~[2B.ܮC8K=N~Qb|;b$[k0q5}aT󪊚Mw;mTk qz"J FAq+({:\.ʂEٓc&*^L"9SX-cˠ#h }NCvuYwAg6-g4_(xH9㐩n 4 L;zOv+aC]W.DGZY ^k5kxdVT^Do>#!)oAJvNdʇ6{||NlN C2IzTB ڍxF?t6i-t{tl(q!3&UGC[1oasM+4Li+Ulf6%G):! *"X/>(/Ks2n1Yn6@.}|/'q ż|I$ȱɟ;ME_[_vø}Hy}@q]7BE .ȖMGAʨ} ֻ3mFX7YuWpWE[ᴋp~f̩=^n!DnFQdR2!}\g8F2%U,'JbbRdt]q3n0H85kABѻթ-S(rXXxfOP*RyLt$oE aYc߁(|TcejV3)ƍ<ŘZ7ua@!D3N:aɾVqq3 n` (f]cV\'R3 cR )S<>2SI.)[DoE77z/?{}1,9M2lo:"T=q䑡b˄B.G?b[^B톭af t4{^5=1 0Tk2ﲲjDvv'EZ1aB7)D? a\ߔ5Pg yoa TgD{O3_BvL.;p_>a' v"u*`PX(#v f=i& ckfyP)q3.Uj'3uu>d-bac,r;JEBA1?npl&x`NA$RXcHbu!2*=pXb",h!?Q.[uۮZ?ďCV5 loY^6C>#bK]}^nL#K̪?~sÔ+4@~,!ZYWWkє#aо"OAzsHG5RPf7oQ>Dn5%q}XJ`[mPM7cxe?c|Q%,׿٦$'ʺV9߈;+AR˱9X_#ˇWqL`M:~UCJp'g3hXsHp]kE$C&ۯ߂4vԈ=67\ O u_}}TGC6Pr,f[`k%~osSyfeG'zmO&B fr ^ߤ(vÃAd{q2Eg|vsP5J3KpKy/H =_w[ r43L7 KA{G9/*c']6 908ysKEh`T9jW_%ƕ@AҫIbjर|_ba$ACCB-8jl58R5@L*gw?KCÓ7L-ԗk.V(vѲ2RDlٹ~ˎLbS 9H`7/s_m ͅ [%<-m : dLF;ˆ[.$C=]y`{2}Db;: [ڲ=CjvAzڪ3Gy*^ADkE׎yCWO&:tꏫ[& 4^ixUjn*݇qAjZTv/ ţ<,}r|:dW|DZۉЯqv8:Z>L O=. #^Jg[8oz{Tkс'VT2^J?3<-kxLzץHPӾՀ (pش5^jx5ս< z70URûZl8kY? /-J[L };~zxl]~#pޖ+esGfBđb (U~fT9ww⼕TF1h͹^* -FR5whq8~e_ɸ4' Gm[V&LncpZR *7`4) Ȍ_ץ0$ht . ETwaai\:*1/fz<Ӣ@ᾧr= Wgoޓ]/_ _;|﹡9]cް~pKqD[wZx`rmA3EA+Y1)Cٷց񻞴>1 m}g ,,:V S@犉pV.mHֆܠ6Zw^v^x2hsBPVMv8eX% 0 2"ȖX dAn/1U܊m2+ !d)lA19m @=b]o15 f5;K'A~lc Ϝd @d (y%4e{N6, kbSK@:s{Aa3sEJbZ4]nd޿΀~o;wyڏ؅ݜ:o7! [eiVM&he Nmr-bض)f dk6AӃ1뽜X-D彩fXں*ДPCN{"Եv0 :o/^@g𫨝6Q,7;+hꗩCq2A[g :,0l dg``v&SSvJGv~)%`1 ė!pcNj;Brxhv܉"5ziV@)@|'at}{/P&yndRA&,q7 ^7_ W5|14;3QqD{4O+\1(kK˺8 S,b(T`!}YǞ'Oy^՗fy`hFpKy gq׳j1j1/iaJp:Ni@|}2,ue0 ~ƮUנudZ"y0ܞ|@Z(PytqO :8zv7DO mw4`nqwv/|}MSvgĦvGآyW  u8`Z7Wj ;/JcSql )MP x"/)JU+{ՄbI6 <_y>\%J 0-O ?$P#kVZ6nk\ q읱@OtA7tvԬ'w$gUZbTbj{hf#Tx &OK܂=eFU$Z5ƴ,WYR^ vJS遜֪@Rh-,"Aoi927Abc4QDfo:GYx1?Nu5 !WJ`_L*k(^Б &dxKrԯ)xsP̘JhE{Lŷ8U~gܙB)Ce5?>1eƁ~^r\.KW)|K,h;?h2Iwf+!Q%eYW9ܗֽ1ա?s8Wg07 á):4G= ߛ")݋y#NdI7ܠNNHsuoE|*;D%y\Ģ( 01M95g2Qe PNu{ػ ZUKV|/,eKZyS&<7eIkǬPIϒNՃ9sCZzMnerkR~GFq''X@t١9 9K^hԧTΉ}n]?0hh" ?]ߌTn.s/32`ݤd hm D_.l[)i^45~LJNڌX W) y(*bvI|hV Dh+g6n *S>em<w `ԧ,*_H#QL7 <R*^ \aJ"+ _5ܘa -S'~y%n9wa;jG.R>'F]6{µKC)W} PJC=|\]Hѣ2-Y *EL8e{ja|Go9Xu I$UwF+ p)Nܖ0vdCc$1h*yyTVڋ|23CKD|ͨuԾ?¢'rdZ[XzgWVܠP70J@ts}~p.s#Ed'=֯eU+vXl&OsP GT6Z|1 ahkUݡ;)?acJYATwyM?;뚹ڥ8b2Cx,z`(7xBx۰9~c!̀c=y  PZ;a@G4Abp=cs#ِܽ?"<-|YsQcڮlND﹔"-ª$9tHۂH_ ^m \xˤ0Zγ߄o/[DrE ~FS=pUpYjʿ)V,83/$v*~ MjwNVf*!Ə0D^7'#1~\64ϋ*H^-"{I7j*l^6g`qlv^z|# e[ԹsMknЉscH 65AIkAԑL$i; Y$0V)B]Z0kkgeuFF8BM,̬j' T_^VĜxXpnEgNJ|C92@z@@]p)et`9%D;bf]_=ϧebTwILxU/4YLѥs,1|/#BJHh<9_kD(A*mg8YBf8&R@om/а =J-g'Z~zY59>ϙ[yv.!c#zn[.{DSjO*(T.peZ8^뀐u`8q|MPO{XG/'w}u84yW\'sB= ? Kx{$*+;<"8ed)Ռ(uXm QA( !FF%V"gPvu*=}GԍW0^ӽaKUI|DTQkbc>эW@eݝ"Њ EurGvq; 7Ե=3[ E%(ХUu_׀vhU7ye Ì[vT*`R<A7|Jִn,ٹE eD+NSꝡ_&b4uz/vmrYL1Sk̒ጽY`֗YǦp|SIJv>ŹĹ*ՃU!n> ,A>qL_y,`ֆ3xG ()*|V? '*Q 2= yX>n^"RͶʑNŘ~A#q WJ&e‰2gפֿrint,Vxg.OdWOWsЛ$zaVo!n2X>1:ĿӠ=Um(*l*qCP/80]l4d}p&~$O6ƛB3$gLC2E?axOo,ђ` TD9er;b'=lY%!DI閷r :[V d~s2Z!.!vѳO&i>^MDV{k? EjCΣespJ`m'=mPѝLcyhpk߾YHfnT^^+ ` =ml`Pmh}+g'pkJPTx59xv}2dmylT'3k8!SaGQfd˙qpݬ6pLYPw'Ɔl1{BZ{;-4ĉ\9t|ieL"v_{XWv W8Z*TB4 qC7#J|WI?PZA8&E8۵lz1ƍXIZnf ;,,+$2||q;u!Wx(ָ_nhUnXAQ1i}s*6?@(ff~<2߯4?M, )y<05^w;d3JBy U(Ir\f>B娩,DE>Ic& {iqA>,.RH3t!6O|S] fFE8_)0WAȡ|Z/j7]@n=/Ԟ9Mn U +i.M+zb‰f#:DW![p@"֥~R.Ty>zwg`,"IdрD&GWb N,xN^ޛ켌?>#}39u$Dx&i2dx|}PR dB&;euV Ī >S!122-o;Q=̓Z #}h[2`#B~ 4]Օx A#.ZtvzC(о HH{ 9K~N?vߕD jlzję9 ?,{e+ AL`j 0;, bf%`"4$x.|ꨒ=2FYe <%ÇN9@*EPNԓo8Z9dfV-"wi]Ս=Lpi4%$f9fyr(w2y{z/̅hy? GgԀ/MWe\ AVrl&-{pTV"2[6ٖ{qɔbCp A7n\€@ҁ])Jv1HER~J{C8vɤoӧ֘H qBU`-lX(X~،-˃K-B[_Io-yH)u7r\vP\d".fSlbN:cQS8L|4vK+BpK6s \^W61NST, n>̮+t|xQ h,*FqQD]J0bսgͥa1(jJD-UcP"QiJA=52KM.=Ik펧3[r25}!˦9 洗jgRT.vz7յ*A5 F- Z>ݨW1X>@q =DB9}aAgrI-8;f,58ܬvيbn\}ҌBmaVΨ("cb֘{| PDVB7Z6>i~Cv$c6w cܸtg3N |ZW3;[_drUǘt ]lKx^mʉ{CˤN^ʒ`mi,ڋV&z1sފyK'pX5MVO"yI!RWT0Uw$vPVe0ʶB9J><-d=NMݿ&_gOl:W('c'(mm-"nW:6c?0#R}B*v /,mz9MA1z5xG*Anc1\CX_wm .zu4+\/Mj\VuAa4Ct>Gf˸UCwx\O:[x)ܚg xhlVw)fI,7NU-du$(knDrk'se▷&s;mRgvFR18ESDQTL.<#HOkng}%Y/RC!a8j35q9oPƸS(1)<&0t[  QT݂k@}v9ZrV@H5eRtxhuYE8dMy yތZ#σ3|*VAc?=cRUã@& W}dHluOZckZMާJ{( IETI_?QMْB&-Yςd~9bأGq6N(3a/ (?#ĞOӰ?-@Vz?|/zte+fR@U02c ߆%f(eTa.V)@&1k Qe@4#hAA.'W`6l6_0y" QD ?g*raön=zsiVE^-- |S 5KX~20?IZ;{2v]8S Kb@IsOee7H)ڥ\+OdW+뙎@I9Dy+[e!D<zx1Uo.;t$Ɣ1,m =0tm]=v6lfqRED/Պe%Uu$ŧV =h D] {PK1NPTUEl6>V /)B(;ҚFS* ɡSHazuNMg9~#.7ۛ3ߙ,<2{ oҙDEONE't^LOo(xԕ>?TńZYkQM$$ߜdx5_LhP!5C@IoM+maeGA^ [h2#7'/4:iv=qFZ@;F&Gg9q'bgV Kyݖ/%7ƖʆW`{ya=j%`2F>8yNt;z %ѪA^$Vvm,nB9(xI e W.(nVX4G_Tha/GDQe4!iwtR =Nm!~geRLt:Mt;%.u3Njc& a˂{:ԋ[BU\{58uO-WSJ=ij%I^psk"R^odf:{MoOr{j&,$QC窍9z" @KPwLik. 4sL׊Y#0b6NXN/aՠX1@Z'Ze,Z 2lE]8Gn$ߋU ڹ2BAD}ŧs\Xzd=E_Le?]Z7􏽏 KI G-12:A* [&/+-1F2 ie5c^9;2$zm1 9$;%T^PKZRSCqެ³I$RSH/4+ @U<TVWIBHDb0;L9Xh=?4tj3 ݸd`"v Xxs")18#EjdžmQy 8GHSlm`^Mg46Лzƞ ?m:Į[0!{7Q~#YFjcDtm3Wp=*,˞ΑI߮1/p%޾]-]6L Q_/N\<9׊6ĭ~^GlUmM+`]XQ$~ps_iHK nJH5x )#i]\0YA~!<,_~~e KY#3?c$\Ż9,kAE6Nd„oل/VU9j#$RHNKv,B8m7Ě.Hذ3](\vz=~1ЧelY.!"E8vs;BVcBx$j3,eMr|[|攨6]ٻxjBj]X6oDž8̮%3oKXO)'ǧn`a,'ho/Zxu *5?"YV+V`'~ C]N dP?ݭe_x&lϰ-5\%Wz׬vҞmw6j]V/WR5TzԲE._V_Guź%xVkhnOԙo܏xt52ݿB\5/5 l@9QWӵ yyG'@g r@&i⪄nh+&oݨ'a @~c Ⱦ'|s iX|00hU%]%''‘!0mC%5e}ϠC7Zm8D tUqaGc:kXdg@8+VΑTFKq: pn6h$QV63p Tglwq}ZoԾ0%g/#%pSHIT ֳĬaX/;_EU>Gx&٫OqNJ7gxJ3KS*p=f}@+4Z`۷יŵO{6'P4KRMQYX]Jωn`[səY.4I[l] =ЃIee+ww똇hO LRK<ئڼS! Ym`-'qp)1IrpR)&?sE-Ъ[*חXdDdjy|^rIwC3y,p&UrdFDStd^z/qBFZz4~uZ~/QYid>Cڠ!{8;SZ;@gEk0C`Λ5o%<]r`m.G.ΥqHFf3z<U)GZm0!& 1S掴.o|C%~4E]YIo=|TTE޿`m{#_I? 5 k?&ma1`Q]Bfϕt,|G ~5&0gN;O}*듺B 9Iq@y(Xbc軰>ҽ)a5>i`> }& 0 y^[etOr8G&u\qf˫dr_LVS\4QإOLhv’ӡfiCUPj !o%/ zvYɖ\EHN =Ufb]R=ʽVA^M} wE6KLz>l}UEsaHG\I&{.L ,%0nQ`KFf%bDIZtNqlILy^mۜ.{|1 g=Vp*,Wq ,̰`%v2lNJ==rq/e\C R< zuYV(^[}+_Xե`5 7$F7mn=5m W9~jziK%>)6ii>>I9o׾p4L[;ᴬ!r?<$0}24 MA+^8P7$mim%c}~%ʤl*o9otҧ._qUv*SP{HZaP>e BϸI)[]ijUvSK5@;THaE\|Fk*)ein 21kS#^:9:5Քdۚ-"x4:Yf/ XR5Y 'бBz WB<ԝw+WhCjە>v$!'3sAeBLT'oㅝ,#InGwBl|0V 3w  qݼĮxH1-9#rQ$"&j(؝EpM]_|R2=mhY0ntXח<ץAwD0@|TѨ^W|`I]ZOw1uq*h0LL5--]fsm )K{0p@w,-:|Ms̷>7,ٹ_pPE(]Z4 zr<Ş!۲[>uBIPTgf~D|AFXUS;/mUad\l ل?/+e7[Xq?SG.g ԷcOFXcK: 98م 'm?tW[䂈V9W+Y4$ ppd^A ᠜!вEE 23fJa' xd(vBLvq,(v\/i@'}Vئ3cP{6YpŢĝ_k20gs6p l7c`V:65Jվ2D)V%9etbuxN;ԷjEK^vN31_sµ֐ !pf|RhR?h^ⶃcwbMt`[^sQ|/+e^pWn菨}>^漏{eJGnCIKurHQ`uDD(N8 Hۡ !|t5}c2(#TxncpmLctz[0:Mԟd g^c bS/{^d'<Wjo'ZM,h{`'纱br[!6̑ AלDȆR8O5rCw4P~ Q_+@D=JZEl߭1` m#I !7ggGQ`g CwG.':WT(|~/kEg>њ\$qU7`2Z.U)Tnٺ]R Z@#sC;z1^\;';&J5V'Gpm]JXm+&zމ$0l%S/Ǟ%t, )Q'c0'<ޯ7a냼<\xМ*0ksL˃~{wPĺO7'y?s[ȏ\ E.}+'w/X|@S>*m AoUK" iIt@55@AjʄUk|\^-ݯHBhj AWA؎N?P0Dw6‚*ؿNlPF@x&^BJBf&~<`<=NT2 ~z;AyyvIh $yJ!悘%:ه~s{(<i47=jrYT3a*& 745B^`Z0Lq[khiBk+OaA.&9L [:8V߾#OG@s&WSTɹ-u%%iu6Arf=`IrRdgPLk> Xr[6u!}T}C˷󯀶:#kRzֺ% Jvxa!P] Q^{ΤG-ٮ{/)+|&?)k cs_0RדEM]D^za1^!BQ@]:J=@,#2ziTeCܜ.?GC.bfl8+ D|2!4nW-Iƹ >׳|? [! 9DQ%AI"y B8ֻPC*]"f`{Ioء"dIJPk2-Pz%(K-o̶Ҵ )| ˗:ll~әʰ`$sVMSMPS_=W.cP0qi~D"8n3Wos$Uj e.L3S9nGm[Tc? '?Qg"6]Мr2tV^,h[d;E۲Js_bnR@u]=U|VI1O$Q#/MA]>0QWc^9ghA476S&m>Ù 47#.-@IL<;sҾϯ*4G+dY a9VľLiڤxZߖz8'.>306ϩ)s"5\okő ?um>XY"m A@&㶰|:9hȈgG,夥2BQ@:! c;z]Ç?cIq5\G8<ȒY!Xܭ Rv^wu3\*6^5˶E_ g3#_#'6ZTweNby* }ek"fwT3#ܷclYOѫ8c?$z%f% Zw;Eգ`ԒvQjnS3vO^/8 .m rzw>FU*ϼL]A>!&cY&ھbT687.S?1u`.vdz:k|)-Etrə,y1#/%4'g>T@ª~Ԧd^#{(6t)γqQjY;d%FtuʺwR @EbxuN3%3$d~w\F0!{$ИSD$j9du?GH(بg Y сMYw=[> ]SE` 8,ZSW& Ep4N 35;vMvԵvyQFwRwUNrb.[%e/i Kѽԡ<'cvc&{6Gl1˞ HKh%k>?26Y~RW)j3Hi>VpMݑ'K$aBoT<{jUUs5g&cIHa Wt{Ṫuj~I1CIdq6#doOA}cPȚ4aH26p o(Cz'Qո}Vdc;kޗ  _G{M}{eUިS&In%alz7&;di!W^f$x "jpɘOUL;}W4+JS2 .+:)cqC޻HcTJsUg~u\ T,)ed5eǢ$=)]6%/q8^*ka;ѵ?,˙bM# DPYBn#ML6SpaXY fZJlsCqڠ ߯q2 EO&)jEZ+ ߚq5Ζcc<~^e`_S%/qtPLwllK5û,{]"" g54L^k<@bRW X$($F}G:Sͽ2'B<'l6 PrhBtԩ #GUڰu [š5XB/{}qK|]4\/s0G9~m}`5O. 5^6TjݽjnBkC(=>0TY9)([_Vy\D x)VkUiѹ68tȠlm;ܵFxoJlvqܬLzA}yXT9vCĒ|s-J]A&)8- 簇7^lW +"b ;.̶Ds&\T%QT,fD[S1Be,7>ɧ`/خ NRPh3w1%:p\gF̷ӭ"*z2鮊.!!w9EFFՏ YmI5ːī(NV~(sELDH ŀ7)gM+@p}R'ONMOux xOBu.@D)pdaBQ0A7mn R>UO$&z3zA/SFTC109WYMјPN2咚$I !ߞέ[57qƥ~#]~GVjkk$lc^j9|kˊf<_~sgLF^(1_,Ο rp2$WZQ8r,_}ܱp6f<^)3 \ sV"`c$b(^(H9"BWZ:QQZX*>X Ktg[yL3攲5$R;hl4W÷ټE1WU9'Vwimh&OqS(5u\XT/ಗu%gb!W 7 c ;+,v0jjh(M'3րΪf~+돂vKf1Jg.~_ _ǸIw<{vY n7I lZ  uʓan/Vi]ke1)} ឥrIXj.߷

ʙVi [z?ST>';($}w ef*&f̞Cݸ`HS~xCFQv\c ߶(Nnwme)L211:{a>f)JLwF0k 8KVFrXyj.0F> QOе1ȒAe+°)ݔgvM v9bpłH 3th{qNEiw)#T[Wؑ7kD&O¿=x f_#&!oA@W8X:ᘉDچ,nv8pJ+Nh3S"S+5B yExP)D]6R^')\k\ӰP*r#77JpSba@,FF8x{%ZoA-1 H}kM8.xL,1xO#ЫPօiF-s<v o Eov!ʨ)VzLqe?W1²1;ި/n^$Ho]-ѝЉE{cZ-J=1BbQX޶ZE^01?6QQH~10z!ld6 %*^+^)>ۍZz3Mc\V0\5ͥ5n.uCmsHZyp :)'tňѽӻ~ydw9ze,(rb{U Uu>arߌQĴYSNFg\c1X?)ˬyHYSǝqڃOrJG6&; ]`#DH|X0+L*KEo6~k7}} 45);B84M)|6!6-(9 pi")evf {yA%g,XڒZ`]_ śI^&ɼDQ 'O#k0Kf2m$O$(`QS i|ҤD~:?c-Ĉ+{@x&I<W~[}DE_vϨ˰ߌdvW9O=F|)Oa$#< '? f!]{L6f-.<]o9ND**vu)†$xMk,ͣlt.t74"b_sZ#5$|&I yC+_5n +D1o; 8W[F 3EXwk.!&W!-Mќ\Gj`Eh _щ_B4x˰%غQܼJFW$({Ĝ3"Mu&;.Mđp&|%| QR\B}jw:ًY}^D:q$Ḿd]JcE޶_mX 9 ȰM`2K#:KD&vB#(=n}c#NU':7ȡtrܛh3Og?SdxocA/D6X ՝9ujɭFo8\esE8' 0A hqH!G_|i#M1+6Oӗ^fz.7Ch%VsqkHcID"̆EA<) vȝR* U M=@ym?;BY;`%iy wrlteNNςEާǑWh)sKC5!&D"f>g+N:qJ.q; $\MAWqm]:Ll C-Ye[(Lh(H[z!TkJmvk%;P{=YѬ!KMDjPm`(jc t:Yzta.tV je͑I]K-|'՘wtd*A3_5,6Ry Py6l~9z iMutGb5ۇ )8ˋˀ/6ΉZ G%^(1`m 6D ]yشuPئ-H"%Vš IW LZ)wR'AږVpy2 ZaV?V tA~O`?# 7w]CɄU>tݯ't=H},( =^lAr.NS%Ihi#}m8ց\ٽUՀ6,js]$!e-qaaCm\#+MNُB5'T4I>g.jWYq^> ]XKKrLjO8:)Q\9B "/2ܯR˯XX1L{2(Hjagub}Q ەҏ Z*+:Mi]U rbnu2ȱ4`V~'VU(k-Y[\N< 1z:{'!XKԳ6IN͞JT!/rF)RƃȺ0'yq _XjMr90[{mԙX{ D 7|~lKgZ{{a;oi?{/$}<,K \BA!Bǰ}^: ƹ,va(6Aa6Cz$`ٱ>GԚa Dq%X&@zOKٙd砸bb̻,8T3 Z$dlu XlمCUDG.Xeub]1͕;FFد-!^dsgY hVH~8ŗS')N^ #&#aMkMZ%g+YASNa6K<|DUW *a :[P{OxKMA{<~&4Os TΌ6UEY)I[o6i}3[oĨC]*4^"On^O2s2p~LIEKȪS"[]X5}%9GZ϶6JOE!o3!JrbbױdahMqCa)Tޙ&pd0j|GGۺ>{l1*6wva(eChQj +oKSc,lrc;o"r4$x!KFf٦3㕺"C)њxZSV~)PFB.{a'=d?ߜ-.J+sR*l`4v$W4z)#acWEUU0R<}]Фd x63R w-|<">PY2oǦUG\ˑ1WX#|Ø:A 3;39/h( |"URpLe=H3H ԗ" `cW '3֓ j$Ϧ3hTO@k6:q҃3i/; @ST mYc-_'C*P^S?qm h,HRLt{ `HQJx ;b<19ȑcEWT126C1̢Xf9M~^b#SX#7ybd hŁd"L'UcH-eo բ@` i4)D3ԏʎrc,5a[QFqt4oI@Ѐ6q%2P )Ф,T +Y0 [cH}(Rwb|''jnzk2B 8S1#l}uKUaZ~ugҗ7Cz'zBgOU;Ă`;pN%I Kf9 & ptGRk*Yuŧu;7oJF]$P*> \HE:|߸'/h85> IR?FSTbz@U#yEȱ`xR w5Wf" ]FTx_CG5ƧEv A@v 2l7^W[ԣH D}^ol\ƅ,>3E:Uv Wvuӡ~; I tԖGQ*3 +4R!ciV差jdr 簈zYQ0)ISΤt(#ۯ*|T./ ɍ8ZdJQյQCU7{G _,9 {SR2)NGMV^H5HkTE{Sy k)aiz}[G1ٛ>+B4&U/UY?'vN5T6 J;_SV;mZOvDnb0?G*JdN wͽ< #̰~K--YtCÕQO5?F8CG % YC=ow$M3+C %1OV ܣi":,yJF3 ._=cǸ6hE@0]7n_,)Dj$㘉0$ x9N7!:IJ58|6z|50bqglVp+=Ei4[Q¤T]+O E\J`|{&ľ:BΛwCzxrq0x3/n#U}ȗٰM_v7Z)ř$V|9d^0oj__cSs\覢Lq9MP mBCVN4颩*D9ռw#7pB}FhiAyQD}Վr}VYbfylq_o;T2buԢyGŴ:*J]l'5+݇7!|3  ,Lo;܃ǃ],mwj݈T:3Ld0AM)g *`pQ>ZCsK&zNc "fè6` IAIt"u)}fmx>W[l8Cԫ,4x7VB0rIHt(_Rk/֯i-cokp{A%jZѱ<נ{p[U;<8$`ȂX**C Շ)g:<żKӑZ<2Vp)DqB XƏ#XҶmE$O %RBJ ģ4jxP'tgJ~|51Rx\zzY(:/@f/J@A;У{I2eHjo[epE*g3zl`7~];mv|.ai=.頙{1 t b֑E\n۪CdJpfh(9mwqnX8T$$}e#ZO4I eKE4rc[b3y<~?8#fo>5uĒedt>PߪR2Kp  q;>+YXt|OZ rУBJ)VS \g Ɛ+9k  XFc  ed{9O4A'a{vCSxWxKxIlߑ.yw @j7yv?x$׊Au`r#쥁- Tc'M{Jo^BD޺kEew"l+HE;Gp!@^]&i9_{.n4= ZAA1a<ߕ$8}6(;<\|p|R5rܧ5Vb; `.n;XhR_`pZZ`$ 8Pke}cQ3qwz"uXVx&Um)|-CRҡj(&R'*S&n&6R R)( W>w/7u+ԍopJ^Ô':F#+ęRwȁge&pur3LGd?b׺lAim"t(mU#<+' KAj%; 9L8of=  oilΕSk~k bG *yMި7L8,VєV橏NS(|[q&1̍(gwY^Ѻu8|D8ٜ[9 [H,bҢs$Ŧu Fm1 hRW?^fGٌ8_ihO}nc74PPJCAQ]ʦb]8 ]TnG|e9/ Pʟ]YHLp 祝*Y-vJ3rcˈ[B1~޹BZ?~1 s%G~ϼK?кϗDe 0@ 5f4 Nm{ MyY-=f~snvpXq-%@cߨ|sl,5 ,5Dȇ̀+9qhivd}tD6B8 r!"Np-F.y~kmHjQA,J{284bV/0#$ٌf瘫jIt$l5\-Ì<&V &Q3Jx*C):pyY P쑌<,Ӣ_ GeziUyCWH诩 ܒ-A1 *a ʹZYg/˅,= $u ٶwma>ycCUGh6 D -8e-Vi )l%k1ok.682fee6{Exo7\JLOODX8 *J@ȯxb AN1R啥AѾTΐ:u5*u`?$y{#^X;x?|>>}aɥk;"} Ȳ"]-zfGۑgg9Ew6D)ztOµQR7>Ӎ7Zc&3$x(NYmfܹn/ZUwz#ih;q0pY$~@5Tz\'=<~Cݣ|5 /q( Ҟ87֑Ҟ͍]ީdSpN!R²ӏI75" 4Ok{LB6'B1]vI:恗t]QדNނ7j˸_5Zg|T_T!5nou/L{;6H&Y/?dnVN}\Dѭp3 i>MdBnk8>wf:5?̒xY-: RUHH|U\lKK]ɑts$} =UIrx ez;ϼp$je8JcP>ֵ- 6jeb=`Jk 2|kD#…iPO!-m@#mGY)$e`M"dڑl٣mqıt!F݁hb-e)+Δ;|gz5c䬶eh;`?Ntnf vLRrٓbw|{scer#lYbqZc*lvӪˈ,K&%>=6NV^ޡm Ddž'䣝i7Γmɇ; Y>񈞽oW/Ș$wmAz~S68C5b©wԺ)XrRm?5x%eW BRHj7KQn+uZ)G!# %ĚLxHg}rɈs#5|&r'TA Rb 16C˞J+YCY} c\E19O!-%9IJ#^z4|XV`~rX_N?+w' O9oqnA0`D|"7pӯ{LfM cՖMLw ,Ɨպ%ЬK.-ܑ&/d ߐگJUd0ILHhm;ŭOnG 2߼߳D\K/}Y(]d(kO t|;#gwQn@x|(#ʌ&yZI鈥bR,A`fqmԑGh_#8[a^aF>\DfrKm K% *s3Xj`>:}`r~e@ޏL/?hryppKr40t#meFHkͫUaZJYF(-UbȍH {WoSwkH21M:vrY"T4X<V@/u/N!}XUGjis)htvcuԗt5ҿB<:)J(PhR7N/WS3' t:.*Vտy-z.F{\} Чk~ngp. 3 FGEU$to?3.|~ ھW{w !O%쌍]AƝ-V&"M t)cB0vZlͦ~?|pijuh`kd0cRk>"7br;Ee?%.~Z#5 ާ~5-h.jӍZ@E}c7F_NmhiynTi fH7+GX@2։]M-FPS'ughDќm ^KKZeEXD=еFUz-L0QjUNł ̣Pfc v~ Z“xZ&ȪLϡH-QPڰpuڭ!]欮 #X%wڦ5)Hkr~\4T'BW0<S,iU)bg=V3jszLҎ8^~W[kd39W=鎼 ;geEt]ˈ#K#Kh)MOi? yȂX)7~'5 뙕*{o2>倅E"a]i<imA.rYKq0yD:F 5%HȿT* J- "xTI$=وBZVJ(*6G2+ꝻVpE&E, y]uǔQlQeڢosDUyFu1هq@O5BBM% gZ4N?(.?銥qϤW!n2SAD'Zk~MK /B:#ltU8&$ w Os!!@Lnt6kX_ގ㥅 ͹|0(V\h_AzJ6cO5g˹>48Zsx/(0#p=m)S6r]/Ump E<Uʈi#S\{5O>߈X9e;i19g#VS ԩ]3 -sahBzK SdwoNZ /i.ۻ[Y[l.wIJ(}pOJEQyYoC4} (S8dzwVGa?ny$,j-ts*BJIІ0 jG3g;pEcO-ȣunP9 tы>FoQ3؈8^v ~H}Dlu {RAK\%;-QuNL>{6.bMuŇ5{~1c% jiԄ roBh:Ec9{ڢ(oʹz4Dڊqw?Õnq}ReE$յd}LB? N^ 0ިXpuij -1*gO}l^F  ߎ{SlW$w1<,"{2w~6(|蓢#e GE&$[^h۴0M[V%80Ἧ{=bQƖbtl^[z ?fNQ2>| ;6I5NXX<ԧM.Vy]aH ˜x^6%[i>}/&h?fZ15h-[!F#-(}QpB ϊAK@丑ͪ~pyeDtר췭lp*1%N9.M#|}5kotJ=[zvIyU%g"\骾`Y0}/aqܮލTMVxB=KUY: I޶uM} Uf(k qBO4xڴ!Ӂpk8&CgxQza~8~6~ Lĉߠ5Xƣ9 vq{c \}eq8J&&@ln0ҏ>Oь*jOEC< 5roګH%c7IY4ǔ!W8[m q48~i{%eTZJમY[M3R^xgPaMByזٶkk)oš5qWS\^|(^Sv[`tf\Tfn颛X/5y ca̰>=D]GBɅ褺#ٱ±F1u4=r%š vnY&ߚqn;ZV\ՙ쓂_Qؓ@{qs^?@yFݐ_MEOB4;@d9^=~ZA.ۉw )]qnykr/o8qUut%Ƣ%8^9 [3Q.>H3#VR7DxҙS黲< >␂ԆBt,mCІ9;mvRb0]B) u rvƂSjK*~wo2|M ʀN_LJn)s`SuQ߂uըÌ4%M"zGP>ɈŔ"Svx}1aX) I!V!W-JGx5QTIAR,T":h˪䎳ɱFkgk-ش!嵃ݰ="1=8&2}rZǵX`>P Dbc0c iZcAM f=> xhoV{h_hֱ7Йj3 bҊa.0^suy&EȵAU'Z ̆u|ѝ'ԿΦ~^d { $01[q=yAגz:?%<:vf_NY.봶 (ѹ1Z l^]p0kZ׮ V# LId;HC&yސ9Yd,$rUG¡HM/ˢ ";?4^} `1FSWei3P` M Gϡt}ؽdO,Pɦ3?9D9 b$ܛЅTtw]C _WK!dM@Ue"FD^>٠a '/:EZlo:x`Y:^x@l?v!я߳f{vu}bԺܿNMls˦@kŐ]۶W r)2X=8')53E>htJFZ,q@FJ"U^ wV89M5W]naE{!k>׹<=)TRJr@^)Pj/)Oc_C!!ĵ}CiM\:v2X+͹5A`=qus!Y+Vn`5č }o G҄3-~.R0|5,՚s8Yk\875W uD)$_YY،4RP~[m!4\he |QbEf2I]"nΝ i1*jgM(b$o1-a [|s J[eۑPpRQyqiu NtZ89yg:7wZoN*R 2wj<O YEٴ.)|.˺$^*n6-VpC `Hif$ǟ&ů#?׶u pxWbkbd$BXaftݪs0}]֎:d}>Y< M7kU>p﫫Lb_~k\CN#3w<_" V3pR'hv[x?cƋ_2u^*tms~[M_+X3TC/9dя wzTm㹶FgA`-Z@'^y p~a]N@tI ^ORgmC &vz@d#@$^X(Hu1A\uq3_1xAV4B[ƍl:iǖ8JxB!T13Q"LB{4J F+4xkL$ M&KC] Cn[;%eִ[Rh2S jmIS#>GCZ1s\GKvҙĹ}I*Q۳|wh$D(DՌkBx501^g jMSFt8{-1eJE_c\H|w^Y,WI}aɧ}4}.n̬G_\[xn6[e5.O~'0}ۍz$<1D`ۙ/+." B@evѱO&q5n9Cݿ>P"K>O^pva-G(.ؿئ6-_\?#cߨ \.w)B}B gџZn>c5rߥ8iS߅S7!1i1ZZT=Ow>.W?F;Hs?=L!&F!zn õ!^pz [u7Čp,d#SѤ+5Jf"B6e%sM}L_ʀkaG.9G1QQ#B=$K2==kQòTmR9kŽM(R<->CDyZ؊<dR6;GE-Ojɱ&!3Wb>WAQyw3^`_y}B#_VQ @z)PDIﻠ3:DuhmWgmOA >cE֢Tŕ#.:F.IsG5V-ns994N*5whJBQzqm{ؼq]%'4 uL7"Gd.*r@0 M3r .&WZ*oAk}VRǼ@Aoy>=H0킂\b%C]XU@2oumb>fZHv, )Z(ңAvڍZwC-/{<:NPVDX O%U0a7n4P Ϳcixc.2P_3 lVu1Wjo!^A![F[S=w}YTufr@QmUfnN8 g5p:o~B_%50tziut wu| "tW 3֢U8ؙ˾1I #9I5_o舠#$veda Kt옍75 hd_OB "'gfԮbej v5v#j1#)NcI/J5b XrS6U-?ռ? Ǭnvq7>sd./$/`ZV^OJ tQ-T%mG"C#oU`d=qdg<܉ň\nW+AŸǣMY`Oփ^/0`\<9 PXӕ?Py+@hk0, L@$J!;>4bU2ѿcoi{7OoM򵝾B5F;3EL;3ùgiS9}QWOt8z @h f92.ʩ,x0VMP0Wn|֧Hk?}G Ȟr,Ì\8_4rUU.>5|e$!T}vbJ;SRԲS\M*QErRR'u 8OSl -ֳnmЧMH{S Mjiyo_+-RKo֕z%TD/\>Z&K# ݧtI$TjO 8J_8 ;e,c.`4|\+JpO=O3 OV&g N2S]$=U^ٱoֆ2a7v0MgWB VLC/R3R*B{^Yq&ww1!/K,QOH đb/=ï䫟OSA(V48^wocl:ql!Aʼn >ƨǣQHpyU_&0}ڸqV_~HTL_v>$oLQ/bт8bP)0] 4pK>vu/`_A7(  G ˁM9A=TPê" (MwC*'Ss'}WK*Fx $*%Rgr.)e ' }UhhXɇ>ѷrb&#8 ?3hށ!(,{5 '/,X6)8@k04E6FWp%QvDmT5NUH^z0?0}S$g'"V ɚzV(^ 6 미)Dz1}~cyO^vfC EчTB)۲USap tߒ!fiEfNHZBr/4ί)76T'Hτʸ.ڍ%HSE"|ȨzLAِ`O&  WV'i>*"0A`̮F+SJ\eQQUqxDNf`}ޜ6IGlc,8gw n؎,"-ӴȌh{!OžhBhq{Vλe_l)P'PJSIq\߲)қy{E~kl d7̃3 w-3i[ґkК@_7W_Ζora)#B͟pq%=L[_o ٚ˝zB % 8' Tme%l2vݱPK~O*[ v5H6JzfQ7>W)Xr_D0z\b'D:q¶s;HBZ>w$ggijq[o[_VkE@Yi@ _\-+9 P\hgĝƮ|>X}dURֈ[ } ]^ _#@ 􍱗qw,ƫ[c@=I69TtZNSNrTRC7D9p/5f[ZeuZ[IYNť Ԯhm'glDb1*;0&'`?=Esƨ:_Doc:HO慺 L 3!>ODW +źxB`_Y#F4} ^TIqsD_ ? CL %&Jm-J&Ȗ Z0NxCD7[LkxflR)Maڊd^r ~9>n!v&qiS}^!YzĄ\( 0wC a(qO9N,&!os{ *.=m-gge 'j~[+Yv;Ts[J)[!#pR9a}-a zL!bq)g}d6Jh TzIbP=gHfąB}gX Zbr1n0 5_fszM"NW{[T/;ǸYQx.TA;XuAJcg=] M_F:0AlM>`åT99lKPHPS}$9ʰ^_+GWh(45D$.ޝ6`QRXF?@%DKLOks]/:I?N/h#xF,` CUX&$eSiĩ)wtR838L.'R1:'4!ш"Q}YPೇKc{[3񀹴aDgV?5 pA~;6Bw*Ar7I+J`Ы+d!q`@u;9HpGL[ddUn&t0N}h#L-6ޏOJD b&/gl <βZe3k[yٚo;7Uu2"G v ~yJ`?ٽ˺Ql1| Qs͍I|cDelX"?KE&0VZVvM>&$հ reMc{il:jj-"B,@ 0}~s*;n9J¾z_O"༆Oc]~ZA.ftԴg Jʸb6%i"9h;8 "8Mr#:uT&LuzcFґBloqpcsZKHK # H3I01{hzǪxLJ<)XKoNUnm]<ķ6VA`[RiuHl!Ǯ7!=(5EcX ՇK"46KCbv)<1m힤BY~%>>y[b|=KoŵӚ1fh"IZ0?RLH[t'~1tX U1óSsI9Tmm$Fs -31')08H?"IP`ÛQV~Cg#BXOucO@ 8E9UeO0H椺t!Ʌ-af OR:Ouc:BZR nlN QOدQ 3_%B) A]F5X٪2w\]/x_gl$RsD٢\mاC $)NMZxX %I}%Ƞ1% =%Շ(LSrNF݉p ;@xv(,=0ZOɉOx, IEz(fˬW+/N5'`úOuK@S)0QoP!_i=pX{17eo*tU8muw˼M6qf=(bT(,R|ڶZ懦k^Leǥ\U9ӟ8++*9m.L{{>>Z0Uiyab\a( vUMm: 眴`)D\xq[-i_=O6݃5-l2_%nH-iR wȠGWn7P iR(7i kD1 /˹`ODqR20P!Я3zdᐒO;2YʶCj]ũj۪\jcq Zә*>K=VrD%U5/B-00UFŸ l3o>JKۥyTڲ-LS^s6rV-/Bw6 81#N)Rgz wÆ?G&I&2vW\fSbrvD6I灀@0Z\Fae&,ɣwB=t)޹Le5`qO5 /2 벀1T%|꣣+d# ' \}v@ eP| pƒtyZtw)9j~(@l?\ Z _V]mҖ)j垑=Вp:agXƓsb.'rȆqdKTb:2/uNsHcSwU*P?!ȳl Hkyn 4~|wPg%p{Ngmr4]G8^Bz%2 YͿuݔ5W- 1($8DlE[- zw9/3j×H/e E+'&QU@bo v6VX-Gp_{Vt ?^ xWI艛־| NЍĔ֥>k04K":w"eH~P#ax-u=\-_ FPdR:NN` 82\7R1p3@-D'B3M4gO`"%Ϲ4ei5㞹y`'h+Pn}u\=>>AcwmI$ih'SXy؈f'QIG;P 8rxdn+_F5nd3O\_,,a5rC]G=˓ҶMA+`@ 6=`ah(ƽ/s R;)"R˷\6gR59עRnC>/DH ?;_h\*a1p"#_DJ|^^] eOEu0n|g<@v#VLqM\_~D"+gJG*uC) ,o[,Դ.IhߣժG$vEkk,.39ټcS r!>Ls&/xv,4 bh]i)U0<ِ! s" >I>>%8,K1~CVsEV.Q 5y _=2{˾k[2-Hv[BKrovֱ0EIvdxCcqЈx'"LqU O =Y} ]TTk<*|*B =y\h]؀GɫG_ĉb$)0XE\ c1F'J vA:AnøO= )b]f2ծeT-<iCdZ۲#^A+_eK ODiSjln,CL|T }  -qGyP6" f=l@l1+` #ZseI ډ^6O7i3wMhR޿, p4*fB#]S ҹRÚХ7:薲s 3Dwt)(<=0#nζGuѥቑyQ ٓ$ &hL NWWhS]9+q#zz!گ1t=cx[`{V8ߗ%l2X jKA Oږ9)lܓ q =/V*dCS楁"\`A-L6Aґn/!pbBUX@te׳ ű 4oOMe/0wend̬f@R' oFUΥJ?}^ceq>J$\>ކzxb+{Èk(`ĕ]Dmȑ9N 庚25.`c24X!Q*|na$1#Hgf Kjj3?6T wZR,=wlC(!ʊS6!3u}Ϣɡͧ"!W”ǘT0Ŷy=7Zjs"]Aj|8ehѕ<'1Ǚ- %v<9Ȟ #Mq-ɲHЂ3ϡ-p2(nIT{<ޯ5m8;u\(pW@}a^dBFjQ+5{ \| ]%tb򜴇߂AyTQg+ l$*t[?8F,oelmXaPȑ=Y#=?Q+?s'km.[_C1إN.wb)(б%WoX2[XY-XÅ-0EN@i U`5ƾlJ+PNr—Or@~ϙg iv;^PKF* c|YVC_8bA P^}f컎||(`_ u|7TlG~| SZ'P̐<;x`Ҫ^<; ~g*\F,(b8/CY, VwjbiP y"&=^pcW[Ҽˤ %K%3(s_VHA(qÕomYaq*,j46{~S *Mk}DysڟN#Lq96٨rOgmx?ć7P2ǩlaXV$}A׻8kwqD?z Tɹu8-mQAZLCfY,_Ɏ}[h5Le|> +M-t̅{2`R1"[&շ,P>̛_s0a l~ cT#*joJZؗu0`rFo'WsqiC]lN!NqUݚj)aByYou5W_i3ϴYLQ @S"Kj}4`aR?'YjMRizĔI^Jڦ#a'{T  qVeAst$[᩷61a~\inxɒ [/Fգ?.K-+4H/.G@@A^HM(ҸT(t1kߕuw$oI8 6/F6*d \nXt ~}i̥kb]^s`DruL< ̞? s\o8b03$Gjil 'jk~kku8EEG{+/ PQ޿l>%e w9oj;ްH)/%Bi`A\a\Nibt]:lwo<|-dQ=DN ;P}yXk g->l/D`wr)"!'R`NьE]8eV zwjEr\a:23E@Qp&8k2 Re_%r5V'3Ύ Fř>WSvvKB`+OP{іGu;/~geYK+\!~Ms̮HγbpQË!x*+;wɅ<$5F~ aJ0X}'L}|!x4<0o'+{a8*-WO9[l`1=Qc' l}d0t(wqjA't>ޣGLP}LǿfVc%oŬPUd8 =y٥CQdr&o}lBK5mPM73GK扅 9bf#xP^ L'A+T3Z\?,1ѷ,(9/*g [Z^DPzhLdBzԆq]_$Jg0|;d2IJ~E/#l_J4[C`mz} zҧ,OoNMXzU  T\O x;PIAyq<++ڞ#PhPEP5+ " eWWQM׋38:˅M-=O{"4U>@ kd|CPNeJf3Ϯ?ꖂ>)dU04>Po W3;})g#o+jWvb]<,37/Q75I Ib^?v83YC$+V ,Y/^-dNtJܨqZ>%"Z!͟dczS bTrp\Zh.N'd[L\bG=C:M\4X :)Ew72}8uSY]ro/eD'K̹F. $)b9q`sKA8ܩkxGEibå/ųN)5'% u'a^kcډ@,ix١]\p%fTϋtMZ %EEFĺѕ5GbT+M;R{,fF R:/FmGĨfWz>\-}3Ė^3%R4P BBtjmg]q7 3%G6CXA;oLBˎAZ  4eÉT TPQidLvaJ~$įY.2!?!@?vi$K$/\C 5婾ɦxQx>܇{7,i6ְ3{[DN,$,gp9'S;!Ͼr &kDRjK4zmh?JQ#ԩ\ꠞ!]i"&gW]Oz$ &;\gm>nDh18 J0j,  ,pX]JNhZG2]Z w*gf諭'鞝9U97 n{1Dž1{dޢKJ͌cQ>H{`aswW\—0 d"$sIYIQjO4I▊XDB f Sc1j _?8D?E&g3k1lPg4/Q+RcɵRqd/eد, #`6{߇|>:;J0g 7=c;_2JPL>ӣP7 \oP "ls|y}sTui/+ _f9g[W)s rҼF4I= hT/> 臜~{7{ μb?V[h[XvJ__@Fh5OL1ttuԪ426a/kQ$bZK,%^;6vUP&j" '&5fϟ9%\)Z*UR!yPsm(VCy8Y|tA\alU#fODGY5n:ayҫA}1cZd~r H@>" Ƅ\ %^qZ/W?E.<Aj6 zFAd'`TQ@|S%uevKFԇ0;{2`t_΅bBTPGV&$B]6ޕP#C`--iW{FJ#2}kW<4@}OpOtIB]R1=p~BXR3xFһ?!׵wobT cVN "?Wy;P)dn^툲ؕr"7>HH+ (լb0ʂօ\X-)xqp X7qV1mKɗrAʨ_@!eGW v\GqԚSB CF\0ަ;^# b#TzH_QOY\_&)A²OԶbo9~sgX% ,l=VHl٩S8(HQ6Qg=<[j[Jiv3P FCXcWʹx_EL|KW [!-W^So]NizXK}i2B6K>V,S`aW}u=6NAZDcgB> o_ƊPocp]5u՘"p ș\ C {G^G4>&LӃ ٲB^WRoꨍ3p8֠,( JLKM$BwN(P Jݠ0AW4fd<X7Ѳ?6[Q‘͚ز"fi9őK$lk"Mu2 AE"YyҲ@Ѡ,HLScxT&x1z>&idݳ#P+v[$'*FB_r ~BwPÀNg4!阓~G6 [[֝ㄪ$>> !==cB,   Sl,\)M5~F̿hÉ+zl?jdM>J5\P"bc`kA m(ۀhH-ےE]͓TUo2J8q=,[4vf^Tcy8lw]WmӍ)u$L*BT#1ൠ(J: 9]-)jwFG3XvD $FNxX2RF2Q _UP$Bg79[C!)d}G{gI fDЫ ~>+t9z̶#SERMtr躳P lqJ񕞻x)ЅY̎imoQ)2f}Ք$'HpVJ_c$i?mH[8Hv+fe/+rC$d|Ȕ5.ְ郌;V]ot:[̾q%#ڌcemؖiv )@ڱg1pݨ8 ݨ?L*x̡p itmKT,6 e JJD $yʟ:ՁdSP5d]Ѧ-9-wK(MB}@<EPA>`űn[Xa6cJ1HUɳJ1s[UTpvؓ8 #eO"pb(Yy.oiޞz[zpRHpav6u$i\(a vhŎɏi1XH{Ə#m^qՊ2(=< !Eg=gOHuZ GtCWZ OJV|(M.i?2H㣰uS}RR 1Tg#ƖAO|ޤ~u2}nKkp8[ C9r4Z󿫸`A"̓H\ۭj|N]{D6cet(A!&QkM'8@ǭڎ"' ֎_ˎ>vD*ns P?90)z@OI :SO/e򼮲殢]xWf!tT2ُsebX`OPX:IO- qQ*mB# LKmⰨJ!T]fhx|Nks.at 3ߑ -}8 c?AN/ebV~LYˋ@ cpd.eld'Q%db;{EwO>[n<!~|HЦ$(gf<W>zbSX؆-^VO=EgXO?tT0 ^aDBF(G:fb A,toJ$Opv>}~\|z%9;)/ba&>Z%O-{Suҏ(pzkeJM߮^7iVq+0(5w)a?ޡ !PȾ3lj`A?SJ ioA!AvO nǴ(Qɧ~\{5%Zd}\el] %Pn/?Rr-@,av]Ļ58DO3$q/PF{|rȻ^u%iB&WkMfU~~ 2\:L ΛR- g4mXr\7n Y'O Mi)Gr6b*ⰔGif{~klBh(h,m%({e a~5=,>h++R@GG_""0 iIL *K{v:Ee S1|omEu}C~ Z :((}堉4;s@$ۼ4'cK}!9™ OW Oar1^hYOGY6l 'Wrȴ Q.} _L6Ma8ϙh#3 8c\BX$_ ϩ -ٟηް+LB.-<Ἣf50Ǧ5EdI>@/NÇ~T-6OY7@AB:ˑEXSr/ `ϪkkM'I~[22oh_jW9o!3>)CD#ޡ B/w1gt0a%S@lzX㓥 Z>SDǪ<~ڄڅu:>zA|mȟRD'}zVٻ!0لt0v3;1"sd|/:B3l0!S|u!;.)t/|D.Ţ<&;og?xc0r(΅| y \TMCaj5 cZ7X}Ko-,PX.$Z=<:7"i1UvKl'4l%|́+KUe6[0*HGӰImFjm Tb$Hz[Ba\qv 6’)ߓif$|~1%l嵢 ;?J.wxœA47te7NWm/Ti'0 ֨kFdL SfW/+,׼Dot^)?rF|ߖ%b$ӗLmwDxFX 9S ) AV]r 7 a"N#2 J d= , "GNL1 CWyϪad`Bm=hNxg(9q0"Nk17'J-F45˴DĢN R@ F!XP@'%yV]˿[0E+v33}{Mk8QKBϸNdD`]r="ZEHKty>xLEޖ b1_{4RX^'h4!IPRo(hlR{ʋ!*+rjuE%eţf%[>$o}Q,(lHRo0_4?Ur#⏫?AC!ډѤ5[<9=.S 󖫠Tƿ^FGy/>rY|Jދ9š@Es6.45/:N lWmn('V{#$+yu\8>7U4 $ާ:PWN݌vӨ!RA\ o\30}rAx0%B:ҙ4/ݚvMIlGiT" !(a(.VP)z*a84;;cE2&Z~-/^p[} HAC&`K9Oh(G\n߭kшr}=; 4'0&ecm/dږ Օ L#R1ArC6̍) N8{fG[omM"jc[r;nMYh^g5u(VTP?˔b̭$JmpO`f>uU ƮJ~D5 o ܄}q&XηKn~j mVІMY0 k%iEKlԘE#)D,5Ffv(swN:$I| [~P{r*di$Xo-ڵe{0>HEx'Pcvx3PϮL= J)azq)!#J%&D"}VpN.Y/oڧE)752@j$"Qۍ^I.^IUypqTlLԘV]p7@mfQ,qtN{xIP bjԽ^-W$*Wߋu5$ElIM_&5u i^/~+ sK 5_rnj \GlFDrˈxRMҬDzɈlO[iPbnXY5TqVl.{tP HA@`%T#f== @R\`VXN1U! AȻE;ƺ,/鏗$ 6\N;+d ^hPe2ܣ#|ɛ*H#iwn"9Ïޖ< nW'Eȃt;+$m%pL4TA}9x3nZ%yTU,MKh~-͂׶ڵ^J {uJ'݈[.Xx GX^449:JO\?Klmu$=TPiF6U DF`1xS@{B!+To;"M[,tDKs~^T2aɭP [f̊HI$Cc1[WM(!;6cyv&'RL.Q-8\ޝ|tm6u "F:SсypM[$$-h>IBqq*f[Qږ*πa,`Gt!z^-"~U3&V;qj^2$2;c֧~a+̪swI:jH ĦjԈ{|2_gt xjZu!ZpNˢ56ۑ~J;B&Zj!B5q:n`;kE]w&ǣ4Qj.fP_dAM!B{6,cUfq0#NpmeJN;|/53O'(3~vN~gVL3 Ny/伛nmhpO`zGRP$$ŎnZcK!AS sI" 8+mjPZ* «IvEGyQK/Ňz*@K5YVt*~=tFua|Wى-5aNA0Gh4 !*tLY̔T>E0jQvwBkX)WX2-iI[& FRX ~ԱD k̋,UrϵwcܠSծ.lF I0qW3M!TxJqɓ760F>}f{ 36\tN84GU>iɊl$*f_vYe}$Y+_iŘ(/@Baz: umIH^7S3'6EA򛧑u/_mg5Jǐi^ϋh~2퐲+K {>b=BJ5L=îdf("Vi8K@VC2d\T(*W/e._b"7H׻. }[tql3w^/d i5y  ǰ Z Kz4ӧG6='xZny*f*J pГ‹D f:SA^ˤN':!@!{!J/A&W6pRɾs^07Q%tr%񫒞`9#qa.Uo bdXRY0\UW:HLvwMnέkwW\ n?1WvL(P~Kd|XY(\qjE8ØŠT^B2Xsgl{ `|STQߟ18E{# ު>%Oc1.ΐY8:R 003E'~;< @{ZUƳWjQ E)6ZȫŢkjX0Rz7G* *QIIʾnl#|_٦ԲqM"1R:(hf' GNNӸ[?3e<0p3VZ#;0Cq~-P:1fzTlTYFu9@eT HS/w QiЪUY5^Sz}o5Lrw nGa]!*]ƒy&S{ pK"=f/Ղ,L/kf;9>߇ 6F^b3s1/AV!7_I[z p_lv5&*rqxXMYE H0=W/_z>_.($4Jɷ PFQ9U?- ې PQ ;ShuAiKYhpHmX4QiQ5o5uVG%m[##TQCz'O?ǥTW& sʔ3%k4q .Fz@=d&S,$#ּ1sU I3` ȟב4J-ȋVNFpfL6# xyfs[yPm֖ `uFTBt7LD(lj):EZI L qf+,]M585@Ѩ̢ͤ}VޭtWB0+.a=ieSw߳wo1BԇΌdmaZWʈb $9Syyxq6dv+8قgtt-f?|kU:Ŷww;eh_Aj?54QsZ %i\ XD66z|e`es@; 4;G=CXȖ9Kj-2lv#Mh z & y 9{ ],{uȖE[zx Լaɯ}$u%d?,8$3x)s}h[Ov^Z^4D%įETeŰMY8MI˕NLuS/sW]9gSkpR 4pKKf3'@K.Ӿ( $#N$Jg{Q۝!B7TfcsCYٚZ/ ̶`h)ۖ`^^czte,I6TjbǐU^Ds2M0 fd4Ą VqA/m)n#-.e?\ }"VOmō#Xt S>Nfv-U;s_WUZ ʠja?{n7:u;*,A*wZ^D è ROZ 6LZbA6{dQ< Z.W_1 92Ù+T BRQ t@I;UDY= 4L O؜{. Ltԡ> Dy! 0 VUIפbi/[PHN>!KGv :Ȳ@w~nDGk]a)MqpaCVƐ|299@ߡ.f'ZJƐՆl|ԂwO) xO<'9<8t1d,e|^9+Fm2Ku={ށV=>2v~*D &8._8;yϠEk.:mfz{ `NsŊ}U>&sаKp& N箶ۻY9$D;_rE?u]ՊC %=7todakȂ6O@-fjDڝV,}(o6-桙^&&  +OէL}Uɣ>ewx{MH3Rl(ʷ-DfZ>0 3I(xNH8€LSDvմHpD>S^c-X*W3'' CfT2qBQjϻ$FC0vX\*=ÂDGz3%š{4hvҙs⛵:d*&BCt-𥔺ցOa=:Ld.W$!z+6\һ,gV>q]<}m^$,0fRǡyDnYr2i1ȟ8n; B0 7WejX"kc@VAhݺ\4,PnroblX1ؼ-N+~v85)63  q) ]Vs!G @IS!ih7}Zbf9_SJBLeλSaf҅pvMOnPq<fhpz'^a;v^ö3yWE?6F8^|.U;?cZw88x>Oj `I;^ЖW ݴy _%()s)n8Uo1 cp mW^je߉{| l$=vzZExE ^@ \b+ÒxةؼIpſZqk=~cUu\27h %%Ro2W3àbZ yD~ZWij8d̡QH;T^7jKQv= c =Yrh$7҃ ^= g${\UE诠gUa65\ g0@i!# agWA#Lq"5u "wjӄ0Po}lWm(mvY9=O^WxOH"n7 ؝ѱtp%UBeBᠩ zkb*%&Ψ7J<' c+6oU+7o)BJQ R;l_1l-N^{C-|(8s;3iIqij?dKcE'b^WTV콺Ð<㼼sHUr 3HC]9D"jA'h ٙں#LDGj LmA29{?Vb)wr C&-HT) q;:ki}|A&1SbX]ybG rOYȎ5RÁR: .o)nB>"c$~#K+S (!+~| >'KQxZ!4T"yKfԼG`cBp̴]|iBR8n?ɱJ.Tbc<2 ARjox|[ |Ĺ8Q7B 3BXV\6Qϳ;[)Fdϙ2kl BDxzY&fԛ|xRy/GHqܗrIj'W㘢)/6c7i}ZPu„}[3>!k`?G*(sh;cmpQ]k'}̬ nn;=] ܞk5G<"챍9oL.mr< 4j-F2+2/$qܱAwJ |dN[B/~k:cMi"!.UC ߛTs9{y5׌` 9Y+l<5n<ɭɸc! S1:Z¯ٷ%o#uk[i_5uץptc+돕^t~`-7M1x=w&\u]iCϖEUѕz xKV;V"se@$8LʈJY[^eF_)ؽϡfL{ Ko7Z*RILbL &  X,ڄX%yJW3o2ܻgY6;v?a7 <-%,egfU)]% ݤpEcm‰$O^ÀWY%CC)Ve/3\M]V8℀!bK2Q[ҵ3j5RH5?ˮWp{j_q"D% lRh9le;@1k(sCjBl@@'<WSRUJTa9O)+(FfBMl7v1V%]wIǤ:45Uh tVr.aw=Q~Չyڜ #J 3\ BGV[ԅ9+$]LJNI*BߑEh ʨW˛ &lss)'k<]#ㄻ]CO9*䁍 ^=2{Y:(*Y-2:ġUJ}Zn̖FGgpNBzn%2',p/L41 45tnBE+Gc*saB$QJGyWl16b}zb ={x o )mx,no߻v<Ϗ)d$N3ݧSG\:? XR[1Xj/ht誴ەŠ4lօ8F 1Sqf=Uԇ{dbjfx5Y?AA7|fӷH*M\{ ']&ְV>G@oT h/ \~ZS^iK)Q@,Fp/pRs#y7 M-~z.K hꬁ;?]u_`m[r=ہȻ;?ϝgXʕM$-Pv`]{!Ѣ!˙i!ޖ{/g WK6m728U&Z-6[ز4L{nz/A\upƵH&|̐Y9zR8`?a%xM#k`k~f oH}@tq`q4ZFẋa'+TM/{KX$3哮؊](};vGcn6M>+U &ήВ ]K4\>vG*{` #~рA/ln=m(6vq=  p^y-aLO73㐛tj@"01)y-píGfrM.2>xW}N wGB1$oY~rChLM"U6~4<'/ƾ_"OvNn!ڀ䷞~.P'oF[B ^*>@NY+9征хXPpg<OG̶aT%+1CqY84 qaT4;RAʨGLZ3_=txk<&шiS//SSi/|.W6E]Y:BDg>1odsoBl4Lsex]iVe3iCҧ0F$[7 '3[/ XWo>}e<{Z_C}5׼){@ɯK=`Hs#5n챚pZգm:+bTb!4_S%>pRbf?ZȜQ}omMyRLo\ӦF]nAj i|Av, 0|qV@g'$"296gC8߹@*Ƚ` D)ќ0Fħ4=0}4d>47bjGò_lo~hT[*|tȮF!I8勉fu/ysq=b5v̕f*+ۃݕ2W&?{)s܃8F@FmJOI>LF\lrgSfes\Nf#(4@z듳ٶ!gUF[Ge"[j5NdO;(#uYV|-`zc`c/`&X4UL E#pvz^U/eH?"*QJn*cĨ%ܯ$h;DL>-6ܹ#v eEGvB]eV3Q1Rr9Čm`ۓAg#f0\nOmߒ:mPTh7ec6J+Mr HN0JE[/t("59A;N(oI?DSlަL)35 yso:S!)k!8^M)`'d=e!UR立$KEakm L :&t]o[Oā3{f NrJ)rmjܿ eH -/1"å9r>]?~ȸϿ{K LlA($tjc 73_) oLFEyPyTކY$+W}6F҉V/?7wChW(5,Al +Rua;>&?+Ԥ(7+HN"x>;0(xm-KF=.hCIA4rj?Kj:eϣ7"ȅyj/xpFƷ3fHl_Lo_AELWðgWgﯪs|zG*]<_T*sǣ RQA̗KE Cgh4Zk4zd * :gb+䌲^o:[ToLJeHw:C\Znt|Kߓj6%u^[w|V \Ny885o!Ñ5|@-QRUIp+DB |ҩMަ(`&Z{ohWٳq&Nk*cN}]ₗ?3VPP$;q5n[lpDvEINiEW> zt/^(fSjA@GJH\=r?dշE’^7Z#v̈́Y'1N>"(ʎ%Q]á&Dnf~ь %h渷7{[QXx\X6pl1׷HaZFVctfg>?Bu CxTHJ76(9lf_[qdc$J!"D݈D:ۦدr)= M|J ŗyz$^F}Ax`Ī͛eWsV󉛊/lQ[K!WmٯS%q WpCj5XMm"EEIݺpXG펿"dunܝ6i`j{DoeT<.HZ}aEzgn}:Մ`H=H?h b+LYq?O1wDɁFb:\s?P}e )c\"HcNH֔F

s}1X_'=Q*f Dգj҆u_1st߲; f6 ¯ #3g֤Ib](^1ԛ)9p{rd>d4iUeL\FT!Æf=%B#!7'1 A] >F?8ŋPl'4[,#|<+C!p" 4'wo+%j9j"4?fLUnڎtea7ZD/6X(-M&w;/EcQx4fL &jEoS܅wF.8`g*:ңZ:q rՒ KiGF~x}.L~ $uUnXU?_Nh]bO@S}*|A-xy=߻3TY7UMN82#<92;O 7)OdFzo"n!NfQM~ktpewI;T7!z}j&(d)cn"cuw ĬWnX630{kX 681y#b43dU-U洯o2]v^f{B4{*OuCwo6/.Mi*^U*+%*=Pp|)-wH7mr:@bG]-&:DAyoMy=(£Ңi)+C)[*Z%"%"Yig `zCP!}USy9sZ,\ic e[YdmS+%hd&]ޚߠ=ͤ|7dBWf*má N5^3K!3ArW<j,unj X n޾gײ=; G=\TAmJ/h*k=j.)Lo蹆!. 6"`_d(kg~U_Q9`OH‡9'"khS?'"41 <PBWn(;!N)K+z~U'Xe~>Ꭴe9X:dRPgB]q-jrJF-1}h*+S|m`8 }qg ZubZ70ENnqR.arxWY)@5.$3"\a~QKu rfOW0\[; .~nbu3VrkLs/AZ sQ#Li}Lk+P :Y*3r*XZ1> )`gdzg$p:!syCzUEA`bU(8Ɣ"|$L~0"h(jԐ' o#Z[tﭵ-Fp5&Q>oӛizס,ݑͽCW}&n F-ԽjF㍯֋8 4QP碜.'[AW/=3LB"/sJ㤰 J..C\x6Xbas5nu}4Ll,[/y[fg_PT$}[~g=w/{Ŀzlx;-e@Pr״~ \#.WALT9Cb4ٷTÁF6±yIn5d/H^ҩ5qS\shFlhf#$4D8$%tz07IS`aOSOd%\ϫuNn17f|Z" s{e yD)XɱH zFie%#ADHjOEKKپ\Z \[x,l|J>i' WY/L^R`h^)ظS#=XFf?Ԭ$DP*e0 YyޡZƾQ %.:21zCeJs;r' Dh8ThoF\u0ܷHÕBMZs.xl5wXI-weEl8־DJAOӂmaK}i0a&4f`9BxO0$LHx"2 !Z՜ #3?we@4EP:ŭ߂eLcǀg1yCNsՈ7q0_JسCA<PCQTeFɋViOfMMgoe6?I *;!oW{vTK<+' 4 νj2y9fӃ+\܂CspiXN8mΡDD6kJR MO_B eٙ_+{xVCWgϯ{tUnwܭO\}լ+/B|?WGтDFfU-jt+${[Di J=9hmnۺĝ'#Oݦeb(IJ)? i3fE7GE1'RQ,0l*a!&5~_Jey?I!-kN`p͞%^TdT|cQnzǔ[}_Ћܼ|`뵠7*xYΑNJ#h_)(Jբ'[E87H|ۆH"|cEk;D\ JԶ<-]^Վ$$uD4]ג^r}Ds06&xIFt@|׭iћǛT;2tn5SX lz;~A 9.'o'|m8{y?~ziu7^ jQLd{Κz3QY^FR.I`/z.nFRzi=Y!Yx(M.Qn,!.o7o/ٛ!ρyQ|ȷ88KvrGR3/7CU–}![3AyJ S9bHe!$?bc9mH\zycGqܱ"c)e$oTfn1EG&yzҚS*',#X6(M;گigVλ#M7=:3Kn6rQቨ0+e' F`PǢ88ܗy,>_J{*3NA+1nwStщ#Ƣۤ'^Y[D3tbDBJ}jh~QCgz6XޭZѕD#z ׉&#z+gbkpO˺CT(8qMlC7l a\ʜ$\j!@jtJaɦ %Hl88RIU@d*DPM 18JNLtAEd%t!&:)-!jFi]'wW_j4YWjJgLS(Q0k9 `-CMoAE 0:c=OHXF969*|_MgAC\W:a_i&rFt@!RJ |yklQah55kX]d5#`^4`ɭR32 EM[Gϝ  vvK$=)V# Q>JjME/e [8ʢuJR7|vkˤ]+R)5L6`1BL&gڋl~ ,JxbHNǚ5B+ƀsLܭ" 5T"d}fpPnՂ`Bs_^J&=Yi؊{˷+C4н!"ڠ{ԕHΘL؍#%.itl_+!F^`h/%+tCx6fr~T? #:A 1.!OҲ*a>bdeXypr:$kGYUfxG :(~AJޏR rwK (ԆjrߵwM,پ)˿>+^/ipa88J VZ{sH!BG TűhY)cv#i?,"5fc-zG,ŢЊ ]K)|ue) ؏V6K^u{{@vqǮi82?Z{r<¾}PJ̤MWwz"wruV@ҪMRۮm~+B9KL٩LI?GˈpER:Ŧ7Ϝj9|:MVHr7ߠּ;JP?Ve7IDj>#xrדּ4Rs1 9ޟMG*v3̉q#@Uj4CįOC_Θ-czm!"#oUb5h0DFN On9-d;fO?b7E2@$Pu-2[M핔n3X֎3 u)؈,دVpRRLN[ugTW_[T` /-ѹI)`;E>[UZ?$ zkH+#)t IBU72w],?Q+3wy$e⺎Y7`v9CAB9r|8PU΂u+WDė}~z CWMc>mS!@"9 x;?Ƽe- 1{A=$-+83=TҲ%?2,pf3#8OvFkzP<* ǑG%`zI= ZDS~;]C? 4xqc+Ӿ80Vu*bZp+d̙7SR 4}2dvli^} 3{MVً.x4v5FwS}GK/+]J fe1+G1"BNBcw̱7U* Yf] 8oqcWc++N~C.ڞ=#9pT0 wכO^$f5~}@&v]QA{v,k'1Hmj]qW= GNb0&O S=ƙ F5w/5ኬW'!c=- rk; g*8/IIYӸ@Ym)Lʉ%e&LMUo%U&ڢ jhb¤gp2~V>[1Um"쮴$) =OI>~ Зs~<!V,[vh?~L"k˜SZBmS\sGn"/cd3HJܭ0v1<;h}c"kE3@ ^5-۹&>ap9(b_iT'+l2h3uه'9Ǹ03f};xGH0$ɮn rmD0"0 +8%,3#1Qi5 [)*z3T9t(;eI[(9@2坢I#\mQdV~ aM[d2QU䄁U+r`<`,L'``C͍D+ Nqغ1pa|֒L[(Y ^ Z *Fnt*[LsQ1!/,;sh=%,q,v@gET ϗ\Y'$j();ٹ6M;l?kI/6K(;jR^nVte\F+gXe>!&L K~l/xp"%y, V_QF N(oK5M6]B( ay6ʂ;A a1B(d[P5dX*$s{p~7>g `A6KT͐HIkhJpLa>8W6FfwCO0},<;׫ 3wM=D^bp!ЄLiZ,~LsG'#Aaֱl.DpW E5H%e=UqL~NZS4 *\m>/,8Fr$a#* }aP3G^Te-8^ͨ {f t?FYl%uo=RU HN1Kgqzq2 H8]$ @ +y;>bRQB4"0#²z[]Ii+*(sdHKh` maxO?˂wW͓IIIlujFՀ-򲌮bYvCꇮxB0?P`R9!X4YїC"0#(N`"Շr=Zo3bP7a CʺH}\JsogSG;p$hlٶU7|C`y Zdh$R^o?]B e ԥLatۍ^N|x_{GǽbJ)6vWO i;Vӭ H{Lq8p>K)NXȮIWiE{̱m*He_[@Ai7`r(:p;YCԭkGlkyXɍ޲5}jf0h@p}#.+qB4T.Nuܫj'*ܬz0?!,AdټvDZoV=WHuVOYLI'vg@Vʼe,Y"3ծ Bt٧yȪ.~Uwo gD%[D71$#/-hAtnc]ǞBU8"6͎o뤥4z ș@EeM\!ս/I%c.Xv_ddu,^ .X75@dP~eSJB/i_ݝie2'"O"1"w{\ZX0kz/Bi\A*ֶ:5ia}]~ѬLeM&7C&^}{@fHIv3VPi*4,5*' SΡ5)ߝ&,Ba,xK|#[ϳ5l5,vi!!yET-5E(ަUԷ5}"fE- ,Zhf$zMU(`RӼ$`ݲ%ä1\xbOwD~zi5h1Y1Яȭh-bYJ8 J:;)rfjfB|Н7U"dDF`.sR!K=Z &KRنѭ(1cw&2|Ykq<~}Ϸ{+Lxx%ьZz t kh%`N^AfIg5#j?tT!G akd#"}V'scfdr>%qIEC>@Yq:sd|kr%(iЩ!Z쵤TRс:B,[?}o68G P$Yxmr:`,NԽOQL+wX.U5O!-!*IbQE [xALxsTӱ!k$qN\32%/NL$S\!$| Ac k7qtXDXyi#3<3ٖhq5xA .]"1w\1F(&cgI~IH~٧={z-p+u!"IC[b?!m6*/a'g<]~])_t5:g?0#^UCY x[N;_.5+, Y)wf\]XgāF^œ vkUY^$9[Dk6֘6\LTtN=|\+gu+\>@^7誘GY)vlJS?@U9~}?˜TaY=ko-/ B)"l2Fz\ȱ z=b|AMa@_ZE;< "G\@}3BoB=JqРQkX<8fE(gR+|MF3@EB3k6h= nw&͗5#{̭+[JG(Q%SY"D0}ȴ)S՛vJiwӖo}%`rSs$CBg~R*J#f8Cg-$4'B-O3-xF>F94 5^*R 9?"iF6'_S#&y蛫VRص@\)˯l8Ĥld {~KXj @[g !YtDUq(S -u"ةI]ηz$;||ϞZ|ky#c0oveHIrbC*ڽT1wZB.p!z@tMH9[ ?`Њ\WAE P"<2#נ}jI!zJmhXI2l ["Kmlj*x\l%NI陃RZ%?A|eIl`yh{NQR]WM*.J=w6,C7BoĞ% ?vrtWaw{,Yg\PxHg.C\ pGw1^"ei5gqBRuB-f.;{:zp)RP!e}uS渽T|!~T:ǾGa6CGGm#N `sm,w\?a|+0`Ch+ [OmMidO$V6c7jYEneƶYZ;E4D^W>&s沿#м*zvxNF4֗DK8{-2 zsɰo;taޫ4YA~'.jrmwg`π"cn*"oZ3}x(kWC <,/ =Am|KxG_ \}xL{ _ȃPo".}&A O,{7Hΰsp)"I0F{-uq\g7X&jk݌b 9wtnDv}{B]a"Z5kq1}O/`!lX^5D.:.e/ YXU2>~rlL;N61iψӾgٱ= Dd`ƑBqFO]Ռ j!EFwjv3q.5OlӐ:=UP[1bu*KÑ"C[~K :xy RrD5ŧVpbHK6Y%>QB@Tv E߾q{n{; &*fZUiHYYqyi45LoztQ[In)'~i{`yԼ)7?-2$:]2Pٙb ߆B"4gZ TB3cMFPۏ&tp IVȀk~շѴCY"ϫY>԰lAx>ׅ+1+ Md&u$u(vWupRGaifkScI0A"e߿QI{>@vLЁT!>OQMMq ՐVb5"E"k%[>Ӛ2v6eo41{7R 0C'B_(`=فy胟:fMUH٫>*,aOswqH ;p@NLu\?ӫ\6)eq{*lK!<`h,Mwb:'@{-vy4)킱oYsi)Inq{y[8yM W_چQ:[/#\?q~~7$I22IH:AXC] WF)LR$ Ӕ8}OҰ-:s>#k*ҭ TR)"?{;gd3Fg/ hDp5eAĝ.&pl_6 9kzdx]aܴ( nm/Aw^v{o{Tǘ }zCZ>-5 YK1e_6}2XGWuu8w &P72$xv4υs&O{rUTP*j6  @yJvl:#SGF7:6+GnQDUM}Jtl/ݯ#o nCj49rJe ClXB^[0(o=dUg8 avZ>ԲKt|hI9@G630@ j#Ruw%^Œ'Zxb=)-75091$ pY4%94)xL(!0Qt& X!+۹h=c:z!'@b=7^ eInyO[I1KHᓛt=UϦ<;BW̳$E=$4hpfu}F9whMdɼ6j]'mSMS\{'gsE[]pͨn>h)/)C!Vh3W-S` VFh\6=фwgw W %wp44[zFS.dیGdt%\:k r \^w-d`E]hӔa0x߄Lb WGݦjc1Ԕ-4D%# D `cxrwpl;3[rF |{7 [,HM3Ayiu6Mb+O}%!x.+Xl9ީ(w-7wO1G}mh$W0sUK!fPSĤ0i⒱\Ia|A^3Zƶfc>|oyvP5PPB+;`wexrN_9'W!Y+TY $T9~$v \ܺkSr-kh۳LBԷyg[K 5o3iI&x*, [*|a'ɪ<"qk4\SbCp",;í _C\G a7rf )R5@yeⶃER2j@yDPHU<|+k5<cI+puwG| ;"dj *0/~A=b"L=HxT y 9mY #ֱ FoB'b}WUZxửey׭U[u0FN_πwz(%M栧˔dv#:٩!,8\^ƌ+O\9qy>T8s[ޓ_DEx(Ul0;OeMWy$mϭLV_ G6aT1:yX̕mmW6KycscF=Ikυ 6( s@ ?RHF3qL"zF*.H4哩ƈ7y ]w\Cp[RY豨|mwsrƙnz`صiHU_Moo '1{l#xt\:;pI{?d 39$)C)2{2删HM{7"`٢MKӈ=ڟ#tj2׍ ۰̎'3O1~DU!>|uU)'Hqsk*b$`s2QZX+D|C@aEx0O+1<#[ԁ[ 򅈇9ddBd!lM2T!L]{t*] 4"mQ3̳O†n"_צ$|2D*A|5>OV́zܡ|2єdDJtl2<c$C>+织S,´s"Z+Y;>Q.axvb;~(ΜUXh& C%cG]p%K4\t̒ Ln[n_fk;(eP"c>rB,S-X=vY\X)V9&deޭmB9y~ChVGx˝7g֟qDɎ,7vA>ݱVCrpyʎrf|{K(J-/ZL.j_)e A;r)kIK=#̂[*pI7`mI!6`2vwu!p8JF9*'?D5$OOq~5JـDwf31L":;!.XO'4H@c-B9yL_}]5ϝkZ߱Tjq~nuf`C,_F) MKB}rjImDӾ6X,!9[;3Y&_wΑWkԳ(:&ywL.@N8 qG]-?|zQ!d.w %MB+eHTYyh7X/Enr`4(B ؐØAhR.ex|C:x`σm)ַ' Eb1h[҆F$o7J /pDUV*uW,n%B67jlD?@j`OT6J e˷1*J?e-ۖKZ40"YRξXxȆƐH/rsDzlgLv_H?HRQ6&* f>}YJΐTh9P<.xX<(1鴣eJmog5{eT]N)g\XRe4}G}N`U7(/BQk&K`% ⁖ VN"NP@KφoWG|:rɸNM³PXCR(:j" aɦk\2)+ޫnA@ 4_S}.h?Lrh#Q/<{k@)/Dǝ8[ETQ+Úa&s6Tt,iVnj"."R@$Enwi Vvǫd'` 6-Nn`D $ŝfd[`fы C)3,[Yc4ɥffp <(D.̈Z2/\ו/֕MV Q!j6@*k Ѐ 3bաVEj*0bT :;(#З8eLii:}>KϘ];Zz D>aPh.r^{on =1Sߋw~pmG~тe1uF Ck*ԺvuQ & xjN3uƝeyx* hDEe jxqnrSm⇄PVzK}pҌ)vӑۻ hESi"Kv[Qn+[0L]J@C Ϗ'Iq9?u6V-EX(KQdD'6_draEFM:($$H'jHBU.ON&>a.%d3QB:*+~TDUzLƊY۵,RnkKiT~"p|-mk& -fB'._*Ao36Cݴ p8]vEiAuzu/agHTj [X#7QáM# <4QV_*T@p ?;6>s}p}ܻ\[ԺC8:k`oޞJMh2H& 7])AOġͅm1Z10Q8ιwݣ5:&K/U4R =`>ccAΚ ~ʿ4tR$'\),ǠQ,yv N9VRn[ = y\gsriF ?lc@&3!n8fy22rAxG(y59qq.}(y7%7acIZQNysNsqTJF4ViyZ2^M+>ws9v.حmj10^FCR$0OuC0p+Vb'v|<r)QЇŊA9U!NB$ˎ(tu)0v;;_ZN+ D\CT@cf 9_ mNWNͣ(x"<[5,눼C!UpG>Z&jnLj3ʴrE8j58w&GypsTQde>68`9öԃS82 |1ٍ3v䪝-O -ҤC)D- m99If˭⮼u 1!/YUp5A5wt7;Kl| ڭ()c"=HcОnְh+\h΂ngݿ/Բ(SװcRS =juecx3{Jrf{#' >KUm#-=EcD!Z1BkzQsM=bX̺@lR̟HvRV(&nhw !OQȦDzY x7 yd+fS$OVxOY &A)ZQĎHf(6}XY=]Am%1G=Zn\J tㄽ30(P܆̈́I1OpZ}.`B/Ce[#\ogV67f3lH{崝9ac,9OBA,WNar_QeS=PԱjf;0>i׷vQXSACZa=WU0/GA/ĽpH1 n:ٟ9@0Zeip"[!"&EROx$c`ş"ey4t#S%UQ7f~eMPw%t0 )}LzGd>GPy/*8USCcB ;{kl>T]&szU lW LOA[cS;u?ݑ/|n`{de(R2 Xybc+){ؐO O1+L"'߲Oo)V1D殇.xJ˹\%mI]w8o 1[B:Np+%B U4%YMt!˔LL41HbAN &#\z$/WgFb[WyNjfsI#lW0HL;9Mz8@vN--$1r4Iyx5E1$%º9I jkMF!#4z][亐tmZ̬Hgoޛ 0'с_Tl=`(k#,)VGӬ6mN/L$F#c ]2kcK~AN|Z(nZt^}B@eretR9=%+à:!L6;ؠߊr[V-/Qzyx%/:ݽ䔪>mZM׺ ҭQ4ZM|P\{AKLg/SYTNͮ78spZ "Z)SRs?e&âꓡ<$H1?*AJ^`te]W虿HŜV~ "*H5ʾ4NQcV΃O7H3 uvJĀc0Dž0uP ?z*ָ®eyUv?X䤻Pױ.qqϒe}8t<)WfǸVj1Ԃ0@6*' 0PPbU|LX2%^uH]@XS(s8[ıJ8_\BL:essh23%\1rɩU%>pTs#~nJcZ RԞE~.4"u \=#<]*r7@( }: OY k'zl㶪ת_>Smocclcތ|Ż#.ɸkϣ@jD:=WJynm|6`>6A5`I~sLd T,xϬxx TfVe>!^w4 5]k.f[TY!*ɽ5VZBvsN s~.c{C1Y^gEn%;vkfmPvNiLx)A [WmFX]u%1f=i zX=@y2}PLK(vTT2@ 1A2F 8ʈWf_C&9n & 6 Z QsNKdW =+ puR(nF5!bܫƿT,\χ˚TAܵ2AH ՜ Y}j&:Bq˝Y-^.i.~@f2G%i*!!a> {嵖ŵzډZ8JpDIYj>rmSo`?CݬKjߔk?;{7 $9z4QD"<=mK^$qlkn_H sɪ{jW =N!U)}BА#n#jXG6WQ#ج'.*w^r:Se D.T05OX ZQHxJ!cKWy=nJ>cLR5  o9E"AմhjqQ|]I܉9/"7tEtnB\]s(bؿ&Yg+ypxV+U לXy32[_qϥfc7Ŵ ω+;ن`+n`%qQkQsmȆog~ ڛ/mXձaz*g~$JRNP6mXC~e $U$d~~\b,ză;O4D :RtA|$6]8BIqR2& ^XÜ"XM۞9!X6 >  ,_MCJtߖ<$prp nN@%"ʰ:ďFl!#;+u _G+ఖx y-r/U@!2$v3^j;XFiU)x1cljcjΌ]Cܑ(,^{xbE| &=;tߒ(y̥4M'UN4בX2{-Vw B&)G>#w,N[(0FG΢ft(4IrF KNi6ak׫-C7}]۶[ 9YX2[V؍'Ѩox|5V{&2fxE_aOl@yZo9MM h3jHA|Ѷ VQք?7k:3E{7nn'/(<YIpÓGl u#UbBT7B85H'qsu= ,Lh3Pkِi5/!cY'#;V*sl9@rQr̛PhKTol ˸h<4Mb(QtXǺVnh>1@|-谲_|6/WD@YH2<y!+p|lcTTJG9R>(GߖY^er<(1,xٙ>H#~Wf~ #)yD1}g3,j.٭ Fﻟf̱pQ6#C]&[?,Hd ɭxHqRiig.bytZZ c LۨAm0w{$WR^e4}en~ϱIųtt&t=h ua͞2O3Biqmw҂uYjlt1ߍЫCOx :L6nS1 ["y-/8Ūe ]:S߸/DWCF0n\[C au̅t? M&݉umAD%hѓ<ۇgB5'QX.{1x=c+8p~B6pg9ba< [[z=냫–)[L2`K}XJ f#ړ]'oEY7^[v+ ڟ3%uInK'r\O#j<-?5 EZfhVyݐ]g!2_Pj[ȯ? CG}ӃSoLҙ m4!SX#(|2kN)]o{{qam`Cn{JxXVƃmz9xFaQ^DD#GmV'%w a'AJ'mQu-su@z=a*U+*0Ud KۉU4HhΪS\֪bR!f/~Vg-抦![8Ɏ6;}. Wz4IZ&+'ʝ|6(]Y(Āyqsw& F Kg!ڔJ*loC@A ۺZ\zؽ\-aYo^>YP`؊̍_?$!-H& ԭG&Y򞃝񠕬[Iv2F59mÙiIiN5J:&2i>5t IVPQnQiS LTyw "?066dNbFM&aMܨ;sKu.w2xWjS5Vְv8 hv8J-pI9a:q]Bunu>o*,m݀Y "jP)DmͨnB+p "^j"`^dBn>c:8zz%NPǰ#xSV@ ڙTgXbږrwI~I]5<|x}gvik^gK[z+?@vѓ]+eQɪn%FANMTQQ;usČD\2͵ei񸴪_`EϳXe6?q-R-{Dv.hY]:?"S9k.LlhLpV5X EhOu3]c>KCTz@$pu/R <0eeJ/+A)' %m PYg@P _(8kAH2\_I ,:@_ۿnvn 0Fcɺ0s6[$> ciͥg.ۘ. ?OAai-d 04GvHХ+o`WHeͱŝ㒺) ~M/!-} C$p$Bv+K+@R-7Qul߲zb8M%wi3&pguT=Ujg<}iU[64"k놴3s -zgY6ͽY !Lh) pNxy:꿐l ``m]g!+pBD SNĎ۲A' s rWdV.}h:nM% ']Bs"žG.54#~FON~ 㣑f젫7 ЕFcWqCe  [ƢDǬM` ??\02ۣ 5_uh|6p8MZ Y[ _]V˷2'~E1tH '^*j4'=dbYX!2!󎙣ǃ¯~:x@ s=1i4DC7АWb 3%Da&KrVM=oJ}8zϸ_EMQ=W}:A1 WGs܉/fƝ$k-'G ٯԞoc}kRkKIa%KpA\ ' \猱'@hG+ _:A( ;3>6w;B~,/.C*hkʞGG?i?$lK0Z꬏E/OlSsy~|M Ar{@ $tI1)M9H1>IxWOu  >SK]&1 Ni0];7^?=okoeCf+i10*1UW$H7@}S^r˚nɍ;|9Y!%2i. sv&ɤ9KiCINhG1rT۷L0.@ GRB?oItaDkaxm| E[wSy&?@ve[ #Ѡf}װoN|sD\x@,==n2ɕ0l}:4_!()67NL,Gov(gI=ZO0HZWgrv<hG` rƧ b@/r_2"Unz`,}8rSHT#nAM8ZMw'*Tp{lxĕ1ni=mRV?_FϲTe<4-V:!Q?&w#ۇ\+d堺+kVR%hgzSYPVCYe \8$5ÃI4̵h6FCw[ =Il9!BSY営IYmm)'Tg:NXQ @a| FCUΞ&3$Y@mLƟz]9†wyĜANpz{}K"Tm *сyiZQ0S]$ u+EXJAdq :"1dhȧq< YnIN~>4"]v=0d^tEfGq6_Qv RIY1T0Y)%_MA ntsUnin0=PkJl 5ʁl=4nw.'"OwRѣWB`MGwǩ^b(k5 ruz)+꾷Z 5 ^XZjo5-uVht&- yD0K,)pFTfe$;qvd o(QUW5q ' 6l.x$@ jNF߇߮9=ƴ+r%dĉaSư I~۰ö<S/HGU9I׏DpTQ[ʨzG贵fUFyT&\ zfrԙMyy̞6&IVAJs}A M7|pjc*8ZU뭅~ǽ<+b@,@x @ )Ivzлw,h[T;֣H1ӥzu2A {G! \(՝ȑt존o'O ~ZZ^n'R)h[cFqb" XLOw=Z^bp4vѫ>93/ٲtW,anx:ιnE}ChuOwjsn3I0 z7Re n\}|rpbh nj:{w}{ovv>F4^/bjT9ujUeG {}: . /$Ixʵg/P#_ RD$ ~m;a*rVS(o}p jH l;HfN6 +5*w ?C1)쮚4|Oi~~ in=zeZ)7q _c{iO:k[G+XD/Aw3p;lfR RW 0q![ SK}j^< /}~#x[=_wa/@!ٌ^O4R)O7S0^4 0tEgOxӦW::R0ǭYwh?j-y6b C89ћxm_eqa4'cL#R!Q1–]m/HrNyU=RkKe,[5@O1pGQi,PF7m:ړ7,GbB^/^-L5_ԯrJY ɝtAi_ ')%s`$Z+7X 9(xal̤WйM h%G67gpf3kV?X^24 R3baV0kv)=+8T x7No?lE%]sو5O0+o^Ik{/J~uޑcCo)t?$$@jyfՑ vHp8^8DYTvscnPF/v$ Y {=_23jNE d.s6px}$:ղR6a,+tZ#Ѯyn9%_naBC\'4 2RFsX'pCkkˮ^4I7V)M^߾/j0ڍYIi, S{42I|㠇nJp6al| bA+ ?()b`RH*3,u^I=y+@0IvQ[j2 n*2H-ڋ43-myf*6 v'=Pw#$n1OJmL/!Oӈ݊4ι|1Sĥ(ݷf럲6L !N3Y&VPOFlqՃ.%CqA%X+--0>tQM+_)tK9\ %3ٳaM^YܲDNJ&N٪{E>e/B\ Xmǎ`re9Ϧt "l$%̏V~SU:ן 0&TL`l[B4w~eO%Ks\&<ǟu@D[}ErbuvkGf(ZfDuW%Fě)_0hK#QMW(BF[OsJ"y3 KfHX$6(!vs5i<ޖXgV_0Hj({9 a"^w|㘘 sbZ{"5`:1߂VY2ZS_4NhSt# /G'mv\:@f'd[!>I:;I+򼦝oM VDD&~8m'0wԷ]_ei_#~tޠSV89+aW^rQ7S{dLb9b|<[QRM&ڎv}2d'\| ŸC.T)&QaȕOzF|\?q[JIP j|6e{󗔉P%CL!`EzG~p`[ ˼˵*&c=@նU hW97A& +hN9E2mAì6݃0\|΀ĆA hbSKhy;) UV Rqd~H\!Gv)F\*(a r3Q '}A*>r(%ˇ|ÓʕQ=h 8Za\hO/m ͻ{tp,t'>c| 'WCPH.IުQ}pUᘷ5Q\Cc Kv9{ׯtc n;ٖCsYtZu fȾC)s⯱ҽokyU44_Ncx\ ,4!hZO%IL='fT _ p;vpySF9yS]cQ1h{-|~$di5h'p4\zWgT{xbddɶüS)+}+:1(RN>`0i&FYn/ei@S%\9nRo8&;DQE)#qCjh@ReW$ HcP8UR bF̓Heho s &2yp]UGЮ2}+^ |`e[n@F%  כ&HGG 1En`UhkͯϞDpX.BJ' dmⱷR.]8&*AR)d\8I_7Qr9nךRJ;JxEaN-l»4h/B;,4 UNe{sps,*|a QxFQ1@ե4$W=,KjV Ƥ,w3P]i4|WʤiϺ0G>F#FEy_w"OT - tjݠ;{k*X(2<'Ն7U&J?j pAҘ8_ AHn B ^'<1QlǣRFCF[+BYW?pg~g#{Bsp$)FC qMǛ+t!yc!am/~o9LI)RVݷ`m Ж׃C<ZI[ ^m6m?ρ&Ep_ٰJcJ½F:>UIh㵰=g$|NҜOȠ@0X\pkyMnnvF0 [qZ3A u.+ KD/Y 1Zgձ nu]!5J3cv{jH2+5yq,85̡8XBp+ + 7[Y!5 "09VRXHZiЋ=MGHRHХ;mf\i]P_ mT*0jEC@j"${:,C}S_ŋG*EcKP}"/ہ@׌wíwhΡUeP6Es35%@f_l/ JxȎ1?LJ Ȑ@`=t5@!XL1CBq8-Y;%0*!ܗr}6*jsS%k JЙj(,}Qvj1-h)2L{ (CZHS%Dl'&v fBų^t5M5Sm$0hOGbE\&|tz+ NrSO%g%X1 X.P>= L-aLle7p%AQL]pH';_Ѿi(:CT%[qdҙ(/)o 59AQtr)B3Z 8mˢXh n=GQ'{6zQF$YA+˸A}Ρ׆x͒OC\0&U.'>J58~-;gH&\kyۼaL'\ 0٥S輟9Ʌ6 e tΨPa])\%iq~T{!&m:粀?_d8B |Y;,[5hyiEXHKuNΘ49)K+v]vbR@H1N[u$ɇ tQ.&=V$).d?!&0dd a­ڋu-g|AZF5({S3[Y*VK=r]LFܴw/d̹;W'q2.Q_nQ߶&pcCC_\ _I1BAv+aw9H81:[ `E0zٛيl<:v ./w`y-T=~>4OϋrB ~^5啘ηt5(FH1U{2gķ<\~fd˒Vȹ C׀$PY";"d׸ϑNu˯$G8~8m»ƖEz 8/tAb8zIBe:S1J]˵jNjm]VgXY̔N1yBި'@r&Bዥo胰b.+~9.{㹽8A:tH -Hw7`QZU'UO#wl{OQlWS1χ[΍B.]$_?'Bm ǐW-%_ !Ii6 1K@NxQ*x8!3#t1) [V8#1ؚۀͤ_}@F,Χ5~R*}¶P,!+)։Jd'wCQ9-OBGw ADƘ6E2ʵHxn1i /ds{> Q^TpFVSGHvWKt̿S1]c}}ճNI ? Dy"kU?| '?%ßXfV7 )eN5,%U0K33miAw7Yp. |"oqbTIk9w;X\1)n/yLNCfVn/w;?Eְc;5EE*7Ϋ6 . la\?hFqIh<%fzbl['\*+2U>Q(S),9mSCIޒ)GD9s@Kfb!U@IhJ,>5̽ p$ 3@doB }[Jvp`9?=ድ$ŦP F[D$d3a olSDJ[fӲŲ5YU5P";U60l]~!R_jXI!py{zIV3O4}E؏f@f1x3}Z zl;%&&u[[9n)Վ܊vO.P>i4@ϿiJtp0 -8Zgd&ԫveؼdMoK#5e ﳩQD$ ŕliFV;&d0qdЏZ>LEyֵG'YZ7%\/r0#P1qgeaRUNPGse<?)6˺Siٳ%W CIv T|:=сL)H !hu]@1' aZLAYmzf _"MjٹTiƻ7&HE%`USlHɀOqVzq_ / >~^Zk eDL3"#S(> ܉PM9sP+|% Id $jC@pj0+is5FIA@GJWnnJ@t#%e#5 J&=k4e'^Kݓ 2RT]=%3}i" A8\^NvMs80I\_ t+&&& z;7%=uh=_U NPa& Pocl#) \;Kt0'E +Ց8gfGXq9N\P0W6,] /s ^x'V@9ti-=kL%TYoܪzGoW}EHBl+1v(b-kn<А0|A5c7ض_ؾu`$XriGD!PdOB+ /ij &-8L /K[l!5XGP1.7R]qþ ɼ`'Qھ?rߝ~jg]j"cNͿ/ Z2]L'ctkVm@h&{:  k _XS^Vћ:4>w%EXln EM훮) s٭ߠle&:D 6> x8ht<S`Bxʷ,N [DefmlPC-3=]\_gtVؖu܆pg0gSSHπ(9VSz~d@kd|wPICdrSSԗ|Wȩ0~5ަJy9N{r_l4~bN9V% 5]vqv3-;i)X#xszbo,)3E5q IcOT0nwQ8w|KtUj[fP'T`#1Xj{RBB[ȱygcgi44@ '-5LJfosp_G'H1.k32hFr\K@%'?Ӆԅ&[Ҷ )l3/]63s"ht">¬.d&`Na3z!pzIX*l^G _.mI \(-7HsuP7tgo 0JW V ۄ~0'e9O]agLkNV_ىl4o3Y- <-F/PsWӥ=D~kf&_tV?n_ ă>94"f{"FhB)&}Ŗ)1pJ,;RGE/H[; lɆ4cwlSgʣX>qjHSYdػK@(cnk-/W!j䄠 M0 ']?l(3턱= Cfn6ԗtc"K&)N*HX=H; I`Y~ըwT +]9xǒ{VKoe13D W%cjN 27x|J3//fQH[=Euj:sn>Z4JLYKmJ UrZtj+H ^VCTJp #,g^[KƢ`vaRj KGL3Zʥ^asZ"4aGqk2IDcw,!j-"  Y]!&MBePı=]|wvVs:kQ18ATٽ*+5fb7 MeƺqīR,$ +S=]]A@xچW_zI"?NOc s2%?mwqu=H=xrc:Q}8/MsV.{1}2wuzق̢"X'd">͔v1H]]vvvC]1BEiG$k,,LY*۾:$ܽA,i o@6-n<`x45Jt8_.!Y8~@T GR3H9Bnbv$0ՃVC$݅T Pp[x~ڔP~{.Mw'xB]ɬP[;NojkM'{0Ål*'vE"nu:~S3T>J53bPnqk3. D*7N ]Q=*&q.h uvj)1ĉ"J3Fu|XU[V+Zge s!@9m.5U35eL='_t>/ ^Ϋ߰kZ5T=9BT2y[o1Z 6^[,~[ cF :Yls#@ Aay[i}$dq7.ߎ^einIձ־?2\F>wph 9hq@N=yMWx@[$U3IJwBVzmT`^ȷ5=N0pQEiWвZNuB- w苠@=Ԣpi3I }UG|"DDoH5tnXm%ÿBv Z)?c:k;2X4 Qw=] {Dd7̼o4xRU\/m lfQ6/8BU$ zW3㚷S͌Ð ,e$UWcрJ,E\R߲_fu@"AACHQ6=֞\ XrzUUK~)+lo;q]/,S\-NysíЙ>\#^6;]底07fg9$B~S1o&z(c=\oz9Za^`dW;HtXW 9?eL{^p&#x[?88Jˉuo3>0oV(|~!]P4ȦI\\A֕mb'fqI #]߾οKf "zfadt8WʮANurwQ.J+ϘKIx LÁV@#;G{j,D(jv#N ~U,*ֆejSTX#ɡT*D֑_#HNy^)ð`k{e˙9GEKdXdi W:al?_|L\9lp#4ʗ+66&eejCE#&DM4l ˚s?!dd @H=X_WӅ?ai;gВ x!PS>' Ftu @XÅØ3?5XeKެ_=>Hȥ?NLa`1`ULSfey0UM߁$(Y?&L1d۴?8'LT{du&Ť[Ҥ);Q :"ZTb|f4Ҥ38}ocξf@|)%a޷|fFkNY'Σy_},IK*+s9)Kʸ 1(a`pUL~Cb!\wfQMů+#w<;[7ĒRڕ*a\ybS9Lq@h=y=y!Fq[Sa4 /q>(N]=^tz T!hM)wY@$f}D3$ VڸgҐY6Ļ}y s>;pE'Wn_hOˏ/\,ޢ5eݫE$"#65_p0$ACҵGx`YӪ9cX/6" ?BTQ@UfR*G/@b=1]|a,妉J yB,ÚjK"b_lE7v\X؜5̱Ɨ^Up]>3#4@Y zTw[Xߨy  YͶ|Wo%)N8e6Cһo.Es+䌧/؏s9ƭ`PXy*:n0配P`7T=`N>6+R@ *.[M]_M#!Y؄lZ9 8V$bCzN^4yJIe_wrn:2K!*"3) [rT>B0㫮[#Y7Ѡs:YgkNpHu'/TNq阬ӓli;kvbbcjh^ZV^mv2brI6`#taKh.Q L_{[ٗ<[_357vgQ)–mrTJ},&za2varMC6@R[xq-q 2 (X떪+6ɂ'Qf!_\ Ё]"Dk1@y+-á#u t`x_j/C#в!:MDkM0^etWɃ#\,N #&3 $Y/hbqҋ$'f z?l0X j4d*%UR5d_-kW6Zq[+XK4:IO{4fL*~SL~u. FHk\OC/ A Q5[FpQW4bX"iߎ cW+)oU.MYIQ.qAQf 6^W7*smucB5:T.k'f*i\IJEiAr3tu mrzeXvK},Lx ]gyZ,eMh@8H-۲Ƒ<{vm'Ooo;2i@6 [$ ;Gmɲ85h .KV3lf6qK Bhc11 {\-o fsc=,=/5/lY #J`Vr8vx1 ;RNh9Q,vc SWu1U~^ 6kRcf|,+fUTAN3R[NjJ#)^)G "3hc1g7N^W,2E;23ߐq/qnɅ M{"gaejJe\lO$&(òGU1@ie.N Rz zPV-rr7I;f42,/xf@>kX}icPΚb6^e?:z2'rzӺ0Չxա0w3fiZ {q;2mzI\Iecp5Rl|x sxO{9PשxI5 (.TvāiHo:tW nEcS'&LھŤKKlieQe9tGwFW [g( ^ c7aW!"IHo?<5_ٻ~RR^U%a=QxKj_K[ ,%0&SB 3w5[]FѼiQ=M8>űh=ވ X|!XV~baik7v&*EvW?L rm3m)|jq(OX񚾆/󢽳u2\i%r(ؽ΄1aͲ~V΍QH1xbuEs6<\C ./݀d6GᏤ&X  |휉a J9DZ F Uq] ,$}moK=/*b;rO @諫e_\S]p܉#:O_ : a h"G i>W@ 6Bނ(g~}-mrҧ2ϱи[&1(6XpzDSElR۱^5N&LwDCt:;*Bp ϣyH-*h Gwb<)6=hB ŨE.+B<|`rAܯQ&G UBY9U A:*dzw =]r|Js \}``C7r)'(?% @ _+B$UWb eV `U=wf-@51j(:ACOuZd*.UTې@<Ŷ3[wWxq\C 7j헨6NH];ϥ`uw4/r?w8f,;'{Y{[U3z/<,Rvkg?7ew^1Gy~45nt묔%i>aHgo=II5֯"YlH~e. Ovm]Vyu?s; IAWqͺVy.zŔB)ъeqw<ޕd*L 1$IloFȸF Nꅇ:(yY!szsqX̸2/H =d=ϯQ6mDS0Uyl ]A؎ݿqH CpHUc,.@_CuUfЮJ>$AZ0=a:kC\ PPa]J_u=20$ibRX&8 'K69%cz nKoL8 tw F x5gJ^ƈnZ m˨ Qaю·-b+Cj%bqc [h~c//QW%K+PGMrP tn~XG9ky#lQhءtCN׮fGV  |zuHdaMow@n9wZo1w{S0[O]!b~o8U[ o| pr)Z`3X{$bYtx4NcӞ ʻK ^`-cFb^F;;#G-i֓VmMT8anכѰ fZuHr|y-E舊zhtSmWWh [cn驛- - R]6QX~3NqU^Ph"k=C9]'.ŚH-D9;Qu? kO1 /1w JdCY A D'&s7V9ZFm|~~$NFP#äQet"^XX#Ÿz,VXGD'Bp0._E!T:.h. 3Xr%Gs9.ÔBeI[.ߜ]"*O;Qq[XW^|Ey|_L-zUE:^J zT>}8D2ڞAHϑ'>@hBˮR9a7z޾#!1~Vl2ɁO吩K_jMl[D =Ҽ@f(Aɤ@;o;H qp(%-LZ#5FپD?b6m]86ު㤶֤=÷uϨ`n>B ?ǟP:'1|(4X=\8k[_/5If!` yu{D+>AfJ T*1]m?Tad'&6zڻ$'Th@(kfy4KX$] Ŀeg=eXYW] ͪ@t_| ȵy㕕nRr.pǦ뉝d?kU]%%8,$NqK(DV̦QL NsZy/jkF/$_m /+e* *rghvD/ӁǪwÖ|2I̪A+Ks CĊP:! `Ώ oiz`WO/BSjA_%vW-cc&eL'!O' 83m7uDmd )0Sf#7K@=D "!x٫Ug੓ F +G̼$%GB* /5 ZJ9G :xy]Mٲx>`eB8Q%Z+/ჅW?p죮a[UDy0c Ȃ7YQKD9y Do{H6oo%}޽4do TR*5Lk5rj 8tR EB͗r(7KP![Zy!JvK[©~i Sv .S QŻ-'`fQ[6hse  ~Z o,Luǂ`QdKcLB'spW6QJ?2  {R9_EhcX⩤]ئ,4SUSekhLANb>PFE5Qs+kbuN͟5#dF;-4[?U|~؜*RDR(Z^0s1hS>dO\!|!)5Qqeg d9i:=b֭"?DE#-ǔƩwOϾw %4 HEhi=5UIm2QkQ$ ;S$ ,? H/UO'sU>v )sb O>UEEP/)OzD78/5v `5Ѧ&8=z!ͳ;32z_bhb N䑾 l:2}bULuesVgƞR 3Bp^okɷ60O נL19O,S$֋6 ~"[Mb;za1]sQdHfTMP_G%Q/HsLf5Od y}0)+Ƴ=1C OiVWd!DJ0u~sd\hM^BO.6GpH3 :ݷW>^^.\tbl!pL `JȚd~xMv[$iOVyµYhNS @FH NR UlX !j}K|fsۑ65JX3~N65 Q|?^;OGc"јۙx?c0*I{vH$m}tmAky.p-׆Ixѫ _*LP?P3([ oGX編. uHN}C4<s z$הC;6)=M&rry yn BX6WhfuvQKڮ_i;<Ujj310q?Q(v^B܀GR,ϡ80*6jg$aPhWɉ~'iJ"*UD9r0*`C\ԗ|GOoܤUFCL.WPa>_1 :vx1jk /&r7\ߗ))+':|}1yo75an۵uW~aT7V|yli]9HٮklOOi'UN- a-yta?RXGh\q;$#\!gq zDfӳoYWWDd.,:;A (S޼lV~'[뜆<}82ASʜ8z11Sف[3Tb'ȉxQ -J $8P-}3fv:s" P!9jh9 ދCi{K3e>DUL/?gm~ՕGN፼]RUq'L"Fߊ|V m :dKlWNWuwZ_0O5]0LC^AVY %@*!P7%:zE("<7oQ;<[&gwCoZ#NGNFO_UNy CqӋ2Mx1 $|:+LT0{ǰGx5e0m^* do: l8Ks}I? eZ(hGn۹n.A# L Khtx=(d]wgVq}l-cF^¼iu[ip + %ʆ fs\ےyq^UBr8b<.,<>}\;;s/YYth?Z͞p_ mb@F})vR@?5ȉ^a(2h<wA籞Ѝ#V8-q-TO+ˡw-+""#?]cUw%F1Z"t*64)" IIn{x(0ɫUv FdMΣe P_ߣ׊;>0=2 2XqOE^PH[8C)q*VQ&=N E~hZ\₮!"97iU W OT3cgķ٭!^k:|ۨ U ǃ!՘Kąᑤn5B)L0[U5Hve jXVnT,Wd4Mp2($7Q~A0<>gɠ=?k'"XJK="I"~/RNKa6ǮhdMİjmR4 {O$$D^qw0i玣AO&ȳsGyxU9?mjffUBP T/J Ig[C hF+^ɍEf-ėK V q~+k|J׮>gK0¢8Ri%9wA;ʣV*̌mSG >/ݸ-|T.%hѺ[XucQIuXѧb#{d+Uk$Cz/bʰH0T]MGONONÿzOup`_b~8z1`EG!l?v+;-p~ ɟ1|Xb+0H18ۂ6T=S*^܃rtQQKFm"B4|Z]A -P^Ui\YhNθ\ù -qSF`c\tľNPwyʳ"gb )$'fVˏd><׬(>|%!K P]#@tdޯƦjqF԰ҍf'lѻiuU0r9ɩqvFߜոppɍזPt CUg0x?4sw_UQ&!Gh-KV-lSVpd-`m\-{YxBpd6i_ Yv XY$j/{bb#bprWW,eD@tƱ4o#ոR;ު j̎Khpvpd 8~)7_Ac ._)Xj 6.hSi q]X0ݴHkEt. 9lT ]9*W?v/XBwb +ЬHջ~=uw5nLe7E21&qO Y-Ip,wDHq}*z\}ҪAѝ4)hHD4΁Y@RFR2y^ /mWaEӜ4 +0ۈO.H2rmt .ʍBWS|`CLL;2sC_8FR;z&*FRAnOB]m״ oY;Y QOhob$<@#/Uw#S9$Yp}S7C^د˯~ b@]] __v[w v =c";e+~ m˯ߵޔ7.5W]f<5s+"hx? |*&ħ*Ն5ŧA\} e^H$V9 qNnr`6i0ToOd1K8 E}ܴQ 0v\g_~ͺ٩]HHH̿,yaUΐm jM[aŰčV ţ6`ybI\=*`" 6Ck+4"E}ӂWND96gN~>E)V12&{3M&Q"r\U崱lpN:HkB/ě k4ND:D_7'] x)J"kRXUGR!ݛ=tKi php92Ct:NyNsd+Ƽ(WeY/'% `Z߂m̲Cp-<|V&Y &ނ|9tj]ǂ󇒋(7BH1/v;Iˀ*VdHT40w vY<O:줗oYsSR& ܽ~`^D`LMՐm$Lj?7YWP+/+ᷨ;wo (qH xVF~1swiJy Ӽ¤+p*H*{iM"ҰlA-nݠ Hs>ʯ})R r,7UF2 ڬ\D.TjS8 $(A, 3I .ٟc/hC7P܃zJK9]pPFtJkv`"rrd4"G[ lZE2'qgFwmړTRl9 I+5yE.!_i/WL Ds[E{{VjYL'4'r3A"SϤ|$NPk(Ĩsŧy;8_EAM_~)fB<5JA yec~Of Y; ϩ ؂AR*yʫ "8LAAX>hx,[ IK\viQvCT(`i3)~ꊊC.C7QuMLc$ D~:ɫ*f@)pM~۞ZH)옾fRi57B7e>&"m`8 8؝E ZҠm *N &jP ew~2uurׂ6lðÒ)#爜pDS*&961-~cneXZSV YÊW<+QLgBQ&QOSb2ր*ސ">Am_#VbgTâ7#W>:}$nt/̬U?3;%m=@cCn jm yt+״2 \9FhV:({kפ+mUN~3Sh&g3a[sH;XEg)jnQ{! UlEjDys&sq4ԙgd)DZD,v 񫷺|`~CF%旎)"֕&0o7yF˩rG۞A[\]>BԴFKFU'H/^ͽd&p50>7TK 18Nül5tJWZgp߭OۖPaQ6cCu]Q@٭UOe>y36sC]*MW/Am1[?%Ĭ5MB3e_OƦwZ3"Iq(==ք(sn"Wţ8sک414/>:K^h` p}(īAkٱmcK )TImAXH4 E[[02|TVoIkX KxF2:|R$`Iz概DaFoD?Vұ<«O&bc )ɼ4lJOwAL 99?/iF~A\^;?Bus3 NuW3&>\;vTK7aԲ])sb^yG(Pfm"@҆pW}x;x]9^zٜ;gǃŸ{i " Y gSr YObF^-8yNa*N3b3ڱ'Q.;=7Зc __`mfb}MwYSθ;0!]qhPaeی0UʻY.CJPHMkeQ;%1`FPV5*k HO$JVu+޷Eݥt>>eEG^dȷ}xx7_TW~JUmτpӚG1(KBʮӋͿ]U61Qu iL7S.JL9QsId"yڏu;|RB ]8 XK}E7 y?yW:|<$œ#[UsP V}"c dZu03]fEVb̖ ?nixzPs,ԕlXϗmrnۏDmE[PT ,H%mډ?;PCp#묌t`o露()8$3āU Jȃ|x1䋿-Dgy-yzDqqwP @'[ &g޸gAxĂ2 jKV%]OLQp p\h8ʯ24%j ܓ80sN"n݀=dnnXV3jRf1eL,/*V}DN|_:)OO B:ʢk-NP|9NjR/n~[&p;ԏ %K@5LYבЧm`ڻƒf߲a8O'=Y٧a.~O}A*5 4HY Q&Oe*WNke&#xH~&=MgnY螾m !4/+g}6R^-vXA9}/euS8Y}ʊRK۳M5o]Gh'<CY H,޸eVh#KtZ#4 T!X$ Qe^DشD ۱/ф2]#(߬v%Ÿv$TS1{M Nx>a1gZ&?Ev;gv#Zt*A͢vlPhRܽXjONe4MQF=>fR_;;r/b{evRLaE:)g#;P>:/K 1ÙTDՍ֡W˄0K'SYLa PBhY_[ MʐW)0no<;F9oREֺ%rApg2~CoTv7niWCVVġ=/`ˤJ-?Sif`1;xE%m]mA;EIEv=#q|W|֋Q}AmUijBxO?Es UػIxNpEBҶ+]h얔=4_ә=)_ k7Յ,z8` ޜ*-n55P|#Ky HL8zgۆ8Y@n~<jSmKz3Ш8zh.b-jmҩȏ%| "qe%[a27`|QQE9 J2eGK0;>bnTYx"זWBFO<%f-<,g:;'Brq,U gsTi#n-S+;¿"0 َ-8 =]{౮('R[dYqu.l*ӈ3mS$~&Y^jV ͛pq? #y ;'(n A4-ZlAfd@yZ44G=<2IPys.2F5kȵLg11+M27Doקj"``B;dc"p|r7b8?ƈ0VuT)}yx;˽ ?Ipu8*ɠ#dM7fwp zdIoy ixd<- a~:(`mix_Kr˹ *+%ؙbh]Y(}Kq(HG܅JfĔ5jj=OӾx'5,5vU1Tv#i궄rYI!"7W"<w)&2e=}iϏֵZ0)#xKW*\MJT9 >*EF!slm)p}wjgvWfEo9 ?pFUrSΑ+Dq ǗcJSTOhÏ`B(0 シ^X]j__55D_)aU2' 3:M"#u_ź41=UBaUG{cI6Oa}iSH9`޾ e!\_70"G 3伙R0AH ?Kp{tA Ɠ[Th֋eΈF^θibd{՛C8NPbqpOR >7cJ++2Ad LX]W16!]"??uKj`X"-+F}ofF8h5j4ǎo 0h]}O$=fK2B358}G}؀=p\ts1,EdYcZYc$z.TFrj Թ-5|NJKY/'ְyP4OH UA㈵E"! ,(dzffD-0v9;2g&vF7GœȜr΁fs4JVdeliW P6ov5Ӽ)ds t*!+~1\HځpPА7=}'ۣ{~z!^Qn'g$^+/Nx Ґo\AaO;v0ˑB氦ChX[qd ?1K rD EM2kqp4$2T!]#lo؀Mݑ~zjTIlsTIrYAt8' 1oP>qGISJm*pu'18ʌ K8s,uucј5 DA?htz8 _2*CT]Ft׾w`.(lǙ-U_ۦ_֊m: < VԫZ4cvN MrXGnf5G!&عO,4 - =HrlȪRbԵ)d.!xն`c];#]i<%6L4QRxp =$`*<&E2IDUwThfd%L-|44喊ߙWg%2ϰ)\jYaeSod\B}NM?̶ikP,(l{液O_"W `9Z[@||r)DFed$*""Eu[\bf/迄)2/=r{psPg{GĎPܭ,0X$߲rB,=Q)2{HV4\}+Ŵ h+L) kj tF0zAG ě $RӨO.GpHQ2'㸪ЃVx"{#2}01nK\avO(%1ի}3!6#f݋`-D YX~IO,53fm"׎ O*E1w{ O48D$ԧ0uĮߛLTg5|I+/,;*'BmwybDyBdnRUw?T~? t^&5̕S֭G @,_9Qa;0~1 t=<9k`ܖNӒHrtSJߪ~GT!왊zt!ѩՋǽk^Ik$T"Ѓ3z S.;!H POTE?6&۫ocѻ8Rf1v}EE )a!!Bgh>UehQ"TɌ"@6Gbqoe+'`syIpgw(S F=IOǔJ"*Wwg9 s?p6u$d$ C  (hL6a5#%8 r%kqQ\8(_+['^g ɋCb{,8Dᶨ`>gg\%$%MNunΣv>6L/s&"fq9}9ҩ OV%` v@)GOJ~I.ݙ6~rqzWc2,vLn7zt*LmlU{@Tz@!{'jq m훃eX!.j7Jy)ɼ Wxkazpfs:vv 7ժ_J<|9+ 3L{3UhntP>2>67HrBETF-!):ҮPHk}\ps"] e&_LjCгt`ؠ?"v+2'aIMM(*3Jt @3 K ]|%NctZXw1aWiau-UhE7~ Ias2Kd5?G!uqh){~ߡm $47~+٢bx(3>Ei &;Jo#yz˰ "{|sJa߃Y.b` RgHTRaߪZQueHTX^6m󇨶My(!fk ǞuLyrMoh<@RC㾍W74oNܤJ܈1+e&&@k=ZHv1ϬDU}BJ)Ml9lG/*lu>3mO{+xnI RS.I Z[@}2vYkAmк)WTwQk1t px%%Poyv5 LQdiRU•׎} $Avğj>t(C{~DJFL6Tl0Ep<ݢ/`QDVAUO%#0*c:ۆVxmׂ]SzM?D'"wYj+gk堟M;u?1gYCriP+5<׉c| FgԶP907HPk8sIoۅN\_X,H!†w?Wo ]*ԋx#ݝaI"Hy ma\u̿d[p VF:1jўEv::DAlG_0wML14_6'~BWr%A禃_~ݞ{XkB!HÏ9ö0E ME1W @=d:m e#S/KOAF>qɛO\^*-v]y^~?x9zZc. Mg ?,68@nd)IT^0髧lTǪӞ@&c_,kK`٪s_/1#;7ܰF!^S@\ 8y&6I2gPrjJ'o+/U&_,iĵyŨUnWGo!G8Pdx}5uk*3Â֭7Zm;AO<~Oz4(5sksG_w{$ӐZYWJblѐBgڂ P?RbJn` AL.Ў k-($} [ljsٝC!3o]|LlK^B:J3#\Mr8BˬAUhK=Wp[\Ǒ v{.S]`7ɗGz6Rw(8Pu& >V,R!R Q}]rxZB7QqIܰ2] js~u[ZYF4Qt:lEEhdmJ'QlW톫,Ni 65Sut50H[궠>BCQ by:N$Stjn">6Cƅ'L5쀑gp6>gx;%G0؟e{UI oLA)/.XHF#4 A/t44u*!>c*AכKdX4HRy컥\A:aѝvlf V. w'+^Bɧ&Jt E:B ^Ui>Ll.<fC-N(cHrïBG-]w I"UaUJ amfwVƔNM)jarreѢK`|q!68US7=dk>@'e5/'t/r#hOgvͽz;=PU)do{t1'Sd_h>|6sS‰1gKqx䫅6ZiJHC0g'z$=Dȥ Du.ͼ;:xcQyxQb8rZSG֭^p.EsrQ.RR5S$ib ʍNQb%߽gDiN%k`J4@-y׺ͭ]kvnC8,DdEɑcOᾀo1-8_E%D9!d7+87&)9MtZoNb,V8?߿ [W TUx{wV\kSG`,EEHSBzxZߣH rD%^aAJn.xN~gr{CȠ7Fa(#r>sf/XSVҡdDZYT3DW ^<к-u%{iA Qۍ^?~۽r G ^̚I$xϟp#uǑ 3djv?X${0ceGd`xX_LFd)iFq_"#:U^\Be~xۗǕtA8𺂿2U5Sq?=8:g(vhYI'`XWVoJAEu]_*@xTq&GU~wuUNVnO\ OrŔo/.f9_7Zd|-3/J#=*>~(t *oOhS|9c[y$X yY](WgM,0ewq?2؞4*hXĠEr_@«g">610Q{a$X_֞rPR /RvQj"zs9M7)w}@=ʞ~ս44ecqc./w硥u *eEԳSAUbe(ڛ,Bd:FS*ubvl54"JƫJr<=Սz3߹ x:zC"f#Aɔٿ(Eu 6}LjVx1ͤ^wr7hiθCـdYT8nElܖʱ]#+4zӜ*yb 6"-xKj=sfr3s(#q;CTV&]PB͟O3e Jcx1Ng5 .OsFF-M]M齁hk3B2:B~`H tɆQ {pC^{3.tqm35M_c797ݳK;v{gMxC%Gnl)SC"3U.(X-FNwiI o,@ D`|)]Ԍ7F I?{XԨDxPB&xϤxr9%;[N>vqm*zlLOѫuD$HTAnְJ)o%/@KGWǯekH--eg?Q[ $fw~`It+'IXZN.5G5r*"u~z(ehSbb-ãş@^n {~r٧l)o@aǶ:g" N<cVi!8QL/#Jpg 6yÉLD֪+rBv` H^<&VM"[QIA;U*5Qh8?oU0VIEٗ4S.迊m4ː4ˈ'%I].T'N& Da _kLAkN| wz/4g+Խ[K|&M-`[@xe f^o:Cڈnc iP,| F$X;#yqvOۛ"T>:m&-dYVɳ&a,DXda?z)d0C-BE/͍/NZx+;N΅3pК%jT)NYAS2%əj%I k.mNW^J,/F#yPs,%i:uj/Z۾]INS ,h'=ZW>d__Q7HPҙl )2=bkԬՓ?r/.|Ζ ŕw6+H",H~yvF %NU 2BqUC>P/ȸGp" 1+24e~_zV!$paGGȤreZ_-T@+/n(P̽g BeøxAD4[ƍ2QmY:maòl}x):)4{IũkVܠ23!AkpdPQD0v?phj\ed]dȮ6E>Dj)ޗKFєD1{": ,{p5o5Rgqwrv+K4H+57vE>$'+yيtp(E/CnxY[=FK >v9 Xͤn_;ɿ[{./7gX/l$~vR.wIUO1X4cv࣊ltVQ]| 0Zuw4uQ 6$Y_.}hNv~{gg׺|qF%,ח4 :]+8w|{Y+B ݩFE.q9.JTeBDv8cTsuRXTI"U> 8Gn;F [j7jO͂ߧ?#l@/Q=d}JJ'$e^L N53^.5 ͘`Z3IAH> bIªb$ b }(\%Q\.HOe' .% 8J۪k /v#M롎$=Uj_ $$d~6)d2_fO sZ>I ޣBȅ z0G0%wj$}IrVP$%yb4!a-Zseɑ1>fǒXRFrTpS4*Ze-6|G9{.*Wbm3iMH-F~Q}a]R\yKzcu~fo`!!CYΩǂ(xSp)P~RK}T'մ^%+ilL+$Z!9nNUЈMNJX#EV_rE]',MIL&eu:Z`O>XýMR;gu>$rMBov42ceVb6jEs#N h#p# yDQ?A5V$pZg,i$!h_?AvA0t|Ule^ V-vq#atz }MVyR_7:sN%xpz1ש$'ubԬ9mxWX6?)zk~jfJqGP[n_KZ {9r M0〴~@$]\K\9v]4ac }y!)j<\fR|7,.悁jk~?yS+C4W3 :~ *%Lzvɫ?4vd*uZ?d lh:¾ :LlS2oHr?M Z&V"A@\Pͤmq<\Gq4-_ZjaǾ=F6|v+ˀ%Ce쁔QDT`6d(:b?:bHK!4g*GkDdV@޳Od>\1GcMeRRl=K"걵]7礸ujܳ\, H㻶%LDL|.H_Q+ht]$e AEfkjdKB5pUp5 D@ ï0J-]m\T+`db6FDDZ9>=SbѻڛIOmwFWT ~Z^S h*2Hz kpC2Eẁu1)9-[ꓤ֍#n̈>{{-vY=gV Y@6ܛ6hOhrf-|pF]ȼ(4ͭK\i]7 ^I#܌^s2fT hL ާlR>'JJ>Ua-G`g)k#\YLcT. *\FDAN%cT"SW0Fs߇wGCZl&YP3Ow ẃ|cVy̾SO<\+X IC,:eaW]>Jn= mА#*Tx9 xCgȑ3ck``wy b1nmMv=+( y%Z%8K4q <t1F4GE2p@?B3P[epYRwt>(\yRBe@e .JD6_ + xNKn6SђzSV}x28g(/\(= e5J!YY7x9vI;Qَ m21IH|Jg?`vI;gVo.6K~x?c mo3Uʧ0u~9&i.nWv2ٙNVw5qK93*-Bt /,ݛ1Yn4kZc W0Ϣ{` $("DXAU I&gD%Qrp~!.Z*%YMw߾5vxԂJW2ϓ`Vz >{b"= OFjVq'_ "O1h %NIZi+3GJ>w@{`NGNҙIaRtZI;b7NW!TJaX7Gf_`:_CE`3M2D.물qTtTiloCѢ!м޳ GDac)y6'07`q U"]ɗ߹DR>q4rhݔg노+!kфo/KkfKOSFhC,|n]MtZ~+SXx@5DJӼ=zμK$:%TH?eN,cf3`l̦zA\ RUPn?+LY<35GY+/UVAoMV*a뼞ުv*s0<*G$|&,3[ycJpzC,ڬqP7^qB9i>ߋkfN{O:;Kȓ8U L\]fޕZ{:np6Ffc쮚K{3G)a\eBDSϹy*:pSzqOԞU80h݅e, 6E\{>?df<反_Ng}OMu? w`?{E&Xn&MLx(um U1`<-l>@](m.]r >E@@6ǰIΞm_YgŃ3Y$~'@Q*N;=n#RƅW)ܿ21bK-@3)]b(( P=ɾr Z g 2h}!\K6g;ppV{] nQWE Jj>yj1ct{]tN*R&?OwvdՔu:x)+ \s{eTkWa!A-HASR}>bjY3m<ҰmKLM\ì?~%}X{h'*;6,ȦmSx>:(*pm4Qi0\|k*DqOZelg0)@yE+=B|Aڮ º)* > %NNe)e訬CBp\U'xXÆ|Awq ^RmpMuR 4{3JӉQiѳyp;l JԂ6/˹cW%z*~ W@,lS0 V#>RUaD Xf)p'6d):$)ϊ5$e.Q 3}JN:}0ΈÄ /Y:9,}jp0m%*k>x*iMkI3T}qqc AVݾB qP.{uH Fo 7p ?_-G9%}ߛ6\C[ d:R9GB`8V.!B. a Ïk"ww~}c7&WЎVw^ pdUe 𤤎 X v^@@g!?>/JƢSS[Am MbuǞ-&,l YVmPQo[: s,Lva)?~7io1˞l4?^wwCĿ8^P?喬q@6MLH 2C<1+⡡U"5=^V:J nC+>e9g+Bs83zLO+Pvl ɹXc/EcZngi9k2 -m|do[xp1pBNRH>"MEgKth|=|Xg.ۏMTȃga&o1ZI^SOh3B6 F,wW4&T֬r 'l!ֻu'EF42` 9ef.A-:ܱSJTsI$v.9Ϛ=]d|hU)Z Ʃq'u-b`:?~ B́Wbj3f 1̗ *Bt1S`Ě_C^"l2;P<>׻InP,O19J}`^f0׉yV=\({Ԝ #6 tq+$1񾒪 L/6V_i}!4c]% C(a aq+D8|DcV^D5cȜNa:\nUA9jXK{=Ul & NziCs j;QR]FB\%kэP>SJmd-[ @vGWHˆ(;V7vz8b6yE1lc2A' WWi3A1(l޼G ('n3q%1S?.u41zGe5h+݊OYS[0~1O1}/Kvp'qv }Q0dJ'vH'V9sO܎Hu_\5+״?^F>LNDubFoIyT'R1RO:,2V-{AH Mjr/㐻Q'k5iˮqe{yW rg4(N('},"9 s&Vi:##F*2IG:4kP{~\Bs ͢RA&eL9a.'mV])Sa򫲇Lc;_0,/V̌C!٬iNY}{JʛYa*%3L}Bu Ya'e8Kϕtn*!غ:dQKC}! *ŋ7LZ\>:AikvjAGt $HodKwi=}+u" &8S|<4&6LI ]/pIB#mh.qn_?M}Ig>ٶgL7qB|:& ˺Sn͐}4= -r7J0ᒇ0zy$>&9Z!)qNy'jNQUYG ,u&I?jq[HI.C1f|Ϲq Ķ:%]h 2X}W.LczAtJDܖjN9A׾8X"1Oo5(1%WKi֘I.W:MSY02;;I(-#VJ~֖rd6`,p:ךdtSޜ@1`q#w,?G@ wlH{FIpY[ezzIԩ*9_ˋQ8/aQ׭)%!ybp`0H9pe[ ^BQʂרh(=3ƈ2;>s rt2浐+cn'mQQ[a5]܊h3w%TgL.ʶM>q\.>[k'+-;/: gù˘- OoٰOQ*n"(UsR7>Vs7C޺&Ѷ]񻉪T-.\2aGEov<&vpG PjVz!VJKjurĻy){S0宻{Hu6TG!ŒE.P񅌜kk04O^/ІL 8_o<B=5 ̡䍝u䲁%2/|pl(x^[>/As6DVͯH7֟4 e5"g:&C;V8m3{ʎMTULo3([OL~-[`H !,zhLoŒ^+6ViboJ^ZٟP<!xi[ !O/rKHV^i:cB^]'n xTI!<~XK[.ٺ[}Q7NVqdaeR5¦C0Q}4 ,7F/Sy DL^rߔjNGTJu %"|UI;/ㅈm7ncnrcL~T]U5{A+EW*(xQ.{jNkPUGSATs+5+@By}hP7i9M+iJBIR,>8TPLȦgh)?Zv8cMvCLXwώ?X KJ~jpcaax䢭4aЊl Pb`<5}ٽG^Vs1چYXjMTG(e NcWڥa>za|uЁdJRis2 Kޣ IKcUJPmӆ^Sc~ EK$%#ѓd,rolh9$ fxE0:p-\n=7r/QO S_*q#7Lو唏=H.< sws7R^&E {D(ޓС|CTiA [Nv_d4Z V3k5≁V|P[#ƫ$`^S4tV(*QPlo2پqyz`K$pIҕ~e4_w;z]&7\kN:!P2Z:R4?2ýTlk#+sn'ÈqƵ/0i!0f!v(; )ܫC܈ +eF^Z䧓;UJ]cz~BM 7{TV̲zP/(Etu֞NyY(~j=FO=#{t],ɮa"||U+ ̯-LI| i@v<<˝DKRKBn?keխ4蒼o( /eZ'i!$ up7RTn9@?m]WA$CT8v-iH;'hk 厸U-̐H[sQ,P3t/;Fٿ #ï9$Pސd)?#NհY2J;ng?k.W/>O M_VgP~!0 朶<;"ZGIST(Qw]̠\+U/^8dzK$^]ʎglua'Ӳ6?Srr7S=ck.WF5;reaSY|fԸ_ gQ)ׅEq`QG q鬺Y*s8Hetܠ@*"'A b~40u_nP S3";+ 2< |#ث/¸f{#1g_e=[[4h`l,A۶wm'pDI ;ޛ`kܴnPwS/}FY(tÊ`5- ȆGS*Y٤UPr0d܂C(zKB|idH}0 cK &/AC9_8v2hueȵ;Eu&͞ h1Y'ƉLIWj'%pC%q2J- A ZhQ4q56CO}?B1x&|Lwk;#gC;5/h\5v|: 8u[d/eVuSju> z0X)!( &ΨȮY3#:\;BB׿+G =Yo>@g*;01;Or@E931 aZt,ЉZR{[(]oӫ&i%K'G{Yc.&%3 5~ N\?VÉnpwOZtvzGs\$580іGxJWG־VCb»?/tZCZlg9J5^c'(iT&v\(f ;bT||$3k(4iy(`H;+NYϊd|nq9nLJ1aU4QYE؏Ol1̴l+Q X6wiĚ$Jl,G`wT.Y\>j$LGHȟbvmXP'x!JwI-znY)^Κ9G-p`{#0v$g6Or#$OѪt.ٰ0^"z:r, kƟ}^p6@KJ%Tdk%ɄbE{Q8sZ=R@.t4Ӧ镠$lzZ^^ 7샂V@&® .$mAYtKђ&gg:$ul7un;@#S=832|o+Oa:D33wW6oBcʺP$ySѽ~ˤ`5YBc%X&Ho eB|AwRsh,ǁ}l{XH)' `cJn3!~ExW{)ͧ,'[ʷNcgJyGŐI#8ڢb{X JCPn(,~'yponi>T$'c< QW[q@L)^ՇwY-+H?23c3_c.A'K7yB|KjL;ڳ>Љ:ry 0b@@97c*|w:Q?VĽu K@ů'LCl < `2W$1IE%8c|yԁ2H*n|N ]'Ǎ8s*$P%uɰs'ቒRq#6$K\ThB`Ep b[rIelOPjЯ}oڙ- j9izghWJbIa-BpS@˒קjos>j2U=seojnjf\"Z,]-J7 zʓ4*b!, cu87 B8ڡLBɠ"sIp۽r.DM{IrȺ,իy`Q1@UD& 5s}V 8hj/Gʛ >ޭ_TV1FmꑫK j !69,u5A*T{r- M/.iXɡ馔L$@1\keզa N nʅ8!U8We|,h$S,Lծy0͌6C20Hޱz%sHt֮ư7bOƴ{uK/=[)Ś)КKK2֓O$Uڦk?sz%ICpWJ41k4}%X@4&s&,2AhG㰡"ZbFR1n >)Ff0j/3;CRu |Mp',v؂:$'NC qLijA(SYQ~1\ Fcߠ^DXX}8ދ`N7,9x| _4L$8(SqOwKvaΐQ=Оꖀ7})PSiL #x] k2bkz1#a{&FfB(iC&nf _搄tSj| a|n$(n_%\fԨ`>Z*'--wx9|ۗW{ V̘I"RzpA^B HTҿG,X2AMEN?jUqjĹ `90,!,HD֏D/j~N[EZͨl gC rM>&xZW}]E祸Sd1ÓJ`WE  Pib y޲WG\Gs^IiziRشL$tY뀿9LǷELW*܎o=:' I/i;X;H4gBM)=k'yz\ϕ+-jlw©K~B#=ն;KoU#ekGN9T*a(me)§_("zSso2yhj viT'{s{#;JULd=(={P}i+\;ϴGkV'1[H7s3!&gLX;MbV"{(OT E =oc,4r.\*’iEϖ-8fPLWUalCLw@xIW%f+L T֍ (>s,5i%,mOq]oe԰ռmbE+~_ˆn7.OhU_إH625ao!ܛ|nf6?{ NJ3N=N+ݪ PD,W4K@X/VKq1[=?a> [Í Lμm:I$F6cۦlX,K9{ e¶>RL.#c])o:ftCqEQ.OI6fVcϛ̸o湝 x)ڵA忀ϳ f8^޸ x.SZ!ѮGlA:̉r&i6m@~gH8kICBYirf$B8iGc%1^JX P=(֨k);fbT }?]rC"ji <6.j;Vabtr{uMOUUM֣wx2L\-0W dX+nFJs긿3f۵b];y;k̵N1L]&<.T[`k<|XyמegZ GOdюՊt;-m[gX +!:{akޞ~cssoM|G.o=ʾBq,rYN,UW %iw7B鹽ȓ*^SДE!\n8xF&Pnȴ~  &NG5/bV|ѱ+r~_?Gt)exQ  n'[kc$OퟡPimˬG0ȪU*|=Vg#4YPLBi%1ڳEe;CW)]1V 1f䊆Rhҵ=zM虽<2i g֢񂫿ΜϱӮyv3$l`43Jr#ſܑbdw O?,f4{|Lޛ1Gf [mo JDPwڤz4"ܾDgf 8*74e")*:dGnB3j|4A-eMRmIMT3 9bK&H蓱bY  ;0?$ٷsd5"x,$?,F K :crg!Z0JCۦàA/Ijl#o\Qg9Eyq qO򁭻'$<#~ )&,n]D" C 6UQ@Wd`άΦ8Q\&'eoH SJJ&,>4N@6%s ~U3ᦇ.0Ymdկ'3"wCqnk[O[K[I~KQZɠn`!ļDŽK !C4l[߫exLڃ-ϸmIu^Y ,X%GpK|6))ُ)wN>'T倷*ˈWFD_g`5n?Ztr`:C_!4-fU|q!Ġ~%E`7S1"hKW>\>d7(<ګs@P[ ndMī,~9HG|ͅGtcen|)jTeAOkw鉱r- 73dr~20i(kNAFVv8ԵWD$,uܚD&5y\ѶK{2Q>ޠf^xic x˅t=6!z! '*/~R_~GE*!p{芕"L.2e!l'kL+xn1ȫp|;AMnV\1Ma ' 4JqǏ!j(%+jy=V_zR-Da3]=a0T6dIB#|wW7}'a}zdߟ&˟DG\K N1M!.8WѦ9-P.RQ)Xtl3Vп+KB=c 3H"s +3}dc 4(`YPtAYI&45o0)[NVl8w p!ŋg\Z;&ΜsزsƧ]c.L~6+览 K`c -s{UYFPI&ɪFlA͜+hkɿV`m\PO`S?hs 'Wѯ?]>H29@FHҪ83C57a(IfPYNY,n7 ,`9r}"0@k P&;S&$Fīu1N`(q4jCi" ocR@ﭏ<|c%gGa{JMbt0;y~>;TD;h` wmG׸d w-ϺzvHRw@0`\UT"f>9T5!Ocy$8dP`~0@b˾q7˯;>ǁMUf8bSkUi5Mf۩%SS ?W kS?5'! q`,Ġdz(V쥧]k,v}6ZÞm4\GRƢC)^@hw4g9@I/ꀿ4 E{^Ӊ?0GUV.)'0} lH<[2 lf“q%GPt\Y+lG>68f-=|'HܲzqMt;myF<*KΩe`^] "sGa}5P]_QueY Aq?E&e`'@_Df i JU(%T'n8C]#}j؆?k껂#v9ڎNVˁNfHquZK@1IˍHa E)yBP"VHa %R)6y -TT_87B°=Tsb ^VcɹA[?΄Kp3;}M \>"ISo衢OA ߏɽ[OӐ)gUj"ֻ}~lج([3 n-}Nb^mxՃPgK0#ARwvt;:F.R.K8" rՋ='KPڀddtfW Ѡ{qtV/jP4n`X<ȩH~xәga.ټ| X #_ ]yqڑv ~#% KQ1#18bOg;"w6#d5!XWpfF)}L* g2;9euDVnG689hJhw۹Xb'mLt( ~Կ(~ΫQfJek,ʚ[{xe+zO\ Tr|S q[O(>sFtf%8. SvD[LbM<{/X (רzp( {xmci&_I9] (g닎W]FTnΔVKS$(3]H0}mVMPZWm" ֩< ~@%Xon)30;\O*fR-! ]O7,ߕH絫~V毭+7k+W.9m{v*L^F%̐3٥kȓяOLq*l,SI;k}VGY;WXQ9\y! ОFo|TqEMYxuXWjbٿoFx;hg8bf0Ê?cpI %dwEF=6_HZq ׼^Wb?=^PnFR[ \7IOY؈5MKf4%k|NJ6v]eW)JLl7Boxx.FB^9*̫}207š\i#}hA2 IWoPD0 oz1/fx[ӥ;MĎFw>w9Jyz~"PA*۟4=`[p FM~kN4.Ң oΌ)`TkԼ4ˇ7{͖sɿI[ر`C%n@I++0"XODӶ(G/BiN"޼6]_l"Ɏm>ai xӤ&N?H;#۝_x^is\T: )H-)Z`LIkkJ^D&Geٍ x= 5w:I[NV)+&A~p/Q xf3 4 %0. N0v]ulUk/įf;)0ۡPr\.l:EoSO9ԃl .-/D:[.l\9MHz.1:c-elp7F:(9dl=/빃v9|5cQpR6IH?a]vD S2ra٭XD3Z>YIB-ܢ "j^ ֆ,HY?9+eX:'pb=~p/(xLoh\Up 3TL°pQh7F5=Dڋ,Kqg1BJ9="8l,WX!EB3wG&Ͳ.Gffps.ͼ|S&bscEӸ&pf8]22IF%?laɐ8|zyBCT|uPpa+(qL||Wj2"t|Mӣ%x>'zvK;>qs=DMƢwn9$7T->,e B?M wKWTB$Єa (XXhz}{1>SU.orFng@`1Ǖd{Gg~r)s ߬RoRcou3hr8~gU#V7rdIMd @O)7d;h2egdRҺXz/hH tNlTE Y!i'~ h#,,3DHcu2ulSѴ Qf|NӖVeQF8b>yj $G̥Cp[;~$_6OFEtQ;_[}S?*IU!48Y`h2 =$]aHc/&@zb/C9p״@o.N[iL]kDP~{ak*Y( |jD%PDMWe]1:)bNpn+$nD_ƾ5P~}hB dCC׈%b_n7K?P(7il't8=La]y*%r렇ز(9 ]կoJ3du~__O|+mw*} As)D)hz9M|BNeRhNʑȓ[i?Itn$mo=})TLz)A&BQ] )clkkpVRʩ_cP҇z06/->ZB(nO^Nāeo IwmF>IofMkz~uד6RG(V0'tN7 0zR 'ek}_5G NO $F7);NPبz*>',Hd-S!l S#H酄$2q"A[!dXӉlu3z}^~;j w(NOxbkfrI!02oG1ϱ|eNi4C&pI<@Y/;|m95Gi?[ȋ] Z^Q{QW&)94ۚ,F 9};Is"ulT Z6LIlmlt.Yoą %2lGxY6 2wI$q`ؒetȪ'1tts գ 1FlZK; 2a`rLÒXEIiEN/ؐK}abLiU?g 0̝DRiȔ?0ٟ80myn̎'t+۲Ke"BJe_yoP( G:S323mW #FjB*۱tNxWADq㙠?Tۥq]YB(7JDzXxєXC9 ʇ ۫D '46Cْ_uCkUߖq< *mKB[zZ򧍤NĭLںZT@Yd\LǭJuBMjъ>-Qk9"'K-`æ;R&U|Ն^ߜ5JpF{W}CX^ 5lgFwQȽ\[l1zpZg1!<睋 my|%N !Cf>D>][ĶM#g?[įwAt#mBXDxt;Nm,b:do0B9BĆ)hHRț[Zt3Ѫ;["…T ?,lٰzQ(jɥov$ͳ)5JU͞ȁm=8,?jMuTː|%yů= 01H^MnM?n2)(H2Kog5v׆}o\,JN^حu#LHۏ1GƒC,swpCrpθp|籀'-H>C4]Z6xeM/q 6Țr_Z6yцs+f><{u"Z8kXVʵ\W֗4@%[^f-״?PE5} o9^_- RS*E3vo`;89N>?FAU`wvHs9`)XwR՗M2*ߡ'9Cy3H&_豮۫o2II=G-#!۱$f-Lu#cu xzϳ@[iT;Kb]X~ ɒ(n(DLV'6plNlP9lzly5 TzݑAÄHӏ4qJOx _sf{Fn!.HzADP(D T.[b]lNB,E]5N-TU84$w^>u\HHk֝Hv)ڹxl~qcVLC}裨2lC$tIo{'{6B?9 _c5lV:dPOݙv]QXݦ(I>n5+(9)Χ ²qG)ڏ[Xl !TE8#쀙> (rNKS fA\zzSE@ъ{RIwu:x/ԋDzYB5ôyAjIL^Z÷zBl6,/i*~DZ/1BיO3t`?)֥2K=y$'Y󮦟WGgf٬M×+^h(X_w-QZC-dD?8E[ 8=} (s$!HSa)QJv}#LJH6ı(zjR'#o6/Ao>"kx]ȶMX&]noCҟti4e1lLY(q/!#k:my{)#j]UUbu+B>m.m7UfU.2w ٝ~oŠ&_~($~{DEGAafLgYO*}W&^V!Ȃx}0 >2F,}9u@#c$7N ,V3>s.u/Dj6K3k՘8~ Ӆ] nMbj~f`,f ۫GPFbX/Vllϡ렳W ]dV&6Eش_HAofsc)[eXGrwՎ^tyIJ`H> U֮֕h y,62 ŏ"; 'li8jL RYG`Ċy'KNN ]`֊-Y r8+9s K0v2db2V (mh 3@H!D@g<Ch7RQe099gs,M38qJ]x(G'9M@BEˆ` vw$\Do8lHBJ {}zo^EZ/!{3XIJQfFnd$3mF'z%-nH #;0<lѳ`v\UC=Q^< ;/NǗۋD-xSA 0ZwZF6eYN]7'55_KPkJ&~tD&J,U2]˕D?,?%+>~qd b0C%Ol fBM$~.S(dB7ݝx3;1@t;pRws[ӟSkvߖXGw'+4FF=Guc2MHxXB=\v]](~4ea0KYi2A 8YZb*#Jt.&xF+:6>36_\,5 /J>?aٟGt4vfр&\l޼TA|ɂK[qW5$߈wS .yr+C0:G)*î:e&(hv&Fכ:(KKR#/=5H#f&Jz UNLсL|-=(ۀ,yȦz&CdBk^Ic^;TIy͵.PL@ FDDǦo#Vi+ ,D۝sx݇9-î5E6xkUGp&8$hG1TA C=4m{zOmo"X& b 2abF~1n EwMqp,hh@/0ucٝEo}I&5 U'N{R\>[KQgX\M&K8hω *3 j\<o y4Mo A#KaX\e[x٣6Sy!=}dC$Kw#SE_96=rmj]^3f܄-bAzբ?DwD̃%; ʶ}럑H3jJ ߂8Hg|5l ;rhX ]&$v`hDŽZRvJs4 S%>Ork vpb<9bz^^*b N^Od/4$>;[-i f' zIWw'?73|- {e/e4fݩozEv c"pDk RK!3 1'KhlU)8q= t[VM}|{Ƒ&wXDaܔg$h^ע )1bM='hƻL!ޑ w5Ъ晠Zb- ~E7rJꢠ}t΃#intˈbqם2""hR=",R07K~]fx\IM9O'P۔!NR~Eݹ+eӣXmΊ?2-+8F w$fTO3Bo-R9bIQQ%b|@!t|esNUbvN8 u-(VQxzZ)< @(!re<8bYopM CiOL{YܕJtbAIIoo,yڲf4⣣w(xpaɑD{H[F㹣Hc?VoX9 jQ;Z^r ,k{1dx W$t[K45hPp֎^u٥D(nm)X E1.k[.\ʠf.׬a֓isgyo@])ws{|dsEIJN/L3_y;.Uku+NFp={nUMݮn6A ߶wRr:'^OhAܴjn^P'VJǖΩ%=.CFIlBdR.)v>`JIɒ-Ѱz*{2y{^l&dFqu{`jCW?6Ae~2ƍ@E+;;p9=fzlBbٸaɴ뛢t/=j0`Q bizmoE׎H-2Ib a4vQFi X S>X 87]E||-Mr1Z3ߌna09 BgJ*(% R H_(R 磃J4r)̠t2mk0;cIXa0)xõe~j9NDUmy;sҫ !ɘTYu7jxWÕVwaH$ꎂXh# }NJ.s,J .cUY"!HGia*pO" 6@L)Y:,v:?/l`B9_< E42Rxbb58Ѥ2=B#ǍJ0(q6u.mS~ӭ){, ݻ(tFkؾ6Ht-}8+0`źnp-{G~ɘKI$}=?3gfFOB?/~F85 D5#Uw!uE^V̧YM"zԪYibϤd?uޝ&cإiDEЇTZ'>3r`nW.Ju]jd'O0͞g:Bjoul{'c-pGm^$O {BHkBO%ˈJ&CBoheXwG+Hƪ3\$UUwlG$ 6LʻGb=ejC3#(N!(+mLơs7PvWB'-(QBި9Y4ts }7A!w8t5&ʸ}Ocָܲ֜eFeK1d)%np9uʽgL-a&tJ٘q`e4ǪζWz<zoy x 썦L6Qا5Zx%KU$p)}$[{#'/ GW>&4CJ㍅SG{.lJwipȧ֖;"Q.^,Q]r1[0߆pZB1 zOdK vUHJВG͎V0LْUd7y99$˵Çw# ʝDS L;t6+,$])zC؃wF bE)=k612*KKGE,` k8N!44jjB$%O/7[Ͼ!:dE85+ PNˆ7[QG .5'9w; #`diV0ttq6^ۿ DrnU4B;EZ%&H\mw\o^gSE*.6?}YyPPXC,)w&;bI%sOt^9Js[sD"A]W(bdXXD.WѐsXQB%* :M ͭ] %{q$(Lyzg9'F4 .{k2Tx5,m1Yc܈¼u y&wڠyIr&w7cIx jvTJs79BO<%7;ɚZdUgK+[P5i6 r0Wٹ֌-I%x]IJy8Dc #fxq@0U6>ẍt_V,2RugE䙍dRfE:\/HNk(7U!Г0M%H8,,yFS"Kߊm7JžGsou'󥍛^߷}&QfFjD%\WJt%%xB~P-U{Ϸ ""a6Hv}vsw/%x2zՐyEQ,{蹊IaN#lݸ:XX5 y?_:u /Fl} +[:`sR޹R8ٟ98 FR=dwMݠ6~_g2hSnql{t)7+ൎqzZPV822<R. DCH6S쐲C,S5,cc% ycADbSVz DOؾ~5Ky|(ɤ.AF4L_}!zRЅЦz0ji-Ӑ1Ի[ GF-eg#wDF20#kٺw:џg|)Ćp hn$H-̬#u@P@ ۳@#.l;þcIB`˭;"ȟ9PGBm.r 3eޙ:u(bH;&x\[e°ʜ[夠jh ߠ!t)q :^w!-~#dYc.{*$^)b&6 F`xQ5x`MV:߅ }'<%+3[]4 Ge7ߢay ,=zr$O?m X;p&((C%IGhG ZP<f5V(#BXP-hI嗝>GK( =5/ EV"Ĵ1ŘAnpSn; S91bmFs f|W˪]upFt1|c:xlk7֑ fivTQo|u k8I:[Tl]ZwC* J :d@zQIH9H[sǞ> 'Z1ӹ"Iw@25J8.1)4tũT, }sU0cQͨN`lއ##WV—8.S2pF4dKkۡ? eTE[؜2.ǣ0DiKP 0qAhuj6 piKBT D0(ۉResk&MT|,/⁢iH;Vtv=Uvcةٿ)vJLOn)1c$~ٖܬKrp=kx>cKG}J #DrZ7fP?;m{nnJ< )BrpAmdd!Bǯ-؀A9f M57E6bjr ~sוDZ>d>L2׵`hv;_8_~Q^e;Eobv C,Fu)٤ ^|m- q@"'lNI^RR[詩'/N{Jg kPP͵V#}u7dۦTٔ v= EK!=j,jbΈ;!SAG̿,[ArxD埭C9🶔a~@$(3zE|۹^X h_!|h+Z+=BX"i*:NA<9X0x^ KvFoҖ0.JA0ڝtii"bS5J"=Bğ(p3X-!.{>dXu(h}ooa_o҆ yq%ĀnrB"b񟁯Ugi:s_ Fhň V[;͊'GWrD[2HF?8w+RF7Kc1D?,SAewaIۼFңAWP].l'E8#pU/vȼa$ ljfyf~?c\qx4Ӣ&DVP#8ui |6T[Ad=7ume~!^91ȹp 9ooװ`JdxvȦ.ٴHZa\'cuwә~I9E)B3 ҷB?AHJ Fv?n_ 855]j3埞u)N[ABnk/]1 Dx[ZZ8Lh%<;==0Ap\iHėʝ@vqi?3[AOVPjRh–a$hRPh|O]a3s Hd[ @FҰ^A3D]a>.Z3P8U R2=ЉK")cU7j[S) M.;ޖ-sa=9\mt=!kkdX*Ud"Z;Ԗh@ۻs y}6T]Q(R.ZY`jua$S )WlYaY[q({~dw3*i8_gB+f]pMwvϒc ٔkK^hdrz:p_N!<@{n GAcg.PE#_JrqLhW ;̀onX*@ ʘ bJ;:χtֲ4D]r.S6jolo]?"C1nqnkHʳB"@ Kr VRn_/HH^mS ahL'>p Ȧ|v,+Q5jOޥ6\7vLlZdP4t-!2nN=&S)0vƱֲQ!ƠN>ћC ,,?Q޹hFɉ\P3%yEaP|ȌoOh;+B2M*w 諟^ϣؚ/Ua)I9vZj}W3ZY uþV#y#\y~ɝtF*:Ӑ:z3!^o"b#A߷.X;`Ф ovN=.M5ħF5ݤ*94YGu9pyWiTpR.nߜ ZKx,r0E`u˚h70^?;jS5x ?K% D7V%.$RrC֜a ?d?!1="`#_˱;Uu05>Ԥ}6S'RxZ BcPq*-iXE"c(H.UC 6p3:RهkxE<-6/ТnJ?0I̕"E5D7Hh5{!lJ1Td#ђxDl[ lN^wxPd&hgxZƖk+Yg_ɜ%XWrN[ك!l[m,"U<"qbik:6?V[>s.Hw7%L,Vl4Y ]V[J=4nMb Qݴ8nc Nڿ) *vd#ߩM~n YÚ}_5̭~O\ FJ^V ذC=m!A"ǛZO;QJL/{ އuo+:) Cd!QX ęd; ((H>:?Tq73c֕s ->Nyc\AcD>Trזߏc&/8!=_ j ˠ\"$.Zhc^#~q4DTxꅮ&[4l+cuϓ \`duHY>%uaѤA*-χ~S/#}_EcII)ܽ&lyL+nX& LB,)4?V"{'̠g~Yek ?GR܃JMɚ)\a扅ԍ|WPPʾbmBdXnH0/!U`U O_PԶTmMejp$+ Vfu@(allgOhDxO?g*3.Cɸb$GSC0WOPt=M].95IA{ҜagLJGahBY|_npCqBMrh u)2Xavad7. oϞcKA?RFA8rᾟP #'lQkk%?gEl0qOj]mBr3ţM[nbB[.j 1o{(k,sZl ID'QVXm`9%iM 5ăFZILs:><@2><}w Cf]N?2=$ijty_l$+ T@; )Ԭ4`azLjbϖة7~YpFt7 Z@poȤT'"t(6ndz9'kT %CJ42jSw.J 9?KJmG0{tYrgSe!ge`u&@j7u.5Պ5,eےعSf?.9rUL`XQc RFdi~gs9x3CDS.`V^~a1au6ݟ݂Jq:9#͆?lYf'K$4SJ'2Dog%GW,1 @B7l]|UH^J #T Z_' RK{/ ZaβWYGhP@G^Ɓmn kn,i%$PG .0 WA NL!<(ZnX+uv[ {tOj /Ld'IxCNq-' 1k@ r?P5]CǀNгbZ|_svF4cȡNs@x3nLB GYE4VĴ1vBZ%Xp~6!hҌѓ.8 z|@QG?%őr<-Y& wtdUX4"u[|r^\3m-1ide6(>ZO~g[EXVNpΒ|f 2pA% BV=DW>ڀ33's(WFeuIUABtxc"B̈́u1gb9wGwN?~G08LQ4c.ɱx=FaKmXzuxfepޗ!`H<"{Vc՛Rkh|O>kB|d:B +8z*PiЉ39ۡ|I5A8~$fM$wnVOvLm 3r8-{WREp*!cnu$lIffFpӹhQ.կ/{MZMNJ]XMNe WBK#.=?!D5v0se1mj&[Dڗùب/-Y6LfɮjĒ њS'%vyʣ̾=ꐒVIufQRxNWzd=|yeؙgY-֍z+mEYia:~ ^ӕXivpX[Bcbj>7DUmbCi_~s?o0KwX=m'#*`#ƱSy,8B?BԖ;\X!¾HⷀEYjn*MzN9L6JVt(ޚ2f|kh^ &)l5=Ѳ8SGASOGg9b~?to\DsXOVԴҶ]4?cTo t1`*o󣋀F Ww塉/rW{+km5L9̇_4B~D""uNW2|Tf6ޥ'kܽvNHK`g/Xc MPă) /Ԗ9`*N0I]ъ\KWPOz]p sxOF'dv⒛;842oez~l!Rpd5] ۱L/bg nGVo]1F?TJ 7ڠ0\P=3@(suPޘbWȉޢLj{nMZG6RֶžI`۫kX CY-?!!Qj8)MB|L<~B|(bA#MdEڿm#ignۉ" ]Ǵ4&pc:d Nw.}2 0xOM+v[9!@/9M`Wnwo9oqT>>j "_:g>#h^FO Cis4RH )3 ![(fr{HYO4^sH;/܃11^UmI#&P+O-x/m՟o~T}%oO-dyz[t'5[`n|KS f b7[o/&#M nr JQߺY1(ђiiʁzor {`Ȅ 'qkOJY jv%sBO?By4FGt<1яBž/e ~% IZM1A7%ƿ)~˛uOnwB1 ZEK$ x瘋q4wb!]  Rk1̏y9SfLQoko:5%#&•17<^4C`;{wmQb;1Y/r[op7#&s;aS?a.|%glK 3.{9X^~<]áp'be7OaߒfMһ5NXl:X@+neH%kQfQic歭%!rS n+.^^#%{zP| Mwbd,KBkäz+9k_8 OrWlqS/o&PᖌtE9Y1PͽG/k8duUaإ"Na?Hz#Bmkܝ W}2?S$|@1墄7ؗ[pV@泪A>^):B(twwHjꤪiYQ~,C.:N ld¹%l_`UB,T:Z欷//TXg4$ԁ7G3F<_^ృbKXb EvIOj"o*7U)pDe?u"/ٿ?^4,EYXI8؏\{ߚP Me+TD'3p|ZџSEٱ}!Q߆si׳`^D .inڛT4u qwu]7 ۇpaDy v /D&T58 6rxh#_u J5:a LNl ?'fG0cwv (<jbb$%Baޫq?e` qjn:ޖA AvRi$zRc/TQ:kY(A(4J!ƜbxkTo`_=Tb ^|vU-//WH2N 'yXaMH F&論R 9JH M& IJzcw0q" HT]V3e!<6=ZtPaa~8$3ϔXxC/f厏Yz`[|pm]hvdG-hJz@*PcZdm[l帻n!1ƒ<|/,SjkEhw':56T0o`&y.h}Nc*UeGZ٠4TEyG^ n_r;b#J F9 HddA?r{cu{򛘋Q olZTc͠T 7/lڻW`<~9̸Niwf5Wh_2_pFǚo0s- p  ^u Aw~Dh:ZJ5Ҫz^5 `XN*,e,4\&YWLCc9khy*A |5nַЯFv$%E9 0/Dqp8 mXt|)}KOT@ϩ1^MVl/ n-gHe ,q%Vˇg 5Al{o#;oWAW0IY5sknwU;,qСDGtmjK&Fylf0&Kp YOfug G(=ĕVԘѸU)M}p QI2r@=mJ67tsNA(jl~Էd,6NqP/>#ORW@QQ NzӪWz-s= 60S{En~qZ9)O~f2  ?g!ƄQ 6Iltd/;M4P,R(\^|7C[]qMC*7O&鎾A#-W;~h~I4[ | .)q^%t7ZN֌J׫ln% lutUkm>H;N}{r+4z_-$!n$}oِtj1pCBm/ m0CM&k9he:STS濝47M .?0xzE%Y*X4,שs+SR.nR;ni6#{TbDd"]pS&:;?:w9=L}(^&Tkr)y`PI03$mMX[J%+Я^z!,:tr_*Ϡ&U0 ? e;C}!^U8Ͳ |`"Mb7rA8tr7us26{*| /nHM"vz>v>1LBfzD&w{ȣVc XUG#8I 5AY&m9@Y)wh:'KFIǥ 7n J(V/ +T!|kX0%f~BcP>Af3=hALl=q˔>wB CY,Qh4a `)$|Te0Q8Qej;w\e"ByVTzK4է5=Kѧi ҁkd8Wku޴ SlI,FKg3V:_y@SN{0=E0_vN-2Z:MYَSA,eQKN\< 7`ƚ)U#2K`\u{p׎- K<n Ҍif,Uj!.o;UDgfk[l5^uiKzO8>E"9,=z >e`qg0wr>˛LUpG7X.YË6z_47NJ}cn.Ⱦ J5mmn%D砫3)%>W8( O]OyfXQ'jv~'5ԈU31hahJo%Fm"^9Ϡ% UL xӚ:iq0wե 6ڧ#Æ%446.6Y)\!*Vxt~fc Kȋ}LI~Da΀n>ѹ .ۀ~>5L'D?qD";mo淝>{v;Φjfs|M]zei@[rK<כR*4 g}0]pSda Wdnz*`b29(Ƕv}>PWfqPC$?e"i3>n!w6q:rmK .7/SՄ-1(qFX~ ngA^m;$?Υʠ ;LJ6Af."9MTs"ǀ~p _%aeٴOmQ2O.dL=߫czW2f`|k-5g`Ĭ ͉;TkAg?"V~Db?iМR@S|Ay!\:3;t\^Ȗ*&m `ߏχHHPU^7zȢ?O;/Ibm`: \g ؓJRX/lyHQߦ:NN lr.M#:J S[5y g]xB2ŻUp'j`8~3W`z0\pԎ.HR,0b/)ҵb^'FjkmG~" (ٖ>їw&B;?l AXR74_!K@ j\@-Щ4 jJCR>^,Qs3ɢ2^B:c YȢ)}VU|f.a۴_HKSċh8[_)97 BHE z;v~GC3D3 9s4< ÁU*ɕ/by$)CQ6F…֚:|='%-0f R'F"ˍl~@!A2՞sRI0hQx,Yj^hRVSp!j?:jH_[jvR=ZM@alD*G`ۜ;:m*>lb7(+|u~&~&{a젢pZ*XZ6NE8 Z&E`"%SLqQ&Ej^z/:s)vV'' SSwfV)2:Yv|ץ>Il-`'OSPxG%9d=ґړazG#`1bh𴕜gow;tl%E'R-u-GFcҽH>vmNex6䫖'Tenzr婠@7޾MkU*͚:69(ښ ,?/߶z\\/bHJvnl: p%gVݿhII~1hsMomL}6[`ިc;^4WoA\wVI_'dϋEgڦ>޵9IM$dN:g6~"ǒ6ugfW7 r 8LBT𵨛Z2t]s+O|@gMP 5%$qpt*^MTtJ7Ou[=GV= 44$a}sYWY`eҀv6dcC[M&2*zbXF%TVȕ5;jbVF5(&kš>ݥDVAaĐK *c}{ln  @S`RV״[L(r@s%j`ܢrC*PxH+m?8;#h#m$t^љP 9gUX.1탦Z˒,_NPʫU㭎?vQͯt?uXR_.ҕعg)7"Uf1&[I]AeA.Yd2@0UT3v6˽ -ǧ6]oT⋅儰!y-;՚ T/Es êY+KYMvK9kV Ѽ„Qy[-e%t9^[Кd'y~3Vj;HdIB I[evX+Ib[XO pA7᲼IMB_71nrwvdϵ{)֯E|4zw։M\NBf$^SZ-D-E`oOu})/'oP5No3vi8B+fjJ,-gOF&Hu~aPu8[ٿZvț~9U'`q$ُ?hw6%vT嚚hڅ/]c-2)X"A(:X }=LN.ծ {C K 7>6bp*. n$\ ؙˋHj>J1o& oIʩ $4[swkԒ;0u8* - w'Z $^½/A>8"5X^GNWX0 ]*&i}3 ' 26tz>E)U7eٲ=a3*S; oWveK6_ϫ'6:ZIRĤ+ T`ÜͽO%n^~2=XJ :=V#8ES]$2rvYW%GwtՐzW ΍-vLk}5^Y2*`Ɛd#P炼3{鱷mL>g4&p`OA.S)l UtH+3:VJ@ryP}*TO]BҁP21óσpKl2!`fp EթDp}Gԓlƞ>m'+OM& d./ǂn.hgY.:Kzj|,,e>D\+ݤvBݶm# u H* GVVreW"b3=)Gyo->8$B(~ĝ9pԱDvd$JgqSE׫/#隚Bչ0aU0OBLaE*Xj,}UIq"?[W9'~[͂frjqF|mLZ[qC Dcm1 GK- _c9Ktn_!uӊM]DV MHzڿF$gs33,2P)o6eR#-H\1(oyf+ \PD۷7{} u'CAEԀcn)%ehWyA'ra18"p:Z1 _ʔMNd>Rf SM%Fy\I%Pk#y>XlWpC1 mSΛ*YPp1|24W{Q坕za uƁ&߹4b?l}{/781%3pe'C{ -?7/ؤ.1)~yQzpq~U秆ԋ W"f::qf})y–Qv%Δ]IfU-NKL:a|Mym¢K 8`9x܌cWi%2M$>|Hb€>cW Jm(D?D, m) +E4˂y'tq\:H ܆VAybb]I)7SPG4wkP2m1/-[!fYc.ZܯE$:4w%BOQә.(ͨ>4 ?wCA{%4- \QRq_nU\ij{*+˽bFPw.BdePMʳƉ?( ކR*+s.}*Ϗ'aBT!M) lOLEʜYhCoAffP3ifD#Y?{\zM܄Fh *Q5*LcQ˜bXZj4ڔoβ<"QPeX2˛Sʓ|L DtlO> Jxv. X>!U.hTQn<5 QW)>pوg_WkIbl$fI2/m@:>>*9W"/u ޜk+ar*LWV8oy9~Y$L%n'P%eFF,zǻg5BpEl/uʱvy [ k̹i2]#z#db@5PNP4S2tZrf{?=Z7W~/BOԺ2i& O-i*Nܿ`d@Nd%IFXi<. i+dsFM^X.vhhxUl'첒2"C@,qzD T(H_1`&jgΚb٬;0R葅{ჷ؎֑N{M>h?o0 >v(ևƃ}# DmS Pg3SGt*$cxOsScXAF43 }7UZpRH.U)&S+;D֒SY~;qfo!>}QdnyD-X?wEʮ$]Y˽YBos qW\߈|`_V݌r1oR!"G|2kv`舣nGX|,)'[ս,Y ,W̤n.ԢD$/Q4Pcr]2*bNGLu*(R6eC }S?~BfP>M=uN,O<$֭,(zDAKIś_wQ4&H5*{gC팉%u.*1,7?Hb"+E;ޣeb֙ZZQ)&J N#*!_V%Nem7v~~ #Gbf|TĆ t]EvjF;?Vi$P>"5)l+l"4=G;ړ٤C kt^MYE9z2DPҷwUt#FkZ *3]qcĻ&y:nQJ;f W{Y9pLeVنKZ_6fV Y?b"r:Kv<^pa)_rb~r6c㟴[DBg3S0)h'ս7%7Osh%39u^{vB>KT/G z R|g[tfmc#Ivz3G&|A-h${ &E0Xs\m$_;\d.t.WʐWE-1ɑ(˒'8_18n=aoD6uDx'l- 1(#pu[elm}zNP`Hf%&n%BhFn'V5ݙ-{*A <(vha|e%,M_w,͗vߟ)JW~:n͊=RRfVfOϮ;W ժx:dϷ$M5 >\-4=RHߍ( # =b pO^4yZ) (V.epWT a[rB s(.$1B̶@p?Sۯ,&LB~iM s_;fCҽT)@\e-kgRL$'``"zps[*;ȋ.%KUZxm 'f6u?oP5G=㴏/tuÝ:qLڨ)rQWCr&E)'{̇!ƑG $VoC1Y[psWxc{]^(&fBi.`MqY,U$x`&٧/bGGd"}8p[U$C0;h> ;ULL4 st, 3`!;p2Q"58^y^ci;?ZK֍M8kgPB(7pНz 8s΂D3+}716@t|=ai)  ?;:s#*'͹@;4/A _@+1Xn|"1YI{Kb[Ϭk[v[h聨l& v͹m3Mz:#Qɍp`bxR}R\#)3c֎l#I,XB5#X $^Z9-45?c[ f3p04rM!|B⎸h(l.$Y -CDA2 qfk#e?1dSTpf[ؗ8pq7?W*xyف*2 ll^`}<^< 0šaؚj {4Q oБOoمaz|GgY*ǴCQS~ ^ vZ-qf@>oPep,VI' ӼJUTbק" W xZ9dX:d&2]0#5Sa{t[׮mBv>P= Y+זy/3aoӠ޷Gh[:o6JI6 ӮQ,*&Ԇ*40VH} ￝cr6.lxo IK-ުh.jZ*ydu'%O!1Qtk[+[k8f5=+S<( "*63XDw 9 HN%kk؜|<]>{yg++J vWŦs}.1~9|?@u#) \܉+ʬـ˹jܳSyϗpc(woj[U Q/hs|Y,qK@=pnZQS>$}M+DM*lOh=G6+v[,M@iO-_Blu 2W 9(zaq?ڑ@x.M[& `<U d["1j0JąX n#qnFa#I49Pe58z'bijrnln ᆕꡏx O,(u/ *Ig$d{USsglCI/׃]PYH ԓ\PzUب A`Yst] uSN 0*ri2%xYxn4k[`WL5OJ jaP> IW LU{|9?exT rcemVL53-ݢhѴM0d6iMl0*vz|L)&͆[%hBػ%iU^Ѭ<:2|@zY)kfӺ7: ԋF^iBFw8iE^TA=>9 m~"Uܩ+rK{!Ja^KꛟQJ Q!QO>41t |?)rA X<+dfV Pq}j -ObTi5/v' ~s=^H*ki4-eG `g=W.i|U0דˬ0<#[K0W}}_|)Ú)!6;3\~聥*pJ-*Xy(F4X✢gFg[kh:tmK@Ա"`s4XR+Iv-zyH 0)x8_`eY=z9w! ؘ:.K"*oQ:Ֆģ=>&kv-+qPCHMHAN.T.Rm/UFPc3 BK .V0zKִ8n 460T8fa @ JB10|+$XlM/mv)6dAl]ՄW(wW)  }LDwdܼ4SCYm}#[<ۚiB7Gb ѡmNXѮ%ׯ, ù{$JTti C:Y䙯Y+1( 1r w7ee+g>zW XwǽtdFu 3Mw|Fsz>@z OЛtHStI,i!QQ0?8eӁߋ0˴Xdlv9S`)?0Fu'b)p\_Dxȃ*32>)iqFvкdK KFjD <ڹ&DAd7>Lwrlc}BMk + 5ixD55F)\W_&vܷ"DMxҵ<m(zGŝ/D5֪^RNlpSDְ#1 :o2acRNi^*gs8{t12 !0:͖=#t|-[ Yh#& S6?>\Za>2' IB9qŅ /Wslu}VיxQ,} ]s5ډ+~l^ +͕s{8BGړT=Kp. ʅ>r-^e9UC,FWMeqlzX9X oci AwCS!T&_}LJ-3TJmD;/u!G 867JCB-6J7m+&M:y@/oŝB;z5xh6&ez]E rym'grŨͣb6jIy~+_0{#e4~XTCOHW ȽZMОx)\:"k Fp0`u%Ep࿍׏x? VSs3uPZ^aGEkSiN+R~ISov ֢0!@罩ƛxOw\q<$ړv'#8#VQ[l)IWǐ&H<k<5阎;>ReOhjLu|h,!mR l#PamKﲩޫR'v1kGGh1 wCO)g~ -&+h sͫdމu+L{CLtL `U歿K>\i 6aS=G5KF~tkbʇa}8[v%I4'č)w2aye ˹m} ,~^b&ȱ0=fcL5}fk eU;e3$s70u"\/;ayԮW;fNn>GFn ϯH 4Xih@;E<[7= (1(FI5E;K7Ts.2\(5cxqB޼v:ZR#5'$.-D^~ 3~j<ݭ-3Vqh[[>:V4֗A7ݚ Snkk7 \}0VFc\LU^sbI@0y;eT'0G({H8d gkbI|=G)Z,=!zwI:ͽ/@gubz#rzռO'/C }epܶjFp9nR$fQsY(̲JUqm:)/[D rrsŒ 'Nk0}VI/iΕZ*VvtNO2E}Zc[0ԙ^3pVN`VZm]PH_PZݽ\f:xl4t+1CZb8[ iM= ,,gr9"j!ؗsEFo` •QYMk|NDAÍta?f&7}? $[(G AHMl{xE1(X-KV9W[Upp]ʱ&"F` #eu*A߅dE^h["mD ȦIZ}QX" &թ+O~kfmL7y_n'#CKB؝bhTu\hL]䕡>cYk(~WItHπ̶wO &uT4: E;[Ǟ[7,k !0k359)&n kTAZ934%KCn[I-Oib-+EtJ <'@+X Нn^ 6>>?cN`¶9Kp{ xe" ;\Xuن۱B<2yhd5Th8řʅ?<z|O]S3Յ> ݍ!y q+FhdBi Ո=V@`NL{uhMri;:D&`8MBv6oAҔ#3ۛ^3y oxXDu;= y֟'%ڇ4&1 Ks 4#!vi#d^Ќٗy ,Kre3 O:p3euٮ\v6LVNҐl 'ڒ0OTW\=^{F$}%'zd!@Yck,~^64@7p3ɩS&%(4sqc+($N9o.ӡP3r zr@*q[0™{q41fױjyZRC֯pCs  UCs2ׂKQ̴9qxG1BƶҤڣ+#T:Gz:dYJkv }HwobdßmVTΚJ7z K ꩀ\`O8aZD(3H4-q X KVl=h?ehv J<"䕬i2"BK$=El!aJDޖ'I1@-Lق@~!m+CeLq0@&d)jq$L/*ݔfdGn-4! P5-r;o&t>x@V-jf9+n M}T./W$iiP8k1f~=Lbݓ{>rNw ԫ͂FAZAOۑ|Uζ<M=|ض""ySba$Ÿ}53i9ۻU^on:/(?2N3PR  1*2CQd|?0 }ATTXZ iC@@Ptm_:)wݙ ބrJ#Ph-::YHH3I9}ST }toѬwcGYozB"̱sU>yU:b;amԲW}]_N D F^{j@¾ʑۨф =U$5M3(.Jjmu^TCxa v#gxQG8j}B4 KwΐqOugbڴ촦qZtacW~1XBī5/u?h s uTI 숟d' ^@(T-Ivpf(!(0 ,B}o>RKhhۤYS~5Y(0mu:+ǐh%I?I5ѻ׼<4\=r„Mg)c^6ʼn|S/2'q +!R^< qbQcmž;A!4@k"V*XD¦3gbf~g7#gR2/D\Un"Gmr;#~{f@9 0`\yoI;-,rG_1+LoQ/ @T9tiU2D3KاxW<m)NF_m)޹-GWy2;Nlk,3tk 7VX}10Npszbgu?}z`Zb bH$P Id>Kz X ` yu* +P{2̤Nl.L&e !p:A<Ͷ_~ұP_OS 4:UPBH]  4V_!x5?n`O.D86s7Ol~0V#}$%|-1uN XaBt})pLHx-c: Ed2Fkb,#+Ȗ9T@}|ibL#pA(†yo:Y3,=6dpi?-BT34ŬJ?/էy/"vJMz3#i -@ZRQWпT?*2'жLvaӯ_{2 O夢q0clձ^C1\ 7kah=m<5ui]n>b5L. Jfu_Pe`<.Avs88P"pKPv; 1\f h҆~GJN|c"q$NR8n%TM߆,BDFhWq;MM|qE~ b 3}χ1dp0-;{p:NZasNOd^WSq/lJ,`/;^A3-wϞQ]?MT1; >IxYnGpGBQq5N/p?vwm"F~j=8?ۮKĴ(~햣<:Sɼpk@P>G?r_c7A}NDn!gu]F Tb& dT1:C/K{͐VJ]?e(q."]A:bo bg  +>Q6 ońܠ֧"0O$2ݺV3Z;--rZK`,3X~#]TbEP]IAܮY'#Dih 3_>#@XnH2 H)J  pFb7(IPP9M)3Oݬ <<('.U"88:1Iw2 L~]W6M >o^mgy#Q(fco@6-1%qijL3q9qqG1؞g(lN:cK1~bqЈo73W8IT`gq%3 l)%[x /4qA$JZi]VA彅d iW$Ay[ºVՋ>լzay7flЃ[CZ(CPuiR)鬢/-RBn!t,P| {k=a! Y6Fu: .o˾3{^uW?[ܣٔGA'\!`E8CL"tT ?x}YE pT3224(=AeZ)ç85(p_0[ }MZ'&趕`rrU40## 2HJӅ2y1ĝƭ_Yr'd: -FBWmFVﬤ/x+:t?x xDL@&v\ygcCl7KF_3Yz˅U6\a bmEKhYCHg,('!h̉ح wd݀g[޾aђ;.rgjGr1`P3tVHDwR}ZIVh jj;j/ʸ^ ο둻=?r5=dөԛ6PTQ 5Xr?7qਟ_Sh81V $kfScUۇOY=x\2")_P10:‚Gĸ0,GCFG4fD~j10vcƪ|%2:nsx5 7ٖ0[w۩i~5^ъΙJBe#n6w@4JFHKS5^ $K/).Sﻈ |pېǸc& j9kC53cQqfOZ xւWb_V Xz3W ]o\~aa1 ^ /_Р,n&>mofҜ t2;8XaӥvPILrM7EBmH`g41JxD,gd9̢M{Oh±Cf E"|VXصp;a^+;I5!H]L eױ|RBʑ#M'qBw}SI}"zWw1-H. d)#U)n!+sE8=]˴LaVTyC稯BX%e'>v ~3!!zmMvoŏi,͑rrĉap^$"a}x;3-D2)L ]kJ@WpVG46ؠ~Xv}nh7hb8ucO긟L3ƵjagEsrh|a;0} hf.j}r{mAp{VQ0,%1A =d/GqNf/kW޷p/tOQ˖/g5* Z[@7B.pN\a32=\ш^ml˷/amʡm1W| )S\"//W,VTM#iyh zg)v{ 8AX.!¾mODO?Pk.7NΙ00l 3uLT l]V|fN7d/cp񺡔›\1mIKɹHqouZCODZpB)qc,˘:th~L قFr" trk̆^`ƐBͽp}ZݱY=-phX-5qL> ٽǐKDLJ!\A$VL`F5d#YݱiUxP@'rB$m^v&MksXV-㱜9ٚn>ڒ0<-^nՒ˹1gUA 1%hܭT3\do֑tPQl?@7>>L]"ܙTE ~ 3hxO;8L;2qq䚖Uk؇U%~6q@WABSK'AXnƆ^TyX"㱩EؕF]V,>4č QזEȜIEūnh/%o^0^=C,{}ZV% '||Yq#in24 &Ezy1'ܖ!x8!WIѲ)XmskRf#W 4Tʨ4Њ2W5)4,/瀍1f cø$C2IRږv1J̌v<zXH1HM_ j6%{~#wMUjTWϒ,z R̓F(ɹs_Tٜ6ݛ>@w %: L\=\Y1m62+k޽j1/HtP bkOXϦVt0RLYq&x27<"F\q}:ˀi) L}~{ċՙ?r{}?c%TW{PI<""i'qB丅P [E7@0+#ٖ7 Dݕm;TפEj:{!4V+^ !V\.8KPN|JjԀE_@p3PܹQekuW$;T,GdeQ ߽p˺jX+׋BދZ@W9UC͝l-y9h4Q<8ӠWtͩ4d0Wj4S0xcfgBYo*ErJVF (X O|f 8H92: UU]~<ږhSXol9ѧs;\SQ:k[g)1VvOG|\hoL f4垶xݑSҼGeu~V>i r9կ< N(nڇ]gjtiF0EֽpfZVq XwJ Blɡ % r"/ TGO Qŝ1YI+> 8B-Z磫5V|Kr!b6*\3M80;HePb7S'eE2hh<5LI0n}uΎ!kN\'O+)FP&XWp-*sg޼0Prݏ/h>5*˟'9MRP-V_ 84R67xwUÕd@.hL>u ~rO-F\3Dk :.0N3c}I߹_vdU ,=B >@J~gBb2|rX9ދQ)nKy<lq\NO8u?juTl b{cW[')VA:N}? LN&؛!h~{1Wi>{DE2M"5@#}Rd2o4^C_2#A/ֲ,2bupyAA&HR>e%4"in;mhz8μ#ě K#,&!8(ҟjhXc..7폫ir}?g{/ $msi+Hܫ|%uZʵR'݃N@w?$lo[L;]3dWy6z:zN¦YIk(rώFþG)lWmF UF!_~?|~׆'"z6nPMOϹ L\R!qZ" XYg'[VwlADdc " Y)t&ݚ ۽{ y>Y|{譠TT$`_΋ Dg/Zg Z:{~b<4dv,KLWvC^U`v51~Nջb UKnzДery@m<|u p7hǖV:1odCZu_Ke{d ˨.I(YPnz)d*qGT0gO]YKK#e{z [_F1%ƜŹ.$qKk9 ӍVA6߈Q-mcV0(vrdGcw swm#KbM=NCd)αR\y:&BkV(bps]rÌj.z\2VXCՖ5Q&I16ى"umʝX9;/}G!P`9φе)sQϬs?F|/ 0 9pQeX@PJ#_C41d|g.WV׊r?q<ܻC /EG K@gvh|Gd!ҹ{9 >">ѓɓ=\ChnF\F 1Ӣ=0aY Fi?^f(cά,Z9 <=+[xY`ok5ewyo]] Xɲ1KMJ #qZ{(/>߽/lMZ!. :֝1;-u}1\ aB+zT=㏶?}ەucK0rlOu YT7@{ۯUYG(RD:-IҮ\ V4e\?"[U%)Y3,-n$L>B\PohGt ? Za\ԋZ}{=XQ"K=ί܍8 M~Z}.}qf)Y96VY>}bO?|rvwiw %F 3i19|w Kqk3zu TBjf`A|ghU:]rεN L?E ހ/b*-(6 \k*UAW`$xPa,V(`d"畆eQMY ;(͝<3! ,gLrBGv,2(5}{Waʸ1YRtuST 6v48e/F!FiI~g$YQ%c_ Aͬ~xؙvAz`dBk$!uI*ˢQ!Fp2+}Hdi8w>nxP,X19/^N^.F 5g/V:!qx(z (,/i⭋3iow٨chi3Y +ehR';oVmm-؄C2wo[%=bYB| MYlz U)TIX]K:P:Yf[\_!NGq>zcKpSES,.ؚ2IXmW'= {Zp C|Q7*HJ﫿a/P*dS԰\g{rsdk`sfCxg9ɠj0 7} 4NU/[@=7Msg5..昶8U 7: %oqމ҂[t.,iq ,m<$zCy΢T~"5 NV-&b>)dE9 yNWO}7wf?`D/~R<)0+8sʖ`lNV/ׇ5p)=rw%=3&=-nɌ2 ңp u?|MU)T뗈3)R E9}Ynú=V%OZ9 ҂J 7(V}ϋ:I jh4E@ i{nu~D[Ux0*H-kVWjsktTզi)G0pipQ[9V)㻑g֏*S;khOğ7=dG}y"vg^2bS:dAkT] L0 ERA9T17)wh#G]7Eoׯf VhLGmɮjP"Z^=M_! n `#ۚkU"զM+D $93{#2ʔ$Oj^!xjG Ŗ*re,X]gUF{-~/Ӯ:~ʟn0ߝk~s˃Űvlܐ:!pǀ%.Ϭ -.̦x`'zyq&"4k3$6()=Pw"{|PGh-,>?9f딄 VZs~0wŌZ m8>,SÁq35"{."$edrY֫Fպ nJOM $ofG _'756+DFs($A2wr&}ԕf.SJz0~d; aH%OWWWkhw))1M#ui~R04<昜hRET#Q{ҳGiOt sy2b"\LcÌu G`Flj(ʪ)t}kdi " ;zq 1>s6 sg>vDlG&^oGŸn\j2@l }^9+{%A$-tLFlk(^W\=#˻8@.\m| _N™(C:N1{$SKglAC+lOKg$.loZ`m ʅNG smcý$yH$\,[7mn~@!OD$c;Su!*8- P~a0 Zzp\(ex  ͺ!0+/n].km1}4\wh};ZphA&It<=pؕkU8(sJXI z-ΥrNL40`Dr5n^trZԘݟļ)<xLeO8tR^VgIRQŴآhE =峢_'mOzyav4/@5ԉu,=XLu*$ܞqmAZ>E3ի#4ӯ 46EK%hκq@B''޸cّʪh~Gʶ\6Q8 J$$1.j8:n%4h]b(}C.b)/ԠacBL-H`q.fYAd%SlP8׍ s?dyTP5%H\w|hsBUyYڀlls :[;,CŵS"eC7[NSo1\$ڢwhTpq=TAVJ8L;8XTU FxY|w> q!=/iRCX%yƢ.W|vܺ3eD6GB\cϡ%1\მny"V(_D>OUf. a ze4 H @qph^w7Eѐ;aٗx_>]S |d%5e9NX #ڃy>}/MiVD :I.Bb4IEgϰ!#[*ޠdBd0U ŖPc=i#'Njs:Rl=Ī,jb0X ɞ:L4[biop>j䗋XBYC8ׯl#噮^yr'+vB@*o5F;F6X-Q䴇"N J_<>e]nl/Yʲ c/}^HFOc%]&! ];W9;ad6ZbpR>#3'Zb ok.xRvC2B9,@ʖo,Hڳ[>LbDka$'ned=3V3̞|Hũhrݩ>y"y}FX%Hm.͉txrga΅~-#>k"f"9!ka]V@lhٳ⟽ӧ%qrO4Q鱫/z! @ƿokB@?N/i`aU0Qt%AqSm\ӈيMsK(`bB(Al[ u<>%j`/p K;0#*J ǤI!#3ͫ1V,5maԦW &cəڡg31ͯK@<x/c;V?I*~՚ P 4d$!l( kK#F)vQLR?/vS~ABh,o b#w ֌0$S!z6DRJc؋faf1q՜ni®VF<3/풘]X{s-6C#^KOs%Vj24N ή?b~q Bo 1/@2Ëu44 49i/~csSur6ٻݴYB%Ger5.q"k+Hy qj3rCD;1u Ӡ> 0ceP *(1Ӭ.,~$e߱ +O g][Zf*#@uckF [U0nU<&kv$Q*J +4܁5 KGͿ AkCĪϵ<-F1lch]1+},׾'q4-djnED833FOtdXQYlzWŗh5Bg-+n꾶X{&9$OInQʭ7=^s;A&IIM@O(=Kr?DN&' ݴTDF<\?xE'/DT0qfu; )9߰Gf\Set 8j}dgG ߢH ^C a}tT|9gM ܏fSmQK~ߴ_lg"9J2Wg -SVr1{XHW3Yx9ɠR&ЊEӝljm=NFbp<;siz[4 Z\@ ?7b|hkN3s5& R70LhD/iY~/ vc mt I;Hh͎.6L8u-ڈ}pZc|#(5sIGWs sћPжVu?;U$)gIY*rXKYDVNF nn[@Jf8@bapa% aڅE4%rE I~˛!ERDfg3GΛkYXNRs[$u~̫*,`$HzΗCY^.6b'5d =W,7TQGazu)U>BYQA~c>WLK`UmEQ8ԜPN-$5@zP=%\N4 6Mk7/ /TM4mID2·T"2Ŕi`Ň"K**.F}7Fdjz^4@,CUJmU*P~%G|@3}27&=HЅ;5BR ^ښcZcUӦD@t Eqr6e;x;bt 2gO#JQ æ o{(/ax};<2z*J[ݪP'Pn5uWevNrqt7%!jyl\Rٹ4A"q% C_cVW+ҦAFpH * 4-``K1(W75 I%, : zT03H1>~P=^ij LK6*2 L<@RdJ+Q<mF_'g!"4IйEKm+7s ftCryq4D]y*JR̄=,vN1ɖj=gLDɦ!s.R J%RYxQWQy`m7(fA+xNlfp7r gU3aY3zFLy5%N[af!Sׁ=JZ }adyb#6e"[vB`WITcйYl1v+6{$Dr+[LW|lUt %Rwa@–9cbj$T@ 43Sj&;(}qq?1>yh6(2r}MonwO49vvVNc 2 Dy'S˱\","s9W\Ġ6Ʀ狣ت):V 9-kTv*{qbѵj I4UVI-p#Œ7/aL-R6M~ Uu>GICD,bzt&ew(sp?p S!THJb rLo427HݦQITmX~ R%ڗ!4wصőulabȵj6[y[]Vt#Ht}S5@0oR; ֠D666d2$'h%PJ<Z?L]j Ƅ8xىF| Y}D M<aTYpC>-0BN?xcYުBⴖy$乼/ 3q9D@rׇP/| hs:qĵӊNg 9.03D@]"Cm k]|fpUE8ا-fϋNm(ƌZ'qǑLi!e/33chMlZGm7dLLYzjD*>[@@/HR 6!&n.F΂%AfHFtqMVu 9+Rt_hE\hef݃FԔ F-ҥ+s*޶dLw ņN6A]fI1 fϦp/LRLd}?4Ex#!~ ̹Y5Iz(`I/@KI"(׺6( JTar:4k2X" Ntp]l&IO0-)\E!]l~@eQ ۿj`Ƞ4m|-I-{Hj|*MБ i U+Ψ(z5+pr8Bpqq}l+ɨXDzYd):em7vEB ?oF|?b/l&o iAT'La _V3fVM&>dvBbz +g׵OIKCpSp;JTf_s $XRl>z5wq@ݞch XI{XoYutLó?U@+8x`q~B94O@`#dfo"c 8-޹ ]o!:&+i[vu\?vp:y .78{Ap8;^vŴP:Sye;6r1u|0o^kSJq]5ӻZ$]l˓B펢(dX,ӦWCå@}U/ =W|?ճ_$B˘ZLMȱ٦tQv=Y sFiTA4  S6ɣ/2ڊ%Mn\[Mh||w 4QӃpKljr0!T| e"nV_s0_# :(d~('P#C zp辑XaU ;#}#N<`:>l=F 1{SQ3w1!"dpZEN-j,"ٱ> 5::[j908`fznV&uzXc2`&>f;' <]\Lz=Wuп<._n2S?FD0 ڌ~y VU"EWZ>Ofw]LnoLcAD-|mPkJSji2?\Pm9㲭EZ- '"500޲q>u;/؉ edx0D Gƌbt `ok6[xY>o_"tA|-Q2߄Y._ h!ĺ @73DЎ&P7\DnxZqDYQ9PjWuw],$ [Pz<@6LVMwnj g(j|yQ—VToAgX K(3Y'O^P!\+^G("#&uAVʌ 'anvOⰶi4zc `'0=STm`:dt;I @Vsˀ4G>j 17eT%]eVXG켄F+g"fFoJ_}[KGb }7|F/,;:wDA NLG''NsC5<@Dސs5JIy {-C-_tզ 6c "5RĘ ,2<[.SrH7 G6FÄu,8o=B=hWrlޱ?.OX kfT- ˗ +L$WcRA wI[n.[O=˚G\`wSɐF uU }2C4:(}ktܞ!}tHOVp4ٓ([_Ӷ(pP"x|y+5g0~5.QsWzۘ+,ԃ={ƒ7"E, Qn,frVޭ, 2 ;E"|yMs1nkXfw0[, m۴su  u`6#G_HF;;+#"i w"+uq4ҳ,A82;NGbQӲWgfqX;ȖLsjNfk$[hrq$E{Y ZuE rP,Qb6zW`CVj%/uyKm 7V~aR2>v*JdzW u~xAtn˛(>4biߎ""HxSd& @35\5dm*N5qH9 sfU~TL:19?v1n|+p/OK[AC( .A]JnFw+\6ɜoJ:DT+wvRBSgIރn % pԯuI@ɴ$rc2ԍ#\{WtXF)"SܫR5~ObwND 27MBt#f&T#j퇬q|,qu,aʟ$R ?s+zOG6Ey\-=-h}0$~q&&nh׍e:7ng%:PK8 H=XXH:]{' ?E)Q'9!Կ9fq%3A4-cqA1(ԪEs=*={׃m $D$poxN4,9&0O5hQ5 `B [QljA`o]FfoVE"! ,XEDJ QJ^O2Ơ՝ArUfKEQ,U @KDy%1cXSZ7h S[6'|ܦ[,&mep1O7M[G!y}v a9E!  %Pc7P4N{K\͜p"VmiaP/ºxr;"z/ JIĪ?D hBEp:YWl:qFpg &FӦFl`uzD!u/ KmއOyqAظӯk 6!n5v.&(#QO*e ;xa,ˬ+jUmNShk0C*M|}(c 茭F@>6ϞhV d\V<'_%HHWx!g0\ҞWiw+@~#\y~wu2o ?G0,wWK-vԋ<гK$Un?"qbEeT6sYDY37_q kp~Czr7m-~zˣ'-(1/eKY %j.,b; KOcA$JBsеy~5UeJi_E'p{DԈHZvPQuOnHDȞ{FM*2s aߥx~? %8wf-z3wpϱ'l"Ԙʿ_s1:?RߢͬH_ J@V-%c=NNRUܮȔ\lØmQ]e0,/*by]ق9GgPjk"J/Gk(KMMEpFcsՖr`K{3VғA=PqGKO8~NYS^n#TjM#la6{  >Lp 89uxN54IRB_jX?~;m[@&']9?HWհ>Ž53XvBlJƷ8Ar},P0q#N 6#tgN_2֧a(9@kK Wl<7IKweǬoqn v&.\>j`/9ͤa<ǼN)`}0g';,Uk2Ҡ4O`Bw@_dhZqFB/`B3i@7a Qcٺ}7.="o} unqB r4|iю 1 =LQ4dZ9u *61t`0K:v~]rDy )|Qu'*,lԛxZs|2 Uj֪w%BBs%t#:؝ՠ-qBoȮNMfDx%@𘶍xM)L9q}iAMG;;Ei5=1~E2ȧ(x]qsNJF'4yx _l^b$Ёwi~뻛EcX,z&? k D'tk1>~G:&`(17UQs_,άp۔ D'b k0T`AْesQރBoy`Cn২ "&4ZKxS#q3fG)opNҚWoOC #<+yoo9Żm؜⃳S.\Wgk^NZE4Qָy$i̜ʌGZ'1Nb $Q&5azKŚÍ+^誂o4dhF [SX GBG |q_9^{lAڃ Vnv~d@N+c48oj=Wcn/@>ڽN*4ф{uϓ&q Ѻ8K,WќBQ`Z62 \}ZM2[&LL$C㯤7i9n>þۗU`pGhWxjqx_= #F"hJ*3߶}CỵpLf!fq`9Cnx%Eր)"7"'fŧTK@ uVB=z;G'/$Tm՗G˶ep_g(=v0>"u:x%^Cg d߽2S`JWI'{01ՅQruQ?]T~G\ c-}B9sx{sbW(HCЭ'X.GTE$S{fd; ԥq-V9ߴmMCmyޒ {?/0=Ƈ @ dmGʺ%[eΨ9eKLOʔ;:~GȞeG°vïT:tFeVɤrΐ$FUy2 q'(A0@{c#xEQvu'w_K0%uƨZnI1Ezzs#.Yw<,!b `$ꢨNC4*{:GB}@~R`SQ| rydүte$숵f96S BTvXMF{s z:/=|CKLMcE'na[d U؆A%3p~Bj<tz0 GD7ߥ &69c䊫B DtXg`~zrTKmOVȾ5kbNҙiqmϋbTJm&3U⿭fC\n@pu^y+G{jm.Uq$$j:{W*9qʊN<=;on@?=6$w境Aj3% ]0=*xLq.٩ ,l+>(Ī.sK-d}B[o#Ol؁Wʚ f_v]XtH"q d*89zېxQLƃe{UGc*oMwoR$aJА\Rz1S6Svtxg8!>[.!}ӏwiV\6@Փn#\"Tg"Kid*`[uppglh5o tA kGKj@HgCvjp%qyx=O-}rA!V=V5#Y^Wf5` $4KV UF6 udxkJZ\BOPX.mTuBs Ew &?*fK0(OFS'd:נxUnȪ It-3 X-f,P$8zN5 m#7$/zJ3l0д־g7~˸a_y%x<K_|a ܶ-9iitˮtmK PO5N 7/v9 *6HE=e#2@Ub+9YU6~ԯO"h˿S'$@4#+4T5p?JXg\\2Ч[F1M&R0sc՟ FL=?Y2faVT7vT9#~WVU}MMx#lԡOB}st-zR6Ӷ0#q (I]F-& 1doI(Y;tJ[5!""<,5-"`$PB~hĉ%5j9ڷJ#%C#s=r}˩ 1dL8:l:f~_QJw"2~bQQ(hGY{efh+2 qCS|L.RhC"M5j$ko@Ҫ?֢ɟyg.h|bU"F4Б&+`cwhYm{=WH{ƈ+jzF. S9G=B=~Bf>h5̿6g 8Y(+40ΚW>gW#F&4?_f MUYaP{߰A*qu֦}kqaP,8/cQpeVxnmQ.{]ဖnX~6X5EQA;_%m[NR@ cUEnpc|PzȏEGM!TMzzb}zE9t'j3\^P\fٖ:3)~]xddח7ƵlJ\ m6Wvg QTx|Y< ḱ׹ݣW6>&moI`|SOGgv;]*̐^M9ن7AUNC27Qv[&wL:=@[}R&ݬ3W]&5B4o'B򲯧*@N-&~^Kaz-zzzzܬQd+IPazIȓF}RP"MAk^5J:QyK؄rmSV,N.ufW[4?ԞcA z+0^aUY)x%=^|@VejUsPe&r "u\3(X5b t3AbSįK_liaoS&i8d}&y- Isj{4|Bu`;sJO] 3ڔp͹QזBi ^F+vRfr]HuGs@렒ak,9اb뀼0n3W+vtoΤ*.\>M[qk!^]m쒖uzOgV^el}#qbKIyEv/,p:vp\'Mz(T_vēdhv0-he&+B-f!ϔ@xjM7+ <lW#VWDyRAI7gFQQLKN%f ,\򀁋_X> 33)t%Zt_5lr[,dgj\K}69dS{')~{ JN%ƱYcu#bʀAsmW.XRv*P9]ޕ#HŸCz&2)7MwOB]w#3+F [e3،My,g"R"y)mj$RfJW7~XM3JHF?K^l:>YZ(hv.ouUd$f1Jr+E&;`ک6ħHJGxY)`$HeMTIZ{ n qN$kQg $Rl[.\c^_%K5Yw|'H#]jf @kPƐwլx~ LIZJgB#tR%n O; 8i@9M/K6LeёM}U6A$fFN$@h A#e`29oÄflud~JBfvզ#t#g0~.Һqz;<*ax[>VKV%@N@T"3z / TcO;;#||K8=259D'|!46Wx\7&5hGv3eW$ ):cæcVWoUJ0y`Ls@<-W ĶAci6pLӧ/E[h-Sq[ ,PWԈ\΄MtL kZjSPܥ1x"3f|-vN?D"yӺ6j$Ć:[b8q}QDu4:ÖG ɚ8ϑjqu}ַ7L T;Xg'D| PwʔCGul+fWp;˃;֝7Pd&s#S̞ZfB`!go*)ل>=cNp7z [ٍ2%ȶ[!3qU[eW ;1D$*)ɇDtj$pȽ68Z{d_N|gP'R EaCyJNn2)99[WY{Dx A!vdƄ|Y;1 jvD_!,uݢ˥EbW@yͧ]M4Y*=2f7?ݡк?Kܡ]@oZ$4P1&̦ yjv xҕ*\MG8Fn(pj?%B& ­O>U#\!&9X͵貝dY/ت498|ǝ]Ojm9*CQQPl4T|~kT0D n)0ݩH+",#4oN{zilEWʰA]tI%g.8Uk!b2 a}h_P^T(lL"y|F2˞XeB:qϓﱌDOِ Q%=Ԩ*qz)_M>T^?= yO_Vʍ&P D fy~77y!d{cY:i|Z/<c_T94+-'2r&bm7r- fpt\*rvzH5>CFhF*C J2 3{azDPAl[PwߴS6Yy"^K+.| qfS97Fpd9\Z :G8cp`c>i OU`ˊ}sJAZ|g!~LhZiFhOgyJ6a3=xw㈭ũ}@[18RKPq#B`leDnjEWDOizW%eEMq(5馕 Og]GbZuM?9Ծ.x"q6mS*r8]p'G\a3/`P"H!6ga* "C!4RCӎ$ǘ4"dBOnW"#x}4jNZj27K3: bWbr͈0*a lt-ڍ+_Iԭ0Ż>4 'rI1gUd-)N=͘G41 CzѨH6oqEՠ M|:u;Y{gr~ZbY> .d9l=sMH)DgW@޽(!p̩Bk+ + OZ1,qO*PH&ocRay Yw=0 h'lUz icDxkteր}|Bs8Ȅf&Y1}kOxyg[U]Ǹ|xC38Gaf0|i%}faӎg8Y Kd =; \uE0^T/y-[CBq a4-#]ݔPɺ'6V CNo`EHgX&K@t fxr;qϣ5Ì<\|d:X>PBlEg$9^(G#-ɺj2>$Ghs 7͗!GK^ ڄ(Wy^, RͼdNsk8uYC%x/p"&Y $j4ªsBߥ;x l ꎏGs/YG*V?s|B)diZXw/m eї͋mm T(T`ꑆ՛nU9l 7u/U݈D9K ozHv|+oLj~2*oO£K`qAtTD wPx`? l>KZѯw|3`qp)8>݁K::.A^Z#!j~lGTO})fOu<^'H_j=A^XrZr_O[Ի简E }ɥWIi!@S:ꑝѦzYNf=aCE?̅pe[ -ͼơmC"HQYQ"蟛dQ'B-%,2q{!BS/$.c!aOiej; qԠqMPQ ل iOj9@B(UfpQ]H9?xWѣTMg`)YeZFb.4֙%㤪E!uܜSGBI+ punZ0G8Bڅg] -Yo 4Q˼;/VJ<>?zD}q!CmH#|"NQSTx6\C3Pc&0]rGXj܂`+5ʯz^63b`4P;A=Djb&MSa#"܇:gﻔ''$WEi{*}#QuLL^|6_0u\ J :AY1oQm0:GPv13o}f'Z⡏|? >|L>7f[aW@<8`9=4҂DɮV.}#ܹB{˨VhPe"irRHcE1h:s/FZb"$/1Ǫ@f7F8#`6kGCBEĆT&)/~PpcqCG`pە89fNxQy+IѸ!iy V_2&" %s [śfpz7\|/ܼ`,q3P'\xK '~p |vF1)sME*}qYM74ϭ}y-]b\Q{uҕU1V (ᅚ>>HV @[,S[ɚb1=.׀ͤčTHY_/'mEm\_#X3[!/7~\NjaZߦEm[ǁV5&F̌X.xWd8ZWN$;3v*MG~vAY?'=su*W"(:=n7pflv]*iiK@c \ &Wk.=Vb\!EVuʥsif Z#k*FApG阁mVڂS( ֶH24 E@ՃQz䴵ٹ?*hLH; pJB]LOr|jnǫ\k JU?AjCic 1&nI{`EȠU}8fzPt)Kz3̘3Խw1x'Wx:EoܗfȤzN#sް4hmmPBp즶I5iy((ƭ m?u0]]R8V<g̓Sa9S<xV/Ïq Y32 'ɊY'\VO{ {.K33ͽ+N*<_\+)Lɽ>/%<©:Y^jYud_,5%Ja-\HH:\TyBĜ Xǽ|321$oVL$|vm._pz$wz0PBEggT' pFgkܘze g`phq`|Cx8UP bx.)U8!TGDj'ԍlV'Ҹs" 0A&gR鍍\+|b7[4 (9V2q5RCZUYrP涽 .-gQ<>ktn Aph='Z߯W_eZoYuQNX *s8jRV|N+ /u .z1@i#{-.ք JK8%T8yh-SP\ j5p&-}-'NvȚ[QJQ)8g!3x7wCv(WmIk)EsCk&?$7!#J EY:(>QLV/+xJ(&3(;(<;At(P#ɚTҗ{S[:cF q#LostxztZ7#2~6Ϧhѐ>e6R8Ȧ6kiU|Ӝv>on^%Z J0˾;6nоe,JQ/R2@P$L&OY~rȖy9 JBtٚKak⶚2XV[="F)xo/4eLSCoϝtx|'\jN q -p~CL B0 xo@!%>ɒ>sޕ&uI'Rϴn,?w/]׶{D(,ԑ+SW8j?%b0?hZ<&#YQD20ȡnε\ .J_:IZ`C3ԴW09A*D:';D'Ţz+Hnb=/Z.P|DP Q4ti7I$k%2,:z]lv vp{wh{i[Gxh2j xy}{l 6n *S7^̦ kK$t.u/ʁl+"3ֽlWWl|iVU@1D|\ChJt#T@rZ`c.{z"rn>w,j?۩`$HbN\ %,W*>;S~xw}F%|؀Yjw!n׀=^/9XL&EUc77 0QM?5' _7`5uu#`l vPN0^ڥQ(ytv+*" a3ocrfM HZ-|1ȝ⫅TBp`rډL{ ÞtʒT'[@"I{W7eEɑКѦX :^&ޙA"o4UyeM>32-  ^/!y~}c;˂>hǽ1T m>E ~jU }mˋ0/ 1@}\Wa7\7ttA)rhdPyU{d/sՁ?.>]9=_YӒ] `ӐȼOїjxo9;(>?} ]֢ӚAV%`^&1@qֻoU׺Njԯk[q[鑻DF{WkU :,m㗺D|QL0F)[q\4Z,A<lVTFOrtG7wuDB#S7!e˒4Gf5:UF1ge#%W Xr?M$y;@kwR&ݢN㶢l9jWCҲAwtJe#G{!Z*Uq5s)%p#۹!G Dd1hH:Stb$ H2 ‘¿5y`?X~8m@dмV {bk,iɺΡ5ER¯@p7V Dh=4h^JQ a(8wdBAyZѲlԴ|bgF\>R{~a ! }MbR\os_2wA`R;H%|JDT"șV{'iꔁD: G7ڀ~HT \iYnJK]nFMK<w5ȄwFba4%3/ֶbb ٷekYM' Qk#(aeTgmE0<>Ut6GՇkbq;isGF,/ĉfF0 nq*$aQ$Ǡ/`x@_ 7sIZ/v;84`M高_2o%Br@Pt?@O][yc)1<. I +XccC؍YjU;D1ҠC.5 tkeD` 9R0y}rX`Zoǜa)|Ӧg9W EI>RY\ a9v>]eX DiԕjyM_-Q2 UxmwI4џL zAqAE'/.FQ23b8S2jNS%..n܆Bu9.תoҘ}\(n[oa,Tޢ,bclwva9'<6g e^vv[}\&H\tԻZ^W.{PTB nEHS_"Af屿(olȦ-ч/l) 8nE^q{aYލ Y԰f%ޏ L]sX gM$?$am5f)h;kBr=%FիKKE Vk a9,v :R/(9SR~Gk@8h CBG48?MmQWš" Yo%HI^T 7tiҡUҟK^ e|tA[8 XX=eFP':JBC{ =QF TmGwH,snir( YaJ5r?C[(ڭBinG j@g:@RL>K⯬A;d`5Nk ,McSYyf\\O٪!}Vr;ݦ=OjE_&}u@EXY<}˔T q E ɪCÅT_)H`WgO6;UE PxhՀJ8->e[*e)]s`QQg@Pee4JEݧMx1$oX鹶9*X{L~e L_\"' ~46VhkP _}t*Zͧ8crs7cm[>UᥤT;Bj 3jt,c4Wx뢘X]fKjjM}kn ]-QONFnc\ ƃۓ~&`a[S`V0AC 1t6 .a~!" O[ݝAecg+Ezh:sP2sǂA!P?Ĝ # > " #:XŅc%Cd5Fi#zv$N:Ʈ luȂ9#FySDcdE>tYû]BTI @Ό1&Z4tLe8bCi'FۉZA(ge0% KX0cx@d+y^Bswe1DZ9?4'i;d Pڣipu|If˿m|sK89jžIPTay28Gcyk4LqLzN'\eI:g.<Z>I}TQښ-*qUN`?La")`U{k/Z=GJp^t: '|辩/qzI  gL㪍x| _[;`s\[<]8ҶPg;kDoIO:^(c~f@G zE 0hȨL1En/}4ZJ J{K9yj݀xjK HɌm*t^g Œq~<7(ILEglu1d~dSo` ԈYhBUO/@۔ vvڧ_` [>8jBdsǐpbcr1 X8-0*J2X0hG0{2aCηU*d <ŘW켜 *9y3ʱe:Y61˂^GTHs[;&&bPDžr=C{ߓ“yZY-k1nj# t>~u P^rO..5a6!*F-AֆF`H`e^}`)&H䷖&X*7qwڞ/J~fí_ީ>q.N/`X |sZ)PӠnyi `KlL|Cl˹r-S%rnMI+pn!k &S~7;S1IbĺP< 6Xu绊w<;wmU #ílH֜>3کm٠9vEK`*x l̠[O 1}]O:^!? cЎGK ,9R"$/5dQPI჏ήr&)z"@Kc qjP 1E@U!y@4j [t0Z6 )'mE=?i=u%,Y!F] xcT_Feӑf_{w(:+PQ֗;22*P4ίVMV`-)s,zGo`VDF׏)l 4ԢjBXD+dxAڰ7^3cSz|0V\z} 2R6iniol{0ϱMQ:\֍{=Wn)BU0"+|b4Nw\4鼂HYcѿn7H;'zϪӽ޹b}r bAj*.)Hn.D*t ݻt`XgCf\uahFJD3eUIԝfXyyqC$T6^tNC|EwB&;d6& ſkeK$K k/`a4E[NY\* ,HGfF p? O\m|Y͘ː9Cs$;} @r#d(bovu 6q ʛ p;ilqB i(6G\?K(yTU6Lu/gh%sp']FL tlLoĄ _ڽ;LvD(~&)eeauHGtpg\zx;?bQՁRuv(YEKXNwϹaG$IS-{#B^rnMi.nn򻝊8}ayD*Ɩi,ߨh 3;7gbUH/ͩ>w2neF +QH [,h7_0ç4BLzPvhWa7;s%=8@#+o,~Epa`}P',)((ygLsa`zdXqN^N5o2.pv-ʒ8n枰֓PhQAkChl9UTj1},Bi=X`5&Ӫr2ԔsSu(?"h|ö*ܛetap-UaGtWIÓG1}jt18ZoUG rrsH>T=TɹLq6# `|QM:EӐd@$*N0 0:CK˭'OGL~"tB|x:NY2ݿJN| ndNH[:.T5siމ:MȘ1Dx]ldiv:f#`Bi9z]vO`d/W7j`%_ qss|c%$xѣ-(XQPk2)7{y`)*()N|k.JK]-xD6+sޜ3~EzߗW` z}5IVq/V/eM{Ŏa\ۖJP/ZCf\P1q3Q|$!"FwC{D59p#B~ë{Jqc꺏HF 2)4G#;$ʢ6XiF.V6!g֮]t-dPLUdľi@hܹI#1EĎs.f>{k`2)@rcG[' 8.?=SM~I]Ns͗;XP@HG!2Egzy0Yr 2PA UwX/y ̈$^2e4njv_ Ql=q0kW3- F& Pe);|cbO.iM6Og V"Xh:?NTF14Ya%{^{=6"8/t;*bh(?_<}HT%'@똪XaCM6c3@e 0k4Z|\F U%:bמGSqUocn[?/<܅nܘhR[)yκ"Yr{;sY\~yQG_ #eYK{HfteS:@f4FWpg!JV4>"ZM߱@/.w.~iZG`lh (%qID t+Šoؾ0N*nP 2!b1:bxf:)Ja)Y!qE4}sT1JYN*Ҳ|j?*H*+8@7?O.>X؉(!|ʻ?`]̂ʽi8`pzRnJ/Prt=j,%zǪHes(Jid?u/tj7}}#Cbn[#.rXWnh0;! y#)q@G8|,47:PRMX$ܿC>yXtS4TH혆N.<6ߪʼnVU_{P<;bƾt@{ekC.xy7~N̒oQȫ d&'^xkyYys[BhazބMX2!e5lm2\ZŒ޷~9JvC{A:WQ^5%)a#Uf7>GϦj|N '`0">~~&J{݋K%iJ%/4gQ=&S  ]XV $$JZRG~T;1+[ԏS,v,|n15Af8("kn:rN팢sš֊>bօͯ/~!Φ%L<P"#x ] \q8KkQwQ7L;VSbt|AE:`{vlǡċaXA#Q}%b Y5 㫙uGo$z&Y/~ghs/BssZ8Wt|\*PN͊$~t !~\(KѩꘁBn{& yq`&3zm-}qƥucΤR[à4V':Nչ箧#A=L5UL>]EQ1t- ohP[ ~|ގjk$!$톇ԡ AU?┎'r[։96&~7qiӲ!2'"oE̖۬$ mywP^a!‚ـD*5FHb-hYsJꄭVmb`9De PAX lɥR;<6Ϛ(e8KmOSsM~hdy&ʇcC?,ꝻMOf$\3I'\PeۣagC %a3aٮL@O5  `j6=?)w,\#}(lETckZE%\;L_mVV%H]'|E2vԔ3I..^ސ?(t"(H$JrQ~aKN5AV5I^(@Zq1LB-4[g6Q_Vo Y'>ddWe㨉\ 腸`JqBEvSG~SeTԨ&W4kB)Q*qwCc>B) ٳ&=ZTMWΫdyET~{WIBvL-b5vlXT>W xY|MWqme %Ovk[E O[ te- %tT}uz S5-R lmbIAS)x’_XA`5,RK,4W&VV>?Z~՗*s8'uWCo>YDݢ*& g!dr8ne)_ŒwcufAh ܴW3`}ra2-4wBI\wP.ʆ~YqBJPn+8! ^nȘMV\ܟI`:{ƿE)ڒRz}Q[كETK<ܩ7xcyh~D,Yt!T8 sg.N)szrO Amb.dB~e`1&z寴KhHsP}v tbDٝm*V;ެ;MS#k8c=\9P+m,tĦrޏKЙP~vJ}t,KmC)G璳>IMR"澋'hG4;xf¤)ǻ`FifcMnHo=|%5bˉ炬t!ڟtLj${elk784ӆjVBrmQ;5i7ix䖾^{pC\7^eh-M':3(XN9j(Ʃ_TtcC2&AXb }vʽEt85r.#DE"}C5@zY0c j8jNy`T :;EQv%ښ0-B-qsbTK+C,}G}T0';Җ~ Uo:6Uu0Z]Qf$$lj+,b@&ӰDMҋ#D(`KrSͤ/QxFM-E.Zd 1qb$H};TdMB p\+V2D]X:Yan,&y5rkyրfr85%ׁ7aϷ40&)-!& ;ÜU|c2ɿ;}F_&|-"yE5M[M.G,<ݍG@9m6~I&lǍ[m(\ڒ\U] BZ̃A/!hvBãK"%'µMֻ6 FJ?r3O6[NݳX(vwHl*] oQ '* Z0J3tcbw/x?"GmW\vBrtqŁٽbdI.k+2W"M7+'l25! FC;lw&mũ&n}W!d  HYjuAy=16辧hGOSྶ?"i&A=ˑ FH sfU E%ㆁOAD֮kj̫s[N=pPGyW#lWElsϨ'~Wv̟[z{[sgxx*p(!/˰ gY^86 7 )6'5+]WU\\o1y`a:_ڱ`!-) u(>DYWT#Rm"!=f= I i ~Clӑ.=绳~#2[&Qڭ9$ILWBr2&MK" cIY,ce\ yb⟺i/8Pߦ])C+oɫXN/k< gd,mΐ˗$d &QoPv)#Y7YU1K VaB^K.yXzqǧfw<Q >: QiS L_kc9uzgW )*/tdjIK b᪋˹=ݜF~f3 'UZ0)ReH^0ѸRr&K-Ur LIC@-I]ss]I Lͮ0yC>8djؑ2nX#=z1i)ni ڃv6X!%Ϝ-hJee;!A;vqS12}_џK^:ڿS#Iy|дr/R-v.<`BdyGrtLׁ8D*]#g3*Rj. K@L *0O Zz5T҅2yiO<o g⸢BUKk B:[VI~VqqT!5Ǝym:X d/u D I&-ɉG3¤0P(8#\ ΠU/‹";5h1lfxCl]RWB)|rՃ¹oW4հK&6.v~F=%QưC8sWd\7d~r1pnMJhZu|_F0oldZC`+Ctީ!L8+vB|E"LFh] e1t;O"/"yv@s͋ۗa nN1ēHUPO~Tpqj.&9 ˽h-35ggT&(f؎mu_N Kj>  -kzoVk˞K3?H"ݤݺ*#e/jd@ 3p] -9ZF~?威~jcN4^G0S@ߐ&c3sVWGCv뭫@n,hRmRDpe6΢sGҺ7ڌé4zU0{'\Z ؠ ,I&(aj[wIf]L57hnDԢ/B폅"pz&_2}{-je)ۚJ/l<㳵I^gCJV<Ѻ_ 9qh WOBC:I%=M`Egz$jTZ84]6z?whMN X9ڄn_ cYZuሎiCr5^d&fiFsD"h? ΀2],M8鯀e kbY/Awi/˻|Ea k[*t_%85Y\APtɉ|Ըs/S%(mєteni; p鰝Qg$EDԌ2Fr.̖R6U(S7m%U=EGρ%?DX<#Uv'\eN-s̉[?t۞2&wӾ7qۄ!H-v6P pN,ck6| nb$j_RXTNLNC4Y["kb%n.+rY)T}}YQRtB+)15 ~fPLf>N;0׃(iEғ?l` ͧ]p~f xJ &1(w4d˕ oP ?꙱!Ca\ M\n(-1sެocbMvP§шj294wDdxmSfK ;LCu`x [}os [Y G*:nL4(~ΩT @pWqfC Tp*_%e;0+;RAUB}oI:%)Yx/"tMI ^ϕoTM?|cL[v̕1)t>kڠxf W=N-2ːjBk#Wl./וW{9ޓUVdc{˕@zzU, ?'h^ L&cjglyh8iOJ'àm8:ˎZ "Qaq]4|`Y(0q wfInۄ\E;ğToYht;,PfЇ |;ca9#cnQy{ЩPW1 ^V=_J&X^gD؁D K„mf g<*MhE?YCǫ5&diQ,T>LWnuhue[*_qG"dc[}"0kyzo+)OM4 fω|S={KD+$vd.E–bO4M4O%uۥ8M3:K2FgT\Lw P(WxTL`;_빋1(k-6p_B+(Afw) _dh^"uV#en}GSզ?4^8wdlav, uЍ&FݸkJz|dg ILR9TV !=ޏ+(sUW>Yː=ߠ>Te %դtne#(㪓ЎMFaBI/|{enVV<5_}T}j$?.Az@r &s@\0)CM''!umF\}.Vkd S5۝GjȟZYLU7CkM^U,8C(ӝwמ~07`%_+qBJWb_S">-le!^:HܙQ5m$QT9HX/%NR0*6/l"sGR)"+3@F6Qo$ląsS(? ( qr#P8t ?^+[WI1}ޫ+> 'B5 hUT7cUpΫW9׽K/B.9/`KZ~"0vmZ/&+uJ0Jl7հ [|8HiΒ˵{13czO=K,[- wqf`ӔC84pREhn'ՂVfW?y*kھ%˴]TRK\rC:j"1/nhz~ޭYtc"]=A cՇp4fR5i`aЊEC&2{[M1q240vIno6OWf (cUȍM&z\ɑ7b p!ў&jQvʿLO`cn{hXj"AU>\Ģ|ԲGS V a'V) QNu_>xQ II‚)TY߽ihjxޛB{&\^]4E1D'e`*֧wn>SѦ@'>b~VwQ(&Ĺi9ʭ]ןCsXhCYVpݦf:sWn\8@R S;xQWkⲯk7׬ӟ~sRM?:⯓ق!+ ]e 1:Vu9|%+]I(|%+5,%lؔ>/3+hȜOAV:d9čwd!)+~l^G[ ~I2$,_|>:S隶^xyVr:kLG7+Aקr*-sȌޛxO;*NhYG%uVe>͂34X ebLj 8êTe:v`U[]rfHϞ\M3ftmq#*Di?4o eV/q+^ fM8pi9"ޱTpnaCX5!t2;9F^z_H.LU^кraxL0i;=EGmvh:9ǠS.ˇvj0Bl/=4`}e+Nn_-W0~GrD>l. hb ژE-% ݊4}D '2X#@:V@LH0<2^lf#b% v ?u)[R5:߸jOG~S[֞)GiIb=b7u7$Ojo,wAnEOޮVY-Ae󇰢Z5 ^c~9mLMff7t.ӧX'ELx U N<%KEvk~1;\mX}8ehoE@b=`#IIrכ%k5K"?+VGs]c )>yOB(Tff놽<&0⦷C;; Pdj}lhV),woוj8t!&H"#13!>mw6UG&ט3XƳh:;{Bsn såQ*޵Zvom)@6ϟSGӯUǖB `b X2%vYk9X/[th;Z)E4 'kޯ"67*1'Po:~O 5Wq_cPU]J8Kseq)vad*5pH/vQ\PpG8 Q{FKcŏU^wDf| %cI#̦2}UEKĽoRppN<]GڍYz !(ײ lw ] )B- eEZfjW~# xa?3uN兎үIKBW7+ #)=E0w:H$Z:V-k讎L6Mrup,&;r&†!*ś8F%ۃB݅SXڹYwʴhG(K{eomFmW ӰvY$GMhN 8z޽..OI`Y Z)"::6"ȂCDK f,iH-hu('@vU8BXWuR["A it.tt $#LlE^ R}:^ \D )+oTC!W-ALcdְh뤵N͒lt r0:Fq:/h26Wg9B7 xs4" lCl]Cx>h*2˃~/:Rh|݇DqsZbKED *bυUm@mO['x0JfJ!K.h3z[Wp6C'=J,_㌲ո8̌3&[BlS'3]5p?rUcaۃh_@M)e*1Ы~+ 3v^3O&t(J., v%jң ]Z ꁯ g `JW~ݾo΂9Į{.;&3<cV2ˬ]K^E#+B1у] Y 'TP҉}f ⯃kpa?-¢?7O)\}ˍ$qXt_M|aYe@'JI|xkf#b0gA웍?ƇrQuTO*XTcl޳>VOS>lJy4}-fZC?ހOyK / KYUjэI[S #YoWoo;i|D"w0W@Jr 6&D6?Y-d\ zQ?08s]XFi2;ݙ ӾC(eT(VDž/-T_ 3 (N}Q"?"U[c?k3O`9M }Y+ic3w3hGi@u-;*Y_^AdDa#\I^"ۼdܦI)['[rT7RFTUC+, TNqgWXFˁ.i9;< 4wfkPw(rDQWM VXW.PqcOPdmKns΀9Ɂ^OIu:Ay9!y?m73 fپld[D\Ez1~惊k09;l?]u"1 V~fII4^nV[ވjE"'ıyC3]6?({{`XH3haȤ ΅AkküYb B5ӭvC*V/GAdtn1 %71'%j{lvh<\)̝g36{_:zFvE q~q^A1LI- >}qf*:W@{ EGfgH\Lb!2|q%IDhsD[Gɮ:Uqs>w G-י-. +egÂyp=]4  4X$j€6mbr7I\(< t\IAX:mfчyF f> ,VǛB+)G8c@uk@P7,yO3O-g_xӬOK9p}b^`ursAo4:I(I~kl!8c(әZG Hxo!Srˠ/lwHԅ)TjQr=9)ocmЄէ(tl^h7h ~YƥZYN--7ĩ0yMy :!E-41icuw\HY?nr9\aL$c}g{yu[K'~D >@)mmJ~ W^clT#Z2- \b _+@KȎ'Ćs48@h5ĦjO~Le" PR;'[yBbh/9c1gL$!xg6'K `|j[V^Zi(ˌjᖐS wL!=VJ24ᩭ{cl/k5(n֓S\L4'sZ@ILľX'` ?"R@Uo-8mC|tf]7w䰕H#_e%!Fށկ ki{ +n3I5cEN-q78HM_ <]5ʱw\Uw\Dylw.300C%R6v!.VЃQBO1*VDbx_j^,HT2S.nS7 Ҋ7O옾E<ʺ2;7D,OBA4c_K#Қ{g_y㺧軂{O^ӿ乣 ~:JɱЪG?'Y0%5HEp{ ]B|' zenS+Q $17V=V7MeA=FkP.V^) tO mƻ:_9WzgՂG %edq'7ef{ќrzcdr%ƒ9ge\2/i5J7=uR]7[ߖXoTsϹ)䙝9$ ƇIsOLw\=J[ݥ0؃xwoRu Q?Mo-`PI-6GZhv抿t,9mqXu wִ?,2`آhȠUkeݸ_U_1ij/GƁgs/^cz;,]Jh[[q._ {k F lyh[-AԗNkt/wwf3 V,U`銼$V"!_bUa!a%Kd(.v D I)]k':h$n-ހv":G۠rAM-}gMw#$7E[2]LU, ,4w@ڐd6?1\Z5,m`#edi;flI=p_lZb]Ǥ{3A4||jO&lcnAثz>4$*X5>{Ȅ~jMLA? ( !մӤxe8쟔<"7ȹYU"7pDCI2Y4[G ȮdMGҗ d n~1^x n ~ P4"_j4!zmA62ܞ^[Ά8C1 W`1e,ǤTz LT4Һu!entuZQvKv"Y j%y?3a ?}B1BĐn(iԥ1q#O‚v 4SXaLvK?[~!8u*#HMkg9@o LڛeB.=7&67ivp4%ڵ7 Iag~RQQ&4IA+ˈ@LO>~J2S#F7l|wp-s'2x>Pp( xȟQ֖3G0)\WX8ShD!dwkRG`,{]M34ŀPb]^pJfqC;M?e+RR%xy1c ;f{k;/ZPS9+,q%)Wھ)5 Ak|d'^bW|$[Cld؍}um*Z_[!FYRZ8+~ÿx[(F.U[ĨKXG-MA=M˓B͢+! 0az~R[+؎{iL=aq|}O`k9lN*^,FSyiA3ftY`&${Rin$-h]Hu݂m`-)3 Iou*QC i*,$.7obh|د=hR 6Ar/DUl"_AFaZ  NQrAb@@[E;̟b ؍>-="}0lêxb\5ăy&fy}Ƃ!v(~~J3atfO̗;@ i 4CM*}ǀVˍK nx5vIr*5j[WvN5låު'0ljP.<`~A`.CpކU}"ZT@6Q !g v[Cse8!m~ Ӝ%@bv'sɝnQ_3gzIQDꑧNI_(Ͷߥ#X5=ݹ]E;hm?纚N-dx` ?wFZ_݊Oo4ל>; CAl"7!b3gvj B<&BJ|V\Bpd1vd9\{/>’ C$?TK֍>jlՁ#qx+>^ξkQ$vl"]jӖ3j X Ѝ $ zЏ[EX!Y*Pp4ݶ 9:QlVZ>(2޺6{i{g*0l >{}Jbp?oVc\t!`抅OHby `_]!]B$QaKs=.%n\oYIWk%B7y`T2e5%QV< ۯlCS؂D|{7 &H]?mA0dV .-D^{N #1Җ2E:&zr7S. c P&τ?k„.xN2^Sv2~zg(S ob6')i zBAuց!1K H3(`7S@]<8C\#W;S ĆjAn;(Ӛ>]%t0 צ=8uF;4pDzrv<48MnoFK4y.P+x߃X(l`]S?\ +r. xLS>_ekʤC]fc<{)I[<ڹמo"rp6߷s_/iw(aϷ L,qZ;숃}VZc~?|7ftruE2 (TڶVB#x kD2>Ȼwwq+u\6>-=y ?6x^8 IJL5U~%10E;+0qgQV[$ׄes;TQ-4\K;3n,DqPMiy;:sZEz̡%etiVlorG 2?W:oL&7U=/9jSGj?5pC-4*C4[3bME^ zvML(gCA{ȢPpWo Iw(+@qig<'።D:Ω^g1e,j:R2 .ZZqMQeEQ f)[)jd&;exqňh2y!a#f)_uDΤ+ah=aW:gS. Sr80Y=4f1#yͩM@$M04R ! t= A=>uTPh20O9SufPD kA+usb 9R{l[48e;C{_ GcN4K"gRLnXV3_[%  nI)\֜p~tq߆ P>(h}J8]Ω`=:@9EW]9nL#i&}n6u!QuSd N×eypd́MSpX)P~owZGtڻ}K!Uh-yxG Jg"G8o8Su~PWA9;ʐNrX^>|Jo^\hDCQ/yJ< p^y/O5.: -ABTI6S]ƨ)NE`aaL>X)tG542K0UĔoX+8#eqfim^5/9%7,(8\>׊DCLQ hz̈TG ;oKkד%"D^Z M>QiQlMiYC'=͒7ǰFUx C aq|j"!|DIm:{dU\PI]=;GX^{``euh'h} ̊R2j?}NQ)!mWNd<סzliݱ|O㨑^?q򻗪fec',Jqc댭 nbIj03saј^Ǒ!ݲeu AZ;jTOk&0gC%l;o!Efa@>drPPP<'5Be6P`N@$X& 41 5L('}(}][O 6VD+`N}QI%t ʵ=O=4{k.=DTâ:ۦШ< 68X&{Gw/_awLk`_wE椊ClGy_ÝA\mcHXp#o8F =(jp]cisl?xЭ6l- <4_Zĕg-҉*HŸɾXh KZawcr;_W)V((q뵺uvX}]r. 9$95*(>1)Xcrg&tu!rfOܛ4mʼny.l4x#󯻃d^Rtwzb/{TReކQVY"XΙRq<Ć<$bu,a wn5QILmNhagQAldݔ*4I =BoZM)܈!ypv~" RZaLh|`ޅ g1Cː(wfxFa8EP}qZjqM;G+C 1#o`@Ó&BԲB#>/)(ag/i;}UF#ggk˰h4kTWZ<7{??^<9 hL2OQ|źL}@r{m2 ď5|cu֣r:ÈfXOg{+F9RψHri!d8GVX+^Y1Ģ+JXENu7AkD6,:LXH{.iEn4PP-٦Aj g [SM{g pV%w*y1ޝtmf%gf3@Toh ti:&5"ɴI];Z8kAފ2>']GJ ̎\[Inᴡ<7X\{e*1~qfZ, (oͨ7crSQ~LZF]ro+nWPL 'dCn'?ep$j{ƣP!x hqHz'%,oj v̻%A9HEFy4cPVc n5$Hv75umIBܳ `ē+r#L1/y8zƈ^^SɅ)fVOH~eۺfEPf e,4qTtO-JCXuukLWk%SO X xt`xk7xXɢ[tƲ}gCzU~Jav/)ETY*5@kňFje~DUvFBv_XրO~- C-ڛZ#b53  zL{d_[ $)9^ Z]o=U 7b35\[{!Է"^ FpM}\Lrs\Nm*ma% /p!~= '9`- @1|`ݠ^;O&{kBaItH9\I䅟;mؿ9Os<7EfQТ`b)w38SȞ1`M+psZ[#Y`8r9`u0vIR/S*,OzD5iL)S>4$PI@Z/:3M~%,NE}tD`IW ; 3/XuR8()J4aJ\I\'s)SGbF]uƠ f9e'8ˑ%)cY˟6 #~+^ qd՟Ъ\ D%13{Zƴ#,9A4Z,}z*1GT66{>,O/"rRܖz 89Z{MDhb5Y$oρ̆wY'yX WOMqi ruЫi$98`v4S#V3d,?z+ ;\.~o5&3E ~Y}zVPoJ(ݬz!ܡ]2 R=%BM564E{,r8=V_cO"5our p{p)Rw(ЙtAQ'kKD}bOg+' i enޘl~+17~B.dZuMG9BN lo:~Lء5;~Ѱgͭᒇi` w qbxmѿaWCXI,"hl]e>.JjQه*',*R}FDXFN|ӎ`T{\9㝖-AqJ /Ukf@A*?KA bIT{;Z2$&Cl R3z,gj:)]?,x=;r2;P@J3w\,s#!ehp ricM~VR,1) NBK E!, Q4/x&rڐf3Ζܺs%[fnh'+_cG=qBaX"y#Ϻ*`G]#C7).DC^`9H%LclI2b6S&6&E4Vk,1N,P*?__IٿYF.zƆ{m&l0uWغІY@#V~ϱ+0 >V bФB ZeNH0ÈJRW* rzvw'H8&*vxpi/5ehZ턘- :,Fcۚ 57N? 1o (kfEԀ1CGfإ@,4|J#jЦ(g8 h.Fh&  DOmr ~B^L2iIŅW m /R#\2pHa*5"ź҉Kl3PeN>3g^A]otZ O6bBA6/-yQ -Z'uw/kAъ k%.d5ȉ=}^À0GZu?ɡB'lw>V?=)er1Cxp<(ӜΡ5ܵ3.qp BD.{<(/TS\mǥ Pٯ l*mFF˵'YngY صNb1ӟLXQ%oWLޏjǺfR,%:[c qe lMqio%O4 d֣[^}ȿRbQv;3w~uzY$_2tN흗Ѽ/mK*,v xKG( -E>ehm/qhcѩN却rTQ*,,:wlԓ"3{FH\J--`R#qE~3ӝ]H> XCa' av;,/O4g?#FlgyxxGk.F~^Y4U75"LZ$1/5ZTO?q_ƍ!Y=YA1i8A$edzO+[Q !sg!0RC*H;S=~2uXS"YZ,r§Pn*?j:r0?vYe W3^7S'&fR4|0̄ m*n~$N=Y{@jH1K u9;u6&r+N4`Ou/DE!hГElz@"%n 6yfa*ѳ7N_R]Rh4}Z"XֳpW%5:d%r&;G^,sgІj $Bi6h22٩Hnr3|AZ?wQmS2ZH$HtE,LcE^.q;6([ >1= LԔ'`P**O@8+6aƪOn*a {)w읮6rmH/gpZ^%0&n0,3Q}e$\1>SXqqDT_tկ7$\`= 썴*7}$:\ibЌ?8=:\na V](;tA|}S2= w9v]?G DoNC  ٗi]GYyCqęnŦN- ~7U;mF26Li&`WaKB&_*햦}a%4ENc6U7z=3[& pfEALwwS!g6j%9z6cw,^ %:)fѬwG46" s>D4PyeP^qw*{#43g+*BAL#X:GRBkn+f cy-}Gt-Z+=k ;B3+DgIe7EXd# Q xVO( |IK2ӕ9<+#TM~~c%om=_A"QF TǙéR^wu3J~[HԋuEX3#}y,ɹH7ĴRy%Dz1=lŠimU hvh{TAO]ܿ Zvм6MRo8c>aDIJj=jcL}C\`/O3:, a ⹗) qz'Ƭ姉?ts'MF=הJa,rmtX| W?>_?FO!qqX~g|ݠ8jO9sj@ʦns&  w㭴=7HOv* ;o[ Ϛo9kǹX6I:HȀ7 *nOIY 3.EcVkWL˅̲?e%D$ARgNҨK* vevJʃe\\>M{NRO1д:,(D8U0{yޚ#&?$2lo@(6L嬄dQO qSF9O/leUZ% t狆ڶ9&+?gJQ[,pAh45Z5,"Y&ߋD3BY[~Qλiw{'YΘ;k(3ٵ8fsBx^}7G]Tǒl6P-X*+ !?C e ܽV3~>D[7#lf*,ʅAYVvb cc7@4|Uz=@ت|zYڦiŠnӈSOS$)Y#f!|`_3bŬJ&]^wQJ4ʅVqׯ.?Ԙ] Yޥ/%iz\~*jQQ7'B!MK,_uU2crEvPQͪEc|_Ҥ49´iS"ueԁEu=P׫^7Q[NZz$ͬV"~"IR_ U5yocAYv(FQˆ=9"pdNn#qE=VJ|m;Mz< MV.ʇqs"s㪰֖c $PyV2-qi 'W>RJl)/*L:}SIѩIaPHM<%Lb(./¦i(S*PԙIb|[( _%qn * &^ag45 ØTҏ q?BLJ-l0e]^]P9 CaIk76H/hS;p :X, tP[/ڻ X:ow{/yR*>0,oo+=%YS+~K Lr|14r܈dBNg`SJ3MTxNMavPQ҇g783$i˺f$R8Oڐ3p]K#&{LPS^MK@ B.t W$,z[ #Һ3DhB?e|!!xHS ^%ʖ43lZJ7QILW^i7Qu66wN(;+y< xۤëǴvŕM8GF;ZWިHK~נW΃! r>E8a2" (Yᓝ86"{` L5@UYqr}F+sQ+mf\+nJ Ǣiģ2uʎdR)_9dAG T88ME$ 84řփzcD>^Fz".ȸT xGi) _}܉N ~3⿼!a>d0Ex<ؖhxL042B"*FxtɸEۆ=gzgkBq&E+4ޝ (' ^V|U(7H $MXT33̕E2HD"ux1?~vz2IV=Q7{6iW l'0R&GUaxٵGx|B,.}^N7̶WKA݉CME`Tw!XUWmF5-?~t>C&& ~nViOM SƼ`-"LC,.yJr֥ClNиՂO%<-BN@4~Q6n*[>jMݲ=,0&`S3KƽAė uV3cpltD6syVQLݚB+ݩBLzB 0' q2hڋ'W)dQ%~6sv?\ꤝKK"cm|ޡK1bNLzs1u)mH q]*372H>I" RW0h9 M)qf*Mul #c%QϬlg#YFnaL/FpUrta7цh,AwӚ7ɿ  /1.mمShZ- *4HU<=B ͓|ujM7yj1}w7 c5jhW/q'OpG'7SIw-|$Rn ӢqhEcBģulnU)UϦ&̗Mи;ϱ5v-QҠisvwL9wnᕙrZHߙIӅ. Pht2˶jz𕈧یOd9 P4zT[ߙs.#V.Ir%7E}&jb0V6vؒkJWM/ԒVg'*&r@w.3|.>^a ,z52@X3RNNKC? 5ċL[2BqaW.6K<[0R;=l&aY^4=e.X3/rNe[MlP;^]:& |a6LW-ʹ~_8 qs)켊k-7,>c!m)/UEE~Į41>k/,cjj#/'tAB$.䃇Fk/  # 0eYJ:Z(5a8/"˄Q1nXQ['[ Rj-´P3 z#VLAX6}w#!}Nu(<"<6/jtۧHj{=fC9niމQ~aFpD"Fm'ƃiS,`'bƄ*}լ~  t$2y]}A~KQIzld85` aZk#r&W$23ro]׭_KX;IJJph[=wPrR/\e(h9}J0IztoYh/&Hg46Y7A$icqY#\9_ g,6ۧkBaKhbj%tk#t+8A44Z!IYitTP8&Q*¶ǬXS-7 Ne&m~RLL~ apa){IgRsGg]etT$b(BQL Va/sT#窐FI=2~/PW-Q Ws&NᗲP;;ynuV BV ء ̍\8Gg {@ i*2|){ލk xAssMeTtk([bZ1c h;둁5u r \*ifH \YYY;[ʭﱦ")ϕ+/b x z0idj'yPݱEȲE ,O_PyZ)d,)z̊'ԗ&Xi({<>Fx.< $NYI"f7;kȮ$7ȁlJ+$pVfGc8օBXp C3MWX|܂ÏPΰ N)!=-3D ϛ\Y{Ղg3C<;stt.'$MCLTY#|n8@K'ȪV},)A3s}f#K@ۑV} HRW4FoAHjmu5? ws A|%XnB$v"6ݰC4'ɩ.q"lF KP7qK)w_f8-GbL꥖<`M&F+AVW4ކ\Bڟc$*b6rڛr *oE#ؐ5wgrKș<<'T1xGzk')(י?ggQ2;n:4!(]F M@+H&z9ِvS;=knr})ҬPjkBw:+9rr5dbDf}#90~򬪓uHtδ@/v74f[x,&DBQ lK뤡{sNr`IJTd6u$*<Ӻ4 Τ=/Ut,7.Fu2ܗgG T@%Vg갼AmYdTwucT=vXEAퟬi;8I0ɔ,f5ͩ[kIP_nl =+8Q67k˻wrL)kyro5QB/? yón#n^M Q=QAVWLT~ki{f(5dTw+S 9@6&y_خnG;xr?8eP6{V"Kw[qOC%CVscD )[fpd.!¨#;m6_ZϚ t/WMK&&i<" X{!afؾzl[tԏ[%ry8b0C_,d1ޱm|Ν$^IK˩ :)Vt2lh2fOM܅dDMyXMOC Oh+2IVd)`ZHDi,'U&37yZ.X&Cر.@B|d'd>[OzV6y3decz2GȘGU0:1QL 5ls]iiMϰRgO@GjN%>Ma_rφaJ9A. zTjFF8EjD4<`WPu%e_7Yi+۶y]GIuݔiO%bKKn2+3>bj+ lhNHed*Pe):puXC*}tQu5J9Ć6f0Bwȭ=m(qZfcV Xڗ$?3}sh"ܼ"t 'NwUFD\CA&)cck[:J܈kWVf b(:YHE@Ck+7מ 5|zl=c2D {ZddZ $JK VĞ&bBjP(sZDcEY~ft`khO`[.?#uX+룾j+=c4'?ėzF>":\\cgf_m6M;\V.X\2u.=B$#= >JƸŠaX*-JݨZxQ5ȼȀNC]DM.Tsߘ~sI, %'$Dh?^XCCO!{{jm1oFܩwER޵. ?j7u&F*4%gLf2 xI0SPΒꙃ!t> H/[;YPW)@q旛O}Gߍ̼!]->e]1Z?ݝHOwfltA\~PG^>ʵUJ*O0όLo+"ԇkY8 Ey[Ό <0Y\&Ѝ5ABZnЯ`%ˍs,U{+$e dH>r/39.J>@sy`,Z#k;<ߊݬ|O^ }fCdM` (׃aZQr^Tv"-v\+tk zsy0vN땺6]{//KFmz%˰wy8>Lo(l:tEۦ- !UrnJdf5WMQR:J54h0q,{ kQc&v6%O։qf^jX%b8HdXYaK9h5&'4e@d)7{Tpo7/tVҾw Vz +ؚPzK"BYlFjd> }g+t7 L& [2TŠmޓg# w.K 1w0KCPIQgl&Z݋VI3^w 62s҉my`NVl~s~Id[Q}ÿs1[A 8xK&򞌇ƤW\9PuX+2H!.c kfBB)FlHO{Ԉhc  ]]I:MG:}yd9pK)%w24kËbsaYE*&F<8.V6Ŝdë>ؼuЏ2got")Iu_6.Ȍ%,(kQ^zICxL#Ы+eK9>{Rnƣgqml-N >kՒ8$8lAކXsXE`ZĦ+ˈE?W! &s [܃2 <{"] xdW4 p1#iFh*q@2AVs|FU.;SCqݞ#'|= ԐDZoia/̅${1U.SnF.v|w4 ]玗C,0D0;eelb_snAgYP)x͡cw2;H_OqTO05mE3+=Y1g1hۭ1kz[G+d?X,q2Z8;G%b_pcYzՇ2rr~v!>* tVpa|ԌEM3g>2 C:pIm*4v$(F@VH[?vh)?PB=. ^NK׊30W#T4l- ||$`(Ũ ۋy1~LOmA; ĥ͟! BIS(y}eT~fd^fÍ@L8g qJ)F g>>kYWv "}:PzS"[lFtR9`}.{W3>PH/u(gHp4ؒ>י ֩|fYv`TK?RRB7ͣDYpFt'B=v+ ot?8m$9(/DӼDJ߯RL"3V$EMsp[䳔@ɑVԊSX;reU&#O#JC-Z>L+{뢍R_=i&­[VZJjmΛh<}~sYe+AOmƨS')aLì~7-Rnj]z3#-IRt.:C%uaa᝱:ܝ,^̀w$۲7 ӎ:uߗ3޾Σf)@\Rd_.lnTuNi -;!  ~^8Rg(v83R5T{Ǥ]rCn։w^T.(>T(%d@ZxüECe0۳8J6Ըi :,L+) Aq!oj' -ɍ;?b*/R7U;U7޹QZR@IU#p&2~C[v>z-RliLf47:As.Z \`,?$!ۂ㧤obֿ%A*$,z֮$X0`Qr[g2+yW|{u1 Vw AoRW>ynS 2TcDto ]J**~16kڄ #՜Q)QjšIEvxi`,2&F";X| _ݼ@y9zh}Z4_ 0I)7Zlm5'hzY|K 1ӡB; ^O[#p-E4Lrtms\cOw?gxL ɣ7!/87HPgqc=-/[CժAD .ex Q͔-T}z#4^f a.4"1Re\!sll6iC8I([b/P,i݉C,臅R 3 ιt|ǧ{}|ɦẔpj= '6YTAѤ?B0c;"N<V wouґ@7nÕ5JԀ"5BNy*О?of--jVr__A>SGzZ]Aik}_ WN j2V47c:{y O~33e#SǛiO|q;%hpu&rL~ P%EMZەZBnfɻ}דċc}&kXOpiKXn~b/͌^)zcZΑk%߇78́A#A]^^wG(,aqWjWSSֵ i#/&^%T@n-y< &%(k/gYi5عǗy?@j!4rx zO%-\Ӛzo0b֣`oH:K#@ܢ$In/ GV߬4s.&oz1wh[3CcuΞ߻ (QkUmÉ))pj}I g)ꋃ{5)]o& Wo],T4 ˱|>6n <"XM)l$&B7uB x-r(؅Ԭe7KOU&2F2(T妏޹O Kjn{č$:p u&AdQ!mE`8OqǕ- %Dh \.z]4#eL8=pPy{Ê=>g`=k8L|͌Sēdh]X 3'x}FEH7UbH x"{Ualw e]ucmm%QQ PSP}acS8VboXu*Z˯&٢3QUy3TɳL{J1?OKtE| ~6>U@YO R* hoND^D!y!|g6]p8O- z=ڒ/eRn,;>Ѵ4FTBn*<7ݍ | fb0 4N*MOBrJ] ;zkd 2:=:xi0g#WL85[cަ> –ÌEͳ" mX`%O)U(|D ShPn[9VZeXp p}@l4Ksgf B)ͧjp\}qA%X}b;S;#Ct8]D8 d;.7ƒF#xd=2lJ=3>N:S] ah+ijAP #y]kVnQ38/a dHnS}AI u Sih~ۍ2-va/tvgTC+ eY~4GuquU4w6MJ9s$.Zg=@Y۲kr^J~%j2{$`뻚IaʛE7X&SJx QnȺ5Uvu DB:ፔ$cbcY)I."b mӫ$$i6n52udN e$W[d>S V@wy;UP"n(C%1\$N#EL 3te\0lU7l{SYl׈A5 6F%Z6KFg;ӓe4elyŐ 4^h1M`;y%_(zTS"ب7`roe$0RkHTZi8t-8q^ ?)>qU):` nع$5VXgtBa%c!brc![ت` xOOP]=X`V3t+&a7QYXYQwE!bu4W*%o1+krR}]vTOYvTK zGpǷOkv"EKpM:HGRIa%*"kH4e6?QyOH{V UcvB$sSgB95k8av7SMgA}5F} <۰`XWT pD_3/&;QS4ofLZ{`, i/ͪ?PKqaVc&ƺn9zp_/?5 Eko3?[ }4oftW@ Ob/Q0+_lܑTNZ;%8;# u ~1 Сi٨ػ2g"Eahkގ+Sh$7,x)<:^'~ˆD"hQh+'ƵPi<_KuӞrJ#`坤Rh0?B HyRrr.6[ՋkVE;ʊ5Wh5d8em"MZ\%hѫ[WEԦap@ի{χLƒB\%ŷz`+2l ῁!!֫}<d7D͗bU`ƽ4@m8H'l å鯀%ތ)m ;*fv6H~7 3h<*o81+ 15roѰհxM(W3y:ꌰڿ8ntv{ƕM/;QmA| %v'>k @j[Xؓ|zcJ)_;wVG&&96I9ժ!B݃.{@F2*UG@*٠`N?Rp &z)Q=]I:*Egf߱&09X+Gi:Y`<0)$):b-6W+qr`lJqհU:\A sCѩR>LU'F+>EEW|#[v~ | ߝ+:z^,8^{"!xjl'{o2S}$ ,lxN!^z=Zy ΤӮ K~"EQ̴mlލQ&_MrY0+VnlUlsOƻY.H"!]Dz#1oRH8$=k1fpUu&w{ƕ-3LhU`;h//UeCk˾8] yK'Y(C#|Y'WIͳ`㪢&!˲K=b7 Lb/#g*W8Iu:~q{Y9=f(>Hy6RCԯUq;ٝU52ֱX6\̏dBAX$[82wZ%/.Nc%J@ )NAͷ⢩8-ǽއ֋>h?8KԺ`&;zb JNd+q,_1}=v&K U$3^j 5wrrA{?Oszԙ$X9ĮV./Ȭ}ȫ6Qmx@u^(hPۂ@t;+[>[[ 'GA%'+}p*Dզ:o4xFW1Tkx% 8,%4y>wbS|tI<22{ҫ8٦fdhNL7>쪆Cߟ2Eli:Bjb[6V8#Ğv Dh:r)1P0w-J]`롃'H8sF謒?+uSbt%eXaKB|P7RA 腃?DF&sg,f&E>cX9 9zi*e޵<`t\ۼ:4<>J1׼eE,Z7^:S  uwN&H9\fo)3c}TO%B=y#qq[ED( z d#P ;sw.L&@ѩdɋo?nG~#nN9 d6쐠\3yfk t+K3ڽt zpd)t Sf #QDŽ G4?vi-dF})2,h7JO@]z1dF_tmN/A$:5xyxlPb2#+K~qsx]“Ԍ#Ү`0KY ( XQM K; &OɆ7<`AoJ;IUߔa"4gU SW;&Wr5 G$LO˵y?ʳ,\EZ *.½I*F2yVG1duek%g$W~5 U5ڗUxz̕GÃtrzŠg g%g@c=OcSjK׋a,'4ۺcT>dnMo+G"jzw:t tQM}Je^e.@DiLHw ?lC`Lʁ\<䦐W* @%|>>m{m☞|n<%a_x7]@,])Of#bOt:SOKbuBi&L$ +xcà s`HMF¥qJ?r}.'Mly/ A1E &ANL솙6W]1)DYF=~D ?0x$O^E|-^(d W>&pG;+K>nS]H*E^ݩLMf?vs?kNF#) ǶoAn4\'K¹4o "7F[i^?_lCa"I:ۏN \HD\H6c<jڦ;T\%a|Sq|]G;v΋$0>7yD^Tg#T"%;aء洮vF+dd(1GBk:cvlD[/rCvHpvojRmdaDR4}˅,4oDIPZWy xAh/@Mf y(?Y Slk7W[ЍXt+uW^1+5GB2SXg[J6)RYNt"lPR<):=@.Z9pDL~bӌD VF]yJ"؅=jI A`.SFf{Wjg@0aRFCg'4SM(gg$Wy+ۺtO|sSbB- #G0g:#U· \-6Y&M =\rK*e,=h(\;{shVl6m875¹j Eqi\oz&9B;=!vec jtlLN5I@KDF.zho "Ŗy03/BI>'Rbj)pdIEwB']osM &f-tdV獆yMjؾKA5̭!r-붎.aFEF"tETn}3Hi!u!c);@(K c|2R:vR ?Nl(YLBWA꩕q,|YT|5Hq;BB\;J ITAK@lhA&̃h!%; |.E`xVl3hfw'gzǷqȧ';۫P/SUQӇQύ5WT}I00҂`*2DTxCÝYNBk7ŗtA=JTQ PaJ߸t[Z~>6&(rpWkx}3O"t[Im1VזH֎ҜD}~<&};b =ExN=4r#9. H!$-0+-3c4Z?iZG-ܒ0cdoTʢևUiJ?|A׬2RV&K#ʆ/*!rqm4gC cF~U EO3FU<Ɵ ^G*Gk4.O@N>JK׾(-ǚ\Q+{_faOkGo<+I[/+}ײ!*UOb)e)֦ҟi%D6;}Ls*Ī*^hx\IFBxg#cA^[ øCFV5 T~=~>JX4tQvrU2~(QD=dXGx,zʡbiىtl<&mL{>?ϝkW3螳0L& B1M(ry^Cѥq 3)/VA6TdB'?ݾґ4v[#-]l32 ;YhԄk@9w[/mw%4UvF ɴ =v2c=lWXc4 ԕU@Գo=Ypė>PQ4$Ɂvj[m,|QZ~RRʎ NjpinǢ5 f#F+9R9H縰qXO0$opݷאc?faÛzuIA|_BN0Ie{f]Y1MSyl^,]RV͜WXLTG.o77#!۰'* ?i|KzO/}6GpF7NWDOs 9Eڄ&MM^V(~&iox|T3[dёyOaԢ-YEV^AWF֎Op""*8BCTe<fmBVW9,b1J_EK0d 7_x~3-lTv&1s@F`uX:ggGU1HTZu(rIشSa2S(5qS/u_;렐sŪ0`-Erg!(jUDb9AbVwؑv\E-]8rxoV6D"Nplj0e:]!TxZln Z@%EKc3Yf»b3=0*7}H*7\:Q Xu8g>0˫9(1<#gs7=0U N0kD@xW𓔭rxA![iԸڐ"e';30qs*s]vfN((&Ki!Z\W}'Er(ϫK{5 @HT:0W!)5XSrf† D-d0yjτ6xjߗTLۋ * sX2t'!ŒY4 bBNRjXuP?z.2t@͖I58TYҁj 2M|} H4$%G6$%>"l9l-9(la mwց'Bg dw3V ?5_ W?=_͗Rw*BF,:w_M"NeS5F)+wqH!{ND4xo}noatmwFdͳSipH!98`(y )RӔ{mYAɔ™@zꥅc B]v^i2.4+ H<-r-y. ~3g7CTAUt^B5ylxɽ/Un_;8P]/XobB5LQZ}C}oh'\v$ȡ6mhnbt 牌W nX[T7r>ZGItBXcgy{<G#G^vM'H4C W+8ODl}~|_:Z+c1%2m}[MնZAhɶ RާȀ'b`iȦݰn@b2JԺKyQl9̐h;'8ﵫ'YM3g]7__3vAl9 aUiRyKd +oњ#b td1[pĈ@9f u8c\'5C1S_IrvclAiml"$3j_١ 6jSsS؊7= ,k҄zƱ*mN w81TQʇa;C?Te[hq FADhq,/i ظ"er8U跶U N0@!?F %n(wtR:4b˥ <~HȑxW.Zq 6C8A:[vѿ0[OU &B6$T L\ED: NlY9;[b&t.o\eկ5:#`Tѓ0w懆M^4LeB )e6V%O`|%<5+ԵA!U-V =4 Ї{wx8ayocH䮩 z?)~XNn1'1 -G$ !<"zƤXWbx6RED&,)˱ϔ{4X e*5UP `>]4&%eS%"y~^B]Η`[zs;cQvّ(:_6'#N:K~[cI5ihvKDŽ/:}pHPAL3_rߕՈmI^P&L5nD, 6hYm*#U^"vXE"CQ,Z[Uu~{k?}* f]+JlUAWݽ( Pr/EJ `~ʚ<{IrCMd,hI[4ƜX3syZSnBȪ)hIH6Nu-EU[sI2U4ҡhE8ovy,1sL`Rv9=y6>n #-K䭛t^ -cEB(V.{;tj3uԘ3?4 ū|x+L,Oǚ;k9F+X.=6C3KS322 |8ciOСCV^렑;E|>w% I A:a`-Fђ13Rߎ zCoH[wS$_xah%[Y8"Yʹn&dYv J62+3pBnj&f#ٍn 9c"9gAO F] ƣ J598 XӜH⡻$>IZFmP1/`6՗ΛA(oa^h$^wSoڲA"k(PZ\5= @ ^-CR v''kOo5{/\XF _:.-PV;d^_W4o5X,<#N} =+wugPKS XR 0APAs<x !(=C0×cO``<#64!ʙnڳ0*m'4V7#c%:?R;y<5,s+k=UfٔVZEP=tTc^PM+Z]P ۍ0bـ/~Q/DDsQ<[(r"8K\.-=Y.4?ŅB?i-G98XnÄ@EoA8{pT}Lv#R)$#^_M$yqN1ֻ wZ=z/)CtU*BЏ uz(fHZȈ)w[&*?h(:QP͒X˷ t!+@ZOqS E/߈ 'Sbfϛ{UZZۜm\>q3iӷRmT@ZվXGFP*;Buۋ$э߆cC"H|gAI^N!49@_wWo.g'áhy gU_/'G/ȁGiH.@ AĔOۡ^aԌu\Jx Yl}1ĎSҔ@CX5 w&_|oYUQkpGRQ'tF[-.%ŸL$}8w445f΀)T*5HIb1lq?)փϤvCtVQhOxH$g0SV&Uݝ2_Ag4' f?l[p Ck:ŀ"}`o:h( `dKsy P'{ !u YCP-Q/*P಄LS%:هyW "k*Pm"hDO4,@Z V|,rN xXttj\rs=ȉlޒ|r[EYGOF%\YE`"0K뫬GV)Y猖!5#̢ӷj.]_\y%<(P@xI"1 k_-p|t Np;d){>ƫI nIYqB'tf~;\^MJ\[isze4kV;VjLյ60r 9;HĹ V[5m NJn1W!Q"n+}pX?tˌmv( -eO@ 5{ Z0o^PUsF,A,?QӸ朊=mUX1”.IQp `UtlZxj{+] Qȳ読_:i]LO*= r lSm: K5=g}H@}w "tPy\*Ny,z*~AאږrpQtǼBU?0(+)[' ;8 o:傕 HjkgЌ%-[cJEB[. ESWQw5icId]qxR)N_,B$hM j$@VCF_{5Z 񃳴ޚᗻIƱʵQP.=vb&=Z\Ugr'|7!*/]Pw<28/L, H;#F3^Y眝<ɩXTP]3o1q%] m"!VW;WQi&j貨? z'{⼂wcK6͝Ych?vB'GV!=u}j|&WHzϸVҷm%{)9 'fA:SAsΤt1xr٠rN{#ث3NiD!ڞVUшE]dav` #8f1!T+emsA2vMǏa8VV. M 6W $N2[cp ܄_oTk֚W~Lj=կhkTo7-7fIx`\NLcGc;?m9 ~W;'U%^=a['d"7 c%{-ib("KV K '`ZQ@ 0UؤVݹY#;;?> W?gtz.?'s@_uc.w RzL4ʥ919dElqZ:n 7V')|1v)T|i:-$65RoNvz$41E zpMQ3- #QVJPۚqOªi:ER0~LAyq ?N,5v7++x76hj}X#ݓ,r0M*.H9ǞG.qtwgl J2YcJLB]} !lho{&++*Y&+JTJO:GU锽8yF+4R8DͤShz309I-% 㒗f7Zo_  mRZ3yy " V YhaD`>y}G+]l 50R"8 'pggTruCHSJ}AH O9; 'B@XZ3kCkg0w a)36Wv/>ں&[^XAz+g|΀Á4Oa +MutH`?xN Q}D2 A)â%GhibχP0LJXKmvs}XOZƢv`ER{~_ٝ?ve\M 3"X15gb5϶t rqӢA2YV4<=15HY㛀B}r.s\- q8YJ.'G ] OH/,W t :WDq?75 |V)i>hNk7mQPn]WqJ4 I\3ϕ Xb6V1:&C%~t8r7{XSFu2AW/*#g^8X#FG %Mݕt6f _ ֮Vk@[nTC/կP'q7'KEiC ~]rC]6c9es橻)'iezV)[W9&X \b<߃$ગtЕqrs >̵§%c~GKXg kŚ&! DHavqw$.!;e ]~Z.!9}=I OX7]½~ 껜AC];[3" i^d` jQF4D 8 xQ` x9=eg]GofC}-m9 -#RfpwasVYV s6KvQTk_6P`w ґyl&a$nDM\pݷiY5@Rp+>5ˏZ/Z( &*6wFz(p\|5;sIlA炱-GC}:z]-b$yx퐫Щt[|4@Z"AQpveX;L-:}"9}ęq{ paŝ1! by6j~}q'"orF]r1w^K8W븦MLa~siȥ-2Vzٿ0gcQQx@RiuK)P>Z!zæӳ^KrkDMB$\Z)NNSm:4Q'C=Ei]㚒f Q,p1|Xz -@0"'!Yk2ww Iwf"[Ռ0c #b<7VZBMŁܶ"? 8[xL>-1O==yW/_3_.! qGEb U% 5Pʤ'wY to9;S(B耷8,2pxvvq'wݼ [pp 7A% e][-B7aIוLjw-!BWdG`g*XߓP]-k&wX͘p.^ͽvLL$ @pV&oO6e8+{D&nͪ$5p]h4 Hes+xA ׷}J!Je~KiPN24e@W)i"\qKւ{w^갇'T@H.3 B#k{,^#Yuֆ\_+~Gi 4%⛯DSnGؖធub2)p6r$VV1ٖéW0$Y_s=U?Eg@sJf,mCVfFĺ^!ΒFLw[FtIWZTAM%B&"PYJ$Gm`P&31_fnbb%<~)}A.Sس3I=7Ď~#x1|Ppz{uRBOϰG.)s>٢S;ffkDPXas4W53nC6^JџM!YgBd ƕ==?. .m: 0Rm6JVL?z:B59UCB*luzK _Ab%)(vܟf z*Cnsf7 VcS:~RiPwڻw̒P^hJK3隚b8"h)ki*i xSs N_+\Vvh4@Kliy<(5\*z*2H]qySneT*QX?BY|wq{B! vWչb5Gf78XQ Tcy M;ylڡ0X:"o؂^z[ޑEgkˉo\:*_@VsxJ[k.#,r=0\67!(Z[+xGVӁ~S*AbA"Eb2x2y_%Ü*$YS |$}Odhן8,P{ ^z*+O.7i#,dfy~A>=֮<Q9x9"zc7dh=QDƽ*|T܍07FT(Q5(_uɝ20Y:cͱ4+=J/Ϣ׍(-w>F\ǔL Z^;]. x4Ѿ-%1DCEH[oڝlQT*˛R:y?Ćٱk|A"RRF599%O(%}AM׳+!iySNRr Ѻi#jvc`' S3 (^^DyjaxJc059Cw,`.ۍOMuFEd]BninÑe}ze媫R>b?tAM;S 6n<۔&^OnkO0z_}pU7\+'+Z5)P #IJ\KY9%M.1J~ ;xj2&u6'{F;-: +0R4Q$d)ܳb/Yf:4 řHjі;T:xewX)ԙmszPaϰ(Đ+5/0ʾPO^m:cGY-?#8gnf;jrc [^W3HeU[,#gh?UA%MC3Ok-ZCDZQ4A:a̵} 0۷5'|sEA|Þ*{ 7x +=oY?wbG?CO98bXe@HF~%9&uo[Ig\)zy e8#A/ݬqX5N=}h/; =B D6;H}^"PC= 1 ߁$m7Ќtq U":Rx5/fm{dqk^] cU_T k):I4PN<@F6V۵(|-j[TQ IZ8 lrHttgi dZBl6 J?" Wyb(L;9c*z! vj >۾%<6Ԅ2hrndHXi(xj\  }gqo-ԹdZ{FE"˵9y,V4NZۖfDq)iecf: tE$?qLSzxvc B#Lf%f~]8ᧇӛ!W>z"d%ܧOsIOg;64$%Uku9eF 𽈷NciqL;>mU3ᛎcd41ntz^}WݡtӲ;k 3@CZM=^@t [ `ÇoToc^9 ̴;wq'ݨLFh$.uؼ/kj03_ڨr?*Y>L`I~Ay("[G}(^ÍFb9XwrTz""hKʮ̻1gGg1m&$y}K7iR]/F+:N&yৃ~OS!~ 1m\4߷#_qAI_p-h )Qdc!j%jnIv^qĆL$`bLUr{ "߅ jl&l8L9{nfI0$gU9ܑ/W _ؓɩFBh·An>Y18sEճVKM/yq`XӐC_-%PB r;T Tcb>aEBM$CEhQ?[tR,>QQҜM@4m9CAM{m;q'F&zEǦѷgD(ItX~ *8~U/sܶfK?:g 3xH;1 >!gB*A:qMt*2HAژw ˂ /y-W{Ν8DŽ2zgfUݥdLibF;Jt=G$l(L盝.1~&O@:EK+W/ q#;EŸ$g؄1**wcv+̀J$7^~PbS8K,!Ny\egnzp7#+VpC"F]'J Zg/SK]+js Aj$5x] .O R"4e;vJ|ת]N bhyXnv ͌@ u$}Xj|i!<{ ƒMnZO_Z_cظTY2ȴL.{$UChTC(さECc2Cq7\z3|ޣiEo:81&+|Yozg;)]YDMM4P$۶!9hWILOtQXx}&+.[e/*!vb|rQj r_iH~.d) 9.`Nւv 6UG6vq!3<[oz!Ĉ.ܫhI6aE ߭Dxm*^{{U_ ʊsw~ORHNt?zOáu<2USg) -OJs=%9:Q볮Q[ 7yi ̿/ԳULA,U+͒Bɏ\PPF NÚNX"#g>C).,U%^ w!BUB&YҚcr,ӌ=L\5Tȝh ;m./R;~N0b%ɢu*YL5"-K+6 e$w`/XbZBMZ\9 ( =ۜp*|V7,K_,t@vM٪n=Yk{xAOSA~J+%/(M!IgE苔 vLA>B7"A2':*qBT4EI*.V,1-G|/? Eil㾳SW/vZ꒗"2:|xʙ#uc \e;ɟpG_;RZ/s:Ce0Ҵ&Fk|FK7~—`aԊPSZ}8Ɠzw >`{?Ra>=$37T6\99zl?]"=O| aQƆH{qY&hx$Nr Y![<ر"{*HpntZ4xK*&AʠKuUjoj@D0kϦ'-!0Ët9VI0* PqͿi]n:mwfZCݧ+N%`#I!h( T7 LDM<b6Yq/ Gׅ 55X:🦖AX3' +j}ԕyEmȄ&Yz_hɚ|n3Q|cb ev\VD *?#&P!)i/4YaQA,8%I#LښӚ(mXDl݌p\RM,⮥la! RuI$aOc}%59vǪUd:X6uHHMΓwxLz'B"4ơ};%CE]$vyLjפƞr|ev8v: \@CXOJqNs%oJUԕen+FwpP> Bpi॑>Cm[ΖKY. 1XZ?Uɞ8 $I3O$uY8YZCV&qi:ʎU5=5pa$ϲ܊gdx_ivs;Cs@e v$j`]`!:5Thn!W=&V9[oUԲI1ݾeZ"@4N"tC4ޔ^PM"%K' 3XSՈDb 7N󋴖^$ɽkj,\n=!V1I@d61b6j̒[1s^tPL'K?>4gnY}A [`Rߜ5&\⠏DjQ8b&EVx@ (՛ȳ!’TsňeTBC2mbZk Q⣈s@o_#) -ݓ5P wz4Hp8E)F^~G|: KX7 sbk`w I\$|O?47 NĨq2@DsM@\Sj ՅQ?ӳ}ڨ8]xH Ƴ;bMߘ φ y%p߬ #~w]ϋ#єzM_]@0'cM5ұ/GDks`XYWmRuLD": MI!8"OQ 6;~ lAod7؅n>T%%?&gۖe6$4}bn3V)O}a'%G kO\%r1wAH-M)T7ine v, 3KnZe[8ɏWMx&{#uh+/qIO 3_҇ 3 X'6I6lTy;pc#:n6L'OW4`y)鈧v_䟈5ivs)' Ѥ\<Yv`9'r1^_vMɰ'sTAo Gb?@Kq{聉m'- a)C=1C$c(f|ί?oe_!{^bͿK3Yfu^KP|rqV"peV0MY:#-МcΟSTx8U;fe]@:>AR-%E8EV?] dN3  qf Zi}xwT7DG ׽m[tH V],իp7LVkd"5ísA5`݉MF~⵩MZ950 36ׄk]6o+}Lhm'uEQJ>S򴍣We|9׋^dFzK^M^7 %ZZm m^yWg0 vW.$`!. Уyjx4w]~ JӦQG"z'ybGAֿnsq|k#'u5\ʞS:a6(Ӛ3Jx.C.ü T3<:DKUsˊhw_|tFi%i,D[ #xg@g2LWwCU.clǨ0Q!fq5ő7$+m@L3'IU'XU&xsEl"Jj[-@!}띍.]h.·a[p'x`IdF[!|)FxAUhOɅԍ^`f *YnНISg5QS EtXgA??U,8U!.]soxO `ϞXaĞ_#I@@/q}S늚$zYO EL&lCxemp[. 2[R.9pF5TĔ>k}R {!s]Gb퉄)ʮ?9{'HҪP~ja<W])MScA֚3b3rD:As[O T6|nhwIH3}NJǟ# *`1r7BQރ ʓMٯUuaWaw& }4;> ,?s ;n-IU;"lf0pPƩT"Х_y5#ra7*^@ђ,k ߭]Qd,ן2=i |<+yoY79skgT*Eu5x=k-78#UT5>dM(7v,Ry]w+nO/J":2֩bѠNEq W]^qJQ4m5lר/1$i; WRm{]{3L"YB%-BE\ e3Sq|ZCZ? 3."S#zĄcsrBnA*4վ1E0~͓uK' EXwT?̿W.(<܍/KuP|[e)Jqwz ^.xJԧ W oxa+){];v}lZYQu8oj\\1s ܈ GC:PC !\^ Mb`M@#jë7qĭsjh7z*\q|kFk4JO԰CA gKe]yJV&A_Jq\Xx Ǡ -hxV/*K,8+ 7s== kzJ6?w@Gx*5}>2LBAiizc@[C ԓ w} 3c#,3(r{'° `HJqst~>ei{^ a˫UOvu\jՂDRlVbq_-*4r&%|#J4)d6'xLI /R6beCO"zpJ s#o&כfgp+c 3,4=]N۫yf*N@8#eC.>S%+LoDM ڤ+,";v(љz-",6:i>{h !{[{C d"A4s0"2\OQ|]Cϒv/"O/8T]V O^X(47ϼM6y]c_fgo%j'bru]$ͲuȹG<#$#9t y9 vj ˸Ij`F2[Rجߧ9#`{ןgcMwb nYyD؋TE~~&!XG;lKH~%" @+Qu`r}%ܜ/E:EǬ 33Lo[kP&9ֲp^e2*?R2ͅXl,!\ \dU$xT>Y\ݍ:O|ʓ=ûDǏٍ7-*KgXU<_Ѐ}>y2gY> T"٪ǫĘ +KeXx[7Ƀ J!86A8TnqEymFr@ V(C_stNGvNP`jTI,\$pRvA@kt!77qΙL$}n#נK9_[ra;ti"4^uncHC1ͱ fD.)^yp@֯i2?buXU`=Q@w64IJX$""AF1$Y0sAT{q{!߆5y%>ƧϛiB"_)uPc S?R`&7ݛwf[Wqvѱ1BJ%j(opNw.{fOYeԀ KX`yYP˩)l6`Ls;5){|/TWՏ+Zd]bPAKO 14xP$b9VK:Y^"{( 3bI|և;<Ǩs_鎙DoQғpZfF OppgTMyGڽ8kTC|Uv[vS;F^Rꑃ+k.+m=XILn7?T?{8콗Xt4WnYp%4QW)Y eH8FR5fE\B]H|c5?v5K:45X'Ie1؇jƏbY}i]f] !&!GpƓLa+`^eȽ1A\rX8zX@[2fڑg@N^6s\4j9tbңN"rѪ*a*ןɁ WQ\8 V}l.J$zCdmI* B4L62ՠ#2'ͭ~eKndڞfޫ{/W=8xg#q,e8QnIV#f,ƖV] M*T}J.f)Ek<س0.T)eE B[7us~1dfjVf1x2o~}E~hjWgj%}<54j~B ŕ{ 9y$* ♃ ZO0*SS$7 ;6g2T]k'FúD{ݶz71.kg]$aR_ ?V̧_;go2h}4AV&dN5%|T[IX_nT"Ru&^h(phL.ǔ@bɹC`*.IoȠtz.(GT ɓ'q_c0pM-' 8¡doN$D{|[3dr588Gp@@Y -R*؈ΐ :?yvɻE|^A {^tL$, ;26"~2 .)yb'U-y6]"l55MILFW+E 3?%Gih\-`&X:qNpg/lnشWbކx&A֯jl1=ڜQ6;t׏Y3핞ׂg>Y0F0A*4$)t)_FlM)#+yaEYG'SJ RLW1e@ߠEuNC))\9y4Y U]lBDYgwn pq%5l Z6(L{M?|mLvŭjyCwy1*P&nDc};EKluҪf?Q+}rΆhI088Tt= 6*}WwN*114tu#>g GyPH%4kjp((|3)!ۭG|I &_!CJ]!Ta\N֩Ltp@eO3?qqKE/=# ,Q󼚁h%)]t2óE.P bN~,&ZmJ1A-({uw1@z^LC]hUJLdaZcbILE4jAV/lqvGH~T'7^rSzH-],FFT %d(Dv=M9/=Eh^`i!!6n.f-s,U5ISpjzb" _9}HQxu \JNr7F"3Ϗ^}%Ts`PHmX6xc% Ν@,Cژ?rN?(vHFTaSr|O%\(&j(2Vfrf~~vKl-_TAekodרO;n}VVoR ee9Gp8EXj_D峵O(g!R^O#b;e1~\8YdfwJ-"(u$pXp(0r8G{%df]:*;ŤFF#{-ɧY@_٫erQ.-vRt_p[*\91BcԎ Oe3K6Y*. liZ]6Җ~w%z>PubTܢkշKhAaNN oJL[d9{ v {"IcPd>K1G?rRD@lcIO~ jQmf=+ Rd4ۧ }m<eAS'&D#.0l^*m~QswݏaD߃D4-a4$?yf籇w Ȋ>Hyy$eJg67KNSƣrM #a=o{^ֺl n` f!3.|ޞ+Gj, -<\iWePM5d/o($h(_`Ug5 !aNm$_MAS\T.g·,odYV=& WҾ:FՒ*KM ˬl\ʪ>ӀvL?f2-,oQyt,+-MKWk0ͨ;!Cub籹[R_ ~AX qm!۫0O3U,kU}^r'Vlw,(,%f n#T2Y@`# ^;P!=ae#_7h}Uw?(uݢa~s* B+sŇ×yE/V14~O5:,(@94V$.=C}D(~n2c_g8rר& ?6lt9wC-<{C)Yl(:b/ P!>?9m⇪T\+xE4_엧|h $l5"g%irVx/QxӖC|8M f񖃚Ib֋!,L V3Cњ:XI_g_..deW͘z.w|E_}$=l Kλ 1m԰,M1WnkC&QBKTfۡsh"|ER2z1dB{wz҆2g3ȓꮶF XRSL6Vt 7;m;j[ McA ].g./&PK:oPkKEXIKzfӵ~QD Vr0W8C+3M 5sg3[y6iM >ok1t7;No%CZmEq?3bM5ӤO3Y_g9VwYY?ih\/z Vs=?gI"bS:&lpH_s^˲kA ͊l#㶒!)M֚%"ѡ8Eg\ .H h?[p*mq¤a4&;u/Er8t)͔`̪b ȇI|/bc_Ճ%eFؠwwTҸkU Udڲ65d"+[;9[y_2Q;EuGnF4DI=۵NGa*% @_"_<9CTxEL'G8G$BR%XZ2]߹NR4.дHkySm+H3W1RͽM wGܖ Ҵ5cli+Pd`&bD1]njv6q(ƫY _n"Ս嫓̍x)/`]̋c(A]ʫIzק& ,! _9'PZNjsk%- ?XZR~"5KNcyAd3 ]_X'r IbyTNOګQ(k<7$KiYr+xa >Em\ӏ0iAwi̅U>E>̱7ߟ(=ݏ?=X8@EdQ=}]BaL Ȃ> ZU~&""yIdrl:QY]m`Q9k3 B#ϳBVH8-j){TkGQgxDտYѡJLͥO_ Q|XլCĊq j+oQ D^f!uRGqTN5AI|mgg΂MRÝ >7*0[&WgM h!6K_E>͖l14쯄UKmI1C@?Uu{b瘈} ECt|6bG!^,>L'Q 2o#˞w&Z%h^yEТA铃b%9hzykۈ#%[_iHZ= a_)-^3Doʽ5Kdקv,;R[vf?<dDhOU9+O &fs%b98m$m2SϾLf'9 mq:_m& I]JR$65ZO",JFŝ#̏IIB•.-$XFўTG|/~w2,Q>H&eP:%G)dڑ]i0kBkPܫE47<$pw}Z Q?N$Ϸ:3݊jv+\n|GN&s6Jtx/X{`}.dMyߩ{m VN΋  cg|iSlRN*D}DKbwg'H7f>vɤ[^;r&i{ 'ax(,֏c: kcEuXFʞ6&kcB?]& *0[_.)T|M^ُXUW~ٔJe C!bdr $c=(S #a8%L=o6־'7`ȺhILcF) %\?t$|d])؃|N MP2xr')H)6Jƥ܊7_?KbEcCUw"5DV%qe3 "Vh7;bM/$|i)e'-WfT^53{ɛ###^YmXiCܛ@(=xDZtKeNBe S8aj| JO2.T/ByG)jոLlJ╨"[38wFx*@Ydvh<?p^zsduȨ09bL󣔣u^Y<|Y52:#w+;e߭#Lؿ[Sڵ~gVpDIJ}Sx LL*A}aqCXP]:^`u *Qm B͠[z& Z9?aO\#ARjݶn qAz6;'7=>{c[u\T&s~L6_ի=R/|)ǖ"`DT_|E`V@kfvJ4F5ZqcW"9jl&iBn=Ls䐾9'c*c uJt|&woU/EgL!xZUыt0H HV"+9pE` 5) .,n[3CH,n\rB r1n. ?$"4@%M#C (&71cCM~WbU]_6' " IO ^M.Y.K%'Byu@lʡ=Kإ}0DG(~:(B(&aDql+W{pwk W) *ҋۤ0Wтc>QDF>- & Uf(I8Q0{%$PZzX6<}Y*}b.=~R+CMU D.%d!@X)р𾤆b ib̭n~~_YӞC'01>H*o|]ǔmCgԄ!w_O7@eo?kkH1bRpga\,%W]#cZnRyȫrτ)(g†o#Hedg[m-!sfLF2$7՜sY?,@o bq|xB.;D[G9-Й0f|mYt?QX l2~8]rk%M5/Hs묵x. { y/Hkۃt4JJh[/z+3so wx*W&o>rIjѻHwv 29YR|ťjcfNwi_ CzZ2C 7&@R؝=hiO "❆QfP$:tr(–9NĖG;gfM Mr ȏff*=/A"%,ĈlY@A8>5%џ9?1Q_D b T Juńyf4kKb=/ t7q475=ёbN%pb@-SĄ6C')Aa04@QA8Wh4vpaWRt"~* b #/qcO;Pґ)N6;cPHK&enZә~w^LKoAbECXAc?8& }X{8V) 94:ӽ$$u]M -s^pJ-oc dRl^%R1~)1UQ,W RxblKT6V*WsiId5*=#s͝. 4&}rDŽj9PMan篃{cDVٞJ1Ph(@m#Pp>;IJIVfV2jz>IUqAO ,S]ˡwYQnʺ24&.ǀmI=D|qҲcaBP8sPQ2p{׈΃h֢$]9ƑIvDjH;f$õ62!|\nvuȭ5aԜ\bɝ(q5&Cx͟¢HLc%-Mv/k}_Iʘ;pϮT AlyWrLӉ:=*yN8K{Th]x$T_bRIe+z0T,.7m¦7UX(UQpԶiZe)HsY%U&`&`2ӫdWX[~3vpHYzVQ-H36Lxr2n:EX{)~)mP8Pc-j; <8uDSŰVM 2W2(rVHC¯MJ^(?kac7Q=L6OoWf0 SG\hЫEXb2X!ec!M[Fz2(1w -s5i c?8^PaV`B( ũX]A#j^i hX0%e1E4eZ;w\&#SI;PKL}0{XA.x4`ڨ&Isq+/ $TjN%TmF)83&j MC˻r>@i_.@4w+s@mrpnJ6Q6?{zg{Nr"ѱ\]JNZ{o]I/ϰ; -S̴j /ӑ}܉| !jsxoNPq2B⥌Y;&|6p>edž ,ih9$ǃ hmhѤ9pbPuݫM.ٴ󈀷a,{o=m~ 'Z_j s~ x'7Gs9/҇/hg?V^Y εDT83Ѻok-led#D't C$WEl͑]r2@Taa"خs%0U(.FsPh]n CGahRbt뇌=5Bx 4kXW=n &hd̫i5^`~j6Zq{\G#"qK⡗z=~Cޑ1/@}uK&UCWߋ&^pH! s6rm)6?6y: HGV0M~e4%}f=觧p1w;i2r&݅KftKjB!]v(d%k6CV֢ϊ/L{b{:NL-6B )>}`-fAuN@`:s] Iҟ'/kg)< ٟ+ :50'Wr7$TInUC#|_4˔)& uhm>, ,sP{@}݊UM6_Dk1[Cw?K9$TL# ;ha~KgsuS_l~4YN!WCj!ˍC*d/4P'U_1?A"\ 3llԥ >%ZYĕ9.f햙w&BH% j &zFj0mP6YT3`>;Cr$V Drb׾Z w F%q} yY--tg!Q%.HC،d]?^LB!㰜J~7Ya]Ե97 \<:2^_;]esC5˒ݵD<ĹU|?В$7ؾ&/:2zM- `2%kNUr|[#^zzA@>.k>m :K- 5MXy9 GtAX׼K0ڐ;}J#HaeOIgQp('t-'6ňAs5LSL`OyW m&{&PR+0/ͩ-R |[v,Kb6$I.›'u~${x6Rv:SH]\ix|!:k\nEkUw4e,W9RQ]g_U9o9ؙ)1 t0Bb%nc3|'|M6(2۳$Jߡ[Zp15B{K>" Qf:OUWK-t뇾]Xr4?TC%1"!aY.3w$P@4k  npFah_4S\dx724n*AvLuYN~~p2Q8|VρaG4N>n]zjp8PI3SoR R|ytUn$EU|j8O`OaG͓XlZPs$pB*?zNipRG_}Aid i jc<_EzV8o­|Z~?>uLHW~:}be|j t(0.]Ӊw7{9^zvxl:%?|f?޾(Ө "h7GvC3rM5AAKPCp-ͺ* ~Q p crwoqzjWyRvSVu?m7R*3X8 V3PGуM*"oًX$iǻcXНW :-\mN6 0>Z S:PWv,o DOH 7%VPULߍ>g^tL_cἩ̑O86-EM[]B~' e%OPn.Qnf2b<~ACPx)n';W#q'Tp\MQx%݆q z QJ/vԠT>-|:]<݉jpY&x&rBtӣ*ύæ_zغe'ى-lk?fٟçqxQ dBaȲ6`_wqk%Zl4tA*OmM{|y4ެٕrCYUy(Yi:pڲ̞0G(5Cwd\<(m篌}Y}2n1.54[!ViMY $EY=9 er!v@m2:DaUX}ɖS Gy1EHoN_pN|/x"8[?Eǻ  f9(98XZBf?zLOمhSj&$w={cS_8`ap+_n)tFۻSH>[ kDce%N#ؘPPDB㷪7f t_fy(-1~[.D2sQw%FPWtײ6XԤ>^gT49%T я1G) 1:+p1INZFuMfV k VD6Ay㜷:y¹U{}'FB0c #dUF޶ゃ^},sgUF8Q:ⴴ[AV:Jxi&}"`7ܚuc3٦  ]l2+' M[cCL,{sIWJ>8ek72cG. AjBg[u͆ӍN $R@Z$<Ҍ9s,;of8bb?ѾQ,1` He6iZ% ڐwkAH '{*hH-*˦7re&GF= 854hi9%q\d[o7D(5񹁞5 ?ȫ5ځ'ͼŇƛHT`z~_,1YL]$mjRs̩(𤲶0*6m\qGK\!D:~p=ƪnΡD}އb)fqvB'Q+}6:D>ޒrW.?bj#Cc2k)ֽa}J!"(n{D]̴ C!&| ^};ݵC+2a-[^d4hC@Ei?!34y%A88kUm;BuP\ʴrn^灬ikl%vovmذl)v駫A6T_ xځ$Yn<@mlmw&8f*E}n:P?}Đ[Պ_E_6%݈/WףLxճH쁢g J'D@d\o4emApw+؍K79JM#3k~ g]s@NR{e֩raΪ;yxQ-s`4SSlHN&rOvNトwqkm? n pzl2T)fHH 7!yc?=g{ T 39 ε#/(P:{h +'.t/A&i9=vK. (lI|0_W95UGc븂O3§-= fڏ }P2cѹTDDY˴x *) /~޲Ŗ 0J 1<.Ś-a1Y~u@YcE#ݫQRzeV wcX%HpAvX f=PXOoyf6s:l]"BwwMv'+`mh'qxPDm_&-tNA-e۠OnBi`#o= X涞Z6{_=/CYrֳ,s;\yx{PZjs6]Ꮱ~$ @zDrP8x[bp>`pL$-qr]?mp^qi:JFs{<xFU=+}M)P_#0r0P B/;u=95sBѧ*˻}CZx_=$;A&M"]ɟ#P4 #pR{{T("I2Q>}R|͂\l͹<1NڂeZ#~RB); k$ֲ.`aΕ |T*&G07la1K+RO]:}Y-;$.dGFJL_5ԉ!m'/es<޳K5/&1t$IipV&p깖SM$zl̰MK^*@oƆyC ^ţY"h{'+fFiGۭn%/+.6nN8نLK֮4V6ШKM^HV4Vp} hа1`CxhӗYyJY <rݡo\i Ԁ-;BC@Lu:Vc:lK^l6kE$Ȉ%#O Og_ FR2јc[rp պ`vDEbZY%?;#krEg4Fyw|o<]BZ6 ;C/joЙf:C9r*h9`n0b!$(nwJF(,g cس?d4/B>va*E/|n_$]@ӊw1F˔U]m/4;A(U^O(`ܭNZreօnyPeI)s`eJ"q+y~tH u >>H'Qb~ܾvnK߾:A.uG6vN#;t$(%"k%#2)ʤ2=ԧퟘa4 ٩I?!k(u}RڰjaPϐu!qUlV5ez*ěn ÏNFX5TP3lKU:>Iғ@f%1wfXX-J4$dM1p2{3{{%Bd$5=l'2Q.̟rD$a菵֢iqx|V~|A.K8֓iESRn<69-XDAYm!Y+bG@ 2KXUgO)meoa#!d^"錣,wȩa0e S;j&N~-2<^0y H3P >%&]4NA. +4Y !)%\9uLkyňYCk/x2@_`񞣱X/;8Qm zxAYXP3ɱX찭ϋ%W:c$ $M9[M4KǕ\%G= u.s7 ЧvKgn'o:6 T+Bx'5%-VL\X@/yLJ"l(D@,yl ~s \T#AԞ{-ݮ (UEBÑ'HSp ݸc+ p]ɥaM2@av {FKV7Qylќg:L&'ŹP4,FJvWF-2`q5GK]:,{Q=ojD]e_8y~֙B# Wsݻ ZqbV\H\T杻QFTD\4 kzl9]`?@F[MzdF'-H^u4>pԉjM40kOMNpwwu#k:Dqc:gi+,Ax@Ƶړ;(X% 8p)'@fIvI%IZNHMetgת5+!V:z53E2@IL#֋pk?byC_gs̘mm1H|9V"#uV6[6~Ȗ4s$rz 9i{Rc?}ZjWFDP74l&PHE*4"FL!j_hǾT8-(|@Lw`Ôhb'%Q C?o<Ev~1W{;Wh-o5@g(x5Q KoGptr21O 8ULX)NK":JH)5GK nE؝ *o[j:OEs\uϧ 7jڄ3C#`?'#1 hD8LW̃EM8;;WIvC KzFLn$HClFiCtGA 9`CD= T" iOI<>~{"; [ohC?*mae?<.* i<{p %l "d1Pl)Ʒ!׎OUP^'V16p&0E\tm)OJ-NMM$4ye:H \-ԵG|K,z$ 8hPKm^98q#p"m1֍1nt*gn thd181W= \1*wD!UD(nBIl ६F*W(HO4R ed?ULp*_`+W KV21=w6RȄ+hGg}C@΍}*ae>.' ?3O "Zc0Zau'υ2K}#fޖ0fwqG,Nˏ=Id4D:_%x}<^K?+Ҙ%J5l9\RF!{ 105A.pE/(&V<ϭNS] MKߥ E1+yr07.([̎Sh Fd6%?ٗJN) In*nȤ] ~?h#>S{Cq=WKC_֟z"'vrA*Gvq2ڇTZC&8cF(-K36$eZ^ydDKu-Ѩ bC#=N- =ؙ|)ΜȪQKӵފ@:#0*Q3H:Ǣ"rCW\` =0e_ӣ%JqPaH½.9 K#V"w(8Jw7&ec"ZM&^^Z UV/Gyj|KCXK|SjW܄ZqL -蹋zu\KNEsyO_3gsZ,MYvvG\ 4jg<¨AmAEs =n6mG1N2SVn× "=c*$aϚ(׶wrqݜ@Bx޷lig_2&3IM( Fۇ9>6ehfդ3 XtAn^E6Vlou9pbO6IQg7Ƿ5i?W!<[3]_?#:ns[+@@^I`A浻ښ~uf5S> ?ShA2ŷS5,up`*tg!pb&Kܯwʑ35NbiG!N{Ɲ|n5m9-f#BФXPxfpNP&1mw6DGA[f\5XhSk.Ng)a*>f" Ri-xTAݘy;JIE Xw]Wf"@zGhA]g*ёUzP ޗF1~IaG L6U\Bh2b ]Els[<ӡ<'_+ն'W;Bc5F5L$xZε Z}@wv^+:l23fwV"+_EX=sC5i4$5e7|T KAKt3J*#l~=qdMWǬ ;X2P "#Axg:+t!-'+D<6*)bf9º9aHdX`18*)vAtEfpy\({·iQ!{Q760SP"UܫޱéC&DVehTC|VcS۳aZ"cJ1~;x)[yv̥qph̚Q}TX2Q/F=.T^&KG5=1C@jRtԵSc0j5#&w4/lݡ S;jkX/WmVt)mu>Q@7#4]Zϣ#lCYzp Svgކ 3Ga}zgkzݤN&C-_(C4dOq\vai%+/zա-8#)Њ". :qܑS J ][ xX_wm af¯ZJ+p^S=J$%jw vJ;q_sQ;JaAR.Z% SK]9:I k`[/Jj?дVͬzn\[ʪ* ѰFWt[ AȠ5s^=X;N@Mpa1h:SM凘ܾN5>rFv0a퀻-ڏ5 ESSZQhL\鼎/@O>8:%)QP#2[=Tn_m>2„]}@a 3]%~ u8]?7F(o<3R 5uaʅzQ 7NֳBK/1.((-g%p?*!g*H6Ͻ^ H;%_n/KE݋ 3&p᭯"T?0zm <;ʵp0Yܟ"E K]ltEH<dFV9,Rhk!ő06zԞ!:0B:Bji$ޗðiNa#}0O4WbSN#eQOWd5J4c-TS#d.ax8״/Z9}_VPb!47ǙT`2`ݺh$cbU4ܞj͟Do^բPƶ5qMs4յ{mܟՄZS6 ZBLC3< :T64Z`uZ"fkɦyKѯ  ܫʛR~%G3uXѿr]XqzIlK S9=|0=sIϊP%(Z9:oA>{BźSl!9!:Q18D,:?],-hO+-/p0 :\+lA}lAZPia׷lCwd@Vɚ8W[\'{͜H?̈{0hkpĦv>Hc~qM>X\d̩ªyҔ:=m:?NDy򪓁jh?B$O r 0Ky3|zs CQ PކS'3Nt*#vN\ɔ,uc-ܖyN3gؕHtOI~ :J>g7ZH]=%Xr'JWg{B$Ӻ]殞$CnծC1 zq,aXZdڞU?f{Wti-ώۀ.AWu$YŽ*jEC>J& *vCpzV t<&Cy C3IF֏!7 8}m z--.S`v)qDpLs/+0a1> wFL?3Jk8¿n{tVxf'n{V {  /+x~Kfc8``}oq͓?}qǍ ":]mYTCY aA@Agu%O-Rd8 tRpG'@8-VY{%+#Qks驇lPm %dke!+{gDG+uFF}<'WЂz##G_BB CZVߝ/Q1V]t\%DC=~q䗼02@Pi&RRhy t% {CUmCW75\qnaljSt&[ڠP7HL|n3r͍CNNz 5XbڪffH 5U5BKl3[ O<@LT(>C4/<w#Ao]? @ ÜfD -T4׉zT0sϗIQ63D@?^3v*N144J{GU^Utxži!\H7zy}!?$C{/],ijaHK 5G5Ezcw`ODmꂕ:NM-fެbH?Ն׼K-^ |&%ԩby ކ qunXi8`\bu0 }5g)&*$ֱ)'~:гUTkSVhIGv؆X}>VkM]<1ȲڗT<ۇkD5MdJEa4 װT/BdWlz Rkm]iu_ >Ƞ~+u^Q9䠧A#Kj4H.8^|ʩFw^Hl#}m0-v5Yfg{:NL}͑!8JK 2=H1I"}r?PFapIxWBiFx=1o~" (9>hБ)3z?򻆖'0E;55Mw,g&4v|m(^Uk)NbP9s$݉6BٛoM2˨EyN6@p|lI $^y?,sGԍN̨&Ѽ2'bJz ïe֖@b/<굺5꯮uN 96K( <}ӖNqqhٳB:<IP\H+ƼRe0p}h%1a)S # ETC7VkM]-x7c0M*G a'=P:<%cpp":kc͇DžSH+Er֙%.K]ŮDžߡ|Nm*݄W0EBLoQ娲&N+DKHxf\,kmcڽIGs$pH \ :UtbAϔYޤIOk`dEYfIj3K%Uɹ;DxNt\?^ï"n[Z >qS>{ Im릜/ 0Xn6h I%~+e'A0jS&MWK]&)|eX\W}^`Wӎ FpKL$߰wyRlul.Fw:yܳcRAr´Շi}bk̯׿LHNKLHOJw.mm&@_1JCb.g}I:Am*f  ;olCI$Ro94;]Mp/@ܛG?~:<,vCɚ1FƵ;w3{˭LQMq mO9ծl0=u<g>G [L*0^Qnef@{(Ήbxi{$Ealt¤/#w+.9 ! gg M*ԦbG ѻsU6ϣ5v0&ࣹP76tx&wJ!H @K2q1DPF9M|ыMM/ 풣I~F}ruFȆ}_=U9rJg\ TQdu^zYƑ!+5JpAmڝϚ>7@dwj`WcZu3Jն:+(mb%HzTM.H}x5|3aU~<\$?Հ,[Se}#=UawOO%B*;7h bpYXRVMIc[3ljM3\r >J63Ñ.h&hbV.DKkP{T!SR)!I--PZ-(4%k؋iMS,a{W)T,zSf5+n(, RNΝ)";7%3PSqBjOUM;~=dm' ,ACdSq=Lfһoc>V8x*{<:o\?K B-S*h¤"ە3qpU/_o[NmlݙRWI`YkkK5]>oZrkf(jsJ.;`1m4L85 󪰥OsB=pV':h P0@ucU'yČ{(( dᒹ)`c]t1/DfW=Bz4w#2T mwc PdpA;@}WD**Z)̲3 e/ϠI V|U1cK,fVQKE2MB53^*w(Sb=*  3K3k Kt=H =;U_BhDo栄mivǡ2BR"K0ɀ~ 'A;<$`h9 1u$?^'\.5D og-^v/3kUvּS5%̧KK& 4e/.;~R o'{z]j)xqgKŀâlz},ݹT#Ԃ1imUD8};G Oǡ.'aK ļF-'q oM0y}u Jɭhs-t`PK,U)|Rxίczs%Y,oS 7o_D^}487II2|Z~b 2u<{<5X'"]E`Shp(5$IY K33h(v71DNqk!E-gv)z;QLLEGAr4wڔK9|(.5Oo2es'0*aPxMO>e˛OJ \{_-SEǧ]aDdX3JSmCp|CK7-;1=}D&kzߑkM?6Ue+O9XŐ&v0(:PJsMԬYXpTbs~䔌_ 2z<.I6r/شnϚJ!s~>rպGF((ȵp@J::u(|LeqH8#u `ЅuT(]kEК:)x88RGaS5X\[nv{ p>Hșzξ: ]ntBN0$oM6 v7 Ġʙˢ:tKg9,fWjZh/욻JPs{2hZmruC] b6aԡE6Ek˓# ˘-iV8S̋m9CdN\,k5{]ld솅HX+ NfZ>+_rG]/JbN5>jqNA47D/*Ok!?45mo(e(-*]@У=2ucnL k-[0 rrfJ'>)Nδ%HJҐ&92qpɧt:c1?Ho=8YZbQfF$Q܏*}x DX$o^BPHvKB8N04໧ ˇzJ͉@/Ԡ~]GccD6dM]p !g ̔Y: 3jJ gX'(bSt}.]?9u6gݑAH5"iǧh}$ŒevūMˍ?nmhVvif"L@6>UrƑv9B?1 fov/L)cz\e] Km $Sg݁N,h, xU=tiC!aslW<sF atc<8v=-W N"/?%ٮ`Wu4tP Ij@;=$q `ÔPï3x$?"%jRoƈy!epRcϹf6T^IN# rlШӥ,0wu}qmDГ4;ӍkkԼ-w/wP \ g^įI^ϱG`͞+8~`;\ ZA˰aY QGW!;aI2`T'3* <7 ܘkqCU`7[jsoҿ?f҉ ErxD']u0 ̼((Vumfۍ;RO-c1XgYejSRwE5v>%cKJ=?ur\H0P&Z@u&ŅsS0=\ǧynՁl0A›"`ritx0S, gӞ"@+hj-E;d_.RTn,:eE j%#XFĩ#3׮?sO:+c3fQ516f:oWZUGZآc*)0[B9u[Ѽ6+,:GX//1x,iB+4Mj.\s:KH|6RDNksW%}EQ2#/_]޴xw['&8X~W69NPŸ.:VfA|o~1`*pNZ5";NYlsw_tp:BkhMlpF>E ;]w ꜬޑbgZ"CM,zAc/K$U|lh/?K(+)dd,~iF7z3,r-w/]ke?{A॔^1 GipnYm' {~YEY9?,vwIM~v8gRhi5Zח6BsxoT?%hnM~g )A|saB_sW-E_caC"qi$34lFx0 VT>$vgyܥ#v?5SguMjtBw_z*ĵ"wP8fP?PXj: +Z5Ϸ"'a[iT-ʖ{ 3Tâz-k0T(KД|{&ptd{F hAQ~LH**>-JَkEI"LHg9E67sF0ZߵпT*Sc|s[+{9_SI wgS٦BCpc% =EPt=) ʜX*AL?MԀ /'Lq;p;0.̬w+zMɶ'Ƴ:g#( rv6|/;v_>1^[&m^1#+7Mm}Y1ùoc̺K4>Kt$qV+M-ϹMZ[-L,̳K[S|NW_)\!ޖ'2iWq Y%-vǰzpi0/ܒTO*,u>ny_> C FQUGfMBBg3ѯS(B/ɒ+UC$ ?h̛nӏ23YvKeckH=oC7U D ZhWrCHmrpJ#kGAFz(>^b E]#fz“<'IW"J8f8"_+8&Ͷο\FP .=v*vMh[i!*N߸n+wWQI `C2Yq;qZ/VsazIXURKuy9s&#[stkK7h^?*O=UB\Ru)+ cR.+OTd;A-xF` 1N-O[K9EosSƸ/PcWP[H\R»mvX h5T(byضdWG$>2XO˹Q6C#)t]*p<11}wymA!PV bե_Hٽg 5K,MEp6Gj*J$nWNLʋψqpEduoy="*K7=`>5Z>*2v*_w_ U3Ne^33^:g<VH JI3}c(N4\f mAX^ rJ00q sSDwR$dO(]'[(7ZˈcE7k4_ %Q6;LV}RЭ?441@7H !?_IW 4"lEﵨk9+g .koCC@g ݄:H'_"UC =FE^ ,[}|N2uϏwCiq0_YzZưV%oMoQCKi EDT2o_:ӜVFg2nN j\xh]e$x`-bF~EYxBZa\~I#@C z#1<}Za69TeLj`ZWanl[;!@I{!G֥oIp2)) eB9(z|zBR=>\1hN ]Mw|c`+?XR2XjϹ>ݢ[m$awl I2\Z3:T[MM'oAL/a0QN]3y.yYՃӅ 35v: lz~c?B[!To2 7C1"(KTpC6W#XAu,?' 3o}"!~(`LYcWX(㵉G?8: "8kje$j @oNRY0Np.xÞ*-8VKPI7C>𼡳H釫nLPu gMOp[>:5['b@RK-h7Z]CNz$3s !qseyki' kz)HD 탐B5bfh'xw*vS IՐtE`3LprC(\߹%;ŗs rIGsLDϑwR!B_dq?W7 wur´(\URJTӶ h'K]_LXYND_-g ?BEgҊ$AOdVՕAak,@~FDtTg&o~1O==S5eidhЉW~"AlmDaS :|NL)qA'IٸX,Fo*}usQ^Gfh\ֵt46]XzPYNHW ]Z Y2zK&k9C ^Eme39R#\0Cm]߶fm|DR)[oub,- ,FFyd2JFrNpD ZixoD^\n 3R#|~.T4m]Y@pVdpj"ŻPJtƧCE@E_%aڄ{Osםa().K]P&#oD^"C3œDy2t)MVJ8rQOht) ;{Po~WhIYV/)@_O'|XC㆟kcCO~&_ V<'7a{+0MOQ%n濾jf%} yZ"RU仺@ i$E zUbmD<ȯ<98M W~0KkRc9XͨMr$e3ܗ3M3|eq>YI2)zk괫Uy_{nmK6@) JE~Hƚ}$X͋#|&/y|@ d_wxT5V[\`p4]4ɐ1t tfکF9׵Hyv_3bODžɌxlgN!'5P-RѴdSiq{g`eRJE` '0Q-6nz$l ro'#n^(('!+¸bn7.\|0kVpicTz0\NEnon_TM €Ѹ תˢ*g Iv:=ը)e9V$,{K<%~\s/Կ7DmmtۈNApVh=EE휮y\߂ j DՊg6AdZץ ;P.B Q0in_nN1I@ +%í!?:Q36HW=- H|g8~ԛ-o9:uE!}U I9}}*+_ę4~k}[g1_m_(L MxX5C>쉆d_@ #!%ҵj{SȻd(\cf99Sܟr[K3)BU_wЮ#ʱq"JRгol|ZXԅ>n>mzHBNfqJrLQaGprRLG fuee \$\"WFǼp4 w=.T>ގ#I/ƥ @T?RfpwSjÕox8o`{~ ͩ;^Sl->uעtP;Nal#}O`'C'I A !k , #S-(n^ z!Fp'sV:Q?1t?RKG隮G[lשTr[X*=ul6ˊXX즬@*as^i4oy|Gէ-m""X#7_6_mN:r> :; 1Ԡ2gcRJO۪ D^82QoÂJa@'#u&]z5 GGǢ?D84hP3)w{F$,3SdΉ6}r^K-&AALC8\"pi-BD3MUIQ"~ފ3 bF ?Y &*e "r tPΧ9ٟ֝]" .ѬK(zU5I3>Z F}S:Ƶ&SO7"C/|tpx߼(|.&"OM`{vYz:^."(+Չ#o0)<C-3't)0!Y=$Qc Abϼm!,`#>"§":WKxsӆ\rzҴ;B֠beT'kE9$ f8jKyWr6JsL n-eNd*(( *B}JN[Am>ad1u!PLgS0lj@tb[ؽj;b/|΃6k{p7&2ФE%j7`*4sC^ce/(>P%ܛjSÈRQ2K1oI\/2A} J.@un ϫFHo'f=6߲:,;cKKiҲ\!XplO-$]H.kzC<)zWq"|c)&w 5𱳬$}/T{]Hf}"S#n崍D&~HO>̚m2PIC1C@>K>^vcI5gue|G-e4Y j[Te]Zi[oG^u2}+hTjcS}KYrǶ@CVqfYi&Qu`5)D]Qvz 1`lC3k9!(/hMhюt & E/g5MqPnfoZ I_@')LZI$Ҁ$V`X<#u=5Pmt$L]1f }&HZ B8!"rf(U:E2=Ivg, :}c ,A*6mNC{:c{ݬA*Y}> jh2AvQ"xj~Vrs`Zɦc]i3 4O$T7I8`+M%ƕ !{5uZ ծ?w§FLp8O3M4TFhd_$>wc#pF:{-ʒ!ոlo,q3,Kl)ͮ.I AsMFjgV5yO1&},"9kv:-Tn.ӕ-pdř* =iGMGޔB45M7@Իg4ilMPA\H%qIfSs/Lb5]]fAOEɁ ZVֈܒ#&Ҏ {ыo\ 􅸍msBn ecB@ϠD9B CSB-S]Q>cmk^*D+3>cJ283REYBXWSY)ҋ4rΉ6 0︕@17diV8Iw[\l˽pgW -M/ UXX-\̆ ">uCkFP l9kg)SPE- eTԼk@k{| RW%@@ @h Mta M"4[3K.N4% e#t؉6jI{4ݳȾ·Be>DGV8jYGs|{"C D7<;"oT$SgB|>w<{tFq j-o[ '4GR,BjjTȬuOieY.ӄ0huawEؿrpU¬[z:"H(*zX@F4_ &ᡰ$4-; >h@ɒܦK׮w^K1{Hfe'ᕮi2)k_AdSA=iL]fʀj(5En7 o`i&דDӱձ:Baޔhf* GqT`&Pʸ84E¥+ 0`EߥU_\g?nf6; ,C<=M'ͼӆ/b*u,]9PO, 8 ̱WemZM2c%I$DdCnm;A`Bį%(8"|dU[<`Մ^ntYhr/g؇ oeȗ[Xԟ^4atBETe&do&"ڂW:]u]b_s_'/J.I`6ΩS"+rʣDoVJRpylg^r֊ğ ʒyP?[`ɦ$@XLbZh*,&rGGTx#3pUkՄ;&%ږr !J㎶Phʣ"PX,gGv^pwϽ]** Z! /YKy [-%hP`F T סe/fcQG6w׍v6mM Xt.r?]k7k5W[i9.1csl $[A -\S csUzGL}9 P41C~03Oo`%heNsvQ쪛ռi($_uL&3WC=22n2P+}U/QF;ZYqe]05R ##yn/n[=hԕlFyˤD\N 6=1T:촪#?JRNhڀ\ #jD$" \U Jct6) vRabl!QDO# S#AKBWY T赢~< CofIPWOuYp<.M0BFUNVʹ`kqRt慅.(Qq簿koRUTa3%toP֕exo_0vˆtR;z!7PȌ!ar^kE8XO/YŏN|֊_jAbz{.T[ImUYH.8ݖ2-G>԰xQ'dEkp>䱖k~BÅx_^dMR~~pTkh3^ѻ$eU5U]`1mQU!9dN5/H ac!p}Bc}PZ1%]?m!"=G`b8nm9rbgJ X55o  ;U4b)b[$;~z3?H>S2^ѧ 1[Jy^̜Th=>jAk14Ckz<a+>kL!.MjDH, Vg 1-xmd.YZ[dm} N^ܑ!EݯɁ4E=D}8[kkD<v^7I֍RӼKi0)#T^7Kۍݙ(M$0#51㿽Ə8 q%j꫋̮:#bJ2qѭW2.;7H= OX ᡢs9']([&77 PCq<}"[/D*FR:+G9 9p3'ub=ؐ,mx;pql.n4kÜM:[;6^/3$Jj4גewJfUN93z VמQ Goz>F'Xe~Kي2Swaů95GZl~n4!D<ލRaW5};OZ7/2ևqj߽ۨr}!1s\]/CQJ; Hf 5#N3-;1q+lT{$X@^XkPkFP/Tȱ11pASis!àa&ModEE|JTԫ+[fxm96zSKŕFWSSN*Joھ:6zasZSc·WK+CvgKm+IZU<|eg+#W2MB18{:po\Tyni3)vA-y wl6 U# ȅNάj5 6Y-f>x72널>晬 V6yH+9$ᾝT!шB:Y_۰iPCKK~0es`Ƴbm#p{f]D1-ގԔ jj@%Zs-%{Q650Nп !i|(c7`ypgrh܏LAw|PzA9&ïz[ !6HӮ4K.Z\)6ZڌGx=M>/LdqHcRXPD@fj_)ZX1-1>ҀJkse,]ζ18ǥd -ijE:}'tt+,pF5%m:xwN(QB(\{}$9kt7և/*V˝ʋx|Jxۊ~2x<4#4׾g ԮSN?atccQ" M^;Fx&vEj&̾ηZ<2֫{m=0BsPڝ(vgbNmNYQV3,=edHYj6ȣT# 6{麭S ^d=( tP~Qucg2*]D:5tAkNK :(rU)<=xXJ!RxnOӞo%!z!O B9/֊\-ɞ4t^,[_|)l# JY[Į'{!On6/Hd^?5%EWBtOiel jr]2&-L{3WJ [&2JeqwS  *q6ŔgYвct2ߊd\CckMxjV;6\D(@[~-lur ЬS`B`YHoHyÍ%f N| LH8EB]LS>•1R ŊfRjekwT)6`*Ͷq;r7d䱴Pg#J7Rm8H!r8]V1BC-M^s@oc<6_7dFx C̸sܘQb?jQ| f q؝:]4߿)rғnsfx<.K'V j.Η\jJ r7ƚ5g} mWvnާ.(3 J|WapRSp*XS2I/p#b#^^B(ϳo蕞kd㿎X?b)Y0oC ρYn&[ wvOb1f6Ma{2PGu +X@1{kHU0 %]}˪έȑ 5{Зuڛ>?`S}OZ!]q>nL^qhWUԚ.7#@FM њZ_뭞 yr\-jO\p2DoWy[\#lRUSNB-QL-xȫH𼾯5x\ H05v. ʆ}XSsgahUdǸNQQmPx=,%{g NN`AQцLi `͖UK~rJ ;›_3',pnʝpxϪ&QN9_imkZ hsc!ȯ6L/䳰YuK=ʹt[ِD\3ɢk)8%|PLo^L\ _oʼnC ٪;gвhDTf ~- ȇwn49Yr/-> ]s֕7̵ ]Bz\&TEת4;YG8m@fPN+mW8]yJ߁1x [@If㪒]z'h"&10L M)#EgG503j'$&:_ɧd}qiZ'+߻a5:~X2$}xλN [8P^ jYO7]Ƒ#s^bZ>qȞ%[)KwI8r6J}xM$GԈ{Qjt*֥``W1+~7)+Rɚz{ĽΪrB& (5h+'3Cd؍|)-ȅFrR-ȪR`GrDjŊ΄HVKI?:[!ĝYkr.e Lf=[EYeEAM]r s@|(pv\6j0~$ P 4rtϻf=']{Ţ@͸4B }*d+G3PirwЮѰwa ٟlqz^YmؐһX{ W~/8ӵr4'%g6|qhƬeI& (4t9ajX bcí]޲| bƨ*wF|[cY?_yL{To5k45|tfnJ)41E5xP!:<$u3`/o+Ay7+a8[Iμ#ݵ(mW{ܳ~n.-hUk7^IUW pνJ[ח2S㬝z[2Jל]89EٟC\r Gf~B- 'brϔW"q(OR'&b,5/Y:WB7r}Bi-41U,<?P*0N2[*]jskمDE,I!ǀ^s>{3i6w-K ̈́V6N,qCWK%-g` +N='~_轅{=cAH7PƬVC+֮^Z ta[voaR%^`y&r/o/EF#Wd<-]D;/65PĕGu(5E R[&M}v@G sy7siz`J.L# 'ro<uLOGu[s1x j%h%\SGgiͲ1d UsLfcFF,wN_?~K%I tndnGZQU`+V'o[u0j &N,"Dgw( ,;(-H.f$EiC9S._=[~^mOY+ȘRWg;j0@,&eZw,b/'zN]}Y{p2{z{\SftZ<UiŒ9LI5EE{$Z2NIҼ=2iȐ`2S![XǴv<±hV\ A gQ gm) z9Rv,lO[.GT > TAwi v$RZ'v{ȡ`SXI* `Rshϙ'wZC\ȩg$Z3#-7m^M]}HZrz=r/Up j!a r;ōd\ %~Aq۽_CiYl+9֚ rtjrxF)T@I8 O+"lY^<"S좸Wp*0%"O5+ i.ü IeknaMEd4@Vʨ4aܟF rEY& 1}So5gj3EbmHoR"vGC"hQY-6*75?uՋ %~iBK . %wO(s X*J"l+TU\Ũ ` l͎JD15ӢsoB4SI0o!Q+'e6'[>#+K 7qյjWJ dG`3 4lu%ie;Il $;?cSO)]*뱒ga1ExZ:Ehw%@mQ̣! DЫ9?(y$Z@#k+d`"|.{-V}EW6!pb 8^G~qE0xmgPzaJ5@³Ը;-G'q~NL{22 n>%|W0-9,Dbv֘B(Rؗ8|ݕ eW6Owo$ӅWb\ǝQPh +-qp_," hGS m >^s'rEr"̆ %gsζ_$ ̪b;5U[J_sx H(nNgG0-߷n9Jb1k8̸Y`&:B8kSzۀ{|^KO83;\Q poH`EʌqtBVE?6z:nN6KxnU`)`Ώ;@?$q8qEOb {А3wvDՏӪ?{-H';Q@8Z4dNcb$kce"ӹ;CFGZj ߂@GYQ_}Mʀgex.Nն^"Q$JU]D rQ\DM/{dY8VpVhzpg#}rpd?13|4LSAN `JohYpP4@ƥ!d<CTRġy5eLE1&~:XL\k5D5iRCg~p#,^1!Ev` P`p4/<~R,dc-ޣ+7č#4$BTTCJ]eޗΎf1':NgiɉJ.֫dܞeGL8#c e:T*co3a/V85g^xQyG_I][և)u}]4)#;Cʚ;ףB9]#;3Ej6$t޺>~BrmX!T]@5ߘQ !')S:AW<Х_(ͫ ?lP#-+HzׂP y+{֪Մ̇"K6^ځ]z7IUWe莯ÛI f埇EG2ܟIXH#ӰJLwGNfǩ6yqJgWINuN;O.>} i[ۜ9NU<[m[0hXfH%?;>D,' cVfvT ̟E;Új~(,Яc:P1i"4NG@|5XZ0qkh.L6P/ 0w[+a?;[S-4{-3D+$E4k F_+B= `%Ў"GmD!%n *H|[)2<uZڜږZf8]]W8VfENVȑvX*T2@ar7;C\pk3*\mp㍟:m^8ÌJU#2\O Fл}8١ʺ!2Ql'j /Խ9U+lwi0;rqK@`Jq?sTL(7r0ԘȚ3m63 HE5'IO4HTԐ 0dlk%2ӹr~)bl6ẗ?\or_$}7Sq)MW{hADN2ŀNJc[!_Ȱ@E#8FQ|jOK߇Y1}ǂY7l] {u`tрtw|Uju8!-XmE[يMY(WkB߁To@pQ$aLTS+/lgWٹS6 #ڡ \?aEso`һ[:>:JS'N:c#S&<g嗪]RRnjNj_S@I׶+1coU ݉k.s:z3 mCȇaZT5ư,X2Mk%Zkr<UBO"^)0:og嚕 _wNɊBՐY;(\o H6No"A7OPԚzЂcS+IǕ;Pכ hV|m܉hW%Hx~R00[J9d=C?T0,#\;F=M+xQ/f +αjXYD'jGcq,z<L[?t [3oΥb\+K#nSmJ{g2.BJ#Վ6w=6݈Q}T ŋi>@K3;U5o|zu@s6J"K^Q>.q) *B,N7"Z3htrxT?e-qeZ5S??N6+ _xjqXUl(`^6SMѤFݫ[v11`h `ɦ} v3uX#A7*xNz$&(y'-J-:b 9&p@a3K5 qmhݘ9S5Kq ~SVثN$^>Hшp3KAWQ]PH0AŖK M~ulUwU.BTT֗.ЖhVtt7cVa(YN KM1u@b ֌.:dFX ,(ABPt+ARP[YHpPÅ`Rǁ/Icd=j! 08fE*n 6@8 vs1#E-NmÙ KuN^C j"J7٫=K10KBʂIQ)JR Ƀz:u+#E>~tayLQ'x*$ا6֟@-c W,BinTcmԼ[99~3sZ؞D߁R!lG#˂(b]Tt'lr47GjU#lH<2;꾻w~忌vRʅ7y &Ӥĥ 6$GϜ]kJĖ:HlN҃f..2WJgΝ] +IHgPPl|tp8ey1͕ ×7)P#@JPJwVS5m2s%^5,L=c?|s:5x]`z7s;u*ZF;:E]RWm {L@`x|^+*f}ÃK34(8i[Y{ #n9eei)\s hWF% ή*UvꜨ6Cll ]j sst%=DMr?Xr(߂ $Jq; ks,.[7&e1UG%tw܀u*8 v.BY弙+*~P\0 1:8YmJ MfKh'|WOJ;+C} wÐSu&]@wOw<5 OE=y;8,k%v (*SQ~R39f*91{F;ӹa'spKl$Rh\Cnk/#.Ϟ" [; II9e6G Ⱦ?)z'] U4&]0g3/- :h$,HĈ;ݎh Lh[ڈJaunu1!(Z&jx+TS~mo; CB}A%-ɺW^g;4mo|`tg հTW׻b7gdW5v>^21L|A|YA꿂2Z)p_m\H@e$)$?Hܣ3G'p9<~Kkk("YOR\$CM z%k+-j7|Ziv3Ѩg$;V{h}GPaVGӴDԐe<56rR vĜis4Cz[U?3i)A\|L!ub >O4R} rG?bV>nƻT{v(Eh䌋e,QIn~=YlEjQ;.OPmV)}Y!5IZ]l2ۀ.?^35Ody۟ TT˝ Α[7 D~Al9x`}nHW=1O c]=i$;u^PknQ߃GY u 2bO{tMn[RpՠOӎ$vy4:5>1D "ĝDhw%RNRvumH95C }?I?}mqRvݬqvR&}QTѲ$ }8)=YH]  %z@m8jS:.gM JA+'ظoq*y#mEuuBNɜ^O?X#.q+[rYha!A™nG%G`&B^N"忒v~IF@?'H9chmMUј+ B51g4SŻNgc~EKqڢPB18wL)!St#X~EDm쨖Kb+NEMBAv挢/Y6 t'ܢ /?ioơ￾U-03"1iMmN>f5 $i 4F##J鋻{5X 䠼 āFZKY ry2.Cf0H ~ ژ[,Nօa&~9Sݳ+k \Ei2ՁdJ&+4?,T&kЇ4fEo Op<碆5-> ŀyumТҍ=vXpPșdzǾ=5%jGc|f6;TyI̸q`[0aQϣIZYj^.AZN둎\b3HQ'$X,a\2X5OJ! r!̲(]q4BkB<"CrcnF-~Qt`ysO]}K{l uprUsoWجO:U\R̍_lGi$o>8k]Eݱ,A. ,W.̼8x0%aT1)A LiG!B ctsLGxe!)Ӆe51p M}>(ɼ2CE`㭰(I󋝷$q^f\dNx*gMփC^ɑMOr_t4Gd@![Yw.<}͉?@"y?zRb)Y@Q9mFnMQ|W>%6Ԡ+!0WO{n14!HpQ$(kAW>@o~7ij10uojD=ك>Su-uS `PpHw|8S+r8+Ǵ?uBz ":n7PwfG,LM0eZ4¡m4o_i~eGCS$zdD?Jl4uLB,914MgyZJV~ ME* &#9X1lJ6-W` 07rNPTm# 4VHN!LخA~2gS!hs`~.ruNB9yA阥ۃriZ|WmvD܃+2†pMX{Cp;_?wMg[ZR TX`ۘr#<(8䄨RKF:v֚鈄"2ZDzNv~lo(}^{r>`LсhY{?mȜO%u[W-wN*Νv5wӉU596̜-0}q-C`C@ǹ W\eQDA!I:UXX1AV:CPp B$Z1z[4Hgi{B Ay4Ý{~6uPc*WAh11hPND;1lV+@4ҺW**{'$i1\'en13vOxx8H_yƙ!#.b0~uBRn$%cY,^ʰE`=An#ҳTh'þ1L1Qf #0-aOd*%KuI(j|I}~ˑ[zzt U읐ƵFu˷6H`8R'2x8UqDbrrzϊ-$ %M*hrj" /Y@d5 lA{0hA`s!1ÆS:@b lG/6&ۆ+#ذc&9&q_O6b'*)GZݲґ Ul"\"#N}I*o).݊~(P_:V*5=3h80,3:JOYڛL L]Jiw|>,_Z^SYrkdܫXFNY͗ :dlOj|c 1 i#ngZlj˚TG]]ti8Gv~>lVqT7:$b͗ \ItƍTN7Q`KFxTBvT9 oJ'q ٣7lp1wV2iٮ+.xfX1z!V fbvC}e* ?g}xކ(#aZb&\Z\ȀaZEǩ.YM2HEm;zUFd)\OuC 7)<&n4*Tޗ`6( 0ㄈKP"?aw4=*GXfAYHd H[ [ղnvWHhW TXP1c̦?yzgi 4?pKVePv>rWmzx-?+8V&USe"0Lc؇WL}py:nCH(jb^*g?rzʐ@=xŪ@kBiȆ>l̹-V{ŝJo@CͦÂ{p뛐py—gDBgBXDY}u3H/m \~]-w@*{^`6Wݘ"%*VjԕC]z|3=w!LKm>%F=&pƜ18l 5 cgH)qP]Uv뎶1B28w Y.и"_%U?e̕K ˟p[&s7G,|=*쉷!gvg.(FNѿ*UJ0kISEXXw;'>d2,̈́iē_7%{3ã@?G.<\}d +x(BXVne, H$0lГ71Lۧp,58p]H71FѭsMLE|Uuw4k=/tM2NGg4 Т8c5F&fm cJ/,#O3#GÿQ=`~%14 ADth+U18-O+2 YY_zw,gI;sduvҪ0Y\Ua`ԣ՝69 ,D ܑaGɍFmo"BK8&G a 0oR>M٢V/v/\ne#k.^st!'',b/YC)umӭ"vGWY2q뱧+{:-OWtٹJ(׏0NХ[mVC$v鍷8ǗK+jXݢW= _h-j+OF,X~EKaj1~wҙ?*|__-M%Qb[t?%ɢpXvV7:Gוcl*8Zv0fײX +'v ;z<}/NdfN!0W7$1aُDc6 U鿶U-Oq'U ="jRB,s9sNBAZ=Ac7߈p v<ޡ/QPr!VOH# ױ-S{ٍYT yx~ul~F3Xcf]pH#auW}\ 2 BFgMӼ*z"w%90U"Hz=戧}bYڽC l`{Wgq&5pwRxi>H(C28z?z?@`1wt圩<_Le#WBGRmD_7r [l^Nɛ xo48ֵ-FGo:U8b`jjZZ,E$8ަ_( 1+,e-81l{>GK>pOso_5>O#9}7oW'*>~ӻ]i s8dw9h"J\r|-vϖmuR-nqA(ef_ ?|s; 3bzQP” ]X.6إ*Pu2;@Ȼ'4} "6BhIűI«LK@>>ZCBp_KVKTd^%W_ziyXミw>In4EwwXY! `ǐz2n\~l4ى  }yh"U UZКF=~0dqe28` .@c=)^% R)j$*Q/CSU'L.M<W22ϖ1>جobEx+Ta~ch -?JhBTX|9b`dED:o&oKl>`D(bJ}uek[p2.:/ %2oT?%)tl% ȭ4PExhaʉ1pd,D%ǽKpƗ!T;jbaԎB0¦4bյK8cE=n+հyr?HvJ"#GԉMW!NG>sy\nMWSp )nG.8Q®"#zmMFcCcRt}ibr9(b#G2C7 {z NXS\Ip|y]WP ?4>vGxY=L.GcZʊaS/jy<|1R@ξFue)LjiV.2%Cq ji/DN{Y B~๹@Z"":i_[4o%cgw=JIU/l|\Y9i*ey->Ed.RtKwWdv0G˻m::h %b48JMĐzĆH[3A|Hġ ejpuni^[TwsBqp+a:r sp9_"l$'!B ғ!PnBr !Jx!cb{ʍpE'`R Lj|++{E jv:L^y,J 9 =Q~%4(V5XlIB& fbXft@~~c0 2I%aU 2$ `i^[=iJZϚl)EdSo{_2E -ň_&'#ђ#aFhN͵;^C赫$Jԉa mR[2{!LLj$?Lymz5=$ba :}ѽy17ƨ"b7Le .~Su(AhX^ae&ѺpH L!91d)ߥ:IΥ #9W5|YYnxg2mibUݲ T ̠)("8j6I%R+Xh  d2ZhBQuC,(CYqA~OJQ9'I#uel=K%=H݄$6~ov#ܓ2@P% -TgjF|K{@]w !84iG2dnpeh5G5Zw/x-NWY#̹ !Lm̳#pʔYFB_n_F SZY+X\6Ā 9?QO*PpzKUG!<5W\>?ʠT #<#9zz#o`!p"T:H?m -R"NrתW71H[Vjև G 5IU9³Ch?LRW<'aGb VSiyRކՄ.mĹHs"2iYF:`ƏWh8ƉmGlb@jd(ZD&N&eky2}>a]?Aq_l}1 wq79MF7{]tD^|Q*x>D;!~&gsG6^D Zjᓣ1-s7/dmS'w%blѶїU7H[za5)d/$eYѥJ+"UYx2; zVY#wďm2vF@`ho7nj՛|-24/C$ $r*jn\ӤE;9\EO$7sJZlf>!asrG%\aІ^Rx4ziuWCnDˉ6hAE2L1`\yRնk/Ν7M;0h"0n}^_ e\M;޸#]9)d_}J/ wC$o> Uɱ#Tq49Lȶ .X./D)M|'e )*/7-q>m' U2sxpWb걶3c B6%D1Hy`PZ٭ / bF83G!'M bʇ'H:+>Һ%H{-V;m:Q.Wycٳ4@>7F/rɹ*v#라HɄv|rrv~~n>-F[Is^#rӱI0wU{33W&EؙRU'Ja͙BƏa\ܟlo` Q500E̾d1izd0X['LՖrR*Ò[ uR3^' ڒbcVS+;Hy)-rgfaܦa[*ú{f H:9vGq>*lAoW gGBR׈ *5u1|CL}/OS"w4NuFTf%L9 ti FI!t b"c> =ʁI|0o~던m<ԶÀM]D[Tԑ"!^$E}4yzZEoU* 8}UCn6tċ3PkJ5 āɏuƯ\X;v+O4Ijr,1)(>,/uMQUN _45wE2dyV`ozۮq]&!CKA`:Po\T7U7 ]]\J#!iQ)J(d! g6Rcs9hĞ 9uY*lA SC2 iwwuxt<~1/OU>Nɠ;S|TOE\qh.vv%(Z$Ptwz ,%Un!4_uWOGX;k.=ɭ$@XLkk; A j{x7}.w /}ܕ쟛EΏ ai"! V_=T0L[`sC&%4sChvR7σP^}Q d6$^(=_Uj @RP$mv3WGnwb_1Ф2. |!(_u"uqt:ME)>FϹ{%y~0nDP)faLUBB[-k?AW d423H _܊{旒nk)+OmQ`D61Z*j a?T(**Lf [a'e?0LaH:# V# GW;bLUEH1G>VI_Ռ^9TQ]9Lߌ Lw™^:I-bxcL+ 'UIlGh𸷨#Щ}6;P`zC۹!-U(#HfT^7y3$eZhkλcUb,KU'"uԿB':4M;]i 1 ÿpunX;AtJ`$s䩴O1ާ[S ZV]RL+#v,ImO1ɳ><85nһR+$o%"# ~ y$5TLJ5hMv?U[۝b"dfԋ.>]9<)9Ϯ968Ly&Wr!Cgqr`d(-,N 0znLV^ ;! ߹j"UNj*}ooo\Kdb;&}4Vo¬it{|V&/{Y[ǚY{ pνMgin+7zٴZ|pSƭ (c;0ۡM=팠2ll BUvMԒ6\4 |)TX){@$ߵgy+3ʬ;qzT!]8ا/'vb>E!m -> j]uQ/SS#eOav7>ʽ]Ŗ98hUlWR߀mbֳNMS\n Aw=tcC0B]-GbgF{ %t'C<- [o؂biu`awnZiEե=b8&uJ)iOj '18.`x@V52@g/P۟@j+w)F/6ĮBDշ Cր.Wx: L,"$Ӓ),1#moܽBW7? RRSԣr)񟨼og[W?aR}Bvwq~VMo|~7{9T#<'_h+MkV}%]]즨QlD1rqv~R0襾z[pݴ(.prt‚8ko0ԅؒbNEN9&V?D4a}g8xq{8P̛ɦEͲx G%CbUf[!ڡXc~r։pv.T)Ns lPQwO8aȑ2iOy]ㅍ5 G1F3b_͸!AwbqYN}!KK^g뭋e  .`D<.`,5'97[ ōvHǴ+h6rQoBO6xhʆk n<&kDF zM5 <HҧC!hȭ3.VZV$A!$Q,ca SSΏBp>}spGGqu|o+]e:~zaXL>QB *2E-1';騞\ &*MGmEhڦQR "z>=a7@um. XUCG 8 5`⬡-X9Tvm@s7m7{o ڳPF'1T$(C}PTKǂc v.%b#fVD]JS)VSECI#K /YX0`>RH8MМ/R1 ~}!ڵ:8֢0|%wL"(nֺlGؐ8RZLJ?|2ukwª\ishCLv %?"\UvQk78Biњ%)ȨzwYk]rI=]jCMg7(,פ'GJ.-~@ĂL-qy{ZDlG,Қ~Ui-AAKgmEn1@.p7J ]eg":傈C NRO- 1ӝl?["pev \z:U3̾87ZN~a¥_31}cP{D2ɇE#+ %($ު+&HKm)d_v^v_G]Ea&@nΣ Y/,-qq.;oi8mH ϖ#(0VJgB$>J"㿐UD^G}z̴\5g'Z5O ˂S[ǝz,=WM&K!,p v|5P#x(8Ui=S"gkVk|bzNwm^7$KU.YM r#f#w@@wa%\#a(80*AJ18Do W~c^ I[c{jO(=!xX!}fLgA:q$?כM:rm:fFC%QŊ>X`?Tc> p) x;2o>5I >ոzu Ai[!ҸEY˷ɴJτS uC"LVq 8K@Æw-10=:jDKZSoM.YGk 0%7 r&ZUs9aÉMDփoqm{E@=u?j"LQ󪤼tXc ݜJXކN\iFݹ/,،/xp1ir@gZ4<ۙ7}>NUK'$v`{Cϙ42K:_0sCNoTSk̽M^8-R+‘N|~@2|Nߓ}$QA0-* 8gin+?z)CTv;.*'JʘȚ{v1]K,ODh.)TD.۔l_v3WqGVbb#dFZ͏<Lq`iUD,z-KAt@GӼ^ZФOhM.h^ UyZdicf ]q sT,)4~$M8ͨYdEi+Q9$18^Ҋ4nZ6Cns]K,vCuT&YaW$88wéXNVC;[8$q/-{h8fI<3`JZ`^}Qў+/V2:;0lK*96c#5-NoO& GB{1g)A(7;)Ti}7@3(6 l!Q\Nz- ][+qW6ڳ:L?Ea\uë[3j}V?kH]F3/{3ΡB| iMdT{zڼU<^e sDqFnfⴝȂɻt"H}|,`G;;<\}gow n3]eByӗ5@Vj>"s!b5CP&w_Iʖ&b!,L!(z\QQe}iA4V 8$˅Z-ag:g$Tֱ][u䎪RCJbdD.7L燭}ahtVb^ Pu+ba F Xi3(t)Q7_m[CcNF,w*Qjl܃tw^`-Vh^+) 9nώx45"T%fqff9#|{fuCׅKH SDyѹ)%A3]sHwHecj|MFnȗ51F',9@?fJWwVOrK~2aKbI&fL)qXeW2ͅp{DsTvXhv>ɔz4eL-|UHl֯r#7-p098XـX^~r滅cin@]OPo iZrt9Ǫ\L FFwyL-鴷aڨBbɜu}"ګѹ||cqjB::ߘ=ԋ*7OJ2/1\<lw#ߘo~؋>(CM »Tqna}`՟eID|jX+b,Yà/-<8f]=BX%f&7P\6B힬E#3z/ìwh?høWk2vm!.4bؘI1xC6h^{¾el]"]|ʿ[ď"-6?>-=Ԑ;hM$cz*LI`R~e1gpOL8T&e{637S"|(Q_3FWyhDv nW_;0$1e8ޚa$Ob2-ݣ݃zP/}->%GC41 ^i>Lw3Jwf߬[K nWuġ×W*e {] ,x<- a0a5Z m[AnL~k ֢؜ڹFmWrՓWԀ1ֈp~'nKEjbH1ՊB%K 9Č=3_FT7Qv* 2.̎m e`('_ow4͙X_[Ձ:Cäw?:YϽ D)"l3f,D8{(Q!r_ ezLXXJ@MC":'6f}Ew@N| IW'Ƈ:MX̊m6Ps]Ҙ,8F/X!ThT2;]f'Au08/yLU6AF*w)5K8-z~*m=R4dYl@}`6W(HuMMttVNb{k5*1ZGғGfvh$h`XaHء7@dW!CםTX vC#&Q2wRk@8 _Qg[xZ* qV0 |M2m0FAVje2"J5A:DFsuJ% XPsuQOf?Gb3Wkѳ*2{fV7NNo+jأ_>bpb mFsgVqGvAIX'I ـ1{OGw&RrӘa|,U>l m}T\vGñ eCTf'tHeЗxϑTuq@ !łkb-3$ lh#%/x/)C+\P̮˛[~{w`2vD~YҐg A7AݰX7DV,`czDՄӝj# a>{7;@!4"peKf昱"!|2& һ`ځ hMkduh_ 韛 czJIJsۀYWРn0T=UROP-֨IݭhqHyr-bjh?ɒV]P"KN[+W%:qiϠ=c?Lbt]֍dSxg*tEzS1xZ:FyLQMOgV[e4@K(ɢ!|@^"c.Ϡ7 eǢJ&$҉N.&zm[@.NynL\= ɶWvwO%뭂 cbJ8NUSxIf)4߅,r;0BLpw\W||K4pmbEro$G_6o\s61Bk b%jKN'xO :lp~@7.5:7y@ ;`i[_0^̛tO~#I)Qax[iʹfLnK!j_zSY2Z̢[L>m"={F&&-jn;%VNllg㟧l',otGd:v2J:Az."0S:sϟx`~g1Ro}* ꒥*UV.hE_ajGW5 ]t%uw [Pl3|Պ |׾Bc=$6促Dw/Kp)lO:yEM9ni#R?a0"PbS w]&KIlŃ\q .:f0YhRXlOI 㶤˦pHI.(pi$1EJnuWkLt? x|@ϐt;Fj5$Ě BppЬy ;m\OѯKUKMQ \ݚ4y95b ?Ev׵Q>?ě0wN~z3s* `S D: ł(y(z rdb+?hD&egyc_E@ϯd; 7aȊkQCuoR.Gɵv SObΝO}a/7 db 82w\0o6#?EXygڄ:HrLIw #MqɠlƽČZ:e;4f<=f%ެ\o]JWAXЫ~WzEAWD6 1N>8Gmb^ss;l$ 9ᳪl%1_KNYX&Kn݄#BglGۡ{e;|}@Rx Ns#f#I'ݏ+w͙M y\˄)Q3,?K/oga_[,6&Vz)t$ba>J#ɪX*V @ՓHLƋ {3Z+4#*6<!~pc5|K;# _:ٲ7ϟOBF%Wnzg__^FJbu< n2hLc;`y߈ Nh*A8}P3XDUP$A/+x:* .2e=kdx% F6P@aU'!ɧF#Zͳ)pqK*t$-Zak\ W B_pv3ЏS? .Xdw@9gT-/dҕ&\Fjmn p Y~19J. Spbb{e<` \6RH'tB^$vnRS%ߔI~y}ƪj:?:W|-qﭙlkդ# ojvB{le=o%ƤmOgH`Piծ}4:=~ J1ňo9bdR9͐(fSEL#X! d8vOiڲᐲ] q݂8̽=OыUE%Q:#d!&ocƇ̖_oNgALjֺLAoi 1[3<U}3;L5 {v]F2zYÐa9+:‘?'U+ϾF'BdozNY|yVG<}?[ hސA`R{BK2E-P]g:HJ>QrP5SS)RfhvOg Ɉ7W&|<)3z^״lFC>E^HͫQrpi~:JNYnpXOI瘽ALHų d3&X!>O/bq2W $ݍ ٴ8=ח>1/aMV g™Irw:P_# m }f+0w3h큃fRSd)rUmK83x -Z`+ӣ$2$@iԌPE0kVf&&R;LM$T~R=O"޾~|@O כ\`2ImY,Dyq!PyF+%.M(s<},>Z@LY"! ',ʫ Z1Z󍓮4;eztD xNjIA4y;ӰG!wldZ[E*f![1fMfmPͿ _L&cb IτqFǗKfN1TGMSf2!yxyN\T7ydzi zt;wp NL/@F¹b|O9# 0*#4̬m!п=J=Z/^v%$3o'}dg6~Z_!ArI'o׏3}%wu5hxWnqxhjzLU*,ҰDDVt\6"Pn*S~bKVufJWqc7e.yZdH \Փy0)]vy^# }e3`Ot= Ŏo,]VQͰ,= @$W%FBU"tڔkn+2^QFڌC4[ኧ[9Hk^)R "u5/]KBh9y䩣/d3d ĺ5 ߔQ11'lHlDt&Wϥ>`~X @]I1萊W i Lά{O~ ekJ]!ǽpMQi>f2:#rh1Dzj>*zbφUΣb:p*ğ-=햗0|2j4`"GK˨_2BwOqP5l#5Rw];b v??W.jܛT=z\/qOR"Aʸ!K0~l8QFLbL։Bf2q-(\i톴>i`=:ãD$_ۼ_<8ʌdgpW&\I$kb! a:nR&-]vrq(C/5jp:߯!^N\&AAPt`Xh|h5tө >q䁰AEK1Te{OȆq^I%˨L]W3MJQ|Qo%]8$khoq a0 T ^rmō_zK瘕G;1` _FaQ<:v k*D#:jJb:J*җ${q[Qv"8AA&~ߡRWJփI|QߊæeB/B'77+8c'ѧ"9w ~E}'a+bv1PѱaY KcZOÚZYBn~ zg(=Yt*@&`{91\y!I%v0~2r96߄Kf=GۡɽQ˼3=X>JS;X'53iGWZ=w^A=١Y6D.1e3sUi mׯÞ[?nxN̆} v' Ih=n=Y\VvZƿ7nj-ךHnG\GU?vq^hMX;8%Lco)PRi: ]]/`_ٗYntT3q zlz[G%h6buy 5fuIeDgȋ "^@)HDƈ&}{bC=;n.-@ZsQ5V.> IH9WmvACMu>8wW!UѴXuVWZAcOsw$sR58K%Vd7%3=n~(FB6wȐF gDߎ퀼E*".zmr91gbaMɺ=z%8 M&TT{Yi>AE`xZ+&?=AǶ-gucVP@r=:A1V@JNq#/? S&[EŸ*2.GŴ*Zض+i hu)csD#X#mښ%)*tU[#|G`Q( JFe>oyul 3Cghd `oM,;1ŤІ6:Dw6VH"//Hu/.$5A.>y |Qz0C_& ;ւ0 `b-+z Sq\7ٸAMǧr-P}YCA12tRyi8IK`nd}UnfOC+7U|\R|63uG^DkM+'ShbQQC bѯ'16.̀zјEJFEjَ!e(k"g?W;rf\uFe3n5r~"͞5n_t> .uk/M^ENhՁh.H7B!`Ã78'*Sۡg8/D{7Fz:$7]\wg7J3g_TQhw x>uy78,(TEsyEƒuզOl#%ՍZrJp; {d>(H =bl "a2P.=h!E)LEd-D3yİ>YSnV; qylzw([}vA 1c뷢 &vU<ͮ S6lOQ'NnKNY0g@4Mcrm.Rqh6#a'Dy&8-5eafYaH\/6Y_" o7zAB"R`cw@)~<"T T[2w 8`p`=M -2ǫ)dו"ȷ+p3X}-QVnU9E_|C넰z!R3+_!M[i 0DۖΖ@- q_>KRWtr M9;wb`ca@1E֮!s`^^»̷YR]CWc(xtA[3WLKSE?A^VWKLQvCAdj& $&;5" W{g'X]oLD6Q>/V}Jրj'#򒸵|d~  6'i$~#yV'yjàCIkw/|RI}L-,0h>m?M f7akȕ]M87O%{VPMJ\l?tz_RwV'`ף._{zQUWݍ tD+aH4 Z.h+γl*՚k8_8柾Wp=3*ebQ#HfυEAҜhIvF4B$ 3ڻHRQb-_Q{twèJxbYEc@>wz4e<9 g 1^y}ֱb5a!@qhafLQ#ǮPɣ;"FkZ6"v;UkmqYxv--.`^k$IKw)kl! RG,ftO]Dyi#FoHu;t"Gb 51 cjMq/ƿ\)ُ#:~"1NggDEJ'hPfd?};ۊ5PhGjs) o ƶ3heXĠ^KЉ ?'2+ܿ^ɿd+%XaxJD7TחzVZ )?8,~hxI Մ.+th`Y Clɜv@ˑv39_pҊGyw#IhĩQkjQ<@摔_O&MQTx~x DΑ./kԳ-.ְ/딗M*~f@7dtv)ۚ9)BƝ#A+n?l{m&D&$o-eŦaΜafrXeP]NR@fD=8D!2ƙgU9b`lv({S3ڵLSWoֱO wq_JSJ@}Dž-iب d 'Ԟ2%-E_{6>)+74GQ6#p)3rhx3/XI={8֎\L@7Uh[HICUy{5 iFDO~GBR\V֠C[tUÏ HYyVxQ& ~WZ⇔,ĉMM*3pz^iګXW?D[7yГu|D2cBkrhfOmQ`&Bh߹FS.g`Av jOo'hmD8.ѲgWKh?7AD>=8֧Lawkc SnǠp1ifv\`kzBpWXij-mi`;/.]@r-J¿!(p(Ӵ$I5OdD\6m߂bG"_y~Zaà∂8yUrC q@Q0;Pj0M{Q~ԭdv#s@룳Gqc/%CTJ8 P]-jTf=PhAv8Ih;m,p@;&yFqoY\61?˂&CGAq^}2gM}hc >Sggښ G2wc I 2f83ϬF=ŴWoiM]Ia1lc]T];ubȀe+^ _W%Hoj(=>FN/(&#uM'qq4#TsL{w`ι2ahd+e팂7oG[_J0״)ۻyPdDĄ-i U~6⤆l2=J1嬉[OJF] HQvCN ^[m0' *HZb5A9:"x%0%'c{F]Դ R-{;Ka1Yݢ_𔷟~f?qxT871rxǛ>4.o4nAɰB/OKB*EubShC;!nz'^f{3=ѐ(wQ*MxXevO2#Gz4 c/)ԝ,t Jm2q]T);S\* jnf#O\|p6~6|WOf mװj~pݞr5O^E-DLקt پ7wZG΢kѩCj .\2m}5Tf́327rqjRq"/ØFd=6b뢜Y_(!7=!7UBM3z8H%T-𘃤NQ$e8[!S#^B}"Ip\w#1a ]J_BK]sq8RlY;nhZ tp߳1JK.L:3DyS Rڷ [FT"&˛f `lKJme]9{";&YF.Zb+of)>niE\Wer~q 19SbG. ^iVt==b xo3~OP3&K?Sh85[d8]vgiQEр9 wi !S?D(cT d@ZGlKGy2qBJ ^M+ jslUe>TJr|PfM]ybNo4dbPiHL#K۸O }2  "">R&fQ܏tw5f"Dkd_3TG&^Ih"~-9u!szGl˙tz1(q2tCOrm0'Sꃾq@ŭ:Rk9#,U(0iU*jFY,[Џnuc10.IJSm>F6 ~y欸;Yvu鍄!{?gMʃb!-M#|XfG&Udw i&Ԭ*.cD9 ׈0bDYt2 OCV I4OcQ/IH_<ت$cRЧ%IQ58ۏ'<<9 pMlQ0,9cwX -FM; > .6C.)3ſ c֭q+ \}cpNTt:4bV!bR^8s܋o8NVϽx;VsK,' imۓRm$ h, fjNDIH|PD=%ŋ#j\/ OYMpm>_x1BLJÂ!)Ot'Gº?b"HH:\-4ޔ8A٭8w| >Eja}Ouyܨ;p9?q 5`[ xɿLD0@3 owZC#g` J?R"7uYD0[ð1U[afU}~?_"c0:=?W$:I={S1_([Υ7ZQ)OApf?TE7Pj QDǁs!²,ѐ ^6!i^A:&ȩJ_' ghD`PD^FMVMɑ p s%nUO"nvU @`m.e'b :6W}JF7CBuG9\mtxǥ K^&7 Ck EŅnљahXڊR/5#I%)d"03_se݈[M7ARJF/] ;kă|tzNӂoSszň@/;]Ж6$9qFj*|\lP?":ޣibo RnRVA:#jg#<^>oV׏=XBM1@F}!dpAx~~265^!Ci@(LM 2&V_4kUL0|Z 4Ҫ'NoG([왃U2hf&ǽ6vHlX3~+:KwQm1c/Č_raGa2q"5])> ϕѼ4V2ykcy_)QR @6uF@Z؅P w " Kp}6۵Q#LdױJԠ#Mk2[ۛC|j.NKP[З5JjfɋO@\KaZi~> ^cjJkLT}%j[R٧}\3TG:jS^xCiy'OCƯpwX7 ڗ?0ӒrIpx #GK(05!Yh~>ۏZ| P3ҌI't>fx)%?=ghOiL!YA $'(-5O(y$@"hL0/0P^&|H΀ 6?&|Na| IIi/I0#&@jخV_FFg;xO@"iCf v%/2qiᡭ7+YtjNkGΎ,ʳ?{ VK4dՐsOXD!"тmۆچGDyk#z@WELA8[89lNP^y4YrGh. h!73kFoQ$:*:΃8T + @8Fz-R $E,o*ևs{?53j"A^=c总I%/S??$ا KᑮEz8JcIr]2QxcX FYii׻4qFu 9w5 kzj<WAR/ 4Cwћ}ѽw-_PrGPaNP@Hi:4.stJ `vny1WOS Lj^.™2;p\u{i[D&5hQOyn1!h+Uax,j=g \ggC+I:̟e/C|b;e1ȒVKaL' (θe s 4 iBYSU3?'@5B;i;Bu"dO?JQ: kߘR*hՃ! -zȲCN-˜.hhX9aNLw %@6mb7+Uި>,f.d'ɗx[w 1 O=w~I pJ®SB"+וaBpbq>6E@qAk+ A1}QyOYccGA(N~krqvvqGm=ēݦ钼xAњ"Qc}vVA!zqΗS~O5ι: $= ZϿa԰Wm:r*Aݶl-ӆvӾ&N{%6PX\%!*,DvF.PL^'XWyv9ƿ%ߢqtsQ"bȺMU0iHrMh=TCdAɭ<5#˓}?`t]r"uZSxaZP:s 3ZB nI>}d?>TKd4zE)Tgx͎Y^Q0) yAU ,v[]ې͈4p=+"*|BWÿ́virP!Gą,%g'6W ڥQǗw$Ry],p2ƭݨ$:A5->)_ u/pA&tczj"H[v޿cGx@rдBL-{b3Un# \qhY c+;gm?BKmVUɣaL=sj࠼J=F_ ?Lmzlt&ӑb$zST%BMTq/*"-sUVUS<'cK"$j7`+{97%lsQ;}vhG:Dc}bb'vM5|>ݻ28kv\!ZnxؖP%aէ"Pt#O#U8Zey CaPk"-}Yӻh{ lvYA IS/PEKGzoomoۤz"$J8Y6,o9q#|L>o#d+ˍl2Bbg>'l8ZRpݽogӐ;^N6 VVpw"}VDp}0Ts[>+/ՂjγK\. uUF] :BtMPk'_B1帇cԔ 9q,(G3?u`ZzC~'Q3dy/Ց^~?/nN`Ø?7S&81;egO~Ǿ~xxŽȈ 'U Cϕ6gSƕ.v}]tHu;-2EPЇ҂mǖRC>%u\3{(򾕟"VcXOa;}e e{F@mg.u@,I=~5 f:5{A~.;(cA6i:Qɀf;.!2 i䩽^NhjEx 5@#-l,kѱ/vQl?p\Y%=<@]류`CRɨcƘ+s=h}NX&Æn|Zp5!(t$>e1ZsjhcS{hEȰoc"W^>YEMVa)8G-QTI2Ѥs4%@\y߾)"ޅa8g8b6Y6ر'3=^E@7 Z6z_gQG;>ԣWJT\Zc?3_(8Pj8&CvHL֥&W1-[7hLXO-OHcdFYwhraeQ>í;q72„E;ey(61 D*-by^0 i;MCB""F$+_WsrTg9OL,БwVbp!/*=(Y;:HUh\/enwfY畡i,+Q}lŠLR1CՈH!nHAY0@6'z(C[<4míV⮌WD<8Sm^~lębv$I3t@Ablf5 YK ׫YuRA>><3Z̒Ƴke>S=0\Hp]( aG8}7Ge5lNqϿLFlɜm猯^pJz@iAw_B)|n,4|.EmsKc7~`dO~/;^΂X;*kIJ~Mxk +.d8RN~pQSmq jf0@I-_,Q++Slj4Q<bם8**Z"-px2ݫzyp"V6>X1Y0 ZnU3_d_i-Sjo/qH&qJJ{cuPU(Q-Ar@l7Q(B <]Ksd7׮6kz;g"MnBȯwuj ÿngĜu Y|V?y\E5NK¨ac^^dwz>Ewo CFD\@D Oo#hec! ;U@\nT ejo?Ez0 iR4 7> HDDC͎Qw&꩎5a\@Y ӳs fyH5NcY^k6WvKc_S:k ]/'̩z:nC/4 =BS-]2Vqs/Sʌ,䔠&e;}ĖtlUA5i[%%Qcy֠W9Їr0J F! h ƿ" q.OFGq>k EtBjMAHxpx bH-J?τ$ $ӨH' QKGE CPC,3ȗ^VchRͯ J6Q>BU&ؐ 3Bj`d^~MACk l#+9f:4gHo7y Rw6~Aa.4TO?}[ϱ{[;!z7Nr^ ?JOkvq#7n?CxҚn#O B\lB/V >zK*=&]*xl*mNS QAK|1#E柑'Ɋ[B{% SٳPYz˯s?Iu=Wf|bjV AnWq\mϋ^J~/idQڱ ;I^~Ѱ_-5[PsP-Vj5Uݏ~?-j 5dnocn v758cv5t]ITFdU`è(ձnb7ϛhN7o ?N.2|08y\q0۞ g{iySdDEխ`,~+V(oH!"q鱨]j~Ev5rbV:҅ݼBo5 >䵙r@q*2ϸ`l. 2ҩ8V̗ESK|R*_hB'˗Zs! UVk,lK|hk6Ü: $Fidg VCc &TkﻞpB}OT b=/GCZ|{AR8{NM;iygQ _ε Uw(Ip 8-,AQ:VKىgĆ»FW7x8Kje&f #xAċMzB!n3b{=fPv}Ixc8 f+PfJ`^sHdW֘<.[eμϗHWx$b d}J|Z;`Hn;I\|Pt>+-_X-2\oc_y+.EyS=b|n]_ۻMdgol uޒ:4[L˹ÚΞ/i&')6#CCiVV]bw '^INO @d1!mc%}:P]tHJ仓L&y 4dž q7h\h{@^;R{ע4%Yҽ?bs=YX*@y.-'Ψ8,JY/j&M([ .OsjT}H}~KYfyaq|?@I")95OoW?kD4",-$Z:-?S6J gVrOlC{:5:*ISynH"jm/^CZ9/F vJ}%ЙnfD&u ~gB}? 99i4l\pNr^TOFagO%8Px:W(AsZ~Fx{e 4<@*LG@ o33\[%,V;d|LU\/^bt"ꓹhJ6,UT gYk}N û_R~G9bƇmJո)yq1&ٯ3Y(쭉m9-a(@n}, ]GEv:b . r !nj+({k_-GO.U{tWp3@l_#-ОlQbsuңI;lpƨȟ*ðB/qƦ'u7 L!f|=Tb6h_8.w؃|U8v0 ,-t΋ /@ҍܽa*Qwvr d:A%CRYo41Ŭ4uqh[,Pζ1|ƍd`X`V= HkBKuR9`X]S$ w<{[*Ra5`n( jHN!*z'nY*y5&R`)p]_Bb%⽸V´U1ВLj*be<+ɩA!2TJDꈴb-9*[|S-AC׼%}t[N%&Tt֦%"R2< P2=s* qvS_ߣڊ, K&Pa <3OGm>mh 6VNttCh 9*aݫ^$W3T,̮h `eϳmQLR&ft|cGD߈]\@Ɍ{eu_4>ɠrUxw óAaKJX;/,w qQ*# 2jXkQ1DwR}<1(|Ļ`ՕoT0oZjvb+ʑӀgN4qv7-^&YvUHA]Kq"wš܅ݍUWu~SS(e5 {>ABՆnMS U݄+3.͍6 4 JyVs}y Ԓ﯋A@5T\+q_iZt ; :z_OsLД*\pT֦HO*A!<\yhnN!-`.v8k8b!-?<`K( 6qS)(T:wQYOuohȬioWE?9H2SKkO'$A?i&*Ύ4v]LYdZJGmT*#% K̸҃]t}g<((j+ 6v=B8R6_%T?ÉA3 0@o#&IQDNV5W=|`6RJҢPI==)A$C6c+{gcB?x84&ർt72O uY֔$_:t5g 7+;b T}ivĤ _͟dɉќz8=`@j#Gq<[Oe-q2 ʻqvc<̼ .M>Ԅ`چ *ײiamtF.\1Ez $lFK yc&pQ}VB9u^FLGl((ill$pHw@ *+D잜_DlVhYygrB6ћ4%嗵EÌ+6.ez%=NuӁ;,wʺz"TkѩV xvk%=8c o% |ָ7-V$$Hz47ϝc?M.Ԇlnsz-gJ*l$~&مKPsk/=XWb1h\ '|,kW!|dTDFh ôl[VO b(;xURCY)AQtvGO4 ]>k9Io)!"x"hOqeIw"Ue^UH]ҼoSsom_<8χ%|uv"8Y8 D0-͐%&Kݽ2|)j !r[wWbLԵ:iy`f?2ShВ=)'%Ba> D ;fćC}Ei=e <_| YX3 zBp@$# 92}5w6V$c,@n8jDΩKܳR3^G_RFw%g\qE~8D/삅ȠgnZ3Noq||S,kxy0j[N-:vE:b7MlLߓhV-ޢl>J4m5QEH|:ޠфђ$HeZmB\+h{ojKV^` +=r7*-7byVjtYlYf/X#ZFC%òOEo 1m[śFm^G^i xy(le/8){E .Y#z9j.HCu))0.4bRǍ@pkZaKC0OO"i+sKaX 1&älh5td%$rlmGH]fmx>J|AYEb*|ߍ=c"#Nl16G *Y8Ӡ(k |:+h~oyˈgn6RR(k%!^* QW\C[ݍr9z>E-c+c=O/ Kj',${9 jzxV>KYd1 L@=+0o p=q K ɇr ،fQ T8;נ=ze2'FXa>LN%5 gB*Qy Cp[,z wF<#2ɦ\[9&%92^ޛNy@ooFU XT>'K;_Ιr,&Xq#؉Y!=Li(ReŐKּ/Cҷ Շ隨Mf^vPR_*FR5tҕ 96!"t֐vpZOTS> )_:{(DW$iyH6Zx+s/ UBC:a[" ;C>y5{`kWRr}^o 2:e1Pˢt"'G'MPʒtA a+= zFxf/?GPƐsxQGAGdg_kV.DwKJ~L]|#vo9uC,5L9}OqŤ@Utc_j7lGvٝ> 63Öe24D]i~%M!3֫*Z0rWnk%ClvhMaTv4vq e39qvIja[.ڍan@k0 i i Fkz0ưJ[_WF?ANs2kbo%AwZTw\]>AT$olP ĈHTG\cH2p4@͕̹zR z3SՈX!`<#nG:e[MPeׅ+v\yE]^9#՜/)p۟Gc'(Ǜ݊(+a?m¢Q;06 |'nx -$ w?w2u"cu~Jzaжr#9 brj9qhiD"7%;m z/)_7@mnCeaf֙auHq^Ȭ`'VvZ7HW~*j!ɺ"rW 3(AOFZ0ʞpA-TtllQ 4y$\6Y Gw:Td XI.SSNY@bv t%vߗ'. FE(Xu^qR+DIR5')}4Z9 ЫZ:,[^3!;Wًe\?;FL: 2I {{xZ+W}I@&oXy^'j?fk8 _bUaz:&Ӎ(*w]bJf1-+Uv 0GP7,(#JpyGzp/h7y0k)duKe+ʨ|Ekq;@Kl:F-X_@'ld%F:JT'AZo]輘}{{Z^Z)rEC g"0>*?:ޅGT 6W9um}h`(Lڤ?0(Zg]ytksX"V;IQj mLH\8Y Xrd͒5 "֋^ͥl}zi׷W C42"!St8\`#(XhabFoa)R3+>`l# !KVM,EFv1D/Musj` (^bKLpEVFz^<`va<h=Ã5akǶ ⼫}BY졵cW{d& /ܭ7_ODDD$⊴?M | E37'Ev# j儠ޒ͛ҖuYI ⑌h6)|% hjkHm ʘ+ttXG1t\~Ȍ%Y"fQ2Xw0O T߄;GE>*ϯ -&eΒwϢR]BuнC!- CMove1rA3$i٥.W,kԐb#8E$r>*3 QwEHeW\V,H-fQy( ~"h8RF1 ȚpՇ$4ffrL'owV M&h/Sgx3\m4A/2np:6uͩW{AU ^7xQ6P &J [n͏i-+> `p"&02=+Rp7>y -~rEc8 )YtMFP-'iUG8r6U>;RؐIr6ɛpߔ Yj^OquBؼHxB N!S#,bޮ0eN4ܯHV];QJL{]ZH?`g15}G&i8CHK t3B7 ca/5c a*’~F]@sӂ˩~oNS3xq/ۿo4>Ω̾Ϯ|%uv^^j[kˌ=D)d\>B/I͓v% }>TwʑqO[;2CL?}l?i:w KM\csuEp>kkM쁇)vV=I\̶}79;^%sniB ,a6xi o 8SGJ;?jheztA~=h΄򽮋Ro2u$Ʈ򚯧ܢrzQLj'zЭ+M&MAbn"u3^0۔}@z5a#IS0s@Iz𾗺qUk$jMƎ;DdӪ|0`>W겳0\K x OXLE3g5]֔oos~AJXr{\!`8GH뼶ܫoW}oE*_єT$0Qd7{e`1Q9e fyu:0-Am+}mLv*DAwJΥRm1Si1`u!Tǘ,$S%0Q[Gd^E3iDoԴRC†@!|Cdx.g~^1& d-8۴{qfX4$OwoÓoM.t=FpeDMfiC=ƾ( fe)z#k Cm( ̦X~ I7'E{xv+^FC#wRacꐞ@|t |cT[*|U rXZ^mfsӸ+?q:D"ث >Ϟr\.=2-cDYolE#0#WCT;iS D$NAp嶊ڿP Ejcmh0CKѦ~ha+V*: 5Mϲ$Q4%֠4z/:#vOl.+ flړHy@' e 5@=ޜPvL{.'$c f=eGA ŘAgBy2햹 n.t-]1!ţz#c)2$RWdW8, (-6e~r`Feg\v\sB*<ϐ[!h䦴P|hm"X@s|A\^*ܵ7hM4]- ?LrUKww6WS]aPw-)6hſZqj-Ntptb^wXAfTZCq;3RI5-7%ߤ820<\j@=6#6^ԏ?V,@e߫i#be?Lz+w̳kEwjUOW\y [E"8mɘU'2^g Z~!t^Hq*wRW0}o[ojEBzh$?½99oq ~,W V@d[G΃}ɜAO xۤ8.(2twժ^a Zb TJ_VyG&2a@)g X 2<% ]@od534GEBBUaVBU4T>E y)z}oFCСO *Ŗx괠2n|]Rt3Xo0NUA+!Òl%c^1X{}p1e!Wu$%Dd?W^i_O0GJ ']9#wrg_ JK%H'Z]Y ŏ0(ʗNu:O>ߴ8/*ᱥR^NT=YW"O䵾GM8mi*QͰQRu>U,SU'p= R_|C/Q9W ck2HӜ2ا'qۊ3]H^Ó`HPvZhYC^GIؿaɲ&6b˱;ߣۮBAGC8۷LuOxҚ\3NvRt{>u. DfJeJ`9Ip;)) .>mI~=5% LhYyH8zg$ac-DE}^bˇR'dh cp.$!fkNy!/SގRlO\#ARsS9eHiL8HժWa )at<DQPњXI\JrL'jzANO!5)wq9vm@gMLU *gΞr'2%qBbWbV_[}V9J+'(Jږb7IQ.u2?<2W*p\'%[L`,bcd܃uO 5,d>3t~[5ogTwpNPC|Kۇka |F*!"fTuδ..L(*2舚B -^ū| 3ȳ" ʡ5w3=X[5,WBQb˜ Kan gaSHb'e5`ʻ_6LH-s+ȳ%cT5ǭ8zNP@ B+Ow#$Qs~>[~>DS#>+HYVfʍ?y}TCCNn]FRZDBO&Qsgo4i_ʤ0\3v'( D h;-^hj#Xؐ+uHH{= peD2H/ق0vCkݦIldfP]+Qȫl|Qŷ%M8>fnMG2oM(LB0wӠsB H%Qd߳4[`>?VqWIrB>dlGgD9i W"=+fUyrUzvm36 _)`WU4T%06xkQJi[ۺ=NaҨ(t\$&.(;j]׫-mњsИ*DOţ߳zG`"ÜĿ/;9?0lJMrD@081TztejߘE/G? ̰H2qS&'yS=ɲLn~Ǟ8QW$W{0й>O}~ 05D܋uǮe*H~G%nKh+PpFmá%D9y*^%Iff v&C; DW~'&jmܼ; k /8>đ)hv'h3\y!YÓƾb"Cj`kYD_Vm]yxތv.ZGzko<8|-N܂0]TykL~Z 7+ wRq8ZO`fnJ?"MԍVO(soإkOr?=c \uOL*3O >k}v9"./]F`D- <*9Ϙ[l=zGmDnrB QΘkqvuW%݀ď{^A*3/ھ8IM6&ur6E׃a`LjU$uB;kٚ*Iv?j\Go{_=V,Gs'| PCٰregjJAl*M,Ve8}ǵaeBŭ" e6F\mvQC81Uؐa9¯iIJO%Q"9\f{!b. PG`,#XЉ)KbZ|xǟ:b|lχ^Q$1I&I˄w V&U"(Y`%]yj:*! YgWмl)$+oLRX=cmz?S+ QI |kߞO+)drQ[A'(s5/y X/=zD_o0HFI ]R25&jo~jlmMHM->cw@ST|<|Qеg@]"+ENZ{MN˴~ QkJaD1jN/[~U-$Θ \T|=+f^'zRsBa4uO7k1+r)]&ᚍ6+A,w yﭕs$hn1.=c0֡u$U'J]DNkBd :PT"z8v5Zx[8(u~|,MO]U(*{YWo Bkdt&@$vat7F= qc6"8*՞a)h}$$NddLW O5k XPqmKI9o}2'"%[q?CfI߅ rmPpJ* za[`jf0J8clo 㖎zH_5`PmwBDZ;Ѓo(-Zv x4'im%oÕ+<2xok:}hfQKnjaK!j6qѕk/l#z< Pő1[F7u\!տؓv)'n%$` r 1?2'By]O p-.ZTw{\Wabo~0aEUΦ™ ߨjLjI%L?2rTyw7u{uv4߈( )_'0v6XՑY,DhkCj&X_o0k !I̽yP4b=>8U|r%ɃOzfD2q9WNT9܎"Xֵ%?p?pt,|52Lȷ<.fFX˥`!;JcC8>QP 0?FrPѥª]~`-u:7'cf_Cg6s5\9YLu=ԒI*Ќ&_4w/ҒZQ^% פ0hLدoP11Cໍ e)^"ܱIv(Ox:3R$A_vhTȫU);Ē=w a~ZNA'4GI/i @/Ee Wgd.24Xw^^7'4'6btw"z7Ag빐Jf:(I(fW>1ct,T_W  /;>ziMĄ I 4̹Cς-9^,ևokn}!Y9f\4̊7bCpRR_Y 4Ɨ0r1Tp`LZXqI@-/1G6o~BʳaT+c=vlzUân40ŴK.#t}Ef XB9+W'KDYj jXj:ʟ`)hmɿ2?f  Jxxu->%/Ϗ$|v;;pSw:?ͷb_ȩ.3 cN"Z )G$i8C`9տ7A٭gb3龵 UdNYVڻ%VS1L"5|,PVl B7wͼ4?BvQ6jb B׌wCoLsgw|87dj4< kRq[]*ev{Duk!voQSx}t_J#7|.^~$lGI iqf?Q}quYq%ҝ3뛊 h*gMEhbuؗ*%D݊GfL5(ݧp翦vKㅶ+q副v,{))~ZKkOipNnUŴܦQ{}@UqJ4HOm8]INl#&,ltgMoIiIR({LCM]nՌͩ&"-x_GUPXмbTA}|Yk)Yxxj'(f~e @ 'RhMT͝ݞSN=u>.EHt-xkRQia@3Wh2њK12zMrᦦ^z6zMϓ2;J'%DDs#[өZX0L+ ۴"_H~8 TӐz`3Z%aj(;!lyAy#' -yxuYs~ш=Hۊ3D#f;164d' N/͟{M/%[4 z[gI/__GZw  yʥ|xwQ)D_x&Q̿͵~3m̜f^T˟h(rGV¹¤n !\WXGGV@ "*KT|]߳`ArS%$H V/W[<0DCcU/{4MFNJa Q5+jvCe_ xXJ]6.Y:j3>-s'(>$%?NJx0/[Ed EJ RTXa(B+aumUh~9Ŷ A .T)(m`^HgڨK,VQ2Rrl{QX8ހ[ *#= =`5htguK]W'&%_9.}Z N]"՞esf Qq:ƥ&E 98*ʦ!'ޕG$j gN"yK]6[s+8>]H;Ť?<$+&w )|g;2nMΏWC1ylU,5G/rӳPIReԲ4ndr0:Rٹ659߭ dX)uMfYqKk™AØM՗v/cab{W39ly[Wo/[_?dj!ur:]iV_.9јLObSjCsBd6(pQT8DɜDUd ??aj_! . 9g)޾-Ň?i K-ud$f$42K=0&FZW;_ Cȶ+O$B(,heX"VeZPdq1- g欜TGFrgzRl#\ED?8ZwP>&RwWKnq&Mlb.\-ݍA;gKh{qt3zxMr{!g^V8ZK 3"bko]'5RWe$u; %Ryk?< %3e]jX͛BÐlr`L~7)>q{1=IwK3F4([ 9فK6(Dqb[̉ Z|΢Td:Qrf*6ˡ%Rx+u" ~(}p${ C=L!8l /`QK?mٚՕco(HBB2`*y;iXh$Fbb)Z{tom#+ A.DIߵW(B@E5Bw1'$d۬"J<̙6k bbTG;+G/*`9g0Vعmof(Mtw3{MI:jRcT֚,F\ZzTcUH7.6cvNk2H2A1QC?44\sօ>OV1wP`/d}J7 &9̀:3K8wu# M<@wi୻[s6 gf﫵/ʠGǵcy#dTjU%9wI]z_Q.jǛ{@m"]s& ;t2v_QUd1L;StZ%bD!/X=.eobX21٦ YN$ζZ1kK UX%ohU!"[EȴzSD]bb]H0ťvh~z$6AND`~d.4&H9x)w]0˞=hXW?(H}F3!SYz*Բ;,U2c95MҪY1T1YJU ZiIg`\iZ9k 骟dg7YՏp|+Lhu,jpl=a]o%ݻ+b)BYGtc\cvv+4JtbАa5Ako2?P1(z-X3cAzUC]k"NlDžPNd=92Ԑ?9߁ p:qW a;KТdwS&c#)E^E H'}8ݲ- !8jĺPcH7v32:Q8+R)T1B\'U9w%íQ :̐L*KqңKK0)Wu1{j&`s"iz;z04 *'Y'cuYr֕ԽfA翼nϯBM7ABOw& i^~LcؾD]oەf}*"B[@w9뽉+0옽Pw7%6"rMhQb[#pM8k=x >&A 1Wz½YZiJj F^w L=L57̼28qe j80i>DvφL`\z햒q!qE,됾aR x|jGJC&υ9kd+u~ċʝ1_[PIE*m"FpK*S\*z:QÁAc_AG,ZD^uxK1W?W`#muT_ձ/5OG "{qIOR!3 11ڙ;Ev)rhk-b_݊2jbs/.d\"%1e,̉] NtJsqb}mJ2) `ahN32Y\*&LΈ;I6 j9+9 ,fOQrʩI>qWATɧkaIk.YK픠[s+_Vb̹ˊ6 |s54vIXE{Bpywώ|v`}GHc8@ MAͺgvV]DxK$qSN#ڭ)K橛h(}ΚtC,/ K nc-("saB +R~*B} }=Utzi^5p>Mw,ް6@3.c_y <V0L{_@ %m h6@8 0? 6?i7=vK &_cD:B(5srϯeZOc@ Y7*Ip_ڟ~5orN/ύu\zhs~ԐBr8Zdv.>%u9׫T8Z]0%f3m̶Lpg_f!Ta%<\P^䥒M8h"daR {vIJ׺!XIM!`@rO?7PUu폧:Ho)QFTY6{mB <"*Zy9MqM Ԉpv?L4/Y@J!B'm7Qرۚ!Ս tvtX8gf+ܽ~$&f8I$])2 #^i2^ٮ:}K۸#~1^aeKhMĨ&79ȓ#a{P_k-tfFSU.X3>ĉCZ5U"JV@=<*A0`Ku.fʙ)T7~nW,VCW,DehY2`E%MDx>G\$l-nxٷ6dOYBJV*(,Ys?ް{c7]̐o ͒7 F`+v͍JiuW՚Ulu%Y-/RQ&?!/ԶCbv`Ӕpϳ=t=gQŃ&`G(t}$pӀfL5oADOT #DvY7CCq/@e=0H1yFOՔW;(d_N[M|h!>tLe@(0ppE{VsQw_гs[ph@$.pg(ٸ~Kղeiji0"|Xɤ,W6,a5D v1?fF^Z:` }=D'tJx J*ӨvJ湅8iGw1w1(ԑJc#khXqnÿ\"曉mkW]AXJ޴ٰ^ADļGQXRi[ƝqΊ&YߑVŘc&~y2 f~ [A7k7#:ZR<GVwI9+vwS"C㽂 d*8G /B;t϶iD-D~>K{3,d2O bhh_ ɢz(,GB2fnP>ſNYZOR¦m?'C3R/VR]Иߕ̎s-j+uq7k^2߇&!Bp/<fd/H$aӈs縵A#zx?ŝ{d i8Ec?Yh1Xǔ˼ ^$zՊ SEqkKM oeG#iG1eWe!_o@a#aV8 ["t;N+hF27NՃ> s&S=-W3ƸplQ?P$G^KU^r\$9I`r\>@;#q*t籴msRڋ/οcIo9j(*]t'܆?csS ;s qm]0Gb2UC?3aDɊK߭LqD vKP_0$Wm*awH?&u(̄W:(麀"Pq ;(ڡ61{%5B)*vK-w_(Stsm|ӭ %N_OOX^cS?ʝ%y8_2n)xPFDqv[nZ_t͂0 L{ +oQev]pq7N~/5yrJ4,or󜈌 pUkV>R*nGS9D2_?7!*L]ROϷەdcuٝh3~쳈SfAXn}6_b}JjR<-y[8r<f[9,K8kcZ>9j9hwQP5T]񓎮'ߺù^dm&؎gטQZұlwhgz1;LƀI\fB$*)YPI)#^zF줠*2]'ڛν6 ŋ#tvvyybԮ,`HTI$[ ]t=bp95$X2If"6uҧ䬌2̟+(pV]N 4w=뽿TO5(H]lⳊ5d ^Mg3|)Yw% '>ik(;>(#yHaD*P{qZv׽Tjтw*~&:&!]_m?{5bSPM]yQ% u jzFdh. ՌaڣB)N=St,lՒS#!R9 xq%GOw(]\-J@xי,o軱MOֿEbrx ;O KG3Ӽ$u{SF{B{ϣ`a)u$#g) 4,CegBd"P쌰NW6!csp雒K</ D4vۄ$ \~@ CVo85!h{@8P:!c a}=j"Jw3(QEZSũd)|=+‹z.FK,e&ݢi**VZ@[jnF{^e5U6YաCs7Y-~pKv)tQ25dxVg= orUs+JKr9ʡyN+GIՒf(u_p0[V?OAŨgQsړDЪ7$+sa+s.סǴQWŝQJhMfo>-t=͘9}:BNV372sE jn,<8nhƒ*T[nv4b?~їAT°=1Jao(*j?!MF Mb `K]HVXAVM}L#LtV ҜMf|r*:QntIoZN+3ZfǟJVhМxa I>2e", 1^x<8 e8X?7wTa*p J#a&brB c:^~'Ъ(zªefJ*A+ ?W?wy08MN,6='^ԩTdPUҷ*!6څߞp=̢P :;gה ge'Jj)RXd_p$cq3+_/ [ąZg 7nZ~@MHiԙƫsO%Gqϕ63~-o}Ug4̮\tI7~>>oD7a(u3Eӈ8hR#&`ДK~AR`vŽUH4Or\2YS<`ZWZ[IP#-b!G,%jORš\`Ъ?9ܮ32VH >wK&[_8W0O٢{t­# 8rͨv솙V(UI[鋝ؑڥV tbV )@7j6d]h4h2Bgf򻢤G(~WXQ8}DrV [o`17 ̴=Y8Vo8^G<jO.AZiyn!i$K`± &Xװ1;zN;m'<$$d@'osPCΟ M5޲}nz7Z'q^)W:gѱߋ{n-xW2<. <W#ҜC3ӇiiMxlQxs.GBy H(6+Wp9fi<}~>Y a F=~鲥Ma# RVQ <쨳k q6Aefa-*xp tٰuQ\#/4?҆O.  +I_Ub8%4ą!jޔЬFF=eSDae Mr#ucSvrG4*a&u {*X,5Tv+VTw5Oa4"igJmWTSʤ="'hSJV&ZC+g31Y\j֬5L&cUck!Qr%h=}yPEWf4 !H}$S*kL+tz!2 WLBbݭ"- ~CWdЕ)%3(qEAcM}Xo|8Îv; w2>!Ζe78R{,b ]yAWHI:w 1B3tiQu7{Rxɠ<#;:/0,y1۷mO |p}?YGNVT䪱dvx y[Ը@5k6Z-)]@hG='(U.\̾dSձЋp6&K~2Q%LҨsj!@ ?Z6 mâ O0]XEޱO=qq SvVW=;Q͂ҙ.l/Fev.n\Zݷ~2x2z.siL1S<&&Ey &L5̦O50u=W-{M8oDjd>$bJA_ 8q hOzp;쳜VvYgǢĊVE-wus&Bwx0!^bwb06CVc2AnKgEϐU ک{n"n͍D<#Wa?pa]˳<,`^&tj}l#MNQ#i{غ1`K*7s~A?I) YXTcD.A (xE+᪩ݏ?n񔓺BcD>A8Q667n=JPt RpOXPE~Hm܆MB P|R#]fJd1^k)Aj '^(c#(VX{3PPק6Y H ^e6{T@,Q(V'0屋7 e]}u>lVGv\kfIV<`zBO+/ D?<0?\H1`c Nu)-QSQtg6C,i NG Llv^I 9F:`I) x6R!MpcQC$rȉ t{Y +h̞=/fwML%}S&Mui&_Q QG+aM߮\DXO G9tVۊet1"7ZFM< _us W'ו]"XM;r1c\ Prn9TadW60ױnpTSP1oVQ%',LWI32Y`>K̴v%̱:dLỿi/eŨ5wM8.-7k(i2.mjARWS8qnD$|fW9vc?4{n8Ҩ0Hd;Lx=2婹i`#5p;?W퇹Ya(7$vCM.E^V'ri 3`mLeE @+J r~Q˰ʃh)g0uLd *fCػFBm)Lss*B.@=u}m D&LxN?* 2*%m'pXH1qROZR&$N=MuUJZFk;c)mSuyz) |.=>N HאTK_ͱ|XA 3":AfHؼX2l p ŅRt@b;8 0ʷ{G6ulLCU~o=TT ؼYnSn)Yz7A"$(mMK uNl#Eזs'XU t}8 >[e0PRY}P0ȬCxW6F=_kA*DK 06$Ra$9HNL O:fo[+^H3kQ1[q 4HY_F*ZCjGFDb5W 0keB#гqKtAīoߢu{t,侨^kcjs*p>V-MG7t#'Gbvm1-;1>j$ԋ[}I3M'AodhpWd7EgjzeL~ŏ H%*q pٟ$0@G՘ @VcHB^R*lвjL%|OY%[c l(]Tߏj$dz3CE7C5jڣЍ죋=k[mnwOZ02 Kg[Nq5K=fZJ"ZNj˵@w؜.JhDUY$}& l]oOQ <cxlL'B ‹)1zw4R~$:UBA0(MjIJ[0oW 5vpJiV׋uV]n'>"@Xxv6 !\)漿EЙS͜}'me. x%(M Wk hE;@lR5@8PK7&(T9[Y_]Ir p1fQ̮D}2Z&]0}ћU6G;,$e{, m%1\=>ÄB)JVUTyx᝺(+W!FU%S0#Db;WZIOm8kv{C"d,SfssS7+![ Tt:ہqtjBuq1,֣1R|~/n_jR#Hh/XCѝv ιKQq` qơ0k-Jtٻ*" "0,MI4Xl)Ҏ<A=uW-g,mwALnye8 L/N4o7Gm0N yv~!p.t>>{,U}$o_ { Jw)B< I\ qMфь#RLbx QR.kbx!aPѡ<;T^gN!Nzo+UIXߏjvWQk(uRk!ZrT C񌪄b/8E: -J3kg?ISE+;!檪5E,dA)pQ8 %Icʋ,>%OKMWV;'N!|,.^Q=`ulBB*~BT*ySIreZV3tz*=@H`.fl'BP'm3 .rCFgqwgrPzU5C@%C;62>e%n}>(ѼٳQYԜ1$s_@'fbS-ۀ~tVi ((ڂmR|1SŷEw|_>af$"bq6gscGi@(8Xe+iDT_t-Dݿj&d';[3کS{фY<MsYy#ŋٳ \i:U/Æ5vl8)ыƴPG5e[7P)'TA7p@TLhK_VZQ~ +Ƀzg*{ Cx\)=@rJI@.ROZ-=-(GڐeiR"xOA!aoA A!1}XX$lL%wKݟc8pCUtK[sFcd7oZ/(Ok+8гmw^;͍ VEgQoYa:K,_ZנOJ6խuL?S;'!W* 2S4G=֧YgeQA4,'ck@G#AL.3xN ^y4!x9C/A76c?=Fȋ}5ڷDx l`@c  D 5 U%_EZ No*䙃\&[8GGBOGgP`<+ d+N1=ܙ6^Fu/M9&;⨶w6Y@r8eǜXd! pmK~l*ǬK`Gq׎܀^I7:fMxz$`z;PTQ\r/d8RN'\E~HRd =ȹR6:=RXAnfoP21lN0 )Ƣ?G~+sHPq"(`WblqB$E]$3a$k>̠ئk<5i=9}ZNF*HfbyC}F1O}'fٹ׻o[s1e(1d1 / KY6/' 80a>%'N0;ST ʼnRQOtOi?` |IdVö+QWgܳ%ǵ3PNH*Q.P7 b+@MҮz")LOR&]o|95oC⮈-.Fs偔wy =7wR;dI lZUw„~Uhi6}`ɊҾMrr0wIFіvyxevs?O>5W4{w6S/^j"m gpp{ UYhm dXPu/M+1h\\7غ@53ͪHZ \g:x2Udr\NoekP9x.;Ka4U7,BFؓ_g%2([ sG^* vƆS k mFv_OZ.DԮ-['DZQ0 }g7r2إ&~yɪN6LM4~t*j<~@b(/w6]6urꘅoY=y'\cf䣟lRb3E˒gsM >?2yܾ8*3 k")'jf6'n_ acϩ"44,'[f3~ϛѼ,Yu,=ss VFSD/7@7iezC'_B«iXF:K(<ݿ^>6fD_8\YƑK̭= dFipZ+ꈱ ~=m*!uŢjkO#_Lao7l3hKY3/BR|N\]A0@V8 CW[/_XWdo/ ݗci<9 [A7w[GJ[EE yswpĹ4mL@F*\&w!Ek )C5E6P3\R'P "䮦brEۚD7:].H UNXe y pACKp&1)VoJ-Y6 87%)زiM҆m&|eTjokν c C/5N j.kU`hY+%gb/ˤĈAFz zA+q9e[T<=K]+aGWCx |4d8I0!N!;c.iD卡殸ɸ /8׮KMepDbqwz)>qkѥSdt%u+C?ow"$p,Fh9(T{fF6-8Q׌cJ@WcǑkfu̎Fb+9*8V-5XU٤)~VLH 3JQ9QXuDg侞jA&7;rI-.#l*q;W/S500;'FWkP9g+|:g(`2 |AM_GE*ȚЯr=Ld A#~A\?h%!KVI;8A~HUeƢQK7/SĪf[ы.Yb ܘ0e~65K0^QFzGucc;4cnaQҡ0ђOk+&xq?CIc>kgq^=MwUzL</$1J4vaZAĀ߬pTsX̿%S޽G$U*0MT<.7[fGTvj-\Γ,EQ{V\R2!KީNa#ߓk.`%Pb Zsѣ6i< CG|l_N8| | ,{oŰ; zQhr܏a;F c<'Ӈ##D('/hzFR{mra^f\.hISe#PM ^6nl2İZI١٩t0R xd)GTJLf-onEY;(F*9IUF/;y4Yn\2|dJ x:֜{x^N 6v-wlD"\ fL]޴1=V<& Td)& 0Gӧo?U=@`k/%i{JJ뢎|ի b7l"39Lw{@JqKX;ہ1/G!# Ƣ8%' G0:s!Tڇ= f. 5 M lQeu'kɻOnKU,D#֐d6L6޾{J0E\㯪'Ȫ׈E&g>tL6b0Er{&fhrԍ11r20?WȦ <=/̓ b4kIyTA%q7>JMݰFJtm'UtᜅLӒ+l?׽zTM9^-RZޯ(À tAM*bp6"bnc#+n\`}U.|)j=ѵ*rq伓2G&XycFCOC`rYj3=*kr=%LBϼ)͍vLgHP?pHㇿҋ1nc bLx:34ZTWE\ay:,j2t}4M,-gO+YsԳI"~|j }3hx8m9}]-I&Rvʑqxiڝ㜭Eǎl~+ۧScrc]RNkziXQCFHl 0h gƺ}gޫ"JDhԷᰥ_ש_ۭ^@ l\^ Uɡm`OJr)0ﯲklw;&l.D=^{u`pBx@C0?qB ۋnjӾBV{%Zw&IE6؝:yio)Vgedc_D&<(B9w;dO]Xuf]\| Җ Б(`:0mᬋQWOB!oE sul!`SQ)yW<:̝ۣ]F l^ނr4 ípbpJWWCؤE&*"0x7ȇ۱G4c Zg~s*" Fݴ%һE_} r6yX%g,+4J<̡ryاQ,5֐v"_Ǽ_"kuЌkDrBH,, 3,8Y%/m# Y <~3B'^tm]T q/pz \ .LZQ{Lr#X(umg?EFlwܡLww4wa15{>ɑɇC; s< ޠCÏP{9D@®۬τut] AL *[ d 4כGnMh"q{RS={3-LvmndUǠ[BP*ory׌L[($փnWTx[ૣAKc% F֨P5L3Hkc=_60Xh![e>~[n8߲JƌV+q3n~\Kw‚R$J͊z(cUC\#STS䱔 U$b fRߗ8+4|AoA_ʼp~>9NOMbNj6LtrpI>I`NQn h+8\h04,a2} 9Γ4 /H+,adYšսGRF!6.E% hpZ CvOb M"F>]ʴ'ml.P| d,%eSDg擽7=y hfg-_aF#]j}c6xB?T)Ib 0%53VהԎ&TTE2Wh*Y:A Y)AoK8μhD4ӑgК.cܒ2q`O ntfLf ̟n3?HHa As"~1 vGʖ^FSXR ;V<ި#!SxF8R^GW$^R(ݨ}ʓ K?8Cg2Q`=#OYjd/7"+Ť+č%sKHv, rYy&'U$3?o:'< AB\(ֱy :G J6l'ĂeboVF@5y"rVJy%lNp O5멑4=4=tbG]!MGۍr95K?K>Ub} Xu$`9s:&՜䮧VV5̦tMS$xTBЍmgSP%;`Kݹj2`\srw6F Giq2 (RvZ2X!Fe{iR|wʬ Qa?;zg(؜~J$ܠfN4;TV7)WjL%;[pv9稭q (#nPbl3)mT3r)=z\vR٭QMԮщoĚU\YD~^ɯBz@ F.Y#Tғ[[O@fltYNRZTf" a4#_h3/N2ѐaV[Jn4|]Cǻx}%ipN?>:T%p!$R:v**&O!H Q5YE_5^XM -pQUB)i4[(dW0*S2`§ V¶|5qK۩>[ujM]$-&j {ۥ[|o36,VZzE\u kFȥ ElQs4ͬe\M{ZL"\/sGT, f[^Z?A9il+Lx0BhNJ&‹tG`[!|xnh@|?,Zݴ aY,=M݋:L;hS+juRPZ:_zDq)]קײYwi|w}-v)%ZYbBv +?Uȥ{,`9 \xmebL 12pɫZ0?Y&z)WmVwrZTCӮJ&LK}O(4"43ybl hV^]< ]`b*P8-zX]&a?m ? b[YYdtcqD䲗|zaLrՀŀVgDcW݊|ۤtdXB XT29D;I:g3Cuf;7CliyG}j 䲃&?JjMd+~ */.&d骞?x}>A4.xpR }˹o h&,Ѿ {,2`!5"` xоwizW"z YXŊk 60"s͌qX{*usHjI0"b8^U|J jN'il;&F-f&yS r09K-oZ_b/4ͣUŶ@<_P-G]ɓ{:v­koɺTm8bw`hs"yge~ 3rV-~)I$+/2^MZ< ?R opBLE#,5`y,̣ql@S*$]qh4gSÛ]%֐TsQ 5]) mޚKOӧFb+\/e,*r7BA9}>oyxNHR;!W˙{}Cj|BDwT}z ص~AkSr%v7A"x Ȧ3n8Ğ9S=qNF_X7S5\ڜ]hR#eqk*B,+෮P%Tpjb Rqf:F4$ʂ\Vb@i ZY:+!")-MBꍗ :BY&xLU3" /ʀwMϜ^6hel286B*FKd"Uzk"tiWUckPp{g203 %>,ȵA& eIH4l !5bTZgut=dG>@ J-ȡh9^օ|0CMYPB$˽QQÙ.MsZpnC7x(_']ql9kTQֆFތץsN\npҦo#2 Ó2J/yQdJ'dIM޿xJG==UbĒʡvR=/RZGYR}+kc=fx(.kPH:hUK c(բ3b]c4Vl\%+M܅VWؑv"g%ޱy}I Cj 0cc1[%tp'M).LֲХkYFk CWKf__\:뿤?sr`>76=Xd,דk`T*T.1V[8hRâd~?cU8I:3^ek }dd14 S^ ʿ c<0rPA EB'򁊺-әE9?2o35seY<96@VVqFńk r --Ÿ,fUK^m4"='j+k,zX|"xַekg.1ض-}ۍ hY$5"qLgCRtCTq t+S9hgVG^ͦ_v;pգ gcVJ5dL5 q5l~Vw/L8z힔TrV2jSRSQkhDu}y}݅I:9]5#1‘gUoȡtٞx8tj%@'~T BKUsSN I2_W/\ζbMD]\PP PItl,m-kP_lҨK]̵r lWx,) ,{ {ZI/&U.i)Ԝ 4gQUVz2S;\JXjQl%/ 뾕#tr I.NV(njvc,-[%ˮɖg^8V]3mGh 5""OCzl;"[AغܟS,p|nsC 73U1XXp0\m3#\Z'a1a@Q,Y M{K~ #5~6UkƅW ˁ3@ӿ"--+lUXgUŔ¶ƆiE拃,@-24w!^-Aokۺ$bVIMlc&ӆŜfTBYtrqZ =bլk)8>Dcs!3Y=u6e$&KDko`&?D/]fGk|UxdDk!h5c+kj.sxyTTRuW4%i;Z{Q0[W)]hFR#j"=zmt4EF(pѡMa(/e)#+52D[JieڒiAf&8XM`wxm/cܐxz?OSƦv8JODluהR,E(M-:M`.&UYs;Vc-.)U㱡Tߩ\Vj펒~Ki嫿ƺ-*I}IlV@ `lt-M? Qe(ʕp鬪#M4M?2?755r|5zk2< DXHFԿa~0[;sQ@u&V(sߝУfd@"zX_D 闚@Ř1 H0g@{$lka]Sc K Vۉ^p5<)>,%Ty[ 6))@D)1jZ/D5ZpnZVN:Fz{KS(H}X Ar#ǖa~+1p0ZKZX] 5 ܙ85ElJ9pwR͌ElE}hRaa]!ANwu+_+&ީpBU¡Z8&J.!?%I_qdVo(qt(a㗜PG5b"Iq[&IU(%3bڪ`|It-08=9rh#"#-lt@?KWy"FBQ~mr/|q@SbD1K5IG;!>?9ī h]#7U&'H tl{hW]^<٧(=EKk(: Nt;Q5ރ59?[c'AMg|)5MQiT4sbb"%~0VS†wsIPxm@ߗ D$p`bX.o]=ߙ cن{ vƍ ŧl1d;YSws,'w')yHRB/u/^;F(ZͻPol Y*'n~.l6Rl &KeVQ|wy!gTPz^ǹvRi=N@с]%H ljG}.3-dAIpiihhizض|KBN`L&O;jj+-Uj")ȩH} AXݶDݕPt(2ۆy|ӗ'ލKN91 S]  wn tBx CV6tV|i$M8@2B̥.CXHn)u;$30p$8X\R͖9l[ΑNed&qϸ;-zN}3R͸N&sI@h_50l+903JOPk'0 م N'aBYQoz˼ 'yn8Y=|s@ ;. %sȀ%q9fd2ދlGꗣ]>YaėV~:p ck0Ԙso`F`Zs-FÓZ<0=^Q毾@jC>8 7d~ @aq]P yO}ۈ9-8nGX_I֗^PJG77~p !Rv՛!r:Y*@ B~d mhDU$1Oh,Ra `㾑r,0¢!5,{Ri&BPBz"goxHWikJ]kcVhjOGq #Grh,q ^'[+,ᥪ#jZdgm =#+c$Xr7`Boq"J6lI(?ȉzK~sgaa8Grg4?؂eTѻ}m}Ѽ}/GR YT]l2T yQBJӅ e/֓Ω83G|C:VcEQ?Jߨi ~ǒ<*CM\hS-A{[ʻshjrϹxdP)7`[A6:P#\QۯqPjr+WO_J1&) kF;{͌I 1ČCVMh#F6pA8~!QvfܒMbmggJ9;Gt]/%0nN'/H!^&n.?z\DBLs9;Cq()Wčw^l*_1!`g f^39UXI ϙF4|Q2J>m';eG<},|K_N"Zj`&fWx!f'*OЗGvVz°h?3v۟Yⵏ]=0;d]Oڙ#: ^b~$ #h,T&Ɔ s IIA9_tfpu&}Ct0&]a`g?/Yl XRg6;7%n9_c.Zsտk_&nKˇC T`lR .u8D=s޷\8dspij,P,K^A9ou hMPS0ȻE/:s}<`vIs@T"kPƢx85]_AQaaNk']Ge`:5߮]E. S?5 _m85绘oKE%AK',&O},^p)`4]{Q8$G9Y(Z8s*"T( (Sv sYQq2R)?ȇ WhHP'#"0""&, "ator>x ;d`\ѹl96\T@hp}Ε graS,,٘|f8 H7:C*NhinJ1Jj9+3ilطS{nV T@c f{ gnˁ|9x˜1~۟,f v{il4i-K UDnŶ\l6hM̉Ʌ0^{#x 2;C@͔UR=hK"pTGU?iF.'-kɦD!lp#.D%EbIANDrH^.׿/Ap\IBf5;.kBM  jKyJj?yF#iRN+ =i\" Vh]F,э}ukՌOQvK%by2<~ C!75q_SbO aH E<BculCP&cJ{~91Ɠ6jOa?OiR)Q0)7 QS:I۸߱AFV"V*fڌ/!'D&ir)QV ހ.gizwṷ[77\*#srkqPo>'s=*Q7|踭z捖Extl1M OPSO0%d_<ޤee r(_fO}i:AZwH{ }.ƷN27JH?Q3T_{kX*Y"3%U9֤0iA^=٪/'LKB8.m1K%9­Zc9&1*uDt(#hUTψևh_t/†8bWPRPyobBP$+Q&D]MIC:lVFT& eJ,RdnY&*~8M>cFC:>歗CchJ+> B⍭^htIm ™1'sS~w﬑ZYN_fN䐢R%HQjt$ ,3-I8zXqΥas*uSDn\1tz+6\uo=@w:Ɓ{wP0J0""^s 6 싆ŰK `[OdcD:wW/[U]}HӥCuͷߏq0S  Iӧ~=9 "d hArAڋey7&OU |i0)=E1Po/ :@#wlujJq7kډS7%)n.Mg~j $?pǠ3sycxjH^M&g߽Aa|#m }lwVqP-2NCD~O QF>D'X=BNN:ɀֻHs5@m-ۆ܁Hg`1Pg{1HpLMcV~]UzwOMn%q Bf`u `4P,\EI+k`v+oRݖ0Ǭ:S2SQ>p߂0˙2sEH>D@wMpEM1&Ԃ?I23`po<<}BBnu' ;x"/9 ]&_>ˈ'E,F2fGN }0DuRӒ#$֠u6HhֆᓷV)=&۰LYZPAHQVM !(vCxWc7 `AgB*]9̓b(Whu_[5C>ye"ѐlUs$w<or;?rbt3hQ"'[ZG"E#жPohX̒߳|;"؇Uzvy~(rX֦Lf|lbTز*Fj*0h+7;< Iڍap,PМdd L.)ZMIaRv6ՎץɧH=y8ySPvbt s|A.6ۙVܰ lR~b0.iU)k6n߮S2v6s܏JS]B2K MQ#tƙK%яÖ_eũsتW)(l3X.0%3Tv5?EӎuIםA0cco^/HOp(`On(eKzԖi_c+{D4wSL/Ų^ɧ| $q^JCiZIv`&{ݾ<}x#%lLA%ЙA %@M6lo}%m6ߺqgECu-׫T%; gUB+cf¡ HςP;aZ9_ԁeˍ ~OӪNna/7R@\,ȟ[;Wf g=\PWXّFJ|n,SS(<胨w)ԣ }e?-@ߘ/oh!ۃ',6mPB&pp)H8/xZf^#E$nbӧ=9 3@wtb+[#]"$ ܋63 |H>XlCGSI&/0pTczZg+Kgsdߧw,>Mqe5"p[ؿʶ`%]t j@l8<#_"{EH'\(IP6ϞCb3cwFZNǩLyBԙzBѐ{& &yBk_+%h3L]Lft _z G:u+O6Up>\rW2ƜB{-::輆 t:66K':<U ?%/w@&V뚟6N|II]WBg30<Pd e;8iEB۞ien1)2LyJ{V^Mo,"Br݂J{T:>C`ӢBEܮ͖UXh $κ2N[[rqL&^$i7ڵ1}jV&~j-|rW[@'X'EsV.@fPBJhl6Ͷ#M %m\I 4F6",M} K1CF8hWn Nc)ǙuXS'1K3:sjiPsTZG >gI/Hw>F}K^yIb_wY,? {M0_kj!'ctqTEKtaяXT=\Ymw}VE#`^;g UyYLnΤb+݀vj8*3^l'FT.70e~%㌵`@f]l2'v@ NpJb/mjpqo=YǦxJ܅1{+pѼXz;u}e8"tMM gkSce *(x_ů4d-R80U J}%`?'DyBd`U.=#u[^}Hb^}:1VWۖ lS("{ɬ27K-k\%ˆ>1h rkhZ!9}>4d`ôʪ4 3$z7V~QHu.6,ۜ /9܇^t* $? ě=9#ٲ(ig++6~fP98V0i+%LPʏ *[9 6=ĘFrUi@DнYBH }^ݑBw4F6f1BEBX~T @?dR4OdL[TpU!sK(|ĶsmLrx!oUQA|WC_ ;h|P}«f3HL$j|X7`ɯ.uσ$E ]A3]Z=5Nh*v0"p*v6}OM-v`Շ'2Rya*W,^Z'u~gDVW ~n `bShW^Tr,3kN%&HRKTV NBdGf'nCt00\ ߏ]Ԟ/ 2eq *l|g>O@'#ܚJQyQpٟ6׬6혁h haXg.A$/=s[bq0ݠ;imo^ (8{Nc M|BSPI[faU h~ 7LԒԘ*%lxӧ,+ĕL (7[p@&ީl?&paǝ~hE6/52oer9$:!\ư-ԲeTfzd<)ɬ[Qpw4s"Z9[sMt??b47i{m :o l>-?wB MU9)8Qķ?zHIBQ3Xu@H?H<^K~ >MJN) _C sah7n|On/1!'%1cy c6xx}sMmO:༥եY}rT3Gp`| QӲ1=A R|YCk1;_$83dv# bw%AsPݮޠ;N5D~gDw,_ D&8SjAD_l,t}lH,WYֹъNn?@  Q;Ũ_\i$;XZeu$a?цgJ1 ͮx9&zSbCJtq.kR>5|A$LQ3]"6]xck#W ",֢A2AyHiKd[-bo,"uA$TZ*8܀ԀsC3s h˗~qc]M:V.xތ"ޡFC2x.,T!#ea:+ۓKInfr߻m+I[4%:i1 O\9_T|&6g~OrDLd*DJEÒ(Т΂-qSn8KXTm⦚+6$ I%ąv8c?CS^NG"!>(#J;5rw,Nza;fh9[(̈́A[J{zqq;o0gEP_$(x+,8uvc ^BKdaIS;Xwnã5&VڐMҷ~ Y}7ܹ =ٜ< DW:Kr1KOqv'0b);'s-_\ /.1!)z!嶹d!o/)F(99zHh.E?Cck[Lp}?ÓEA9MN _<`ZKPz?$sRǣN?[G^Kwt )2Nh.ԭL@w9\_X@#V#o @4"(>yq1?dO4_.Uⱑ~Q$} Ea1QO3=JbM1|!Mf!@ WVC0iDCj}ǨRĂY,̱;nY ca"04TF>y#k)w CG@&Iڑ4l)+R1BD=x~Mqtv~~rƐgV]ko)]OWp* ;Pԓ}Ʌ2$ WoäZ5Xŭ{hɜ|ZN,nUPr-Y&%|L7L g(yg8D?x,"l||M- .aE٢T'3[;9j{n2g]/-gsYN2U|0 x?.hQ]ː^%ܞD$#6 =jbQ9+Y0Q@~H?R1 1ـURrHT>A{xE/j.jZG#gV}7>10TԼ)5H2y{bIQvnGvȋ\bƪ=~rK, +6]Kr4ZCSi9Y؁QDp98@%xHlZX{JB U>ws)_6^ݍfAm9Pr*}^[v,78NŃ>( puqa%I["AY1 !8 {&i%xی y"OLpشallmE:}& M%˛\޵pe[EQo. }Vh˩؟Jt-7e:J" VH+1W/Ÿ1~>]ik^4+|{P􏎷b f ,I.Q`qZk-D>Q"J 1܅96uσ#0fJ=۶w꧇dUAiFJ0]hWxwC[ThouǬ7ɟv''ڮFqWwo-ڎ@ln !}^Dj:px~ +j͠$*BjF{YבollȞ "5ؠ!z#!u``׽2gƬqv[?yNb> 7jLW iIj.N])#yGˎg!X[D+a,6V1z `'8X,|m^b)hJ)k1a7 y!ɹ>,7RW0MݨN.YJ6laQ yL˼d \,Y|{(?gL3^8C-bV! t>ud,7 bZy 0Lh3ra$w+XpE݊;cj=+&U$_0/d,DZSϹ8b  [ V'n%eFQDu%G/a;8O`^`S^PycRidoazAZ-19eʅP*ϑ/"9I#xQ~.~dN@XM8oA9;*E6e֗ )wy ]@]Xt@0Gk4VGs ތT@/CSP'OKs8R᳜`i4ٹ'梴_yiU!Gr. 4 >i)ˌ睊rJ!(I kTJ* وOcx݇**{p/ꃉ%Ub|;5/W=΍/M_b+>/sJ_2eEW8cH!˭&>'=N}g!n+t+] G GFVyey/!ec5CFle[GCrO,rM&J` f^ #,lfQk*)5_XJ푄r^N tϬ"b$2QF 5u;~^ƈh=8 ` 2$YUҷ)Gʼ/VzNhHz΁%/Cy̡I)m6ז]ӌz^>7ڋ\ҤRr ۨqstg 1m ˙4M~" UBIBp"#`݉!EZN 8#QM1V &x<6W,>mz%T dgdA=,>8˰.'=KͼO.&H"؜NW((ܮgPhm-_edƶӾG^׆45 ?4沥P/2)Kw"SиwI AȎfbcփwy2ۂ-x:;C1XvKLH{g2S &瓦i2,׃3T{v0ܨKЈc]@¦NP 7$.uwMi{b +ql1 害Oi܇>I-8Q3>|<7>bRl%.w_I 岷!IPug0/9WwY[^J1oQ+ [my .ǬY2![2L8 Ax( /Yn0 syK|+ 󽇜`פ|?o#ns7tLޣFtY[ow.~ Y-d ŚUe-f{|QՂ}DB@䨏@KBCƃ-XVh>:u]o/̎l{v]vq s|byqJ @7zt9og3*b?T3J"+'5PƈzY3kx>r%@Z w-(U UiUEc1Vc]-nW*zMњi[-)BC"jwg.NS#HvZSeL`˼ C!VJUg1(LWCz&P0m}}be*TNÎSKjB`iCEh?͋{u ` O/CﺄQtʘU0|<&?C5fDuY%^p-8m]afK}Y2qN1'[ENcP媟L>{wTuX**7y+ܨ1)?NP n;~VDy$:8w4ԫ32:Qm.*n蚦R^K)Χj M"|^&YE]Fz3^Ӭ[ɒϽ'H}͸BŮ#k&Q͢/l,䰥2t` ~^X+_qĨ[%ٱo6$g6FpCJyvu@RSꨖ{G?7 u\|({_$٬Oˈ?D0|K:>x i>Ycb.\ҿNP{iU÷Q2G,:69\_g4[^xQ!kƎ9;n(Y#7)0Fb`m^i}*6>Rrce7&X@yrk#Uezc#.=Oxd8K @*[* #r2OE V~ =Et{_<}.']$VC21bse$Dm*as*D"D佑FS)tA.h&.,A6Ok[[TyhV JdWb apL} zGh\? }+Czj@;^7DtZgHt/&W펗*7.1Цj&dCX\e 4"j G(}4"۶mx+~9jp yY$S=(ﬧ9i-F@Pb+aD F~C6pӜk{^j"U{\43 /lJ(Xe_ϞQC«HL@`w< /'8EѰ6W2AֶܵxW/e|U`I5J 'ӅK4?u)S~KI u C`l_Ar4Rp>a_@S=d&pxU&蒌Ns'Xs` U2Mw2wa"7?Iߵď`-|fx4}6h]5z-hGdT@LƦ`{3O5>:Il&Ⱦ 8. BJGihh~Ih{c7z qYߟ;)`:ggHY(}8'1|Bׯ{vt\O_ Xyoe'K-"B'zs}|kg׼#~HeW`7uvm/5$pmN$&_KrF叿f}Ux2Gۤ|Ezq*yGsW[)>fii^!E{"Øx/I:gt:[`ȟI&{eS*@OB z6o]jr]hmHBv!2JعzfF{ GK HEEx4MeM!wGGPyH .\{ny}~X,^(-̣ -;yR݀x[kef+O dbO쵸m8gzF( b@+eƠDCįN7WNmC} =rITi+֤,qƬ{> Bd#&7ZaD- \>+I0=cD+OR"kfj~k+OYB~n xTT6)Ok&A5hbT^-RGmOtǽR)]+$qbFg1_rZN/& \V0&<9*Z MdԀ ց0 ъuoG{q[*+(N1Q3Q@o^7p:'3`]R&4_~\!NlKІ!=NlW>h9lDoЌ#PoϿsZ@B`p yT&cg#Yp|M3Si;YA#@M~)MWhc %Z+P@xmmx u{0.:f@ڳ rOYkSak2ś\ F5Rs]2˅.ԁӲ9V*4ύ hFh(&P˃}7gbJ*C7lvo~70|Só_aG}-`&']GDL)y5!qkl|aE'[D.92D7l յ۔o >XHF,me@}'#@YLL_d) -#+R@<9X>(Ti)5)K\(&rsxDn’^r(/, \ڵܭk TdDјvNojRN=d7X5z]c=z/'IJN€l>%h3nT)nmm>Ϡ;ag>۾Gq&ZS Zsdv?@ : F$A:7~D~lI ulrL$k} GL<{u}䕄׃{Ҟ3,lhmdSr>LYM#Q$gp3+vOK-KK YAp Zh/{jOַb5dE"X 2LվkFet2%}p/ZLj vԖ8Tݏ-{ Po"MCKpE ޚ̞RWGr38||rˏfx7E-*w>L9|K|Sol1x!1%>3-L:|"եM&rp&2 O4μi$yM]˄.Yz>R/xנZ=fcv=``lRmF+$2edvodxssDg,[p7`فM}9Y' F@Ո P-e:}xeA}:Zsܻ5Y$7)ձTpVxcz[ MDW:Sq" Ru_e1ZT٢%VP.6C#V^ HX51sojl T<|k <qeMwH4L*)Idw8*q&n2J6tv_8tsZ[N(n1g|uk QM0xX3V|]|XIa&7r!,W&&֤fIlp_`H'^CwXGO)'Yi'm|3^udk;@擃rHgٗTb HVGnq65#\b`}sd5.R;N{pq6<저|'cUwb.W8~Upm\iB8rǷ0(WnJRLOm H./C2AKa#x}hvfX19+ PGFղE h`fp b7ƸlšPps61yUfR\#Dd8#0_~5&*+dD+? !zؐ&idxʻy>2kCWȊCĈOz1F^2J1z`~/ś(.a3ŵ8} id9Kyu3~(=Ҷy P)tceO6OØnBl$P2qBl2@wA`It'pɃ}x)p\paw#}'oVx WRzBȽ#O;r& ؍3%gd Z$':VdNUb\$@JC]udK^7m* @iD͇gMiK/Cົ9Aj F[; Er˰͹1Zjνn_Td5De^ui2!j\w8~Źa3ή|IaP>8V$/w"?&B i365Opwl- 2Sj@8 d=ʨ9d(r'֬+X+3Hi:CPS/?3(yvA Htny̤X8Hdի5Q UR_k`6)6|o`XGwJ"$`̣UPQɃoRũ١>$2IvZ# %oGr?٫wҔGE |pQjx/.wjəM] $h+/J_giG*"HKxV>H:%ϮG&O% JRm7g4Q̇< -#E VS/3I PU3yo_ I>.Rq1+c>w&<奶\[Yߞ= CtBB0ߋ>gk7-i 9,:C"z(ḽCu%414:Q(g?S}㓈Mh;6XZ$ҝGˣLT _$=7U=Q0ʏe֫}"?Zzd6]0;Cկc4fؤ:OࢱjTwM<Bp7dDˊ JC2⻖AP ƃo|aysHZ&G"̊>άlpZMMt3u0?V_"ZXhBYZpNzbL_J쯲Lf\op<՝ܸ 1pBbxG (/1 5WCn-QH!Y]U^-,oq[ھMΩ%23^CX꩸h LNV#pAj<(& l2ѣwlЁe_?8 ~{0>_4UzQ_Mts 5ϿDL#bB'z!k]q.KwM()0P C\ԩ4alZ>ܙ!s/"P0 ԂkQ3`Y$CKޞhr@+)gv%E)ϗG]|_ޝ|j8=rǷҠUPsXF@}@E0r ϳ3E ѩ<ls4BǑ25! ]ɰc,L4_Д"ju*v<. ӵf헐1ldWW}U@wfH_3qˣ'<O) +Vm93205طVYHg.aGJlA<'Z+Vb'qu`"0$E j$(F>6:U_ VuC]5dyMhX8aWDAyl%b,=ʜ4䅛,nKu,ɨ_ E[eˈU:D9;!%QqpYCT23ɚ'C;uʅ]XA?My>X6߽9@s1vuw3d{9.2G-,R0@ /mIit40}<#}dcՕH9~Ƴ*s ![+cNd+t]OuB%fQ#eTŸ*qA}؎K) yam XOG(zO*0EzgZs8h{s)#nu.cDFirS0#%<dҔ\O6ql\Dhņ/ɬT6\n~q fJn\.J#.f%Ą?HЮ,9\ >:TF3Taj+p!Bʂ9zs_Q-rYuyW[vV___H#hώl=Lb\K#xR"(NμoKjf05lV8*AJJ] 0m >Qv> g|v끿V$nZIVipw 8Ba=6ШR|0I"lo4#}Uʑ~=r+6v7=rEoϷY$vj qyڌvx\وR[` ](\@ G*`&0 .> M"6g!RP .ܧ'SLCT(j;Oi֙"T:`Qe褐J O|+%m*NFhlԎ1+y5'b\,f$kM?"˳t KN/†(׵>`^*pII=F?|B D ?8@<[Soouq B9a#[IlByR/85k5'zgJ9D!(]wKiE00J bEI׌w/~wn7N} F"HDѿ Ճ&} 3I{jpm #|h{+߆־5qbڻFdHs3]ꙷ#._שzK^]2o ]J>hL/#heGLX1?*++!d諙ўeHLa8EdxP#$qWfV@΃dͨͤm[ʫ3N4狣0/IIM8RC|qslG>?92&"y-"PK*>2<3O6)| 4a:`? t:]?CNΜmzCv4$|Q`,Slouԝw+oH8 +Hɩm7|#)`}He6=u>{F1 ž_E?P=0h,C@A&HOao2y͢#Sio~%רn[j44=ѨߝD:]BRe:E7Qo8*s-'$YYE؛M'@i<8.OoLm (-,6'5,;U vŽYYzH%:gRXFX%2s{@EGGq FF'ҋ*[:ŗhw?9s} .!$鎞ڢ%^&r'%ske SX"2d繆_rBD0δ7-P[ރIGHeSo Zɉ EDzlnBSSLth/Ťk! RTg6s~aY8)G?QTCz#XT*;tྸ';i YgC&_:l};qI.Gq,Ϙ݌H0fk]/tK97.*H1)?$"vwfQGRCE!B}hRuTg@|t?|} {U?y3p90Q?"[" Q>栐[ ~]AԃxA0Qtǧ2";&7`&2TwdٴhWMQ h٫^=@$Z ;E;AOqњSATj52%1[+#}htlCruU#-:Z@݁Y?wz.ܬ-. _[\\c/27TP';a 7u {7MJsd/tpwH4~iE Y {˨%-T\āOQlo8μ`E1&]+#Q,N܅0{rT6ϗϧ)-18H @:bXq]Ya!Eȗn*o2}e&5>OӼTo[ RF!̝Ćጔ_”8ieئs3jn5활-D2.y3꽒Tt榑 @&%%Z-+A;)9;^Ou! ']7#?(@{g] {)j!~Z&{f0p vmHّ| ߌ¤{) _#12WbrEMin@N3e I B\l~8Xw93S}9'VKd]LUb7Ifro!0kt,\i\ηlW-g] :x[ d*T3$Ǿ䐐r]D %KFJhڴ& PA{ /.K2S!͵{4FTiHG@&|_N޴DWoZzo6(̔Q?ƪKL<̠S1ߖ q)+[M[/95Nù6l0W\^Z ޭNZ},/uȗҡNPu0  A&|sqBl/.cw=>F1On@`4Rh)'l[Y3sm"(’DN$e^1t! 4*Ȃxt})˰lPXZ֒[ u#o%7FvƀdȮzBMT!ҔGleMȳF b}36y/g \T޳j7aavqŘS0IKJ: 蘍(!^j4,U#-2P>}d}LKv |Wǂk݀{t9yG# 2oktw7y,ˁl 2{I&sg ,D!FTVy ob| X1ЄFfu@m"қd)N8lC_R3=7nPQw}ghExptZԯ O:8IeO|c帱-Y-&M)xh DdͦsFW#% bs:m׀)w ihS'_:߃6&`N\ޓ 3/즠.a9k{B S*@B7܋+F!s+qШxfdiisD RiǑy>hX1^^߼yy6qle; /:BkCg&vO፹%P kGMJTc4%% P%[4+ tw{rbRE:?/fxje,˧UES\^,LڹN_,CS7WYx8iO2*X3)4QZ\f~ 4"ՕuE25\hK'N \&:p&]M^m%$ $C1ܭơͪ\i_&j-g8y`$TӇHv`Z@WhgEٛp8ODеWCBr d/A2>Zj#*f> B!8,TވpUbbx+[#lS情 F"HFP>͊e A#8#7)JE@$;GW]Wa8X+4}.˦m{X8bͣCZ\L Y4RS.jY&l`B?^8'KI^s^U'ź.8ɒ˃BjQU.?Sk4ɺ 8m,!iJ7Vo_beLت2o}b.s ԩNrՕY6HTTQ٘hξ΅&hPQIp03ݓ;T"7d5RY.~EumOUyޗˬZ]{STNV .qN PoK@~xd&8rd"$= ߟv4 v#Ÿy.+ i'\]5ܽdz7?r% 3c[~ b,[1ԯ0esxV,ae"G? e V 5چP wWFo%~Rz}֊l}5TP86G/! x vTCAN\uzoY([WW/Q*;bHa#PaR0J,aq ֙3o5*#| }1((-ᬟN86n}"^aMow,8P^"WĤ" e|}ٓ?z* e HSx\\M^j{4H ໿y:MqsW* LMԖ ݩŅ7汋4̜؞ɮ? UX>ӄb KAAYAcL9lA HRg* hW.I~A+Wzw&63K/;5A{ݍJu(iߒY(54xptd艣 iBWan(3lܰ'+^ԛ'=MZ  Xc.#ik=Oor)^jED&k3qqL~?֞/3X.-qvBC7*Q,e.ϥZKޑƤD_ ^Sf׬Q08V8;SV/AI5 WJ%rdsAm^'eSn#e\Mlt-7m Uť! GLR1u,Ly U50B9  ^=ʡ3Gro3tcE2vx8i|ޡKcxŝ;繬[~f< KMZ`ȧxC`Ŗ'tDܣ69NnbMA1]捝kCb6=~{}hl%%OQ̕Jc(4 '<\?sҞI;g~q]kzM0/6yJ<֑ަJ+'" uBܜm ` 2X_Z[xƒKF<2Ҝ̏.Mv$\lj &4pУ荽a5| I&Fxb.v^kP`~zquI1_VdjGag`7q> GU -tZp%B$j=L6wi-mXۧYf̾"О  װjFkeLw]~ۛ;.սS%JMTE[#(ǒGTs"DX'wCb)vCU,8pgN^ 6N6z~_ N?pQЕ4{ɹÍ 0f hc#@<,Sƣ+}~WVrԢuHpxoLv 1e'op<|eA: []pY}Aq#M0OBtI{]{K[JrN T^VYr,f`m9@5$G]s 'ςx]f(.Ũ P߽ﴺ9@o+YjVS^4Z6 R}ʈS< mE,ٕc==GDֵ46HTti%>I!4# x/6c4ar74;sF??FC?=d[r__pSC̦oPusNlőaƋJt@bרK)$њ`: ٽ)<"/m;gqL$チ`\{ >ͨ6wR8L٬N7 tY s8FtvF ծZe0HhH"+Qcj40f>>)+vCZ:Y_M]Fb{1RvDe3wjЅ]Sm?SփͱODnw]$P0gӝmLT8y PN;;-YF|堗~u׈x\790!E69CcF%l;S<.f:?su ^%0s7/-qw'ݮL Ĉ@}U8u Hq61xua EO Ws` 3KӣylfXMXk r j)ߏi~`ԉ4AKt'{eoO_7 EtoQ,t>UܲƮ~Az9&νw y3>B0Y*mɋTi}$3g(s)zt3it:pպi^)!bC(kxΜű{il kB: &ʇO N7/If]+V-3M i|!_jHMG bFH:VG[&gi!*,@J<[ԏGH,uH7^KrϒBʌ$CC`w# Uo`U}.Frb$.'oo'Թ\8eS* E;ƿ9vyDay(;^MZi R*jf&oNdd*q7^_6`QfJ8'r8y@q;U%SmKYtm tjTizmOCPN {_)E UW`𢉷% (3Ox++5QLL߉'"(ܧX*=%; 'V6oftTd?_# 薬Gw{(@.юX@;MV9\,І}*LD\A"LUoBJD_HH@jt37Lƥ_'J/o <7)N3 N3r1HT>,$'or혌MsgB ^'Bo0~/x^8xI{qT~bXc$+Ǒ0vg=KE ~ḇ8C&Np$m|7]BSHMHf 3oyeK'k+#MHYǚmnL&ɄeeDj]E{^alJ$QOAI?5_`f1 hu)!Eι(auUUVINxTu?xG"Cl쎏A/]m"TW-Ɲ5,3糉a,¦Pɭ Xqo4_O%K 3Jd;,@jTKѧv9T-< twňbUR,A-uA[BBiv`H* %؟ɷ?o,cn :h qz6/ņOFc8^p3 CN4fԎA>! CnCL3z!$%_ȑ0}/3~UQBvZ+%{\' +]͗:mҪllmof;xً4.,;<jLwuM_?!FUGbJB ݄}%lC&*h?$lYD[J|] \YG߮J@e)4f[懐<;ֲ1+ѥLc2 EBКuJB9[[c>Hp߼TÅA\By"  5iYv, K֡14O|ㅊY@:kO=m"sqOd',ؼ)wGp7^ܦ~tOw'-p,1!p~*ZnfPhS>5ﯙXhaW &sؔJjev]OCMjyySa83O`ZvLXj6}BJP ?4 |`]3OA q"8^E ~WF(*owc6Qj=4ɩ$s?< 5ˇ3Pw@);J{;nCގObNrShռH/(d =2n`ܩ`yf-N1NB4uՀU9x~D b6V4*.Z䙟 ̟މ{=oPݵ"2C:QIT1ķ1wm)ձ=/}l.' Ci⠿8CY !7K Yv%X)ɍ)aȏYʃj8'%u߰!/Q=" ܌fTB8aggRހ^ HAO' 6?o,qԫ#a?"-"XQ-](ߑx \#%9sPS֞C)Lt16=c{SA_3$~vLOܨy]IśAQx.q6ĊgZL^z/y($|}\h>ծ'@qeшŌu|M@hUYf% m&, 8B݁nB]Zu)vVPNIKi ^%O1$js~kƦaF : e\M HcXPBlR,7zp@kG0wAP1l,;(geKTBu胀 T1LQ:wHVMwȄd:(Aq(V]^L[+~ܳa3ކzi^t<-_2*v%}7EZ=Lfe Z~E3= nB'eƦk%Gh62ŠHc:#9;2zDk>^Ѹ/=Em[T#3\_C=AY=Iah{s5p9KYֈ'`zs.mkRu èaVQi q;oHrQd*ݢY]T7ihOM 6Y# SW}W-ԟH:Ŧ}=gm)L$ heͮ:y!Lᐖ I-"He^/V\RUz2$VJC{v[q!*ֻIq&,Hڽ(hp?L=r Z+ LZP,(fqѰIߍF_S;wΰkykƗO'"X;]\er < &6WL})} P%[z?\]wI$׌=9u -*c- qX#yғ7~VW/9PG'ilYǢ/7H =PT6#06s,NYrۘk;bF.:WL!l sZ(ZxC/n0">gK,j3"hEDZ. t ,رY%+~1WY&f| m)['foEk|NR1͡?;V{A' *-4y]u:֦1"]DMv/~ÃR 5<7Czk1)!2Ӷz (D Va`\?6i=ddѷ0l\(AEߤTl!Eg܆cL[xΠ:ߟimj^giޜdb~bhA̻,OOP'-p P<3bg?ڀnr{)T\*m=z+xqXyu$O]p$vhf}~0$WԖӛcOtVF\3%9s-٣a ޭ4ȌZ T˪p- + +OfOr$q!1eծ2'"$6"M(l|ONutކe2-utP/4Nr":7\!TdFG ]sm:=%qv>Mcqû0PuDvr?Q H}؈ႦI ?.xTRXJ5}[~o.io)CM$SS !;xo6gȇ<CeS2k=-$45.o{ o3vRP25|>]dAQ]x1 CC~lS s =vFIoڅl&YƐ᫶aawey{ È%rxaT}ΝCWjs*AuڴKv󶰀MFe^UÈNSF鯖A=P4CXz8'dwO6AqjK|v["˴oK޸ʴ^Třo8흺I݌*ex۾6yRkةqr8-!,̱q+ߕdTwJ}Bw}#xhQքV|_,t1d2Svsx1iA]yP3G1`+;A}xr0Dz%} Q:6["g]ba 65)0iP-5xpɭ(J{5;!uEWH~q0J 6zȲY ;4%:8qӓ!ZFj`|ȝ&GlD4A 1kRC$rꆩ?ҸcU1B@GJL'?Լ-x^{c 9y9!򍖪+iFlD_ Q?sF)m{4gcvTTuc$8^KBg1Nq,;xt 6WT+!Q>Dvެ#m8x8B?\s1!+1* 0A*0%-ֳ|ĐZ\9~0o¼!ru5߳Қw}P@ T/Gq阐E3+@J5t2, 5i8%3'CĊ*uI&C AOs%>F+*̼oQ/͘wU:su6 q0>_X*  ߫S]w BSBy#Aцg&U SލܰI'n;6Z6jo3p.󧠮H73S2fvCUʠR?k̘k3K#;sMv<;M)?DF;[5: k> 2kW ^?vl Q[OJ2!OW#bfG.hJ)LT!:hU{""HШ2cEYhkڋl#܄;{ %4i%G-~9%{1jУT/EΖ7t,f̴( oodQ< p8aID,J6k&ʾO#:-K1b^ 6T p쏱*ԀLHhN#=[ mTնYQ˰ztճSX3QnTOuu {*'gӂ7#o?g6$PiOM*ª.J;LaCθy}x&p D{XYB?)%ngE T >NgHiʧw7'ĐU,qZ/TW| ^U+ou>C9k  3m9 Fe2--č`NGV1Fj^7GCKa2x۬\!V uC'q ]٩=;!yqTPuo,:a,?zOhjX ZSMu$d\)f"=y|+|^s ۦt*ڮZ$ LZX49~?*IT6~ÙAJXa@XriΝux;t.np \cXY=59 njNvGyTPT3 6)MJ46~+R [3ʲh{5smk`~#vT IIgC2) .m_ۘayL2rk!$(u٦Y<ő(i&T%3LzF?EZJNs&xO^T7/2/ɕ3Lp6}>o\w^K @kGqg8VA^y9 p9R1& lJ.zH5n>A g)hR<۫ECj9xjeZF,[e.7$_Qx W;8t$EÒ|uYC[J"#[61ؿh7c} bC Ua{.ItP?P  uXrƑaRGkנ pn]kȘܲ3'&zYʮUp6dkemU|h۴ɠER] cJgŘhcVv4V)/Aw֋1V%fZCeQ-xK~=k'p:ldts=E*+)g5 J\ޝY-v{ِs+Y{0'9֨lp ϡ:+=@c/C;}%G\ ] G,F]m' .L}O -%D֠ߚbOx V3.)S8\RК x /c`{}>%[eTa;Fqwod)jԁB`?ᔘ3A&Dt8!v@[́_8d 3VZV:fg娩_'p~tء<9$hFxVrT?f8 nf`TvG?Z$i h@1e/Rt=5y A d8,{S80l&XxOb5sZ0nӈt^R$Ւ!?cYn]hzGV>ed2If8b4iUp{MvQP4e̎>3q>ƠUqN(z?ꌙN1t(S0L_fZK K2PX8Pj1|!YNjlM"?q?ʉ KxNP@}W/MvnBlji͋8s89t;_!](,ȊpQoq:jgzeJ(Yi:%Ktn2i@SE,%j R|RwgI1{_#rg -'U3mnpOW:xkO\cc9lb$ՑO"`e#42 W7̗t— t&xjB7(K(Yn)]lډgBڲS60gO5yJCgdޤP f})},"q7Ns3"0_NQS3vJP ,@sv-"SK$4 U$3q篈OA\\&;zv6f? C73@>JpH6,Т?btM?y6F#EEsxGFI1a_KSC];i`t|i3uq&bvU 2s J i.+}5K#p}<_ 5j},7N%b̽yDӡYO!DŽHQșa bhSMm^p~W43Rш=׸ IEUl.\yfO,UP੍sl6Ooާ5ciTXl1T 7(5f j:L_* |[r KKԜC-HƘ](b+:ba] ;Jǜe7x(Dj4%/Vs4i!.q)WD'غ_9I´,zaa{T#VROOT15ZH V.JT}n_b=6^C=l潷DW:6?5NA&$[?u|\4szx2X}nWZR |a^uYT1\7BAwkf+8,{diTnۡgߧ_&o B/u{m=6Ք"`ؼ@ "-+֎_LlMY,5}iuY5O[GmWG DkfQA:`V 0S- ˇG3b칸Sdd~޺"C&sKM0M. lwC?9fuH-? x({Yffi%wf /+Tԓ|<l% D'mFC'(J̿C]f t{CT ˯ 43F~,b6)艖tl>KÉxU˜FԺ/CKx\ΰ{O~l7UNsq:srHxSbb-Gr5;:_5|`- -oX6N]`nRzqC$*&)@3'Q5\up8Apknf};ڷ˛T_q{^c}:i DGr8v;#ZH.B^R\߄&K8vz#scNbv*yUrK6{RS.3z=Kpwq,oK5ޙ0'c8>]yAƒPZABAzQ[5\ ZӢ*4|K:w/U$=t%gRcN+^&[9޶{k((mօiN:{ֽ! *$'I s\ ^*ba4S> $i=Ybbv-?.} uK1˹?7`31#DSwj?ealwEu걭Vc0Vw7Z[BۢsD佁 7_pԺV36k*Ʒ4赀SQ0[lI5ix+>+J.oaQIҤ,Pg8bKXԺqG4U NYyI}|hخ?> Coy{m/0Ľ|5yqr*ߛѻ!rވ]wUCv >Ј½f@mΕc9*$6(𗋰:C.;Ny+\5 U7=3ny$H&Dσ:"vLQPf"^Dic:-;_ lΞ 5閿lK!@,9sV11hp@&9;n 8 Lֿf:Q6vwڴ#M:RD.v*[#7n7.o89/Bnfn.y Vgr)r3hؿ!O2&'E&/g`,Q]clFV.DYdCxdS b'YFF J=]\xg (zOȍ[\Jd0^sT=c'Cb0?xf|hΩJ ߥjN0|Jg]s#*0A DPx2̤Cx|YŲizފcݣj`})S: kn%Іx8áK]f'cE̽~޽BfU#*2b:*%9 u$<5ڙaoMaMʆ@*_C|c`NNjA%A8_꫌Sp}r?y(uI[ML~(mT ϭm TtնVڐiPdIC5Rpz5)}Pkڇj" ]~^r"v1R5#"lU2. -*5?7 ..yG `(zc1s:C 㕁x UɃzn{g;԰̼"hj[mIt77 9TVgqҜ{IYc⻖x*H86\(}+47@ 7|rٻ$ݲ W-{e߿œ "]K\6R(TˑAU]u׾lVE>xHPŚOG~ƑmkE O0ٖ4$E%E7}D0r5g*/k3 mF\[ VGI'm M}omR i\>|b'/ >\m8 *)Ym>::dGeBn*D{-0KkfR #󄀪[XW6JM=bh1#Eex2vaPkc@Wiƥmt1qEmEBRxscZ{51"lD,L$J1싸Xl&0N4oSa45LTsCbEO-Vt8Dуu/h iy.YSOZX[ic$] <" 1Vc N:"SpWSKtǭ&8׺pOwDT4655ˌ¡J`kP Vbh0}TiA'ܦ/岪%Jy`歫6=nt綢ANփ4"Y,Qk{ptLnpa,P ,QPB/_G㬚`>i f5;ƫd˪Ge Gɛo%Ġ}LI_'h qA0ySޕd~~jswWETs@X&H!6PM#.|&hTIzۊ*]+7Y]d]e o`:Y,gDFdcsT٨}"1$9[I6u!¨cJYx^/3eUtx%co!QH):p4h1z%hj =)4wtY+b*&o{)Z5y$pKѫl6s\B4 nB01TC]BT9 uU>L2> ]AO^űcg sats~_@Pd펑;[\zTkGWT{$hRh\eG-:VF0ҦGVѲ gB!顠J i /RzޜXE ,x| VrI܎R@ؔ w(gzYb {+Zk:#42Pd, ?×: w)5e݊[&/,NjgTҷ7aXEdS`Bi7d٧cƇA+$+gV;2 :˨jMOnjF Fi gU*03=O5=q/$B K'1D%w~W!-$4F??ԩ XM48G`ˣpI>q6zٵXce ڃl9ZSkLR]Z`-:G]ա)Z+X8w]cBv-r >Wp]6zSzU@3(Tuuj/uLV⡮iREac!viN _*^ ӓUsgD[;85 U9%'=5-f }+!yjG)9 ō2 =mLɊH7|aBtu؉%NftͩT_ب8T J|Tu r6% AE8kI֪ސKaѹaF/Dݎ8wT@oZI9ӣ\KTg) ʻ$m}a/ivri"5ӻjV!Y$pR{ ;oO׸_$x,4eQEʻfVJR#s祹H@F?G$ׄ`>:ìRtF#n. p<hb}O)*QJz|E.r$ٝr&r~(U0TW%ml6F/+> M3LeGON9P0cXW!2!]^[Qvuع+A6uyD8J{P-c+^aMQEpjc+{2'CMRBIl-5mΎ$y#eMwNmc?SWz|QM3hQ4VԠ"7+]q$c0R3-BBRZs\=ӕabd+v?:U٭D (tآ3%:1:^!\jz/Pj ; CaQqЍ !ADR{P2Pa.>U|zQ}UX/uL>Ap#9aS)M"SuDw CҨH99@VG+(Ć,~mzD'HNz^&np4]}ǧ>ĭ8KTԜ(0%YovT姜|T9gUc?] gBJ<'?yO|;q7ܷV/Z=/GEm1'L&a松Oe匨o+?ێR`'Je 0Ƞ333}y+F;S5|m:/f?ut#jop^W?tI)a2(gRՅ7*=%ikaAᔊHhS ,Pa[(xOF n%Oֽ1\lGׇRE>+a@ń$ed6 6a?Bؤ#cjd( :T#E`WY-eOvhA*vQ1VG!4}w&O~=Oi+JĨC75ebOn5/T u@cl$fRf5 BluJ9[SC4Sw EF`w}_ćXׅ[DGɿ8CrYJY0{I׬ |b 1?jV ??Wi j?Z:)4>`|ƺ:PLc(aS%@ᣋ$ʈVjP7^e V_J&=y;eL>l̢o{EycA : h:ٽɆMߴ@1T| \?WRQC|Zؒ0?BJ2sxZ۷Ʃ{X7}rm#oǠ?g=.gaŗ2gS좇:-o[$FAafb|pmHM=KqB1 vh3p}Wku: rǶdR?2`QiQkZm9Hgo `D,ZYI鑪)+85%]NVcN\V2 .fOSd(^Sw>YyS'kdnȔ9bYȄVHu,}X#3\49.'g9gP‡9>4 Uh=2'{3i8'K[}m(߭Au+?נ37(sRpW!.DžiT&|ʯlÎdj ֩,&ܼ!Ϋ8A2AdB'b>J6V!#_sgp $iyߛA_xjҢW.Jyq~%,m"yXXzį1..i(ef}J3>QP-1@12C^WKt~ʴzɐ/,Kʳ@)TNǂVLAORi󚢃ؤSQ2f"puI ߵI{r[vbFL)AmzxޓOq:`Ĺ^`ٲryYU&z ˒o9 ,c>hV1[ȹZQo5Kk7\usQa-Gyt(G.>w `) 1}n'DwM|ZyuM"͎t7lfBݿbJ Ϊ\}%$m5Y2n|԰.^oQS+C{|z uK#r{"egpo#G2c-k_ߢ@ }P4xq10:g~W/]96:|$1ڜqOO'mqBAsexwd l3L`}W'[0HfV4|'sU)Xx'0RnW,^\ډ\nҠwkǶF~~1ź$z tGس\~Ga೩=dUcYl_ծa ϭjZevĨڥ cTN}Θ6k,& -%[EbmLYZ F=|Kq>yڝU-rzD Wf+KOf,8. Ԓޔa*ؠh+7ੑM3 nr*loTK`J,5BdW\CIJk;#[TaS넥Q ;g`9ݵls,74gt-D#,3Wz1SuM%L5c17&פCat g`,OWf3*z clΠS>(L߼Mh-r~ʪgNMu t/ܫz7H^v2Ɨj5~3q/E];Y]KVOϟ( E؀ނxـ|8 X.OD%֎W(#K{ J]V!&]H5>:pwƔCs:myC"#Þc:Q$U"=w[SgT,&IADknf@ڏ6_5@ً6i$8ro. U״}e.cN~ƪ)mm PmCl^RP]A[Z# i5@ߘ;}1҄ZOSݺn8י9:7+L~U~Fe+I$Kt4?g6^'8?>[~s5I%h`yXBy|?@"TL^v̜Cå=ݦs9\Ƀdst" T58*,d!浿sh3EXmAD!| Ie$ro*A|w`WՆ]o6㘵 yj4 EU]mC̾|YYNĝJϋ 87UE8ipC;0-@?G0MX`/p5t'{CE/,)EZBlI&N&D!5<U'0f%E6 >I6WKf亷l>ij JFǴmkEЕjYV4<\$C BK*k9wI* Kϲ\Kv(o a+ 4^ݙ}^i&#\_qp駉Ӌ14[2?VdWA,F04MGfC|nCST؇6LLZ^avlŽ؁驡/&:aM0jYyNඖe`W plC:Om.mS؛qShbfS m"=~3X\u/K*Nb`@ZC,9:dh"`sZsviՑ:`!dX`0 =fTP'R^F8??M sĢar\W 8D nKy<ݞYFytMu_z kk,_)P糾r\͟f+B] 5un$RpzBP+sɲhqya%Bѕ.g:mxC |>X45cbu- ˉ҂#LBB]9!4+1f\T4]%9{ J6֧F&x7Y՜pOvX墪{ÍV$R̮B~P\h%|k[kbθw'y.i ˢa( aʍ ; ˎ;/c|im:)CM~G;5F>`|1(2Tjt=.JڼhΨ%XxI ͫ|=XMT㹰)L.sW|=\9 `3 ndx"m+O׎عHOp]`Շ_i0a|ק PV!e5d]lRy~г<63nHŊ_dc:XyZR3,FcYQ8s):4g|995ÎpD˵wܯ_2$L & ZbQoѶ;%iV" !et;pGHw( cy*!cۡ9G}Svc(dy^f]+q${Iik튳uHSO`11džsgdㅟܐOBCuukm8}n|Mo<"p1Z`6u>7vLBQ/MfýB+i{S_gifVg[rk?.|P~̟ZKFH\[a B ?[ζFgV.)J!KU6YċsH#?HkMfdj7 0㓾5|ru\C6O؎vTVVaLEOY|8;,Gc?Wه}ӈY1 P@lu.aywS"*זM'wS`Vr5FfY,&@Oq",gk쯰VB^Ii`(LX y?^>K2 xNL5\aJ)1ZI7A[(bi#> D\|1e'{}.Č/,H= VyL>)v,< ['~bgB'wY@{X MMv3q"bEBeuvX'47(fl;Z[2ԣpl= uVԅJH$Cj WiTM5rJnT-Vѩp9^b (n!)"s=9ͼv3'pF# :Xvٞ oBkyJl ;Q)4wPS6pFkOC\-(smo^\LߦI,o)iGB#}7Aנ"ϓXhÜVH !$Q^r0Gs_)(n#_#";}sx|i@ cirN~J FyR.uj"jT`łL%AyH*QŃ5C8oTA|D>VnQTXx`OC% *H":鬼6RxIsK Z=8[$5lFmp7.#:̋tTn%+y/xȈWcݼfa[QB2Y=ĻS7 UZݐpxT AhWw}GN*"pLS]ng{fZ"h/̛TmzOn-<\`c%Iln i`5Z$:;Xy wk)vP>Z>`6͙"S}bA =k۾r v!v k0{Ğ{FPz, CRJ-_`p A|;l1L L;ϔ@"Mf-=-,˘KL{ZŦ zNe_soQ}=wǁg_:(GzVP hgnp{=HhhA51FĤpШDp#Vz dmfH3K'I0 #/K)zRYʪ.Nm}^3O@ -0}2 96Fc.Zuџ0cG=߹wV13G>f c)PFŴ_Hm—>t JYB>O[,j*nvI{!ZY鷗` Ge߹4%bE5nԄ'X}N$|e,qTx1K&lƱ#Iy m-9E-?ƅ{/!ow&C\ oRq\G<H`BsR-k^&( l N؎ =IS梣6(?"!|q~Uk. fxF. zS{\CS){z\~ƭ?o ^Tp{kϫc_b)?o@=J"а .65Kvw9yËG.#liYb=n8tsMJGŘ5DVjw-}L=VooduMla 9HaZbT ء⋖=.+Wxl1,TwN"á60[GG{$w(PrhNƧ~= mp'B %Lz&"y-s ϳG^.SZߟD1,Ѫk[A-]xVǧL(QdkR<6;2@t2!3uJG˱= QΓ_35J0L[3_7=8dUl6#r%R.`ni3x䒜#VJI,l@0R+8b&UIumgh*- 2F9f&94AX4 k΍z8h^Gu:6것?”@!о͞odLqo*Y W提 Ϭjͦ5jb!BT߶{ԾPqpSP'[O5=7Ax%i8~~:oAw  t1 7=@Kĸ/ ٨M~(,ѼKƶŵ;I5qF=6 SUd*hNb/7C1j-8ptؒ? 4,nI,,̖gn|KPj\ | ;yfÀWùƂ]nؿ%Ծ̦Jx)DzPL4Pٮ!I2G׃2? ꕂr:?^m92a ۫]dD$ :}?UF>! UO:Hծ^'v2txhJI"wJݻ̓&!0?͘}| V2peӍl|8J.Px 95M{RF o3Afdf|?4Y \9 s$}aw9Q,Ujz;d o XV3M m/[6yZx نQI.6q{nIKhO_L}dk@gjLR$wkq؄: o{Z6 S $D%B`h'+OZ>0u)ޯZ`#>T@D 9s+C텹=ZKYD!2(n sVdy<)|"oU=hUxVsդ!;iB!gZ>{y8uL&u/M ʮTjW,bNJaЕ8GpyuТom Z}ׂ֫GJ{H'܌QbaɌFtvMZ/ ̪+n1WtrIu9yR' BCǥֳ~b8R՗㻕v:g:>@e1jVxbzD@|x ՜A]#2Y!]w8.ΏX >]`^-)ՏA]^ݶpVxϣYy9j&.ʱaأwþO[to6נ~߸j=0FxEMvh$EXr ϓ؀M'Hh wn_̄<*oh] ܑ%_ފ#.)vi~V%M(!UrҝkWD'W#s*ch7Et&3gZy=CW|6N 1L՟ د 30ce_[4i'8 ; { | /"wJn櫦ҟkeONuOwhWUg+D&ʙTtb?V2|X*4t($<@8ݷJfM{*]azݩ!'֤E.FCCh = S1QE voxțb T%@=:sߒβv"]KyVj3kg1`X&ο:_}ov 3]8‹snTY=W$aG|kʸE݋\;޳WWq|X`MDP袩D(-n))+)OIe#B$;MOiMӠ: ɥ8ȷf!}AV2yڍb-F5Jb"Sdo>%/ka\v:mpv=~/qvD؏[$ș-V,0r}&R@VqΩ ӥ1#y0Ӷi {ЂT%^ՈT̓(N^KL=ݒ2wT$0ujZxi%a?4ZD eV'᪤'J1žwՔIgMo*)ʀ<ȣHsOYi!;K]f#^iDZppw+.˥m0Ɓmu4OTl alWèA98H.:ߗ"2=Js7ڤҖ\\7;:6.e,4Tޱ; ip 5PYQ9<=faO S'e N5|pbYߊ7q~'c߇Zn\7@JDw~(aqr8YnxQd'6Y%:XH UVD?ýe*ClI9s2$oW4%/q<=`17e`Xt#ޠ!IT;1n9kzVK8.=]9L ~B4Vk}O|04)ᮭS Zu X6܈֘~Zm: <i6b<8AQc@*ka.tJ,B,tL _p$D 0bgٌ-Y08ÞC0\C_O/{3};%dr$X Mt|f<z ~&" IRKm~+@@;BY_wzݕd$Vd-B*XuFP.v;._#dM% oĦ>L#Sz]c Kzl+LBgdH'#/!(GGDF軈:vZˁ+#Zw+A#XV딐UY#:SðAs9scYbƜ3_TyDf;mGWJ*ΰC-֛94ժxZl*yYM))sދ98t>Tn\p( C5S1z>hܨ#|?: 4;FwTAlF|1%)Ȥ_Ӂ eHsFl_]G(ArSKl/n`ƪBBkǴGe`ގAO=(Pb8(6Ιco5GZG9$שe(!VJd("'1;!wH!c IѷwѦFqX`?t ?t<@x:kHb^;|Ц%L;Zs;_nr+9m *c^GN4P0o>clcFSb,kv !jzƕs&$-5<%X}Q&ؤSnc5K'ۜܤ/@"O*> {_|^-.9>lXG(5R|M~(έ Y^@m.2Y4-zr qCdvlecś5 0F}κj-wd|qz$r)L⛇LyUS*vD&K S >"(} 3L1%pBBޢ%W -Ї=:_wxS-{_V%K7II~%A` !mxeԄ y.H }+udFPj(.i$z_ZwM/!0' ?J0KnVE{>$\y 0@J>Šr LC.O2s澲A5`NC~tصzG8[|Z%KX(8k|@|o/jmu,N!¯9X*~g/]݊$8xԮ)IVe4&s ɒhIR\);&&BrTp:*m:M<#Ѡ2@jUk ]_v*~( `oVŻ}]M_4HLIKsO'hsB^X&I_]'/3Ek\_߫PF8ruČGuXxt'ḻ U asAƸ$Gb)QC_g\lI8[fP~z4D)^&Umx/ˤ}E鹰(*ök:%;3=RCOG}朁l!l@\yAMmor3$&~4ٸn¬YiUK *wMY1*cu8k~,'ٟmB{|_^Er k!/\eq;0Ex}*4z&ۓ#xہ|ֶ;12.= A%j_oxҗ,@yp.L9C֦0GG 5T0<T[޵6"gO8!GLfbrYs)UݳRa$Cʘw#I/ ؑC]/\$vԜVzNS_m]P8fXAry𙾰6_0 cN}ߤ!B*%O$|*k-ׯYo93 < ,DƋ˵hqX}#gyK5ۥ V$OBO@רnj@e} ʳS:InQZoX]%4(c"C#-)!v#a,ѻ%|A$zMz`>~EUǘA\#H(sQΈSØS%RĄ-SzDgVg\އY4j/(?钲+q"k ε&\AՔQ3xzh]Ў'Xdckǎ>7=N2ַtmדs@_NRf e9%f 7b:uXC7J}78ra9> z@$h?wߔ]&KMQpI7ՅAh sFiIļ70P Uh=-GWi:Q2@:&(oS,7WЧ)5F Ca 4>RMV;Lk?/I!1'졶qmjIsFNu'(N*)gO0\({#z>ё6vV|ٛP]D:9^'ۋ Zqp3i,[Q? js #r aJ,5/GW)%XF-hߌ`--B6a5MZ L c=dh^Qv.٥#C<9M9<8f ML q/2uxeaA]Iި98>&xˊ׈EXSuܬd3~tGo@B~ӽo%nox>q+o {J˻&D:8AB+kg|@Q.5Ynkσ!!Eݎ۳ٔN 5F ZZn\\gnI' vj/瞂sXI0(璽m:@'kzȑգ3:>J? yoөzn,i]%ҐM$a6,YIWӲxD2$]t"m,CHHA`hR@E1_)arl 0Q)/Zn9,c tB >C@8YP\7=%oe]Y* [W.VV.;n4Ȕ/)/$q@qLSasH!}8/q^+gI;b2 \X%iEn;ᦛJ{{9:'E2tI,%vsIқ#GUqk"/>=wWK危ٙetmL7S뗤҈s gz~ 8ӝIJbm<3;ͅ1BLHl2Q8b$&޵]'JgvXZF2z37#`Ch7V :?EmrPŠ+[ nt/jBDd_G"$ԙr~GbDv> qǖQ[hW[B6$H d(ShY}Y$y[ ܿ*.dHz}E: K-~RwLw]DUlI= Av )ZZ6QlhC.nlJչ%eC۷3$?# 9D5$>!*=*,fYp2*dY@Gʃ~ǒj +=⏉BGKku7 %B, cžGB%c  P`ԀR'&smuN"! E/+7|{©prrYZ;gIbUy]j_JXQt^jv)bA`p]L"#4!D Mw|K!Z5b객jnNɴ(P ^C92ZlN 0Y$ tjHrLnފ'ה3Ra*Iz#Msy}|;9|RDmlƜj~K "3'qI7BJr4ʙB6Jĵ[MgӒnʙݽZgCYtB5nNTp"rEyQ\?6i؝3qc[u_)i| ]{i֟l#*Ђ3F@}kr:=(TI#:7"~ҧpt?}-Kq‹Ti"WPt0˝746%"-F\ >6d x:^դvBKWRd1Pu]c&;^bͫp*Ad㓘smO:$j=̎ D 6T7y̤%{l /e + U"a*:ۄ]CZ̴%2ZYJم #:1]cM a)O!RH-!쵪B[Hmsg< b)l*'!9L.4o[i3[0 "Ji}ߩ5f_At,)HlFa:+z;.XK>O\L摘frt'<,]ʧ8ʗы9e!~#p4o_ KG x6ٳy边bK ;|tZϷahL}`9F^L|n(i﫭 P[Mߤ< Wf&XjyA)INwR^ #sWn&B/ƛH38d87CH0^1mƈ|V^UBERFDU_AVdC]n=,G|]63*Zx/ٵdYQ@q R NBqe^=[(YJ'Nn{]Vu!Lz^+BсjF*IoM6-dX{n2T鋶U5כ*m9^NGLjbmhVLˏyy̙r^` ߇<.=I $~5uofE*)2L7m&QBZT)Ǚ;4T33ty._cϫ8Gssm=A7 Y-Crd:oh7qKq Dj0)aN:;몤>]܊zg_RC4Yo6~ C`ڽ'p[iuݪ ^y*}r9lV4?:=x;$gvS;73;ވoEZ\wNc18l?A^'yI =Lobʠo_[W[hZ!xs#1|i^I;JT]5:fuV \}uG\Rsu)8> Wٖ,KD=ϏB;ͨBw\&@ZMsu3Po'CŗN!GDmޅ}2vh{1`/#]. ОY~.kO)LW^p:w3+Q1jL{TaO{a9oV9:I<1vzO e)8%iZIoW9jDpڣ;؀q'HYB]ۻKp v/C(b3O~#|oل4N${>1q}j&X=ӽkۣv|Bǃ ӲE%kA}v- y4vWF-N T$}+(OYGD +32dk9"aťuE8}?J%w 4{1mAcyjԞ0q?YhI/d X#/-8 /pw`HKt  n;8iVwG<~*F9o(6 [K8 (3-XOpJ['&ÅD)feWE7UW 8cCp2kjKcE#e\!5#GMS<4 -- ?(jVIݽݥGX=Sx1ySiZ>,~49] [F5$k= t u]żrtH7+o2x*L (w6|r%4CQEg j`SS1R"/%az20;# YYu A:- )/C5.*D9;3( Y=˻ Pd䃱LX\,cߎRv)Yœқz)5]R|aB_|$0ny߃q늣hxORJўqsV5ΧNL+ѷ<@d{#BPxþ ))g^k,Xj~=5Njɹ% G#$J0;$nь; 43͗޵nZ&Ї,sN2B[ۯߚStiEòY~eh3)ɧ nX}=Wei:4\<17.CBf7f< wyW6iZ~SpӀwt-[O:߸6PhrV۔gvBfq ҧHaː *AlYEa|t-DE_Eix@ŮrcmϵlC6J'ýJ tRq ޯIB4ҬzTM/C H_PR4e9R >|Mm@ջ]d cO^UťgUBy[8QEEx4G WQ(}"HQM~HgV-?(o,IeH.Fy2~]{4v@}F@blS[M㓰S_:CDo :c=?efjq{փ0.,ϱU ʴӮa=LYze^ %֏Y{w53LjyJ+I/{?mL_ %ICu ~,\TgJ^13O鑰|^kI/^&G 1_;3%(M=qd49yp8Pjh8*xxgSTB߹Qa!TCHu0V;۳9h;P!NWfPGx} 2}qd̔*X,ޤ$|d׆\'5C&9E9ǮvkjM靬D[jSJ+2"ew~tâM< d1JSr$c1Yz/,}#?Kzhcı,xdԐtcQMZ0E~KPMmu%LfVy{oϗ1}h%9|iCwL@/"QXjz`Pi~jܵ>n<("À&WXby)_Vj_~=D)>Z> ,)bL+2JDZ^5 <ڨa.x鷎`н9ː N\4.rZvtN HC Ln/]u"8iW GqT[Yo4vwA{'?͋;Dҧ?}`O'5j:>EˮFΙȰjUA*jm:dHF :Gc9cf)`焼4xYfo6:6tvס!-1$$2 tn=ezEٝYKs!y:-bԨC_\n NmVc_ J9=ͥi@ R-^wLɲ>DXJ35`]aZ~y<ZjZX|:Jv[㵩GrP0ިQFDrm/*p1:1dK zSA*F?VAd-[- 7CGvŜ L4(k:0*_! <96Q\7dc+߿3lo+%%hy03 !1E̩ `Tòi!D݁ +xQy. ".kS 3.VE/Z`"װ;3)G?SU YIP[\ۓj}Erѡ rUz(Ynxl5pS`, g$Qu -@1.0J};|.g`Kbj$6!D!P:_p?g's+3rMx/@s8](C qynV /Ò1,Z3dʄタYEN`BU}D}&dg@>DVsA'i>'XkaN?쒿rHǡz>-U/I;c<ǫP"}Z$"{7^SHOlCllqKK/xYfxw=fk5+ܳx-Ch)ll[mDІ)7I\TkavJ돗`z e3zK)C`M[-0YH6o:/5"lm:mmTy_(C"cŐb "ۃ#oLҷ;EB{/4_;j+b7sSwT?qM 핣n)3٥#6K۰FZQYTTJ:/B9LwyIB##q? MU/FOV@7a=q:o-:9ǤJ͑ ls`F@߾`_*OKC\"ߕ $~Vr-%XV? ϛ/jR2nVDATdvd0гp77sRře(3(qZ[VBY@ka." &й)kZL,[czB`%״˔ Kx=BPMPy.1 ;xd$@2sEEWYϲ@ n]nDpK$&!z!EWUaaw/& n_G;LJC0iinñ0UWA;߇@:`X<'ޕ.W,%& 0Ry[ܚ_%n}^#bQU U"bg>NIMu * /Cnސ.TFz^ZZf !2θj. O3}.V0>6d˻ f=X4lKb)~dfoǷF[ W 5qcj~7>ϮP{/Ι[Ȕee5: 82#J@h!3X+F&Ozg]#ME2DSvS"yM o2|qШ5kP |н{I.YtGc'>kCs: ձcy^‚eԂ VwA ~jVlrSvlMqw%37yXR1 ؛Ff>&M~O qǛ%>Ѫl=8cT,zKkH2 @ VO=vvVAuك^-H;m 5"X wWDdݰHKj7 IkNi%WpJ/-TMFK'0^(nIC~t \т身L:Ũ<4f//bkM hR*3 Ո+k\Y`ihܴ$|S 3=zӂUN'xg!n'>8;56mOC LTyr/!{?9n&3h*4:ȼu^f)&ө֤ '_U)wrw0Gw ?SCV~R Y*5-OJh';JY(alh (1z4750rZNA:xцt~%fLҢ*v dB9o{xӹLVc_;KkUF˵8EIxD!1^i_\ڥs,f0bjl=Kh{yyI pJd1:F:%lSus$58 "&)Y9ZE!׆Wό<"5}fv@ LFiH'S{wy~©7BԻ3V}^ [b:uZlș;6`l#GT-đuoc5eeZ_nWn07ߥZ?0pH5MfkP ֨0+yk*|i^ C! htSLxtz5S߸3-s_my]qM Xs•omv]Ix~9ݻ2"@:-!8ebEdbIg$L/֍im;ra쥮Dh&8EEz@R纖?e 0 0|7z v'd1Crލĭ`΁.1Ϳ)bLӓUJ}Ӆˢά/AT>H}/0~Qڨ!"Sb,{i2:ƕ[VKOpPD@8.P4qK꓿U)=$Vג*(նr, m>lM>_WCX5? tus g%Ϲ] I_x%0͸ ٧Jqt yZGjrYZ/:|E/awhQֶT}M6I2񠽢1WizBsu댤qs1qH/1o7Ix^r.(;6[6&Vw\`;Htr_ &N~($mWr" &V>)!iG%@/qAG ^N=mrZ =@OǴ+=`wV]eC#ΧH{xzp>5ۅkV4KUw`:H @ /!B臘NSxܧ-x<ۊX1ETT@v6,Dl흟C!TX/G.iU!e(Ǐ' qHXOhx|i1̧I Մ;z^6rz.$q;Tݎ!c<;~xP2E;ڢ9-?5!9Bh?%HU"Hc~CTuD;!:6xsyQLU)u&ݰԢLLd/d;+sl@eȊ4CU(T.9h,KlЌ(+9t(jKU& %R+[CខѫYM=GrS9 by BϦr(PCG]}4Z C'JAc^)eZU3ZT줱|~n+Z0bO-f֞mdn)^!D (@.N5f h;*_qB ӀC X $m￱}3rxf ]_*a2e!z;Mb.R74\l?}mk#1CKEZ6r 9dmY Rg+!N0gXD(lp}ycֺ:FYohF:eK6Spam"0׿i}.TGf0[Ph" nф8ϜG,pU̯J"ˍSF84,}"E7]*~NܐMGne'9s5mKryxeQf>½ n46n1$!tjEo?)W8 ζ %qi`:ydNKx}q<[,HC/ C/lG]`%s3 `:D!~[D6%$jeքYAEYhb-[C 2D?Ɠ9pH2Du8F=fMq ~5O1a`|>KbuX_"fG흐g^w)Z,P2Fzĩ?/oEnL96'NKd Tm%2,F}hQ&A4k8oǜ {|ţ+ݣuM*AuqD%zNbImJ*?({8f*Gu%2bgoHzw0o)6X\>qĽUdдh xM vS)VR/Gs8 BE%v鋅ǨE:i| 4an)Z:T-ځ=ښ{T^ϒ E^Sz}d-~I&FT;``Zg%fƊIڪw:)WELM)ԛhm*\tfs%4MA[4G[sFmuRI!-F䀺@Kf:pU8^.I=qy}>Kຼ;ԳwR 2Tw/ &gMFzl^0" j!m#nܝ/ {/a]Qj)f.ҍ)/B Β\/gŏ7~} ";a B_ز[,RYcNcK'5{k&S:/Yl\>˶2*Y:7@|K&|W|"P=4[Ņ|xZ}ί#܉zMR>pD`ld!ۼ_ :O:[B%bQ暲LkҶ WM0R+y 4x^2]OM; <*5^_~hGVH2X A'xe;49|Ȉb11w|oY9oh+gs!y%Me+=\"m=@GȪ "9,g*=!q&uJʃ; t;2` nȵ0UW0!|X%+<jkq5 L}˾qsd 7ǔKB9CʼnyZLAR.uUq c| 23\ȿD8 ⁝5eI(qOftDG*Һƹ#ku@(r 0tI dU[_j:=C~A UE\ًkeRݩ@өϏAv[EEv!̑4PԜvzQn@R~j&|gb^9^MJuhu1)n =?:F-^>vD6Tߨ/ѥf45?@ ɛ=V*toV( FOUIl^ˊd!4 /ͫ%Os.On)8f䑺[\|[⶙`0ǔj`p1ˑW?_W<@ꆒKK}諏ˉ.ɽ*a\[aʼn_#Xfwpz8Qc*.A9< g/~x,]\ ǙlKdYcX?=,h9{kOxcS󺉃QΒjF  Y8c(L`j%pTYХPy}.G S,}r `qObQSt@ ߃"aVw]"Oq#X1.n{ -PQmv|ߕr1ʗt=[N: .T kMJSHAbN3{2~Ǜ8Ww;dmL(PvC /JVoWccW\pmXe){iΥ؋ܣD^(dC]Tru98ȝ$L&\]5f ģB@#D$K%׽\L4@huÜ)ʳ֠IųNmm +zmU6^j!#2i ߡ@МQ꼈mN.x.v}ܖ=)d>x*7PhdäP~-{B=b8ǁ { QNGys 5XWD_UDkaWv06 )Pw$`5Y;@d|*K4N:rr]e_D.ׯ49,e{>LNYF8 s\#T~zc7gGf$ +|y"aLi)+hJ= l'(AfLʽf4OAYb>(w!w1EytiU ~^g;N6k9BB } b%rJǹ)@ٵ0ͻkIMU)c6"bJ?:؃ui4ө)39fC`@Sxט%6eq(8Żz箉rC߿G:l:"Q0]}imifV}5"kmITs+:0}3i ><#ĩhcՐ;Ffj ` jtBKdU/M=_w@f66cY(pMiw _S|w9SJ5z ϿOӴDpY KIf(ICe!L9Z2ú\2-$ckt]U`OS5)G`IX}3kn_;AP20ﳠ+l:(@vzj8 w{YR{檜M`nfTKiy@P1|$WmF66^4 Ģ"QlxlWh_ ݒi /J(~GE2ܱ m0Z(UM,=ƒuќ; qN|߁)T\)kc?{>u[=\,NjPw_fEk:^* ]1>W0:\/,}cݝ8C "DcsS13:%.<5Z5//(GE;4s>*bzic,&84*{5cFj {LՉ@^߃!3-o{<~ЮrGl@q BX=F"7v/70S[L OT=h~ɏćخo4GQw`Ĵ\| k""mҧ6cڭY!X^>%g.,La#O@,#Yix1ں> K*I$ hC-&hpXMSWm`՛ e%1\%]'cWuZ(Q\4Q daZߤBFY0O@Vѹ ZĄSFZeIx '_M6f9YpZ&c~3<ȋ͎!Ar7}Aq 嬳8x*(kOcEA\eTFթb ρ&na>7G]9ѱ$\!.T -Zi 9hZkXcW-A*M:Ǫ) s3$6>usFKӽ厛[膳6nd*woW`04h~yyfrS!XxFZx3;Xg^mYJR4UPBUit#tJL&1ԁf&@&"ghhRqջ)cn҉#g+k!6:o^AzN),_Y Ve[г{\vo>;lH 2D |mg_|,pb^I4r3 x/&J!aj#_C= W_L`Yxd2%Mb͸G3Ǻ3WMjD@iH=%vu*DÍh%{>UyI;ӜGce8>jwsu< & NSqA -j!.2"Yռ [7<8,4[^ŇWb(xԧ;3 :ɚ0ݜ~cMtd}Udn-I{ mXNTҌup5*""rJ7]u|6cmq"˺qWĠ=fDQTLqub-`CZvhP=$JwR-,f=@7㈿䔴#nֳ:/dڏyc!PjBkXj7QdWP螢z=M>’ة,eҢYEo̩+;Gv=x4m\|-M6d\KVQ_U$Rٳ) U qݺ r JB Ӊ%PIP.,!Ψ֡WLnsTpϱ-OroQɩJY@VN+{\92…TUj cs3y1/iDd[*,vW]p*%^`pʮKmkS$sD.AnQ%ٶ:E{a} T, :ªX=aQ IVr- a )MbqbYd{AT а Cnh>j"j I!NI{D=ҌS`2#7|eabX)=WT\;'Ic{"~/iN.^'I6IPpV z)mkx;s"-$8zcMN0Le+yIXJ) 8J08 ( PcݜZ]^-Lh6@E1ZNY=8.Q#\s!Y#W,Mi[Бd2h*)쬣-rF% dSˆݨ ʘY%oWd#B%L(:/`>(  ~/+29TP۸]kUˌA@/Υq۹oCG.T 1 AR΁ >?08+ JN"fhG7Bʞ֋頫)gWYX[̳xsr4ئ6T2e.T t)܃T`.0 uC;7:2g$IK4BѸ $/]??NN&N d?;`+uȒDZһ 1]mRڂ z.O;Yi 6I!-?@}P `c>ܩY%%40^U?b6{7V $(Fs:4s"Ak/s(]]TՉ.t ÂY(TpSs0 Ą#]T+獔 R-ᆌ&g4g^Ƃ#Mϣt$ i?%{lBŁ.ќQ%OwUk}ꁲ'P5Wmj #H5~0A0\5q#k4 j5  0w8D=&¥g+p:'7!Վ&g[P6i㌉Lc\%'',Zj~ļpc|4Xz9"uKZR(\$}y㍺fV'. -r@h*>͇*HmG/-BJ ,a{aY֒)a} IAd3"5hUnA**6kˎ^\>n0*|^N q#3̳3 6||V/UDM:ª*:| R=ԓK&;9kL~uILJ,7&:o I3U#-k-lSm:D1/C*"FqpL\+W AԾnփG.ƞ%УF&ErrnJ0 xq ,1\+4vs0A_6|,)^#(]½dp6KYĵ{wR H\ O7ŲNwC[G[J0vY'oBwNxhd!<]yYɂ߯?M arVHÒ7&0 Jr=ʢYRUJbP|㌀͓sL^m)*Wp6Y2"]v.}.gL=|~EMZ4N5VKe`$F-e~V d1Ϭ Cǡ"{_E[[sfK^-]hl[#xO<%aor'[U n4RZ\-ezpb I~ry"1P`9gj`x?qW4H6v@Ptsga!:Ecz|}sasqGAywn@i&Sy2-!x%aHm ANpl]L|S?BVi=]ӝ (Yއ MLgsf.TS%L .[Y:*z[ ~A]b`u8o}Aܨ:t._8=/+MF1|9M#<~{k50y ^Rʸ+@{RԲv(bk^ zhT.dA(yp:Ο|[*vU" U n8 H@. eFýc; @TrkďC/3p ֯@W-SFC'j$Υ vk!N;S -s̏qK"!S( M_"w:57"QEJSyo#Fgz0-$8ݖHnBeށȽ\VwHˇ9A9_i,>zAv7$|@SOʽ7]X1{q#I(_]4LwX"BoDޒ~G;>| J3\m؟֓,9kUz5q~4d@qpcL5v-jr1d6^ ջX6VM>6)SIBB#Aa*O -țֶK_GMΞiW2j%O{^ v6,O_M/G`dDddn|Pa %'-y :-u;uE8FRŽfvDbs90P7N0fn:L#G$rːo@I]6&\YǼ9+lY7 <4vsTڍdThrʛt]Ħ3|ǺX%xL~~;.OͰ$?EѐsA8W'>`%k{m³' fƻ=4k'XWRR2HUɯhYr8ցmRy{yʉ#n_aZ|TxKkѤ/TUC̐9Ф9(B) fj޸\1k #I[UZSSEP^gЉ9ſS Xh`NdV[JLWx?W욉 wvQ; ^T끁. K28τɜվߐ'ɊWcg-bn렺ix]QGE14)ƫYf,>Yk C\V}4& ,11sQ1(U4ʬnө$ {oNR %f%% hw-3UY7_ YC|+rI yKX,@d?}]XB|Aq SSꏴjJX/M˜hٛ(e<+MדuЃ_p.UlؠQ{ C>5-e{= u2OwzEw1[ocv@ v堝@&nudpe [5QXi/i=oѺ)P'8vCUue7\Mtғ!*Ԍ$̠|^d (.KecQ5Q(0cPP J>B"-|f2[B}i7C4u}|˽*cqq {ۻk>_EzC׼8M;V @Aز lq؜*Ɍ!QVY]6sF|, 9 b2$A{ 0 _ &FцEFS(:KȨ)jtZ-fvkhWĥ.axW@g:D'T0 nO܈\b7L sԡZk=yEx<{ր00xBs~]q,t&E~J 'iӢn+6c[wRU(i"?#e08.2n@1XF־8>spiB})(> /-@P|];bU dļs*͉+@C8|0fȾݲ[u/.5 0Y%/ҏ"OO1+̴A2VUH`psp+;Sܠn~o򧭻Q[* ״@knhQ/?"uYն3㶬rTC teloק$(!8˫n ^'8©āC2#P/߯zSj/d0ʬu[grmCn0CrSEQ5 FEun?- Ӂ ?r.D_t8+kYo[81g*DWhVF("{2*'VQv0=!Z`mMyW(-{xƭF(㗘d\hp=*Y8ȩ&i 5[!s&U"!EL@p}_v+O6>11P@^лZaʕͯ`V:DӁ%~,4U(2ӕQTm' i\ã)dq*Z?\~/ڄ6y:jSͭJy-2`H$UES}EqxQ\X벋Rf,XJ~)gnp]8Ƽ'٨=|gNQfq,apO!u4A2b̂KG;nJ\e/Ai'ݙ\yR'KШ3a"\b* [iGc3&E}-Kϖr*nMtGqBpJ_~Ȭ038b:!3YK] LJ :oM 1{|"s*;ߣIdo 3,VsCH61$8u0򵃾ݧ=/4:(tQ/^))N7vl*ꌫ_VEQys;6#gD3R+ǻS,qI_KWH*3U׏ڋeEJ{i4E3PIVJsa݂&p?,R>DwGؚ;"BU I]$P_[U[@ؒW}ezM),jTl_G~VXD_&,ǹk'o4 ߻;jfw!D{?bV72 @[8pA]v:NC&- ,d"X@WP-̰U-RX*GY usZM2K_]m2Dr4[4_r#.OxV^cE;V,BqXS_0 _nL9[H6zʬoXkqlqL$’A(GC"h |],Ѹ`U͢OŢTz_( f;q?vmNuwdE_!6΃1Aq'LKu6ƕDMBqlsNE>P(KM[ic쬚bF.>0QGH9}AӣǼep f*H ҩZ}yӞgXdKߦ|W q[k8! H5g`XM %n%N8_g g};|sr^XʷiVAk 򤣎UT|]q0*w KP ,^!r "!(G ,ȉQ8] 6;|8^yLN٠ iW]<(^T"8p5  &T^BfӬ/|2^bL:Qrc A~jk&bã,5gE>?Ɲ/N41׸'w%U_w#q'qA3/UjN)dUe-/7644ݹ;?L(fvc;쐐 up@yZ7=t{~{#[X֛#jzD >kL otJ<Iu aGw XQ[…Eow6bXNSH^ XkkS@1b[}0s|CQ(a\J+q<& TƘ>NLD &췃 Bi pKnO&*Ci5%Y,H@e[|B,[LzZ:Q_=@Z4,]E^x R퉐G"#ZOUytq_}޺dPc=d/R ] M0ZE:3mLN,U i9g p-2޿\54bhDښQ2b=C O RiQ嫻;feCɼUwD}e;4 YwlT61U7S끨s(G">ݼHN56|:[m%Zj߾^ zY=Bsi)߶sC p߄Fڽ t|:p =33!Jp\dCړ3׸(}:4<Q[jIUTHm(a䮄ImWڈjB8)K^ѯ F,d*~^Z *cU2VdN m2as 6'CSBuO2Z( N$&AQ_QZ-V!Z14ZZ"-42_=jz~k‹ѣ|qDޘWu?Ym܈֥nb*֡WR | Ӭ\U#J_gNP;oP (V;ɀtK5VZYLj\NeѯDD5{5v%q g;=QތjY|&F':l+V Qa&w;!\U\ &ؘAŬBX 5c4 M*+W6FyM|LmǾWNP{T8[Be z=t|)5@YjkщN#Uev-d=.;PBVD1հ+]NG-'d 8CWT@~\WEF(dB٫HIAj {C#(= &~Thq}>Tj\j57M}c=Z=}a" 眃#\'譭8dH4`oχ"ʐ|=r1g$2lݰ׀LI,ʈK1Xl)v(9lFBD"nGV6)YM^26 s t[EPK_oM O> pZA)Q,9 P\S7Ec-FO0$`帹 5:'46rK;Rq ]`K?dE-t>Ju 5[iNf^WQ޻YyS,%8ԙoO^"]ğͻM9sk j5)Hanu ) 2DЋMXcŜmbՒNo@syf.x0L'bTjѼ-ٸH#^}F%T>8ٍh*YCgUFhvChMm߰^ ԰ogtï?d'#JTUU4P xGaA=&+Go7V]ш^Neټ|8>{k v3ڑP@8jr}*9d80 pc.b%[oC촿Q!Y>f| ] ^{a5nU?a.֓R<,R*@䘷 LC]{šFJ&pWѤ۷"K~Ô!dh ~JR ?U$NrJ0cHPA-,ZKWIE)7=mBGP74KFWNgG,TUދi}rJehh0hB}Wƾ \VGo 60.+vpG9<~1k$񤮡iYt5ljNVekҹJ9٧|1&?: =: ۼNEi) i®oZ/I~,Az*j[l]mOJi oUXk,HBOȄ(E78)h G⃶RVGWTХ (8^]t*l $!B9д|qBχY"o7|۳??0܆& ~5q/x>fvkMVBH/g:XZhl{Tl`i61bpUbjxռ.)'fz /uº{X pnqvl4G?/`,}9%}ɰE hU^m'o@[4g9~&-MM ^Be!P` :uݹz cTAڧV<={S"(2mVka<`6F,%&ReVHBFahVQDᕜizOEmvLG `k~ CEd"B3FZS#`y,M` |j ky?'r\z($:iC[aOLe.pGHǃqU1V:(NƟsȩ*65ylӶ*mbQFlO1,ʵ2\pQ,w"g3Vs>-wb@u {(rSmޡ u8 }y3$Am,PvG2I]7y&BYs?|ds '#u m[|@7q:r"{NgҗqqvGc]8*™rv4i(#C 9с5ط(軲TEm?jro Czƅ199~p0s.hNYm`4bB%P!*"L8mQܗC׼}@ >5;G{ YCN]# ^4}<1&` =@!GǾoP$HAƗT5C ŴVl9-IR 8 ͑^:%t"j {k!l߽#Y@'i #3*ƥfcWfGc Y>.`ɥFqrų@P6j6Z׵_]nY8wJdw7т{P ~pyӤ\s6FT1c=}H?-Q6DD;8Sۀk.S뿓 Ê/79/6(_#tT<*>WF"/7K cg5L8(h`8xVkVcRnߥP[]W}(sfN&'(Q|ĬLn>L ɓ\+_/һmB^wX HF@΃C :}q8M-|!ӧn۩dj[Ix>l!T]f##7+IWJd}RƼ^eqr6=ibMb,5 F$ͥ]ew +rĝqdb&89(+%럜h0d ʘa_؄kc@O x_)y(0lkLWgܿVa?>YYCpՏ +˺3R|,|at8iZQYk67tazM?f]qqs;Nc֎շ6x$SlgҚMcqS 9ܫoJ9W7M0aHB̓q32J8V߫6yoUuib5Ÿu<"8ADsܙ+gr:t5~-d0ӷ5xMQdQ#'8`ity \!䁮( #GğBEFrhźx787o(K|R$*c`LsZt'畮-[UCudMP! ,S{KX#4"Ôx!28fq{U)吘)fre_]{?70, q.xyK?ZՎVt|VߦL;Ncqa*B黿?ϯosfȝk"JM7aENW2|=3be (nc@]M 'p~,Cy94?Cȃ\͟(mAp#Qkoř?\}k * xw$Axʎx)̔w @S;nL>n}䍕)1QB]m}>/Oc OצlHQŕbDY{X&!{;,.6Aj0X6o;ZZn2+97A46zLYX4l#YDƦ#HQ%*,]i9Y$IJLd!<` !;NW/?*[(]d_Gb⭡;K? -ϸ`0;yQ]ߟTas[0<0Dͫ/wa^ ߄@Xk a[6v+ѻ-aL;Dh+Dtn{)Vz}: q< kg(RwrZzj(k7N@J8d*\Puv4)Gbnd>f&-rv~S!&'ζܴyA)b= S~NNtځώ;[H7wn/ivI;; /tCl]#FW->vȚ B5hS8*:X$ w虗O/b3.@*El?I~/ dO;TDkն\dz=TBt尒Ufd*E$HJSO ʈ8?eJrLS=Y|*%B ,yU,M#=UR+a,:7DK-#]m Q yFm;a EJ Wr,~.h*IAUAI{S=b:A' 4!.&.~^`ր'L4d\&4/rQAhE_NLc!.1xLgEbFt?C)!Z9ZG}9&P.=g/!E.ҩ_*@+#L/Z6gr:RƜK=Y?XeXzrJ"V\I5|wKja+Q:B~ٓ N JDdBxꈰ1C2TM$?t O&>Fz$u6d~MRf:`e(b>9oFO+xou[`%be!"QfwSc:Ef)1 9g'4@0dFl֞6y}ZK)?hu11ZkMUMYΉK笁9,u1a%}@~Nۧ!tԔZ_XjKn6j's!"~ʚ+[^(f |( gT\* 6Jh1lǁ7>D<9QD[.gB# 2+U8ssA=l־Q÷XIdv_(FЙX@3 t3e}3c ?) t8_Hew7A$~t=ev.a`wڲՎ[OXaNi\y`Lk<)3쁂D/%RQl7RG!yS{l$Շe]}|O@"ѫFZ ` $NVFf#Z$ ΌILH>v`duEVs" >`Tm8=)c1ׅJ!)Ԩ秀»O36{xJ\g}e$ Ϥ?!!Ԉ\ D|(KzgdJV滷^aEU&` PH JvT՚S QtZ6CTI9Q(-? &m|T0u&qs2${Im>#޹/aO~R7=ZgLƤ>x}@teJ{a`& A @͖)eh*8xMc&Ł,ܹz>ijgdL~ϧV⣩6l>rEI2M,!tO4>"> [I3#Cuc[ͧ{Ϭ'a;8ửY=~ɐDI~ ׭8_eJϋǗ`F7AoB&œ3|6@RM#C$a[*(  8QIa4U;֞Rɝ0Jg3&6R{L#m쨙Y*ahh&+\YȒ&Qۂ$ c$ 6Ԧ'ZOj]/$SE9MXVa >Y3BtNn%q(Hñ;3doq̭Mdw?YkQER? i xOY!Yg$Ԗamd)]ӏ3dޤjQHR_q=WߝurS V_6߫Ea?uӍnX́zhib0DdEua8^=\ /9L06rCåriWNk;I̜Þ@'a[( 킡2P/ uOK4 0Gd?XYp,s:LͬK 3$J*rԀ&$t~ GCe!Ed K UO"iP翺I>|4%Ƣ90t'%z;[| ycҸ ^E achƕT@pqɤty~)寵(/*^jU"/K9U,,5$` JxX&xsk@!Cuj"cO*!L5}kg㋎!yS3<|ewVQԇEĤr+ď` ⳸p"O.Y ԐV.)ն{a!/U6Ҙo4"1^bk0QO_ldeA.U7$b!||O6LbGURu4D~~$; z~Ì$.`yV_vqw؂fӳ儥e<`dU+Ko.*cLa {"dO~NU^14(Qܖ@{cow{1rL#+dݓ$ I:m"E6[GѵMكYJgV2$ۮpyl|vH`l&HwdmDi|*g4kPgEps!Pl䣸¢\NȴA{Ҕ!5\b! Z^q1Mrw9CebҒ5ň-LK$"[zn>[,C#{0ӵ[w m9] EuMlofؑaz /8A.Ƙp"{[uIVG52ĎdJX$C:U,m8Ie๽a+㘢() g (1Ë8;%M&g7h쀞D%^Ps,f NJƌyBhT$;BL+h2JiҞ)lH 0AD^}JkD]l\@&%ɡT׉"V&b]D3o<3Zq@GjHOcYi > K7&w@ostKƛ䦈Ioll$1PVT ?gk8=V#Lep#^TĐn%<U٧DBy`[5r򢦝ZJR=3 ]3SS9GT߱1Z4VovڬfХwk}'k&kqӹmʹW:Q2V&aio+g )(>j1O+VS8Wեt)&n(~!~NGN_j'؀4>nS:H;H@l~# 0c p2ɥu=RaycUj 8\(k=#, dhvvf";nWe1K'(OKZKǻL5̵o2 +)3zmFraNP{?H"-Mn_ tG2qxL<݊VXZ`1 *\,p=PjQ =3j2Mz\M# Q!7f#C!+|uxsNҽ3!ƥmR$LcYn҆^B/  х9Z}6fOkX'ͣ#9EpXȣ[1_j/^Y*`?/ͩmXҙ:Zr}l<"Jvo[w1ė4*ys;Nea`rNM0>gh ?l& xck)ov.3Đ j[>2OIr=BMcrԨp"IM,jElwFM?a:Ӡ6m_jXʜ,(*6y-ś&xe K .dЀbػ՚Ń 5lhm}E~>->K6-)Ub9A$=nث^Q Ҧڰ~o+y۳;J2Ja5;sp@6 zFgap=x@Ԭ%boyD7&ބrR6g9%<ҥM<G5s^ϘKats؝Mzޯq[/'E'c46>W X {%F;'9v-C7Wn}xۂL$P%v(? ӽ–o7v0#HO];#1μfo4h66(16m2TjRP4K_SpI )~~Ls|R%ܫְ\G6tQ$:}KMr @Hn cϚӊ܋fCP^/ݩ % 'G5mĐkh~'ߏ@T$"+  e pCkc~|x\QwǻxioMY‘W> ŜK$\rD&֞ĐifoD">1,Ry̾vf@&M.khuHb6,^wINGcV^Sՠ.Y{ gû4Smy0%|,)৵|Dxƻϖ$V8q:C78H. lc9SBmZ>'xАkڧU&t`pk͒bH=>}Tg;'0/=o|x WHZjι*HEDocwqeEnweqR ˺{v:!y,˷%+_Nۺ4wVPfia_Nd[SYTt>G)#L7jkl 3 >׈_# G6~1_"oz=Qs77ߞ<,C$nFPKlW.&ϣN0Al>@8=ϰt+Ŕv.Z P4HՌ!qA>n@SZۏMWѹ[Ck2ET:#MOLaVFzBW5sroeC9S] V^JW `Q{% 0-;۫s '>h>O)hIM;|)HT\+WB*5>OkFlLv2+h+2쑣\[ݞZqJÁeڡ8 F%0_%RD3:~`Q$_rO^8u č߼p$:%7Hwia)N_uں@kÅ @ԜӨ8Ƽ[m=.vM_zy!W)z-Ri)_yj T35t@=["Re{-Pc'۝P"tj !vJ/D2\"$ba_PaǫȰhr^r,JRG[@jEc ą-Z:v d'0Ŗ>/f4۳.1tc4n7+Rm4{aXr4*tm, xHhLEֲF8k9ihc/*[5ۖ! 0]sL<(hMJTR47I-%} :ڇKɞ*9an"Cw3sg jDwY^ P?g V !U jR Nmd\ ApBq@o1MML6iajM'8_믾]ml߃9ByfzؕؗL_pn;DŽ(p 1i|XJj64{g;5fL8{+Mm .G4z6I&Tkϖ@8 )fN*1QTUQU4"@.8yKwf1&V+q5%Mot@hs!K蹈X @wis3KW"j(6}U5\U=bvңOY|)> 4f𑁐7Lm7`!ko߮ŕB0] qb[!+C 2퐥>䄺-јQ'w-hw,%HǹgC@ni;#)7;k.$<-璄6E776H_= `R w8A(Ί|7v9ӿ!#fӧ8 ZD96W3#*!, i)oޅVZW^5dp5/e6Z!O1#TghnOb^7hTmKu uY^cB]fTq*?CCV4 6қ3EsT€%_Y̳7>QZ|uY2`*>ە_w¯,NR2 O}:^ ǖqrojEdq%tGG9ݐ7=RI8uܖLbf| 4/AC$]VIdo>+'3pk=2K?e@4T:9f`db0P -7? Š@W 8|e_TC>M OVpw6{[G/&_0ZzS0)?6.q!M .oiu F\Ur3-AWˍ]( 59΋^˰MMem'.}WI UXR#3U+k'`2~~k/ 7LTҩ>yU%WV* 4JQ ~ $Sc׫5IOT\nil,,~mMɽ}W U\w 4UXevp_ 7lp:u_BE5UReL3=$dlرQh+7RLjɩ*l>wyU%7r tݶnÓ܉4.9Y~7E.t./~X8L0FU?/% rbIYB9;L>oREMxDq't>S9u{Ƨ@j1[h/~\eZZǐtiXF0j3aG5 ?EAy$Aƍ*ةYD`UJIc+&X̱9[~۰Nf0",o=#NN W,j/^ sc(aEް,%TĒ LexPhȁtH !脸n0K"ӝ{-'/7kLcVt9p՛AXEگrD܆ 85#C?I2΀# O @'&@n`1O"`z#vP Xu7>DزD)`z2ٶ dW9 >k%ifb-[/`&ϛ7T&/]s^@p{b3$H],qt>dڤodˑ+ rQӷs_F)L +.x!_@rO&ԁwIYp :mio\'%6~vilL1 lUbN?h`M)O՛1 d'h-Y 9r7$1Րv1hV4R7(v&7mPD"lW֔6 ťuN;D)oI08 Crϴ{#ZCPʾ yVEF$iRԴPN,S_3*rz#9(54J#tz_P%yn |vV6F5^ffL)ƈl Nyݤdb3\`V}%\Q!G%?ڸ:G w9Xb&Q @y>!ޓdj;7tךPCf}1F81gD~FrWAhcZD|_{SDrU``ju\S"v GI0|śŇLES: ]Va(kxQ 5=*D4G&Gt BPVNe1}q ww>e599WO_ǽ4ȲRY$8v-zErf0G%gm婜nKkeu#'~z$9X$AM[~yC%H֌Q:Dň4So |&iQ϶Ry{G$8/2 c,M9`~v&t0!;zRE~O=q$ ?MFoRn>(Է*R^WON:Q$-vhDhԜ/̄=H,3YcsqO@~%Ooէy)d!h[R2L5P]GUAtSnI8dDZ:YTwl9V K쇄,;{Weàypg3)x||ZZ7 byeJҊeEi|FU7Wp"MypieزeҙzG{X^d+#hv 1K}3g`Q.؃ML3{®q ͐$v1y).U!3dvZ'pSNl=)|K̖!p\ԩ껀>ߑՙԪ  A^<#C+m`ޯ5= hj-痍uc1䝢sXrLJ򅍱$X9mc!*%N{/ۅU 7ko![dռ5"tqOߙa%#mmUw&HV&| p3տ+ːMPBt+q>+"4ǥ h7[-K^ VVqn!Tg7!rAKpz N5FqVӵՓ ]OKh$)Hi'm  3LL2.}Ȥ>wT-d(kvĵػP!/#%FFöwF|%>LؼW*8J)E *|~cXT[dIіK=X,;1[pSb< X"m{R')@NER8?!d%J06Ɵn,u/Аo[`c.@@:8G'inz7w8zf@-JWr-DwW:jll5 iuc)9N"]?0xԵJM]ZK5/hAP`ٓ6>RAək 6{"/mU&*B6i1i{:W%|12$]l'H~DoU;LьHxMCORc!gso\svk!H^'[d"7e9btaJ sEpcičv"Z~| c03+ JGq5'vP6.E1(;oqG,^y]7Wz44>IS4z?0;"%N,wCy54)hT~SM{swiOYZ'Ћ*Bԃ[cȻZ$" (6-E?ܒa JH簉 _I-rLvvm^\^*ce)}h}掄~Ȏj)kvDXD-5a5.ÜpzL>Z:nM2+* ֩y{T]7?#r`'?" cE$RCuM: v{GH=1.Čѽd= [eULv+dDw>^|sHBO&W;׻DA]*=& m {ՓZGwBCX ̅(k 2!oS#v <^ZA:.bM|!(Nm'B^`5Vox9n4#<欴R~*x!2|v>@UPJs0s?*(!93W hiϨ{Eb OK@Q??G ίU5B- 'm!apdFϿ.˩ m~5Ζ<5'+ ]ζ;N(|b%'ČDgj1Y:%\9Dfp-l@lA$,/,~q b1T"D)X9V !+evj+}b[FYAӳvՇeYYGxN{cA+(( XP`" Ԓ/D @(wCsGD6g<8DN< ӼjAw U[/ckkB1 8yYۈ",*K%\jꚏ}{rhCćX!?y$w.d!AFoVcsQu_̄xqtt)T9֙ *Ҁr8d^.~q|P<gֲ6:@;ܫD!7?+Ac6>>J`h|x"ܲFAtmo@ބ 㺎6Gz9/.\N'MTJP^Ff R2lc%Std; ௢>qBыQLgyC2lXgܳƙ#-rC u@}A>&T] Ixw2`]2Ou|߶{#|\G1>!!7qf3_"dWuu{5ٔaq8VK/FRt6;=q|%W7j/-~I=Z%lTmtX$5aM v 3C5N㽩P:~ﰾeŭFhOd2N@P^8L ]p! Fȵke;_2T{C7w-~$C(FC.M["@`J@)S4OA,ub-?r 3@]!tZue9Sgp_!J YB?rs =2p94 Jz W$R KF KSš4%'_x8P38+Y8eM̟ >x'ŧ`jHD2-Ry KyQHF{תesgɶDr4B\N,Y{;7"iؕwuS}' J8a\tB a<qn&ko0ep2te dət\J\SBʂocaga+\;#B?s8G߫z;c-0E#hYяhgVOl;,Sy"֦3~7׾ġYs7P5ndӅ>|ut,!h$] =͙;H31TL\_>=/GmSO5r,LX\H ch ck"Sۿq撛Z7e+3L:f}iU*[? jHr(K8qk;a5<&I&@(U^͓Zc9wn11U$:مgGCZWV|ɰ +a)jˤbutRL*9_o@r%U82q WmsϮNdxx/D;dA]K;_]B#wZsA6$ 몂?cSPpOfIӳW'R߷'QouINUؕ9,92U-*UeW(To^ܔJ9"!_IJe=lRF7b0ʥMMf3PSαܤvX m !\Nϱ:o}L4:)Tdk}zG^A~[szxZd6}\d/QA<L\"ƒb$ހ;ںX?/I g407Bt7r^\Y%e{{1ho^QB֨o# *j>kߩMk'KJu8%r_:M= CbgL{?YF߁>ј`bꁻ3!B 7y塿0Y{JP@UqቆQaS!= U돷nB+r($E,v>.T"-@ X>%{],k>W5xec(z!f-[)y7uĢLe]y VixRq4WL'&5S-iyD'Jɚ~;&Zi| o˙[>%n.&'#X޶bHt uuT؅%GxHLF-6&@2;ͬt6r3ɨā-/6GwǫWbd+"ߛǨlzvj#TzuI#u6nD9QvBd_.D>)k}_FI?:zuXkɍN;B] 8HqpPy,8OP3 ucai>f\`n I8'JJ.m6ZuL $Lp'WmjZDZ\ 4}̪_%Fŭ#i[5Q븓jqHq ۱E/qR!/,9uHяKll|R0=O+.vum?AXmE-ᝰș^\]66An 4m1%L:`>(BbNG7{YTfDoP2u ExjI`88_9r|EV$tSiiz>v+hE]?h- Tasù W<0 TJ҃|e҅698W6Rz%0C)q$' 6t`uN ץ*,i~] ZiCg޵xyGz!e7B3T#ROCt<gg-`x$NiD|S߇H8 H `Ȓ6opτ,u\HF6 EG(l`(ZVھ2%2,53)W/~ϊ!_# ̇^C8w٥rPI7|,rg|@؍\랦 &I&c>N9,9 nUvXX\Kx~y2"[D_69b'BNG9z gkg%LIm^`=Նu<̵u1pB2*Y䫨lQ%$+rt~Ŀ}J{Pj۽{۬$)8o_I޷ [) xY_'P.W~yQ B)ŭ:ido(\qWd+[r}ҁcd>BI#RF2N?>yC*ZGl`-`a EslbŠ~ ΐgIwarꎺs8 hCNMo&Ɛt KHսj{tVoӇ^|%vXgh 8<]T2Pude>9srH\;Httē^#*,٠78AMtՅƙ\M] 8 ׌fp"Q/6Ue,05aO'z3"3s_RB;"6Ko+ *?P҈z@h{P L\-U1c!:&5 uЩ:%^x.M4\ }@$T%p}MY1V0P"jH5v~blhP OFZ>rݧko9o{p+/C^!}L,Xn-DUl7G .+oy˞P[9)&\86t~rEA_@%O7LU=*`;wUdO QH7bS%+BSW(uwm{:KHK @?4Wt)S״+Jo$0+8ipso\~wˈ N)`格]AnO1I2ʿ+ ykZм/ T+h 7i2Ue&z u :<*@ Ṉe]f3ʎC@e3PDR1<#9?[+Dx|j=v=OdZ2f!V)$o(4bw t]rGucD+VcԒ:C.oQP2xRfbo^^5j6JC^`8V΀HS\7,gȘ"Lf/շeNLy? 9gsH?Y`Ӳ[u !9}]AZwn)vmv 3̢#~)3;tik5#Vh^ 3줗C1٩QptR+#e~J/&iq=YNV}y8"¸/^+ߗ*-{pcaPJIufޏRɮg [owT)L!<,m9&Xٯk 1HMJ%4RuaMøO?^Y: -Yg" e({;KB+&fFwtfm0n,LS D/bS ыP-̽/V/tKZ cc q@)ElCr\+S\\ b[rs ,'"GfI*g?*/iht|-Qha FzvA_\U 9Z @iZ̐#mjvGJAN:^K\94o\'r7f+7EGA0Re~!ndGOj}${F,Uj5Zf6I Bȟ@ Kh,u\";UtL}]yxW V_UBm&۞_}`jXAԘ_U2ڐ;Kͷqm:K)uNZc 8ANg&ȹ1Bw8~3f-$ظ6WS 2kHJu%(8@e陻cAoje\G17#&N.Ig,WVځ-݅ `Wu>ՎtOO ee# =CJ6ύfЯd3UdBQ-ۭ\de6Nfl|kq+s2_'a8g." GO l.'^4HyvʕnS#~pׯwIMSIy߉I0*qǞl>99 0PN#8cר2W_1g-N"xƟme7Dh7&eUSX-}[SBt7AatS8$0nK6^1 PYiL]QϜ'I/ZHjbf,M-`qjt;+nzg jřMpq|/;W aib*[&m {z +4CÂ@^:--_2wEVIhj]WւP?ځ yV6_Hbx;?_p ;%=O1n:dô~J}!f .+ G0ԙZһxgi8{/[""%ܯV Ob˫e=qbK<:a,l9$8[[9; 6ZmRO-mEv#lX#`@Foj)YxmZs ~bҮi/ jd8oC&xB ޓV*^o~{\1B3Ij3)G'!91ëe"mHgy/BilTq_6vwJ|B;[}>i_Lka7<@2bQŠOJ8M?>1$QKMF&'$:[NA⥖N]f4~T:?t|k?t#{;oj,#96;:[G˧2&V-?=e!љqq0x܉WN GgHs*.*Y5ŋ|@4 4aZC<.>%J|%ymִ=LgIhR؇9S\?q+}l;qٌz6q&>͇&.AL a)M EݸGOLt9ؚEvNOϹ2pTjyqv׻fB!Fy}Ns~1( hHʴ}0_[߼0?pةkHr:zoq ~W!fKbh082SGq'l} K)ڌjƓ 䃂 lm,@x8W^2]p'bI*fpNfBSRrd]/W=Эf*],Akت_Z>{#Tx[~oAlA?:FbӃ}0J~lFE BIoi= ;D:> %x5I kek01 c#jC/I|02oZR tj}\N۫0ְѸxZeCy֧aw9o{.Jm Q7&̔1;S2r\:jNyWF%Hr|wW& pب9owlDN@jonocM݈NK;ݯ\%iU>] Gsma?E+yX iʻdќFFS/\YwQy&՚XH6*n0T&M{h1Grf{RG&εYJ(ƉeC]`/%%}!D#}Hm? #3f\+5PB+ϴV4HAijcw;1 x=xn/JߑTVYOȆ)^@|)3IxZ-kr*!]ʉU -s z*ƒ .?'do1&Va&u_|VE)> 6㘃 >^ b o4{QA{ԌR2,L&T᩠(~:|W1x=Iu:t*DJF"8k} 2G+'›O]C@jXy=2rme0r]blω [GP `>P3>eֺΐʞ=O+.D ajPWو< _-kcLƷ47313zhցɇ7'K7N,(tADCpoNeX6mO?zvH+S!WaŅ?&"y6@X-)] (D ocEwJnq'59-iA2޵`oz9!1n3aCCMIlXy00)5kyV4C#2l;[n%"\$(IWŇJ_obZ 1_\΀ˢC%R:t}+ģu`Du-NΔy6?(35r-vNn2g;YHR=c=3 YmO>fVpeu[U81L]ь)%?L0݂n|?g'0^1京w0DrM0~`/}]p ȿ 0HUA"?뉌`wH0U>!z) ?/J=3] М#y~*',rv ֪#fxj3vaEt  ݦLm,lT1}zv1Hŗo֜y^3zvDLp O%|A<>r\wߪ0_pUldԯR}Ц/>% pcïL;;̕cXcX"C<-4lo6U L~r؞d'ۄp6؀=e4$@-4Hh@Sx`a6$" #E W6"{1a9Y[KK§=Zt}hh=){YƗGSZ- Z$X[j}&М`KxKOKV/ ȶOϲ>^?1'F.2C۳HOp#xW]G9ubem"*$iF@=8M;7a:S[=J,}7H fMNm{2z+e34] D0_gp\pz$G-3So퀀{Ч|ơ.8m⛞x)R C嘘lSUPw1t5YU?LjwAm(,6D%K׀W<98?CBM^]/o 9J 'RuKBt-=(|֓GFS]im TvŶ #Bq3:oxFq$3 ݮWSs:Utm&p랼E,uU%hF+sSGDmAI5gd!יj:本)~;v6AdYE7dC<+F˜G/RX#SzTky 0]Mī dxj;2^FjkܝCAxED՞qX$HyƻuڗPVIht x)ǩUJ,q2j ,mPv!wTPUfyfOU5KFdeSS+T8no*=pw. pw {clتy=juD`w WlX4CJ#$ * b{7le$*lOn4PmZU2fXR8,m&0)Q@MxOLuk8hB8oū3G#׌a/_G\ym~Mz~5$%Ga6/nʋ*UIgDϫ7 X#DN e^U4&Lj|6C"=a׶V<.zjZ' C{À"q-ԙ5OU i*a`ĩZ6ƆWLwm%BLQu~d` 1#fr_F{Tgh}ͼʻaP!Gfz}DC\>SXRduXӥH4T6:v k AɾK+!%։X)vWVf#?!WE?x9!uA1蕒-\p!zo^SҡQY3D3mz\ wf74Ԛ P8OGu =A pܪq|D:\nZkSQU rI'Hʡ%҆ꊨ,__fXe'|·A) bJci軑,MܔUYrGԾӎ٬̎Mz3wD7^~Q>S%Dh;:(*m0wH9HBg6b2[;KG>UTDě& JN'mbenP#(Ӷ MR9<ƿ|ތ8 =(wMB]TCsﬢ5F[Hyޑ8l%LRW5U;3M4&mSأ)en&=Gbg\ !@ti1G#B6vRջp"zMua<*(BJnL֮6ύ=U½ICByb酴Pء`/mv\GYǝ4鯾m@\3Q󾨱x1kF5cMLM[o3M cvQf;Y%OOPb8ãO+e$~]ݓe+H&kkÓ0=>돾QA?'D+p{+v%MtE(`H%e/Hk? 82jWT v߶͗zU;o +eY6$Tu /n ˁMi8)Zc;8D,N&g'İW G<a.ߧ-[IǨI i\Z\ Y}LZ19"Q\"嗁txK>2"B]lߘA_IV8UYH!0j#He%'SھB4sz_StGpȆ"t\W>3W Ar֜~2BmYʦWھ|ZtFpp*2Ǎmdؑ[!OjhV96"YGHTIuՊQ m]ls |BF78*ċYR~Pd.DU'yT^j08T~\PZM=X-G]RYF& Ung%-FP׏Q=Paܟ+Td?8\jQpg3'FHC~s$F{4E9 bԏu؀PeEiOѱYAwVN}{Fh6P Q;Cr[>޸AZBk*㬟izP Ļf:zKPR! hPnScgBRnrަOfի dG@ԺfDk O7npk*z˞:a#Y970{B[w%5xA!fa߫nvfb܆- U8[^ƉoRu Vyv u`&I9ߜGFUWv5 ԉ/yf;}jbu%˩p`;E9IkCE^nYxr3'a}RƂl"?wW-F֎ ss-hooy."UW@':88Kܻ4|3şX$xýVS+ͺK* 1+c`9Ke79Dil+=~\'֎4ΣrېkBZ=Mh0xT\z/HKR^uVɏxPxdITۯFG ýObWT`bF-X,Eޒ}InmT.W<$P惿# -Iۏ\ؠ mi|\ |\"ack_)A'YZIfR@L6=?H.ߥT+K<>bzNGQZ4py̷W&W~gAd^guFA:vިDC7y-$])VmۃYn$\MP^]dt{ڨ@{poYil彉SDѳa>2UUΐQ'qxhg*Ӝ[=hl 42jCfD^ <_Fב+~fy@"2%j)Zr? D)vw(yK[QۈC9eHXq'QY۹ܓYx`Yp~?d2vY0b.NF; bP삨Dklk6)K3VPSionrjTj!M躸 DkPųӪԎddcjhQ[Alh~A!4$}N7^UEFWz=&Χͥ8 8<~i͙EQ$oq(RqC@ V4iNJ}]G#lfv:Ѫ @'/i+*ILre"ʠka COjajnYalhu *t,/$9̎ziHEY?jQj/S8E"m4>aښb'hg0fM[BOupo66C?)Ur5rٺKZ30S$`Nu]՘ؚDd*oe. 3@^:;89tҏڛKKj4_wl ?^ʮ5g\A1IBO:;04rBx3Ujy!+$"c->;^1HO wnS4᫁rRv70($VU7{pi *v1n%0ߒkʴvoujjZu*+β 2_<;ϊ8 Y<Զ^\QiADq 3纣x&eZ=K$Ӧ"%Oc$ `o2 ,/e(/^X ZPoPlߨ &N89di{} mUAeKcOG0%Nd,"k%$,̫Gx8sB1RT'VYĊz י.0nH^[DjIy%WQY\)+[ kJ_m `aDh{˝m ]C(Ns~V-d,+&KWDB0nXRћq*2T-[yn4[Ndn JyԩݒyUc<"PxsG=Kd er"8 u0l si9J7s0Ƞ`Tk252vgم.׫ÏJ o7C9CVUɽ&vؕWWcmdJtjZ DB)pTJd%]EG\FsB&Kf,%&Fy yCQ9t>YU\WvWQ V[ IjCUJԕNgG?#~}>V;>P{oɳbV*%G$|#Ӆѕ/+ߢlXQH;8%_[iG30mliF4knNC$,_'8d$=|>.(ġXJ I4- ᬁ̈́8)ө9D!Hp9}0}TȪp';՜h ӚDEF7"sit*"o?NicX{u()G Y 9*6Vbp@vCzkF$jlD㮨s'h3Kae+qF-EgK .i_{.@RH@"sK(?z#~ u픟 L#*"94/`%z?<@WZ|db6}MYĵ^LzC_ڿKL#0 }W@ j?8@>1w;mTE&u륖%8Pe4 [@6SR R>I>{ AyBBL_5% b˭֎q`SfyIHUOI)&GS6%$r@/uD$?[C'YgdqUqV^opX WIf#\?(xF]8at 9mMD:ǤXer.[r|1epMޱ32PnYލ? =\Lệst:L}ӎe H)BEkeJ@ϛoc?ne!sҶ[Dz;CF}ȵa^ZB]%j׽jT89uvvd)c*I{(J-93%'1¶$Ⱦ*əȿ禬Nd`IQr{3t@ ՟N C#|EgA[s[vq;vQ[ERJ >"We S_?V &5!qѥO%kO5e)`1OZ)8}𕝑2dQ*HQ)?XMCbw'YIUODPEUQz JƦd02m 0:}h%kH[μ@eˊN; -3/Ff(Z1#ozz֮L!R9Oxyu΍)6`3MJn=-geg2 1,,rrոB,3y yj[NRIag5;ɤl'¯LI h>e^Ir8@{SQZOfwyfx$Žc99EuP6iX=:*j|j_;?AzX#ɫ[Q8:fh"臠`<{W\cIq弬IJC@VS'r.h@G; I[xr$R-]Fv߃4_GP`ۂ-2ë.(AA;)OƬ SV/nmwӁT[kMn[=9pklchvB(Cc+~匮* /[E3c>PFG27vt)1Y^f'r3ζK(kN$EFƴE-O=IPs"pۮX L17FAmX9y[i:P1=l lY= f_΂&^Rsd5p7d1V(N^9oŭރ@}[!KԾ^ $K#.791wcWE51!#Db'!\3i"BjC&4 ATl8"`I¾HiYF </\]>^yBk*WI7?ޥ3b7Y?W] šChw~8=Y2^W0;CR[ZW~!_}VXbg{чDŽW@%)'vx@TWhobO[b6_5~~H뭧n HjFv$ƙvzu:6!80A"SwRRPP !`I*r TބD(+{X&tf1J6ZH +KBDφwΝN|)oU_H< Xdw''t `B,'⨽3[5a ,ZVSnjt{AM(jee~aEd/#l6a5jUz'ԑ\BA0U^y՗Sv(g<5z7pkcY @qdԠy4W JP)s:xd!P& ovƋV_`ԭ+F## L /lZ`Z:-armbޘ`S:kANo=[ k pQf]׀:“0Tdvۢ\d⒳0..m'E>@Fgn $qn+V Vkt}o#`2rߚ`b*ڔЗ1j_V̼BSu*E>A? EŠ,ZqPo baqXHw"U`[hᕔkk&Id5Nֱ2ٞ w@y d02~$^e D2_<iqV3=5a):]+jiT/FVY" P65:p8wO25o 2 }ND `Ѷo\dj:E@jU9}]`I_%a'GR"4W\"Qul#H]V@\~uS`D"CU3gXL]_9_2Ci_t g2Vs Cx "KxVŤZ1_CLky`X[i)`BX:*V%$|#Ob54 ~OAfD]h*k}tخt$twcGNur~}L"p[*~>(Ff$X[uiTʉg ą)ִ?Qbd?iqZEZ qcNd`vKr`G(.gآS$W 6x x7]Ř* |4lW.|!OnR07$@W^|%:X9!`Z ZX<#s@dlL$ok2RgD&5bDd6AiB0'>n\fIMQbjz=Vn_&^qP~r7pځ2m5e+dsFv%r6-X).(w,1KDL;?H#f5rumIWDԑغvz.Ç0_dKVIz&ֈp) M@a0 B1j ه#`v]${ܗv okbD_Kl`kd~]ІShH[-AiSfrf ey:.)wT(0JmRFFlfmY\wxa AR#sW$UNCpOFO BcQzBfd 1h2TAX0 tt7Nv_9'tfֻJ6 {)j%ßhl۳ C.k<W϶Wxk;8^w!" 5|͞A5{ֿw"P#' vD׾9E|# nҝَ dbw{fD#HS1U_ OȀPDMRƘHc!6M6^+gwNed 3O\0 smC߻I:0T2kBqgQ ҧv IuҧdIQJS:Y>FH&^eXHS|ξ5xة5"efNG| T@t|Ç.iTp? @(Q B>PDxIfa1mʭF,G{[C%X78@{GvӔ&d^\'7 cE&WW] ߔ'Aa^͜uf-RH "l`gWH ТߊE=I,ń-re =+^D(8^w+l8,u""M9v=0'ݽ+ S!&cPvpEM"`hiOi.Re0{kiӕ9w$ڦz}C:o'3T޼4>dȝл,:]ڑ}ʾgEi}Y1L_r!IV&0JiYQM'dq9FGEQS!YYEC?ѿM5ꂀ,}ʻ{i^\Z+W?*'7FY|P"(ЧpD躀u$eK>w"#o.q5-9Ue=.9l0ni]V^sn7҆0]1]Dzx%V.BN^j~K\̓L uTztY:.)Y^{^ :ytbɂrZ9 HG3keG2Ҕ.gIU:GA7\&q,׏<ʸym.&/!vWT+KNhi;Pu'Jq Y_}@L]%7i$eP[Qfιt mρ?y9+[ hF$.,NJ?AF L wXu^˔p}ſЫ|K[$v'0 95"W yŋL)Zmv^ƾM pN*F'_$"Gw]B=Cf4T`<69{rx@u7e2(z?Ǧ_}X (RUmhT@̶c2ng5M^1&dk!NbI'?iűۤMX&1IT@ؑ#^r>!XúԮ5W t-1U ݊m Ӿ΅ׅMyc]C0j!q8GV^镼HM񾒜4ϔb"h*h;ܸΏ R=)bEHӖzԷxgR 63&Hּe N9/d;4pa$d| uH:@ʻGBŕ P /Ien`N) y(ir(D5?7L=5D4xZH`֘8>` YW!g CkOSvA6#om] j[un@]ϴU so@K@*_ʃjW?WN;يsI34P3Z&L\z uQlLŚ(0Yg,\}NI5X=l.cAc76+=fCj>iD+ iI!U-"Rv? гrk5:R0f2кe:4oc.Ab3K5']Cp9ifEH}gU{q߸4 l*5ۓ聈൞sBƗr9is%z,uk6K١ nr ϊvfOIJDF{ l?L`-l ÎhJ GՍ;׶s [CZjp6Uk2r:G7/XAՏ)PY^f1 p5|Y#_Cʊ .% ŸRV *w*25ꌹ$oRxEz ukM} {| IP"ч|^@6.j~E0'"uutّ4oNo,ܐ8r$p+wFԤL5eP8n Q% 3&- v OpV=.DjNsr,솪ҧA>{3prO ֙9 yhK5&Vp RKkzyNb:ׁȌHܒ[3QbO$= SR l;}Q‡}:{oZ!9R`((ٌ%)ZW>81U^D|t[N\"g&YqzLb&pO!OjBs^9鿼:x hat_Asv'H(Z =(+;%[9W(ְ7>D%"-қGbxw@d FFH4;Qs()f0r^9(h~ L/jJ*}s_="x94F&87Cej`#>77bƒNaT ĊO&\E#}_kͦaFn詓s +($`HL&GWd՜\*; {~7HEH":;p?5s-D9NĜAq^w]晚K}!cحvO@m/v[7rÞD] R*$a2.:Kmsڕ3YoRjʗ=倄䈼CDjToFr<b9ф)s3 ZPqθK&Tnbp#{N疶 ׃=-3V*xmQN!W=fp:5'ab~ʩA iM\B??L@Kr. $vPR~mlK@4-`7:.UKX ԈH |ԙ΋45]]\W|wҷV ?Z= 9ko %N^WM@fX d'{sN:~M8ܤ3]UsHrOH}a]6 Ƙ蠸xOARjSt<P{3RBYYtP斣͂ޫJ! ˔ׯ zGo\&bE󞊒o'\uu'5!)݊ NH[$%Y\s s;8,˾b9da\ŀ&,4Rڕ ]ĸڋ;x H+w#oJʫ L0`x^쏴I,qo[%)WymNuӣo+td5L6( {, ߞ(Dth3IQdBdtvyrϲt#A=x^&yT8p,~.DcLWjq%?tm7>&GA \Nf&V}a=*4ATkR<$mV0OG܏I@{vDWP}yqz7zVGqT#JO' v! )7hE8ǀZ~Q0?7w 2.Zٹ.D=ZAQJ+ AV#kojgZR_D{U*t7[B6h$bW&>x?vpEcW T5eZ|Z:taH $1'{s] њ26;kOka;gԞo $YfKs*<(,ٌWwgY?D^s4 B-;i_4;1t\ 9b41Kqcmix?)]Yn\Ɋ4rhbua$^Xr_I<(Ī1îfͬq<swؖQ凃11Yl` 04|D+с.S)Tg~MfXCɃIe|^D'àQL8)|qԿ ;/_S(3Q;0HZ}[ld/ `!۠=r;Qo`'B/dA**}8_N%OtU9<, rHxېO ׏p6gd:yI7d_kE6ÓA#K O5P}Wn);<3w\<3ܟ{yCrϳhF+hiߢ%fV`zUX.0 (VIۥ9PBtVYHXFyF^y-UITb JH,`ưrcLKd{ziIhmJb_Jo Źtcl^+˗n~կb ƒ^xډTJAF,g bN)_v*{l!Ԉb09ɩd4(+_:b?ip?~CkN~Il= }Gg9c04@i1/J|o$9CgO}IQCalt@ۄL?lr2PVݑN9P$mU{_EC,bIT8" *$sw3j= v|)UGB1ׄJK-)"/];}Y<Yԩ= G!x rèG h|"wpOvvT|S8 dBq`OQ=\i50O9G/Ku vaP%{ݏq˲v7 ObM(_ o{?-e;̓F *'9nQ~N0DjSA)z }gE6Iz{$7 ,dfDK!+V@+{Pt 7"ՔP jl7$ Aؔ?vf+յ 3Ragܸ *iBu&m2& k饬\t&iө][=H䈭M[-}I{&ϓ^a!&m,DŽ?"K|| SQgYBzK07Y6v<\%R%bʹsaY /f*Z|NƅSr.=ǭcd:}.-hU =ΪIBܳolɳs2".ƈвR }oNsȠ,vkʅYcDzânTG+|UqZl[y׳ cՇDBn+9X~PЁsbӅ|<βd hL|#[KS#P{wH`_,_#CNVp8i[dV]"\ֆO*]nv\fٲ>V?F?0 }'Ē}G#;# Y>ו9 ק)FC͟~5hjV#&+EE/{iEYEucjCD4olȓ[_"[Ytj U >g2 "17M>j}kgBqV)TWMtDzô#^G{T6Q4Kտ;B;2Y?{59V x|Hh̵AWO)2a}!helDg1(uʸF$,нPWgym.qRGS9^oN3*O Ror[ ߘ!FTV9eHjȽni0-#ޜ6.w* {\cG= \RTeHu)en n_G ;]< X+$hB G)[[-$B͐d2%SXlpx5#kT& `%U)77v=j^Gy0 g]m7Ϩ߽3kl֠,Aoh^CJ}mwqU] RӸD.p 8C83ɋ9T9i,OSƙ AMwt%j6?YC.8R9Eh|">1yʙCRpUH$_4p`O%< `|G|XgG㠗;ť宄M8U \r*,vJR˕? \V+6>2RQqҠ5_\ }Mե^pO%ZN&՚WO cr* \QQ@,4_iH#!KS|,Z uovOibhi7P`Q@_-*ɯͣoÚnX>RqM.]e5._20rT]͚ D$_<߶;xvIK5fI\!  X'qkisL Dǝޤifg pq}x49? S_s7*TQ˷6bDYnMڽn-v @{8T<^vȄ'Rڇ,//s6J9P7b;ºYCەzQ%I%,Ldl?jNnj5HA(OŢ'VF-MC&uΫ?P]#ڠܨB ͨg8<.u}oDON赔6PcTk;σȐ0r( $˨pՋ $[MEMUEjO%E 9D YkB A'nf"+~&Ă˪>¦ %DB].rxLEhehxMq=Al\RNfMgt:%/h `ļ26(iuQ3xudb~*agM_k.z~hm+a OY0t˸N:`-𦆸  ͥa/`sUr1wܧ!hUeҦ"`4'͒٬{dfB>!|ZG#!ߥI.ot~2r6])1q05p",^Ά~ jvGBJ x7: &.ycN+@Ph^2Pv|i\_X-E%41;z Aղ7 o1i Vd |LqW hZ&kA@`b{{sNA\NQV]=*J",g6,@Y l ] [L0; daU^;ȝ<ٝ8<FZ2⟀_K l0l?1. ¤BW C{7]tCӾӥnCm4E09ָG ТTb܍[;-}b•/Mx{sj}׺}#s> BKgy-,5a 0cs3+5zԡ~xA]b訊Y?$DPh OG -i52gOu.Q;nZ(MknNOJmhA%sxZDhA~±׺U+c/ `V-m@[, Qkud]"W!Df|s[*-qǭ\$*p/0m[a7Fsa~+JeFATH8)3><8ԏ: Ss3=% V3F+/O'޳gVh俌yC+XyNDa{fb;-JOslƼՉ'z{ ?\ * | Š.V^+˛ƺgNgY AF)dž՜X}FlF㭞B1oaEa$ß(P}GxJɏB98ndU'?*Yu3@ k* i@qs,6o&۪ͪ_JO8+_rԅ]b -j3nK*tvPؗV.'  $3d3,O :bЉW[ۂ)`)"5vsZNDɚt$oc/V9ƅj+GⶮDa`Q nC[)簲; رM|b]|0K.ylBr!/w/.)c'qٸ avcmxadőSaJ_VA0\JFa/UML /%UkkO!ۛeWH[m1#SP(V0ݛ矄^ܒkaBLK)Td}Py`lEߝrXqMw; [H/gz1tGL¯Xw28 ;mR Nud,>JRVR@EOoT#txoh] + QT@#iE/}jAr r";A]h5p2hwn&#~܊7K@pr?y${k׬uLWtE2wPPn)=L{#N&zb֣>9* Vj^+tusg%ƒT_lS@]B"Vyn/4ՠU laO7|xvE`C8>i%{nZgEG\ɱrber">jPzyhό 'u3tN.ܖ{G[p6}d'ex!wFmjLjhSxoR%+oZ_)z CbCۃ?: -x[rw*g]yQ6 B<8%6HKwikl,w" `Ծtg:Ts5K8/~j3l68J~ 7"|5ה`f3Ɂ|1/nj^,`g3l;kkO4H 'fpǒ(_᧷Os ;|VlRm38XȎa@Λ' NQ;\ZI6q L<HtMb1>(@>nChl:E#*}&-gx{e  @-nQZ% fXiumgCƋbkF:,pV*DP0{~ET^ge{R(0I8&M?J*mLx@@ nDkȖ8,- yht|d!/acŐnUOu0NW}IU8N-^q@'>>­%^{-8&Xƨ,BV`D ֏$$9TjUo'8XiT_M+-52j苔R]8x1eQ+A/ |gA7k* R:yc-|-%S˾A.azU@ Ȧ7Qtn[-NB)j/Xk;dW;$V0iŴCRo ʩ(Y"x(PP~(u5S)Rt_5 *tuպZ< 5P3)0%BeG\ U)%AnٵNey7 f _K>8sԺ|ݬ2a;!| qʪЍml-6D" ㎛@OUUEvp6gi|Z+-"#!iƖg\QxϊKCͨTـc M!X{eˠ!XVnu_e?tBmIi.ڃ^yl:{3Vw}_2^4a!\ nP@"+(7|41ԥBKFTvS\<"~_<3C͘nZOi%ᚾ^L> 4㊱<eKnj(h6\M{ I\*ALJ9 kwkYoԅP8HXR?K%Bov_`}F{F>U%EMrY0%?Tq$oht?yAOoy­:Qe:ZAA~~M݌qCփj坯 GԺz*2@~dD?HVZ T q2:F {&1 D|h w5CU<g{ 8dRzr l6 b_ד:}Wɣu$#e +C\-; -!'R3>x@}蹲dzkD|"|@逑8`vK><8L-qy$5y 2&t`|]1)n@`!x0|/jW /"{$0)p "2 Yͷ ..mD_np#ЭCC4f5]9b ʃ ^'t\2qo{@S[r׽y`ER^% \U.|~L'smG d-th#8pZi7п">7|i!y2U#Qo l"|yT7! r;p'sׯ28ߤB#[;d]ԧ\1e\ZLz8p=hV0V;)i5`ZY mc6K O0C{?7vߢ[p.~L+\=r&J3N߮M:G iV K+Vdq"~W읽:αw;+P~7TaoX{?94$8'S25Rp)|ޤ^7tb"V3C[Gd1.zŨ ~Lu~h㾵]L)h0U%btjB{,IyOYfv:%o,yʊI4s,W*{ޡ&gpތ]3]W]f`l\LPdu@r?/m1oh]xX> ;#2M8)7}N' d*wLC GM65-nZ2?p؃g۲. 7ńGH K)Gpud'k!3=$wH\יNggӿU=gw*FtF0 ܀A-:OiL34v~=!+'su#CZNbz44r8q7NjtCTnLO '*iBESFN|;ۿ5`'U}q:%$"q5+ѳdv늣_nFOW"׿IHcؒ)^~*.[j/'W'T[է;/ԕl:G]%athEPGXwC~h1RK[Vfj w[|:R]uVVVE2=:%R_dސM{)qFZUz.RAq"uh<첽/2Ɛڙ+<[k;iF: *ZM<בM,9k"7=(VUJTs^ِW٘:-{QR*gLQ³ +ά7sU+9p )54v&՜5 ׽6 ǓVF%ߥTf5Ƌ{ 8C5k'`Њ 8XY8@S솒yy9wyޓȂc%NTNhR-縿#vؖS |2̚2Fxj" \pHԭr IzRhZ}l^~p/eV%JRgJPᝣ^Ǚ3![AIl }Ϲ5CIs\n|۫]4]' :jЩ0\4\Zn%߈#v^T$gz"lcӓ}q# 3{Jq,ӨT8+4.D)~J#=a ^+N+m VRwv}ݥB˾^QaJ.dI,-tR ,sn7}mg8\x.OJ:xm!oeX#ݩ9+?SvrBDROy:dxTOAMnd{=n!{kL@r 74 b+r)HNIJo؝{?,[bK{ߣ` f-=( ĄSo`S6>ئ jOM}pS1V1$fArHl+[fX^zgu+XtBc g+?O4c<`ю£YI5Mvt"^:2 ԃyNe3b7ó&9#cmÁ@FOmxG{h7 '+?Nr5}2Y2'܁kށ3/BODѫ^-7Ziu]J|kGh b}-sԍחu7$Q{ȲjE$h4D>(4%>ŷ&; =} oLKtGs5,> iمx¸U$v{w &N`t64neƒ䅡 MaZ[%"(H pH<4dq42_?mB0^Is&ƹd. 2`S*s<.h`ӕ-d1gĿU^V1@m#m Yk%T. ՐdX_Ͱw@yq8t -[ʳUCZ9Ew.e#AgWIs9'*"Hn PUrWQMsC ɘY[Hr` ;vB&\Uk<{:$D 0}}0t"ao$سɳGm! :7,D ͠]UNpI!{Z`'oyAWxURݺM:UvJ, R!`bR@tG7off_K.`)_;ziW0&W~)/ȜOqpT mGiΨ\x 曬:Zc|C~RY1T[V⡫(4RޱMܔ4\GJ&HHJcjw[mwLӜ*mtQbAF%kSlC"(6lj"B^-߅f&>2'Q zR_Y:pZl)XfFYbˀ!h fK5Dܭ`۞3F׭y)a`bOp2l;?UX|KX_Z3<8$SFd`` aiQnBP /r)o F޳]e:te@+!qYZ*Q7-ٺ)_pj\/j4AbGP+[Y4:T6Zf8m\է'$+nZ)`WNF1 f&V`vL5HK]H,PR(Hy:';dGߢvf"T1Qk7f ܰ qVp9im2E}r4U팈./d!'V55va4GVFw鄵,]r@صչul9̭*g[ RH ҅tg#:u,)J ],=*m7s4{tɿunBs!¹2@=sJ<|XH.}בyTk`Yo H1DWyYj@FdY zr 036!ι02؝%.=m,@lj gOOoΦ7l.ޝƴYҡ-*C7gK: bӤ/^y\2 'v YqӟkyϜ/gyxv{9\Gc>ȯ94kRb Ky<)ᤚ[|덗Q3G..K틂QzR.b"K1@4u\T]QZKBzh*簔cQ^%gWLZ6~-c `@\h*U=x"#>t sz΅Wkj3Ģ1Kp<%g>iBr~u/!~8)')gÖ{ Yad۽Jb{1\6qð .rvK M(\Inki⩍LiN~No` ~U5ƼTY,xkmǩ 8K K_ *N{iV|{j@."Uk @sfq$ #uϫK!)=|E4M\DQhbAdBvyP#yMO)t(\yZڟ'$bu`m>۝]u0!RK+#O]0$2$s*әTX hE̿jPqUNs(s#;F\i[xp*nѐy.t"Ғ)L&=1"?M4} @9 oyoV.W4ޚ"ve\% ]$qW{:X8d-kZB"ٴuPuSJ^ZiUj zڦ&zǠiXUنYJtݕIOkphd$y>˃Mrz/Or4OPZǡw)novڂqEȓ6ES6zlLBUEOt\w(%ׅg5R !-9:ƴ pBꫴWYRRshU%gCE\fM%39lftp[P}5ܸR}  ̒ ًr H)_1zPjY4ӿZǔ|gChǯۀy+Y~ЃAuQ<toOr3P֡ӑeDhdzMgP7a3dM R^o‚hO'M6%ۅ}sFt_eVv.)_DaT>f_ao1鏢&*-M -x܈)Xs}A +[9=zKHlK"Rk;fuquctYCYغz Of=s EUVOBjP?(:L 5$([wq [}|FPߛc{ZiǰWR"8{`X"y,!BAqQ.Nu¨ڽTKMy}{;tLS iW>'5Իd'/lO4<`;x^l,Le48;{R~C~F<`A.+n8g˶g?R,;ڤI}[nCs7O>R~Z;WXƕ&VZ N eipG% i>j Hӻ_z> f+^X ykVӷ,$,@6^̜4˟bYdc$UJ`3y!?L4)xU$hB'˔ !7@H~4HX'gOd/ nPE:sn^ιm۲#*!MoW=D>Q$G-Y#6|V6r-Ru/FWD"u,IVBvnEzև.{n5_2=Q]h¼ }9(q^'c* pu_o=  ;dPjMS#O3O)#T/ &_I^+[G_%OS qs f`q/=]rK46Z#iud S uoJKs609y UyHfn~;'T8gE>a>%pRvъy6ZlmK2HُIwfr{Lj|`9UNl)U 8t*rLVKD).Y"rzja4KiU?K5ad!6bvl gY@gT`*Y1Q1sw:NUGב\ y#9!$n+ ǽG>o\}g]|V&ƌCִS3 ݇RF hBplD` {ܡB%̂cnE{pۙ:Qi<}N) 6CE({6[+.a%iE *vYPrX3y=iĪsodrQHՑ.8#x\ GG ÈߵqSaC[HfXK]6}I!Ma}eR]gmt]^YīA +WQC}HUt=I)G K|'?t|TWފd(ʦm0G'"W攅ͧB*9ؚĖyT&r Kp[mګKo==$L»h`lC%½XPeBjΑ%*|W 4>4**eh/4IŠUoxj*xIyNEx}1*ݘBv0M9:oћ,H-1 ͎IIk2J5 \]luƿDHE3$x)+g+Pܱ =w*=`Y`& @)s%~8u* SP^T6x SFie \I:t5b,oi=tgvd $~@ߙ7}fA%7 Ήi+f{Oeh'mŠtć,$qh b[{mY\.wbJQ !ؔ>d fW*[D RʍKuëT TQps_Je@+٨䐛ԇU72N$7-2[G+fQ'{'.G'ڀrK l_0?IHZrHI hN-WV]ea= ~Y~ A2ͼ?TZwۀ枏A;R>%JᎳU uH9Q㟓 S͢Mn)Y*p =SN<c&P xs'URwCp鋁2)̍nKEvbxsK``^M{+GTupojѼަ]akt |Ffل}҂d^$AIvlP }al-X*lH]!./ M{svP}Do8痜e@ ]~yp-mu .=Mn*Pv Rx"ؿU6;}O+:m1"a8si2 _&GAR L^("lŢ2Ml砺v(^1B.G~N>1$XOꗤ|`.K_D,R V=PgCOw_Vxz@X f $@Ɋ5Uy/lN-Y'$O<H*PC,ɮk@C&HIg0YiJx@4=?iDdit /09_('Tk%[!yc Lwojj[PuڥڒEXKE23,{d`|kDʏZ8X Q 싐IC-hbNؙCy[1.OCtAf."=tYs# W E}<9 ;_QN԰ʹ+j()egP iO (^9൪|.EfTМiz{p54؉G2K16!rTTyYw@"ͳPI$Q3A-xpyˆݽTXѡуA@[,Z>غҲςU`Mҁ9qjM=:qdpȨ2n HPŴԯܦcڑ9R{Eqߋ;wd*L6NG̔M8 e@~ԃ^XwzvI2{[i 8Sp['ylFqo©PZD?z _#_Î!BR$s=vQ\びU(wOqJ! cr v}/ m*bi4hlHў/.A,62$iW9晥&Nx>VOGj-2'AyUYaA9Z%;JeN#G 6zKvJrE}!_&Ǹ8[KV׃wUlEJ6^hh3Oy{-&,<> 赃jMv[p)j7`7Gʗs~ TǓA2ZSHtΉ̵ T'DW]]že c1_"&஄uwPUc/W|fWP>)*(<95g!]$Č#c'?~/cSDO 0 NfwtyzȤXC,-k a )?9Cwņj|ڙy]kc=j@eMXK3bp0i`bӲ(5U!C& z0.>JiI PtSH^J>}`_]-5oiZ+8l!x-˲E 3T Jy(d 1 BZETñfʭgp/}= ,i] H)]j|A?)lg㵢;˦U fĠ^"*d I|.hRBrLEHκ@Ѽ~]uE@+e_K+ZK!7W-h+h,f=iB+A>t+^lMoPurȜDZG鈻纇 0Tt!,ZOk/؝+qgڗbGjFIDsK'n_"TrhژU їI0qG4xf 4N@ȥVpK[mxsh߿Ԗ:D$\4 ?BpjY9wK^+Yӗ{lyzl!,<::߬""8jF$m֐~oF8 hr]_r&1~/'f!,DCP=:sH )5؞{fHf7-tciZ]tp0GK}sV[ԫ Wm1f+4h8vXwʧetuGǤ9"7TGܚcj*9aȶd>rjd'۽p$˖uGhX 0[,yS[LJbEBNPaU? )ߪ\Mk-: LJÍs,MkL 6ep!NEފH2[ؤ{j_fШ$:Ov)z6J%,L8+P:45ae7snwMȿBp1ByngR?C=*ٝYa?i:5e|Ķy@笀ȒN|*ٵK6HpTOџKyikZ_ cBFlTDTT~DQ:)/ĥYH9j-\u{F TЛլg&hz,A2D.qx`l}2/K[)tEOAغl,x4H`_Lm]#!!u);VOc¯YdE>@o;q~p <֊4b`s[D`-%h^H=Lͱ nx:fgb؀]>!Jxcnhe>7މ=~(_^r,W܅M*Z /S$k&4x =*T-\BۉKgAFLISW@7% I(*cX~_PbjgͰ]`j>fT[͋ 6Q>TIy1PpH`i0_2'a&m\dweG:$ ԠRJ%W#@PQ2.ӚǺ9j"`SԪMΝ_x2= J!tFM;LDEZm XNqE, S$aGLLi9ܐطeP7H{iES{M̦h:E'ǽ $SbcXљdǶA3ժٻUycm #Zg6 bwp(KobO) h,lAk#ڠB!ȝW/vI$#v9UѠKg~E'_g)ߴ9RNqnz,dFm@3-z]mscL[IzƤ xAi'[=;+~j|׈ B0z>5%Kc@~,ج%n$q*5xtwW̓Ĩj^~31+&>P@.ݮKid?I*kcunD`/™)kesy*F&j~_O @o$msUv {Ce伌 ۜ,ɼaR=x OU z_>iX|v.1Gd&`ؔ #&uG|K/ߘOj)rjm":S hp7%h3lgy=5A:yZSJË|f@wVW2q#Df hr_'3*>mMFI2NkR͌Ι:&0X?7-a'Ϸ\Ah;juAWb[UpS%0brtXҺ !~)B tS,G˾~I5Ч4-%t0-i\cC(*>j"33-#*"T˵ Su* >STS\ö́dƒ{ewo.s~\sfCg6M}< j sg 6=oo?+g{ǃA tc> m*M{'P6D]I %uwYgi I0Y_GnP<ϿεIr|nCΜ1 "]U5&3m\+vӠّU<[jC}aIfҕؤ\8{iĨGTWOM#nSD:1uޟ<Klbj8vԆ֭nS**PF]8ѣ\nf"8ÍM8 F')J#T|8Lpi!ܵ&9]nvfصžhVPiv "n@u<̘%L){zqAՊ=Nb|( ș<BmzIxVA?%gB\Č_ݶ 9ѽ;8N0J)1_6 A~O% ͝RϹ{"QQ@avB5s߀ǸH-L\ oXS"[$zR g[AFy3-G!%Ü[.mX]1Яv`)Q0KCF)eD\?%e֐N u6 lT[S^}3:]H~csp*;c/6ɪi"LX)ir &7qUy"šzkOJ_9Ʀ(#Guri/?š#Mg/%x14U|H Cv/h?yl(d)Ϳz>8?{I?Daɍ]-nI+̰ tJTMLc{j$jߕ,.@SwM'O鎄sѧi:bq*볆 ּ u\J- K~^4 ZV{ J}S n]Ph—HaX.\ wp%t lt WAe3R_՚;*3]!jX^03$h <|0: u!;>ӈC{use,/GeܪlJR16xlp6" 5jp3XPdmy?kW(]f31= ]I44TS7 7;"ogduC9Me ֔ﭦ1GrŬ1ږL CxT6)Nq>GnK#@pUrnx_Bq {oTojNi$PCڻV3H[󏙎T%$oSQacjBeyҀ{(œD bVW"t ԫ0WT rbmRN8C2oGKڱ٠O=g"^2aـ. ý\W7 L4!] 08RSkU3'[5`RlT-3AG*KUGG W )j`Nr6G1iP Ș^&H톗ċ0R ڥ(wNJ\~i [kCS:ZϹk9 d~*BdaHܢ3Mh YwFow7r̈㖱$txh۔r46ҭ"F2)ǡ[g"O\ 0K i]! "g8mdgQZ8b s(p7f޼=:q"ָD@߂q-zޔI&:0 A Td`C!Ecկ?^f9 Ӻ3b{,s줝Lm惨t)m*YUQ͜D /z]l;W cHFI<Ȅ+i9Y>_ 'k_*c511SŔw= qF+92.ed6fmyݓwIzk{SEJ?aݘ[.3E=ۊL=V,pDٜh;ӌ܂\E%s?`\WBBO20V8 n4,/4Pcj.30Z)W1eYл2kob-^e{p0b2S4KRG y%f9A~y7ˍiD6+Ҭ")Xz3(+w Kk)Xۦ*C (/t{{ȗ-)۶(f|.avΆi>7}GHً.@,S3`PUyK3KY9&DCfat dfR"kx?OB5􌻱0)U!4o\hiNd0au?߹R-Sͤ_hBVpSm,B祕M=DkU^dYKEqFwex#kOGW`mpg&#x.Z~L^$? œΕ$7/c?+WzK=(O* QM^IKՊ#,x̋RHYJ_vgl3Q}%fDVd|b9C2Ҁta }9a ̕\\ݟ'2$*Qo`Hc\R$/}<+-'z(Y;Z*\|t} &a$+U (PLK)\9O~З=VY'Tf=C4?Ri!ߑ3|TxΩ > }Rl(B$&Tnǣ>7#j"%ɂ_.4 澈}=?_˗0Bk] LFJl6! zkur{%Ơ*w8RƣE×L{#ώU|u nSYs ea$6L(e)J ,w3 'XYߣ_U cE.n3<7L;Af9!.ڕ^KLNOoa.= hI.߇Zo&1i'(gd2g%H4N*ȕidg* 2c|{^ \GJ4)oYemT*Z+LVAdixl&ק$;Y40!sj&ׂ2* ?"JfB /pr(_X&5/j+&R/v)CuYO뷽 DCM:(/ͬJ-T.^ ȫ3uSJʖlf&s]Ei\[aL4#\= ("FXu uMp4zL|ppk)!wDRGm x<\L:.xKx11J-Ȓ0l<Ͽ rAPїm vÖ>@gJ:'l({?`&LQ^W91l k|a#0]9-dgZ=<^v)ꈹc"(]c˨vR8<{r9r9z 9qU4oӴ"buKlt {SZ e.W4\U8J)A0H˚ѦC!W%ppte\@gȅ%@i31IaPâp1b] O-S!)=_:w/DzLֲ=; p3OȾ󒤂<5t d7~/Kl-Pf m LҡD?LB2U#0H'g9Hа,AI^vatD ]jօolK0bo1:Ft٦FCDgq5|F36P˵1[ =/CtGAT G _iO0o|4^^d+8WiB>l{I¢h9ݱʏ"8-ÎTe]ج [we%9B M;i޳Dd& .5Vrc1W9!j*U zvVNFQ﷏Κrt] VPoLRw9&Ԙ͍CIj j#B7%@]:b^YUԸN_/c﹇6̏ Y)Mތa~8>uTd<4HwP$etQMb)< xuS=ċ&]ɐ9qGlN[ tЦȂs@ꢈ%y}3T@4%M\jGGC7Escd;< ݓ.NG'lds`9 ?aLt=9j]60mnt08% wJK)c i(6W F򐋤a@ do zeIk4Q3 x TT*8x4ЍAsQD&Yv;rtQu9ԫXvH$N^s=lA5{z`/fgLKRu}WIU(.R$`&)t#0#t,Ƙ2H IIN1I^F^BBIն:|R!fOWc,сL`aKi;HFkp@~\>_%3- AQJr6#Л<7c؆G-dyNI6 "XFn㋡ p)~:Lp ;Oh(8Wa* [^9t@g'S@gݬG$؟ _FOt!"VChia3٭΄T*Bhւ`{ԬKˠwxCyhVĎk2kѵVX*ކnz{8pJ@̡Hnpobf#y7C ށ\2Jg{2xgcitu|֕x41c+6Jmi)i5lۨM@9;+]= LMJc3'v]|7PQLO}C(k 5US͞d[>< H1 dhH<]<5"TD9U=O+[ {(Kg"}oT\ûj[R}WT2Dmpq +Ѳ'6Of rJ6oos&0R%Ԟ"Ǹ2@РߓT}xNʋ*vme6gx}mVaP9#MҪhy3e¹[39ͲIc|42 J3Fj~9 zl p=c/AtCaPE΢j飗$0IGfZN4|Oo6^ f: Gv()>/vio!+BrPS꿜{tCLr[e"eGE/yK-m<T*lyz9vGd)A[1&BCY> ^A,^u٢?߅j |֞ k=*W5LD>m/! o̼@ik~R؇gid^SH.Sq-I7(]_HMvtDuO8hUuj+#KϖtIT.]qKO*D4vDLYS޲8R%{>@FF}J@V(U.>ť\5=k=*7eXKE*mF[#y Ĥ!7v9Tr#;%l ׇv|]Pd&X w!UPCwCaGQE >X^)%;94cޟlަH*tu,]eƩ`h)5P39Ŀ:Ϝ5 }ϙID {?ck`%_O3~4֬z V=kVNpHP&\ӒEt2h`+VJRSӅ{> SŐh*Y7(k,$ו7ĐS:29پ+5NKvԔܰ$Ąj ENdžNEط+`XzG. F78Ж>.mzJ54܎K^\U W/G&z*e_AaHsz~^_de5h "X[@~ it WOsh\|{;H"3'Ko!Q x3>*v$)۫i.}gkvF\uR"0&;Ldi,Bd(6x\%ݔb^#ߗQcJQSXfy )U{ kH^> MУ[Jf78,7Q7[a$lEabon9Bǐto}!S¼I}!W~0\a؊-Lr?O"cce\3 f\rx3o.4IC<ׂ.m@IJuof7OzV)&}+T{(v~bgb6TqZ>31 Tn/jH9,Hf)}3&N6gC$L Ҟm0qO9yop _ogxOrW`xI! np Hwz,*@Ü5aA,UN`5m<>uy5 ^RW.0y=)P @f1SLV]nz9rwQ)>!XNrHpe,¨芔x(YoyYtu~ܟ~C~|ŮL5HoXW ^BzG!ώȎmoEg ,F)t#KƯ (M :#*{MXhZyx̔1SWURCZ}^_}1yҠ=;=l}^RcU"DkD\U.-Ccͨ pc7eC[*[EU-u.՗~_2o2mR0$fXQ o%c?WeyϫG;k=BK 8Mc+M\#+TT{HF?afz/EMG_ȟeMh_:P;3Ty:V}Z^ٸ$uU|WY> bXr<(GGSl6U9T B,Xz&<JߠHu;!1~>}+h\ o28KLR$Z^8x0sJ}&suG sqѦ ,t Oy]_ԒHt"o¥;~ y2cYZGfvSt"E"F@֖L=2BPPCq~`$~W>oe0H * h` _K_oioo4YsZͺpc\"!4ۆVa]x7BDo2dEn0j0/0P~s]P'r/@*!.^c-Çsn;38W!>xz7Do3218ET2? \IPbT9_a >qJ˟GGjA8X\5|zm '!%a,rd$im-ϒT.\`@hceSMO-3B {eW쉮41/h>̰P@t|Z9M/ΡJҵ⏤ J=*܏\]w0dkxUVY.hT"|t)x@)&̡P"HMmd 5T`%Nvϰ^1VEK7?m +!#Z2{ؙۿAhW}MՒp=g[:SFUORj6xVse$Aqqo"NF)B(,|y on'r2]ܟ!?uj*Sؤ+T4v@.ӆ9XK0]Xl|oG:44&X.kXtefVKX:YsI$ܖvu&d:]oqUa^ $X nӴ-ei׏sW +AJos ˇX@DxWus\Jb4ɩQ߽uP_27?7%n~W3¥ãkNB+ڴ7I᛽ߎeH=y&n %9w_ .S:'a*3}SNGUHnAr]PcS}p_>F`8ZЭޘC4j< I},uloD?l z$fWq/3lHxϱR?P|8̧w]`&A.Xq ]ı),G;)a3;ͽ$mƚ\=Bɷ i U~FT &a  eZBr3ϛ)U1HvyЏp6 |g20d y \gmP6 _x<"pJ)HF+ >BdO̤:zNx4]?]/Uz ]Aq.'Ƅfȝd_4+u{y'\G7wy*y~b_(Z؇jQ{ۄYthT!M.(YO$Ii-x9Zю̝Az= o?4 v5"[3XD̪UF\dkZF Ӟ?9gAО#S9fLf,te%4%V0 ~Sc%~Z|yq{XGK ͜m }Ek2+aRi7%Vט@8򈷘ަ "G,Ȏ ^Ć܊05VUb~Sh]^ڿf1Q=P'\ iܼ%a) 9¼FFE8U8ts !d)7!P_c޹|!e(AI]2nW5UoѳjPPK#Xi.|PHtZlhFQZȟ|+& O5[a6xITH)]Viңhǖ9g睲[bf=qLg*dҥΏڞ!O`el6QHW8@+ʫS_!/g[(<gsX loǥCJюcH# ""Byx=`!"X/Dsp;Qf+[5)pD9**d5cau#֣RW{sPn+Q֔ڷwn/? *%`y(}AuLc</xBCz,|0msyp8hK{X}ж:CASu! u8Q ]/;,F " ~B2Ɏ',4h54;7Cxai&U}CIk_3j[dtCgsE$P{qJJ;fZX~nn 1`+7#-@8:V[-!*Qb#+]A.\*U'L*«l b<5=3ߜY.C#}\9rffQa}Hu5P0[u,E)k+pZ:gīH Tv@lԅV BL6{=e3NC** rYl5ڕBzi&c9(Qq1ڰdM* IXd[g䔿>."y/mȑ]&2@v<={3rJqKs /|[H@6 >>S"3<xP)]a',|j^;گdwUJ2 d>#D;$I+@2Êy܍lUkZ"#8`ywQ7jr.ᚮCn%9|!m;XNĹ9I?¼ F9襋uee7]1zTj*@u;`hZkwpd ϲ=i[.>B]1>';Yэn%X&Q` 1L5F^N]fT I]XI:q Rzo dXC ,DB,)ET`z?^@ͷ堆+XN}=٤׎Ґ]]։x]^wz|ڋ|rݼ>"}Z.I [d Z24F3$ڑl`ڥFwA+dւʳrP*$>͇8Ej qdb!["*]|=nϰdL$!+O)i΂vOM70EdBkQo"T2.(dL1YJX̿-Q~,gI%̺ߧ &LÚdS4{qZ=A]yrkЦ58~d*wWԶGw2$`*7J*ƔxdGm[l04OuTnd~#%Z@hH$}pũ;İ q1ک'?tM@[uUO 6ԓJ)TEvd=Y$1q#`ҺNeR^>yq=Lf?. T[trv | 5,\drw:>J-O~xV)qk\O.^ $YNT.ʼmm'ѷ~zkNwL%t%مWqS''v[ն*mZ" Q @{U3kVM?so2aߣ.gÑԉ`Ђ掋td4 g61p(/CSPgR^߂B0/MzwڑCWȾͥٝOY+v;#/%-|x$@InV_U*Wv9.ȃb9OV.e-_Bs0C`9qi '/ML#4Ks74G,Ϝ757D$vBt;#Hc;fv!דl D| ,tQ$󆷰G`[Ayv=~$*@ȪAr]O+Ӵ=7Q;z-ʬ)ApQLJXNwqz`$,8=GzAںUG?[Z*auvgԵ`߮w- sOIR,xeeG urL.'@oYj+Nh1&l3"TSa֘tt#l[f%OG pIOP^2f/)7. E@-W3iջ 0/5{bEdg0 R@) E>#om|kEK}(Y > JsM}&  58-ɪfJn~g?*~9`sΆv.퟊ IW܄EYj1gf>=^$*;E*L t(ɰ@s}Fu;)kN*"KW༜ƍji3 tɜ[=+G:&N؉Jw.>$t'j2܋\z8|Z)K>6yk(Qq 9 sl04-a1cӰXުuaKO'+pW,Fd)0!+I~bܛzZfz׶'>3$ C tBw ,]J^8563ԣԝj3x/SY']/o Įf(d_oT6x1[[ƠoۿH^6B"_*2^Uj~|&mߗZ} {ktڷH.m[u¶'Ō rw""4^dзϴ&cGy 41.0*I6gc)$U*d3 E6˽#-%A6 h"s)\Cⶤ|hGq$55&ե-`LWݗIGpeU.t{-#:-)g]tNS眬xA8JXmo!'(AqM (a.YEH}+'q̘LԞB[Vt""q Xh9rdG,+F8k^g\v]}%a{+NEb~V(3Uuߡ4D9e!g˧OX/1K =x9 Z lTZϾMQG{;IӲ2iɥRӫڴE4ǹC;KHv4 !=P42 g\G-Q 8X:r]s咲- <7)ia?5 bvyw qa6g#1): JX `PR}-x *=(y98# z$U`-*4s,|\Vz%k 4#~~ 2e{<[N~^;u6"vHnso|݁6֨,ӭÖd7-R:%0E|۸ bn|hp\`P:pJ497KWpA ڌDcg$]8gY$B`.ũ1*v_/ԯ_m'q3R ;3I zH-esPQ{&1|uy琥.#Up^p>z򟪧~_OR,i("{{nPi67!uh0Ξ޹<Ԩ4qSTH.iE)hS,ٳoOw"I.rJX!9WDga"uVMrvc6]SopW6uK6PSNfTN@<;Z iL0jDcplt7%\^ܨ_t0ƽ3"ȠAǑ*xmWۇgPݧu $M !x=NXd)clRx %є:9"bb7E+ ҃iLm'ђ&W`BPPlҙDA ܎48XUHHTgZ MTt9l|o쀔kp˃v9{nt]oLԮup!!J"tꠁ^EOB7!i4QX8'6]n3!N$ZuTh;ӲL,0q?3͑Iw}]"!dU\fY"rq,Y˫ =RQ@YZlatticeExtra/data/ancestry.rda0000644000175100001440000007474012656344030016171 0ustar hornikusers7zXZi"6!Xy])TW"nRʟt1L|ۓ̡6_A+)~q?U7\pFb;{S:xJ\{#Ď̼B%XbkB*ǻK8>aLgu(݅J%]eYb!S 9@\ j!@r@a&t T%wҷYWtk jMߤ6K/2EDDPcf)[ Q̸&ނ;1{WJ4-',\Bɥ^5QSNA'Y;aѬ`ǜvYˡVLɍ -шke戸C( 8 SГEɰFnAhWǠq72M̯4Ў0m'Aj|q]3@yAa=]~Xa$+v8ca }iA:礃6\/jETqy3}%4cRwG yt:8-cq ~aB[يF˞ИXmԘBeje( ¨Nyy@j>?ۅvӸ}_+#<2@fe"]f7չoZ aS%9VA5Ɂc_iӅ ^jcQ\ǠۈVSz邸K2Chવڦ*t׆\9]pS%8YmJ@`nPgpJ[\E0icz $.菉=]JZTt.(d& d:wb1ocH{8Mb+Cq/㶂~!^ tx!elR(_&J_1TTa)A)a4Y P&[ә<kWFC;9Q6Fs"s0Gd}k0{$tap<텑b\BUTO\j>3aq$-2D0u:n#6 .꒩HyfA,ѭ9Wud ;ARSp8K'!5Pd6z4!-\_t[R ⴪LTmܾN5ݹ K1VKŠ4#$, S"_L(͇&57U8ókQkqU$f^4x{B WmeWޭde&7 ` /#23d6b4]O.|z5iCKkΟՙ.WQCDdz'ZTK2KY~3밀Jrː$cfxiB&%y7y!#_cQL O-B{4 ч"YV1ހ%YLC-DY(gCHOj0vfk)I~3lsLe($ʁC|DK$;4Mv2 *tzF ߃'Ȇ\)5hES/(炭 eKǚyN @F ]v@B븶7 (|x;*H*dym!&qM.ש[v ,/-wߓc|1?0\H@I `!9`ejTށez\ye6\ョ[vY5 $O Fg^u+ZJ3qcf\l/9(ֱ!B3`ϲl e攛t#G\Twv>vV$\Ӵ/`r`j ~|4ܲjON'(?A3&*Fm[ 6<.(EPbq\VHs;C0^p3%$ ,x\99J`8sȼXq/i"g) f޲wDnL^]7YSyph[Rb]s/eC,0wko?.w%n-~:[-HM ]B#'&5 b Xs+^x@ }@nLin6',DZ2 Gt\l< 䢝-7^M>9}Lԫ DZI| K0h#]VlC)Td e:#./؏Lͥݧ nZkʑ.u3=㿆ٷEJ^"Wi,4]"u"w'r]` Q,&+aoܡ9Ժc-8C"f7Q&tZ7!h#^k3!k3!9$A{@44$p#]4?NoDo~ѦCn&梉wrM"]5), 1_t 7S7^PYuƳ9*i M*~U[7`A`>_\,_d2YfXmeA87ImꙀ!i'e<)ӁswOI vc {Dh#YBsFxkW@bzC5P5`X7i֏A#|#X oIkZvpN]h%}t@G@jxW.i>aS#i>xiR& h1]XUT7&b<\2/ i13ZFϫӒ$d&"G7!'461JPr|&s[ڈ8F'GYƨ֩\UOmefXePSIBv*U-{\\1 "A2<,_WP\ٔ@JOt >2y7ګ~SȳϚ.k!CU9tOLZf@v TeM;]!}LlӈMg_$G0O%X>^']vXL7$tΕB`( ( FQ`_Gg?>$"EMC+YQ3Vd [~tJT~PLoF< ?"bVgFRN"zA^[P̔3LW0s{a35* :s/[ EY>" AT*{ Fj]~Juр*`@L3XcV Ҏc|_ז0wǘnL,~ 1d9@Czo#Ղ*J @Ε*G`OwMWP07 lCxD=(uZ+D=ʸEzy0jJL`y^Ͽ;RS fi€ ;P^`QThʚO\Y2ed KF"27=V$>ʒ- S(ۏ'}*v^qIC[O8'k$rm xӏ6fKe'BB8i(hK2_Ȝʩ I\>xXĎ\EBQ#_ZT9MJAe U ;eXæLj$CX;z>fccq,zC*D7Fջb33sc):< =wUR[\/_% L3 ?5B(Ee9e eh%I[$͉ͫ.έ.-Uu zs\TR;+T#-&!:t6j=΂hbp;lGb?/!&vf1K8x#̿RfHb >?:z&i= ɦ:p?LTSQy&Nv) ; HGa)N)6ay[B@Ir5lPsPg$U9h> x4QgġP܊j#&-}w?b/21(NW,OgRDfY槹n?^J,یTP#CIE6wmr{?utZ7^+9?byQVbGt0:}U#Zܝa\p/xX x_m+Mۄ\3&&ʼX4OFRDz ~{|n{_ y%V|vKG p@DY* QX'cxP]2pZH|~Y|F_:!s;.J ת6OϿa0]u Q-yͪ~uz>Ri* Vv0Jfc9#1/`{HRDg9$%/^--(ݑvGh؞S[A~wI3*SHh,(IK\+w79^pfrU<'(/r GY#o1ܡvDVQx߳np^X/3 h^F̽ OW=Byi#P$GPDRڔEiE^2-PٰH4sф<J`LLĤ/8_ĪPTSW(ZUO.X,a.)ˢM"9anqz7fUx>hD;eeq]f?is9qЙf[7$r,z 4w%͖]fV盍/XmYNTlxd-zVG@ ꜇qCMme𫥞|31@竂02>Q|B&:vߏ~"W KE~M S[(%uʑϰBߊN%'agW]X7ː՛̘, ,\}U \ T-7%lY7UR= T>{ \oPݾ#s{q`t)0G5cS+#ոCCox3)T|-?rplyU炩(J}RuθM/\5_4a6C]ԫ]W>G H[*EE}\,k3 Ԩ{Lvdo4 9)MO\rQ&$[LB}35N'29JU8,=oylSG( x;Θ;1 7S䐌Sw< W!KWJi=\t{tIuGP]]P 9 33h ٪#ؗZ] Y26fP}T#XqD[{$SXsNH)mtwg 2_oyf>4KYJ7v1yNҬ |U+vtޣJjDpl@,B"lRqvqςƋЩҨ=\D OwfۤoA/>u2Կ|/!tOgܜYS2 PA0O/1F'τ1k$r̅c&)X\Xg LKa>QMK ^-w9QMX;XT2V7PIGi_+5@WE Sq)4V{+YFǻ(gZu dL >l';kr% ^LzMV0?Wy zoUu3$GNQ;ͨqv)$p~Ip@]''lsBRW@]kG#HuX:s &-</DkV%cP VLW]\T++Rhrt{3ܰcFU_*AS.q=}رl %M-I,hK&a-a'e'!DG8iК=[Eݘ${VϾ9ʅFFnK3x OU-jEa'H2lڰ i@>7*#QeE(=MΔlCKvAVAKaRE6*$ߔ m;rq A1_iWʊ1w,}\Ӂ &sn77;r翪GدH[]RB½R;fI ͼQ>w(9ig EԅpI [q%eH9ph_8o|PV=='s8Y(ˇaDsC4CE<^/Bَd(u"FO:WK bTZ6%>7 \QYNP/Z.<7w6+M~=[=2k\C~&+8.٫+Q Xeye4n%p>p0Ǻ>[h{+u[$7Kv>̜HbhE ^A[K,,DDY4a=#iH3DZf&LdI6aL>OS[CIU'a}2JklwQKӤ _Ro2$%gcK| #NIi@,rbK(Dg4 }~S2ot}\]Q|?M/-Jt8UrymSʡvjKs,bxwcgmR?%hnB}dQ*eO&1M9a/b`Uoi^o1W, ٣yߥWy6*T ԙpr:/"_,RfBb~uT[ Ȑ<2Q8 i#kK׵ĥ ]0?qO7INA^8yXV.sM(4$Pb4}[OesHxYӹV\G| 2CShDL79(YA3:">WMҜB}s\àn940E)DcI9k3tjetd / $r{] Sb4.b a>K;f ƴ44;n zÕ7~?1m"+˚nZ ATv5s|~hbGX)}NfVE2$W+{%'6P/Kd#ط/bZ<@OWTꍟ2[M^nyO8\6bj{ ƍ6 IEj[^tcwRH*HϬ~v<-&p=>Pe `@{!qdN\V9%d`Kę鎓'0&6w#uqԮ}iT`Lg ~%,9fxtPvN,3}p<oUԐa֐rרEYQMXzCF_}ggs/ bAax ɀ8r7^*K&;-HziV0gɄnRVvyl!KǒX*L0?x@Qۤ]!u={(;~cES֝YO:QRv Zi"gKBL96Y r%F !.*: tA)8 w 2K6_RiDeoH0m=.7[(|q=_|OzSb˞wg4Dg=cz80!PwݳsWvCG9n0 K5IULꉱĎi~^>78ϱ|w88=DP6 12kLbJ'k Rpߵ k KX+6??;SajD١S=zLD/ R@uK*psa\z,ճ/I&U-.Hc["wΗuTOrHPpt cPaEu!K槲=܈T^j+B5BkFݶT7鍺n<|gN_VR P|N.hUoF3Ǘo2ߍCXeifwY^ 5?.{]m>зPf".DP '©*) Y(Kk}9/_ uR5D<`-JeC]59auiԭ;bPiRBgYemZ5.$`ݢEK }_g0.FN3r$5{7D7L*jǬ/K>o"W7TQXm<53YJ&u8cK@Z7O"K%/_gX3 3 ]7:nwA:oOr(a8&)9? ^l"=N{[S,X3:ZߦԍTXY4$dcՔk\PK=2aʥK :- Y )ybu e+֦lc:>}5:"u5CeQ4}m6Lfz |h/dAvJGdI Y`ME%56Ei?Y~0u442`9kHЖD".S1j۞{+˓@>ސ5'g~тIL4QPrЈ_D͍gM5}tȐi37vҞ6y ?69Y:D7>*dD코&,hxj(IJ~28 oH`sqAC`4kwwpvdzzyp O ow,hRhv7.5b^-mv /2P >dWU~(@o>΢7a})Nd߽_g"{.!gn~nѾs2s6vVsXJ Y6@ z0[Z{-'r/%dWfKqEY]Շo\٭()yO3ԧ5>rkt 1LL=*LU@( \U3.,#)g$pmvV[z.u-h5oM_1C:2Ά e½f54鰵aç@$vvLvZX 7pelR#jZF(măԝj> F483wp$f`yGv7a;;jtmE BdHȁ@QOrǴ~(}rֱ̩=Ѯ W*\(VR>|ƍwmd\а[=rVP!fZ az^'TJp֫-wX6, Z8%g}=AfvWe? yFH쌯)O*Տ#宐(Ic" KTc~..&>vemBP :? CLV%Lq1z'ɟ>zJ9Ix ^^AF { Uw_\ВcAkU+8\ Ԑ0,v!}w!-<.k>| ,M¢PZ4lH#-O:ɯkƲM)lW"y*-s|)1ypf_)bKx]:53IW )Fe)yXmn~Jo3ק9 #-C\b` cN>X\XPh m44KPsgdS8\# x^18pwac X`o' ]e?eA=E[CdGS۸AC 0~{dL^=&(Z,ԓk5d; RSSR C=~u}Uَaβ":*eNJJ2=F@{s\s.?Id  E=TP&oj.f"]=s ;GXk@YJE*{'B8n] 8'A?Ze\ԼU^9/ҶOF`$[@_zd>GU͟ rf6PlDI O0/\Lj&( A ݙؔLeޠu6<&5nn{{jr KW֚=S2?~K]}bN|4к1nZѱ'@Hk@]?M}Lw < Ҵx@3Ulrgyzʠ{q fiMUt`[9;,aurα6"\0EpHjM+ d6e%A9W*=#G0Fd u?#7+)(D| bD7:o(MZ|ɤTB$2P97)l$^|`5ok$bY 'u&$k @@4i iyE4=q` A"F'c@hܙ^n΄`f_+> Zd`uRjJi/|Q(mal=SI buh47q[fzD}睻VR*c~d>pln9S pv+2}r,=|ZxqS,YF}Ĭ&TJU7aH=zt;­P͒='yYmeF5~ζHn&$u=4 1LyU-Qx#"5{gړ2.yܰCT6yqS䱃uV%VHu_"۰\d?7ՙm;M8,EM{)e='N5WTթ9.`0խ7 8ԨCN`VNivwR!UxUٖ=&bl7,6 fd44)a \DQ0{vWNDU(TCj,&n h☱a6\Ɍ/܌ FO-k\vuAqDw4:~Q#g#s($ r)>X(@ܲO:[ܴTnR N\3^/Ҷ3+yCd4mkݕ1#;{lg J /\MT gp} [DאYGnPMb9 xFCK[pNB>n .GA:9qR|Ih mLpSP5{=d0 d(}z>+IʹFc'TΚp <9ߢuT 6MYiw")'N( \|,Z.5գUh@z]s3=PC!(_V`3NzŀT#e/Q;zǺ;v}S}lȉ9c RVيmaKs6Gʴ{dJ~p^ vj8eZxI JıuKˊHe\_vjv!L .'S9F3]/{7B Y@41JL](ur)%\E9kMl̕ಇ3, ʫoL+)s<=v5w*P%X-;0:t^J|Q+y<ў#hAz,Ʃ 6lM-'PʿaʃUiU.7 u'ZioZI*PmcL0U=-3;[8x(a3V[k63ϱ7P50O9wZ;?`3=Ћ f:Oq󽨣XfFOLu{iHRDlt`jjAEgλRVz3*R";BFc,uzd#p0Y gߋTVgyWqġ}A/*"2;:;QU=ՐQg!N%ܚF{c @N"pԱRx@'t[>9NŬooeȎB/pL|=f2`(VLh"xYE൛Ƣ N!XZ%/iMeV(_\u NO^2yt$} +8x~04;qWO t}2_}~(-ĭԫ 1,fK_Tb6-MrS|s`~_*eD&0ܸh9?O50C֒/! WK_BꝆ͖"-č56k L"ݝ4@?q)b˯͂N8_eHS !f|,H$V飌*|Mj!̫NaF5 jȒ0qby̌GAN'QQA{/%~\2`R8n교̓~Ao;W@.Μrn-sUYU|RG` <+ AH Z1Dτw Ɣ{C hCԗqZӖ!ee,TTi]w YW.3xR|,奍0Y/HEgz=_2> ܗJVbGE]wZV\D!aEP>$*YF#_SAL;ٍU'jTYI6  'vpډO:q|i5,Cτ $> E&Yx q?'maj}--VMXPzHȁ9Bޛ^Z =@|ډiY|DEN`Yh=6 bT|='2I،D7az{!}٩PIzʐ.4))8ٷ=zI?ލF|qw EZގ?cKLЂ$|)-*M A-E?h(, e 45#)S_RvoLЂ\2q;v;.q=O?a ~MLg[V@9xK j_yR 'Yuc/Qcu6(\@ <9(gXU?tVd#区$# p$ȁm516DgOe˝Q;RxK<廢 ,H&Y 1N")Zb/O879htLLXfs%TJd#~%qVTdmÅ@%nh[Qe|~XdNbGhX.sS/tf,3<?DD3]2Ga3ȄyO 1/`Cv_`!ϯaWha5C k[>+V f)]^s|⑲Xp!/s $J.%i:ruoped>t+h/ˑ9֖"c-,"u@Dq{ ~ LN fmD֟_c0X "Z%Huov&. lQJ$&pwJzi q`y2=J puV҄2.4p£dU׿qލo̿g"aG=>f_enF4$dgNw?/D5 I8-15s˪:*w"CdڡMB0!E;`9Gwh9N@x &0scz#o/e}Bn=E2=R=>HF=s %`i]K9%1a!)趞WRkl#C7'Iö}:đuv_9)ݥXⅵh16_Y\.bf3;ޏ28',nbF&3wJ*ƁVBKPjс9 mq$ڝV6`\ǰ{,)y;s̎>.u[¢1c?{4*n!*9ߤI!sXpKk?YR]l0 D6aeH2%K-<S/ 33Myw}`rzXmih!SZ ]\M)'eIui]!3r|1Hjcd.%In2/97VHLh܂C!{mÄ[LfU<\dCKjx,pm+BbGjl4~un jA#5*ʇť@Y9i0rISN6Xϓ-͵)rMyɣnMĩ:澢v*."mzŸj[ AX1iNm9UZ/&:%:@jT7(A.⦋meEɵGEkD E=GhuD3-C1`Y`F6WgC&"+ģ.:Qq _xI%k fkΠ?Qzr:#?7LU (w;kHq?_ȎRC5 6DR Etu*Zʯk}ccɅW tcbCEJ/p%5<8=e~4mU"I{UJyzo*\cIcUoV׹QGv4RaoRl(!;yeoV}#. Br8f{"YlC;4!8.ZoӒĥ jBF:D ﬇1D7٥s 15)/UNA"g^,w o6&Fv˂1]#ed?=p$"s[C=^FLx<{8L)[AJz#̋Naf)hrf|5לƠfmhӀcޕ\Mq]9->2fM -P/ 6ӮPXeg'`#]gxe\=CjѡF';&]G%]M' !H|Vna\{@%9ZA a$*W4YiyDg sG=_ꕌE.|5JYLIQWrX8 x+W?W(D!=d`6? 9mϠid?SWduq 0 oУ]7}drڄM%gCkErc:]α~$ab9RzLZd 6}e)_5颀0{- UMդQb?РE®!MkQoxv q~n{ŋ^ LɧZWhׅ1idzj _=tAx{i?#䆧^nLTD/yOocbWJ(`{ j}J'\9SM;1g˘Tj;JI2ayTmǗV|9 !hvJFo0+H_ak}8pSs#ۢqo 1P!w=,cǘ X-Ҕ0}*"pțyy&Y Lvg/n4 ia 6\EӡuJ cBCy,\#}-\b-~GƄr5{yfc9d8ɼ8zݯ(e˷wMpfTܒ:`u-u<\Vz?qk膠ԹR?uMV+N,lC?kfx7?ث&Xzk+__y}KnUqú{@Hd Vww&Bə?$e :ǡ]#g[b#\ohWQ.ϸ G ת-Vt`FB%Ľ; ~@8.{pHSXSwv;b;6Z4s-Q>pV9|zg=3-7ӵ}dYjLt:2jMN2XixpK0.}Ж9(&YDi iQiO3=bŸ1 [[ RAk٦(XF]~H=9gT뚛F#+( '̻"t u7 i2i$"l]Nt |r>Ddd̜_SKOK*QϥR6!YVDϸ{"ojo]xme ;q5q,Kt-? 6퀯CLF`ncRˊlrA&W-8H~o,oوu|K,dȀ 2wW9B4K -Of(" aF(M *&aXO2 rC[4^;3n}\ 0,qՄ%f1V`I }7FVO1vnVy=.>jM5jgKT/ɱ^~1LWOʹM<@ EZg p`&RK0s•0ʱ~+?1Ӄ(.EdR#3ϛ7MEqqit|t1Cb{O&Z@H6(bf/ #Mt8Vе Clm%$j*}a {|/D6S۠b~X.7vӴ)vl5`{XlVkk '8fa⊧b1>b7N4:gM ҇-lQȪ2{6 cAKxLWI3_lJ8^MpF*+k|/OО쩓pj-l_-zz-.?kTOM~ڤFVJ[> )ڻD1K5aU전4lK^?PߝǓ*)EBF)"Z!fV0W:xy<џ۰1=|ZgXшQ-S=2YcN(Js0)˖iױ4~j/ߵ_,g"(?Iol:Gz2p6VR2km8W@ndCYW,|ۤWCg]Va0>Or{jQ aH~q,$a:bz6DX-!*u0hvJ_/1mcC=jDX۸hq9=EAgI?iGБ*E*4%b}2 Usl۾8sߖW?2W O <-J.h|ug\° C1%ϲ9>un/k)!WkI;l˴WHQ3ؗ}+!SUt'ΐ[B$m/y~țQ>I+' kB;Wc"ܖaNޗ$i:)9͝:NWf3/Iټ*NBUݓ DϤnja bX~D` k=v T^`~[4۟?m␊݂M020k1\ tCW$C u,q|C: Y:G UpEn2\N6.a3r>L8ڿ@/ULxdҐḾo\?lg/Wɿ[`][ V&W n~dnJX1NphdP%ci j'+@kSKZ+=b׋^ s<{+%b -]8YާsuiAW\bJ)L  {쵌` *1+8{JP3o\3ԅJ#{vKcorI-X ':f(&CZ9Ђ/ޣ-Ik$@@ T aOTjIRXC[,jЗw"t]\Q>)xk'Bk>1Q/'ЯB |<m ݛaio}rYć?Vy;1G MW[k4VM1hJ%67kr7g;Ljǃ>u">S6([+CZLGtýY#`J/] r4)lMdXCFI)$WR:{,wAMLϺVleQ*݉$R/Pޒ#<䛈e5َ*[s {ѯ(] Œ*aQĒݎ ]4);h_btO#XCkhەGEAZE}`sf"۳_plzlTj"cG5Jf>/lA9iǠi3`KPu!K.wGhiMs5#[bEZ?*AP ;=؆YubL{4X(k䏥pm?r*ͼ2B:i{vx,۽&-K "LDQlwƫj~?dw2"k4aST2Zm-mBEö1rs}ۊ=60"rNs4*6k5"9J4od1_8=rcֻ$m`%x[%PQ8}rMFT9ty0Jq6,Ozuhc+&3=@m͢Z:p~ U~qG;}UU߭` 5.'^gzC.1Y_ "@* Ledg\%(`SI$W@q8 #ֲv"lgc\g xL"3W G[A#V;@:L3ƣXЉOL L b)ʓ ƚl`~&Z&P$rg5mI2؝`g5MDM3Sǥ%l&0 ?YwvzZ-*YםDȬfÜ!EYNkjNk5?KoFTEg.1˕cӿƛ1\Wu7x[G~VJf2BLq.,(B@fdޞK0~t(8Ʉ!^73s_:)0n+)CcFY*lbp?&Ӷh<Z&+-58 \b(:9н/&1_IT&{2Q ҂IEB3TG%GgDs>!`"w|prl櫙,\ڶl6 cC_w 7I#Qj}7SL" \QhrL{*[+X-q#B]G5iؾImy),PAv+mǛ\L=K gkwj  2$ ?cf@;!U&UP݃ xEWݎlG`UyH@z,3߿3"9gjz"-  /Q]R(~9fܱZ{r|szƎhb`}Np+>T_-imqtt]U8#~К,ۻʂ񨛸T\_zқ\|$6`[) `'=B1V RWtGsMa9%`\k\<Z&L"Dqh!ڜREl iGH7jڥ]-Q=6HmOcȵw2mJA= 9l kI=t99Qkε˖7fأN~mՌx#tݎpXM(I' ;ĝ٭>0 YZlatticeExtra/data/postdoc.rda0000644000175100001440000000072712656344035016013 0ustar hornikusersm1${\E:Dq׀ J.&;kGksx*D('x OZ(od85"ubQQzvC^u^'! ߇DɌ[n}} ?a G`MC#X@;f&zi\@ 6  5]{笤S)Tnn \Ց,c/XMj_HXFn΀r~hN*TR/S/MbԬr&G[֊l@\ݸiRGFE/E5Gݟ}B☋)x~Jd Ŧ@_ڈ,{ln&G1*/ xH$[̚J*\IV0DZeehj:[latticeExtra/R/0000755000175100001440000000000012656305367013137 5ustar hornikuserslatticeExtra/R/scale.components.R0000644000175100001440000001424112126504016016517 0ustar hornikusers ## adapted from the Lattice book by Deepayan Sarkar xscale.components.logpower <- function(lim, ...) { ans <- xscale.components.default(lim, ...) ans$bottom$labels$labels <- parse(text = ans$bottom$labels$labels) ans } yscale.components.logpower <- function(lim, ...) { ans <- yscale.components.default(lim, ...) ans$left$labels$labels <- parse(text = ans$left$labels$labels) ans } xscale.components.fractions <- function(lim, logsc = FALSE, ...) { ans <- xscale.components.default(lim, logsc = logsc, ...) ## get 'at' in data coordinates if (identical(logsc, TRUE)) logsc <- 10 if (identical(logsc, "e")) logsc <- exp(1) at <- ans$bottom$labels$at if (!identical(logsc, FALSE)) at <- logsc ^ at ans$bottom$labels$labels <- MASS::fractions(at) ans } yscale.components.fractions <- function(lim, logsc = FALSE, ...) { ans <- yscale.components.default(lim, logsc = logsc, ...) ## get 'at' in data coordinates if (identical(logsc, TRUE)) logsc <- 10 if (identical(logsc, "e")) logsc <- exp(1) at <- ans$left$labels$at if (!identical(logsc, FALSE)) at <- logsc ^ at ans$left$labels$labels <- MASS::fractions(at) ans } ## compute nice log-ticks. This is a version from the Lattice book ## that is not very sophisticated. logTicksOld <- function (lim, loc = c(1, 5)) { ii <- floor(log10(range(lim))) + c(-1, 2) main <- 10^(ii[1]:ii[2]) r <- as.numeric(outer(loc, main, "*")) r[lim[1] <= r & r <= lim[2]] } ## A more sophisticated version that uses the same algorithm used in ## traditional graphics, via axisTicks() - new in R 2.14.0 logTicks <- function (lim, loc = NULL) { if (is.null(loc)) axisTicks(log10(lim), log=TRUE) else logTicksOld(lim, loc) } xscale.components.log <- function(lim, logsc = FALSE, at = NULL, loc = NULL, ...) { ans <- xscale.components.default(lim = lim, logsc = logsc, at = at, ...) if (is.null(at)) return(ans) if (identical(logsc, FALSE)) return(ans) logbase <- logsc if (identical(logbase, TRUE)) logbase <- 10 if (identical(logbase, "e")) logbase <- exp(1) tick.at <- logTicks(logbase^lim, loc = loc) ans$bottom$ticks$at <- log(tick.at, logbase) ans$bottom$labels$at <- log(tick.at, logbase) ans$bottom$labels$labels <- as.character(tick.at) ans } yscale.components.log <- function(lim, logsc = FALSE, at = NULL, loc = NULL, ...) { ans <- yscale.components.default(lim = lim, logsc = logsc, at = at, ...) if (is.null(at)) return(ans) if (identical(logsc, FALSE)) return(ans) logbase <- logsc if (identical(logbase, TRUE)) logbase <- 10 if (identical(logbase, "e")) logbase <- exp(1) tick.at <- logTicks(logbase^lim, loc = loc) ans$left$ticks$at <- log(tick.at, logbase) ans$left$labels$at <- log(tick.at, logbase) ans$left$labels$labels <- as.character(tick.at) ans } xscale.components.log10.3 <- function(lim, logsc = FALSE, at = NULL, ...) { xscale.components.log(lim, logsc = logsc, at = at, loc = c(1, 3)) } yscale.components.log10.3 <- function(lim, logsc = FALSE, at = NULL, ...) { yscale.components.log(lim, logsc = logsc, at = at, loc = c(1, 3)) } # major + minor ticks for powers of 10 xscale.components.log10ticks <- function(lim, logsc = FALSE, at = NULL, ...) { ans <- xscale.components.default(lim = lim, logsc = logsc, at = at, ...) if (is.null(at)) return(ans) if (identical(logsc, FALSE)) return(ans) logbase <- logsc if (identical(logbase, TRUE)) logbase <- 10 if (identical(logbase, "e")) logbase <- exp(1) tick.at <- logTicks(logbase^lim, loc = 1:9) tick.at.major <- logTicks(logbase^lim, loc = 1) major <- tick.at %in% tick.at.major ans$bottom$ticks$at <- log(tick.at, logbase) ans$bottom$ticks$tck <- ifelse(major, 1, 0.5) ans$bottom$labels$at <- log(tick.at, logbase) ans$bottom$labels$labels <- as.character(tick.at) ans$bottom$labels$labels[!major] <- "" ans$bottom$labels$check.overlap <- FALSE ans } yscale.components.log10ticks <- function(lim, logsc = FALSE, at = NULL, ...) { ans <- yscale.components.default(lim = lim, logsc = logsc, at = at, ...) if (is.null(at)) return(ans) if (identical(logsc, FALSE)) return(ans) logbase <- logsc if (identical(logbase, TRUE)) logbase <- 10 if (identical(logbase, "e")) logbase <- exp(1) tick.at <- logTicks(logbase^lim, loc = 1:9) tick.at.major <- logTicks(logbase^lim, loc = 1) major <- tick.at %in% tick.at.major ans$left$ticks$at <- log(tick.at, logbase) ans$left$ticks$tck <- ifelse(major, 1, 0.5) ans$left$labels$at <- log(tick.at, logbase) ans$left$labels$labels <- as.character(tick.at) ans$left$labels$labels[!major] <- "" ans$left$labels$check.overlap <- FALSE ans } ## major + minor ticks (e.g. for date/time axes): xscale.components.subticks <- function(lim, ..., n = 5, n2 = n * 5, min.n2 = n + 5) { ans <- xscale.components.default(lim = lim, ..., n = n) ans2 <- xscale.components.default(lim = lim, ..., n = n2, min.n = min.n2) ticks <- ans$bottom$ticks$at ticks2 <- ans2$bottom$ticks$at ticks2 <- ticks2[!(ticks2 %in% ticks)] ans$bottom$ticks$at <- c(ticks, ticks2) ans$bottom$ticks$tck <- c(rep(1, length(ticks)), rep(0.5, length(ticks2))) ans$bottom$labels$at <- ans$bottom$ticks$at ans$bottom$labels$labels <- c(ans$bottom$labels$labels, rep(" ", length(ticks2))) ans$bottom$labels$check.overlap <- FALSE ans } yscale.components.subticks <- function(lim, ..., n = 5, n2 = n * 5, min.n2 = n + 5) { ans <- yscale.components.default(lim = lim, ..., n = n) ans2 <- yscale.components.default(lim = lim, ..., n = n2, min.n = min.n2) ticks <- ans$left$ticks$at ticks2 <- ans2$left$ticks$at ticks2 <- ticks2[!(ticks2 %in% ticks)] ans$left$ticks$at <- c(ticks, ticks2) ans$left$ticks$tck <- c(rep(1, length(ticks)), rep(0.5, length(ticks2))) ans$left$labels$at <- ans$left$ticks$at ans$left$labels$labels <- c(ans$left$labels$labels, rep(" ", length(ticks2))) ans$left$labels$check.overlap <- FALSE ans } latticeExtra/R/tileplot.R0000644000175100001440000001042412641423205015101 0ustar hornikusers## ## Copyright (c) 2008 Felix Andrews ## GPL version 2 or newer tileplot <- function(x, data = NULL, aspect = "iso", prepanel = "prepanel.default.xyplot", panel = "panel.voronoi", ...) { foo <- levelplot(x, data = data, aspect = aspect, panel = panel, prepanel = prepanel, ...) foo$call <- sys.call(sys.parent()) foo } ## panel function to draw Voronoi mosaic panel.voronoi <- function(x, y, z, subscripts = TRUE, at = pretty(z), points = TRUE, border = "transparent", na.rm = FALSE, win.expand = 0.07, use.tripack = FALSE, ..., col.regions = regions$col, alpha.regions = regions$alpha) { ## We need either tripack (better? but weird license) or ## deldir. Go with deldir unless explicitly requested. if (use.tripack) { if (!requireNamespace("tripack", quietly = TRUE)) stop("The 'use.tripack=TRUE' option requires the 'tripack' package to be installed.") } else { if (!requireNamespace("deldir", quietly = TRUE)) stop("This function requires the 'deldir' package to be installed.") } ## find subset of points to use x0 <- x[subscripts] y0 <- y[subscripts] z0 <- z[subscripts] ## throw away NAs, but keep originals for panel.xyplot() ok <- complete.cases(x0, y0) if (na.rm) ok <- ok & !is.na(z0) x <- x0[ok] y <- y0[ok] z <- z0[ok] if (!any(is.finite(z))) return() ## strip duplicated locations, with warning dup <- duplicated(cbind(x, y)) if (any(dup)) { warning(paste("Ignoring", sum(dup), "cases of duplicated locations")) x <- x[!dup] y <- y[!dup] z <- z[!dup] } ## compute bounds data.rg <- list(x = extendrange(x, f = win.expand), y = extendrange(y, f = win.expand)) bounds <- c(data.rg$x, data.rg$y) #panel.rg <- lapply(current.panel.limits(), sort) #bounds <- c(max(panel.rg$x[1], data.rg$x[1]), # min(panel.rg$x[2], data.rg$x[2]), # max(panel.rg$y[1], data.rg$y[1]), # min(panel.rg$y[2], data.rg$y[2])) ## check if any points in visible plot region #if (is.unsorted(bounds[1:2])) # bounds[1:2] <- panel.rg$x #if (is.unsorted(bounds[3:4])) # bounds[3:4] <- panel.rg$y if (use.tripack) { xy <- data.frame(x = x, y = y) ## add dummy points to ensure that voronoi polygons are finite dummies <- data.frame(x = c(-1,-1,1,1), y = c(-1,1,-1,1)) * 10 * max(abs(xy)) xy <- rbind(xy, dummies) tiles <- tripack::voronoi.polygons(tripack::voronoi.mosaic(xy, duplicate = "error")) } else { ## NB: the 'rw' argument as subset of data is bad because ## need to take corresponding subset of z ! ## (but not easy to work out what that is) #set <- ((bounds[1] < x) & (x < bounds[2]) & # (bounds[3] < y) & (y < bounds[4])) #x <- x[set] #y <- y[set] #z <- z[set] tiles <- deldir::tile.list(deldir::deldir(x, y, rw = bounds)) tiles <- lapply(tiles, function(p) as.data.frame(p[c("x", "y")])) } ## draw it as one composite polygon polydata <- do.call("rbind", tiles) regions <- trellis.par.get("regions") zcol <- level.colors(z, at, col.regions, colors = TRUE) grid.polygon(polydata[,1], polydata[,2], id.lengths = sapply(tiles, nrow), default.units = "native", gp = gpar(fill = zcol, col = border, alpha = alpha.regions)) if (points) { panel.xyplot(x0, y0, ...) } } panel.levelplot.points <- function(x, y, z, subscripts = TRUE, at = pretty(z), shrink, labels, label.style, contour, region, ## (all ignored) pch = 21, col.symbol = "#00000044", ..., col.regions = regions$col, fill = NULL) ## (ignored) { regions <- trellis.par.get("regions") zcol <- level.colors(z, at, col.regions, colors = TRUE) x <- x[subscripts] y <- y[subscripts] zcol <- zcol[subscripts] ## panel.xyplot does the work (can handle 'type' argument, etc) panel.xyplot(x, y, fill = zcol, pch = pch, col.symbol = col.symbol, ...) } latticeExtra/R/panel.xblocks.R0000644000175100001440000000555512641421067016025 0ustar hornikusers## ## Copyright (c) 2008 Felix Andrews ## panel.xblocks <- function(x, ...) UseMethod("panel.xblocks") panel.xblocks.default <- function (x, y, ..., col = NULL, border = NA, height = unit(1, "npc"), block.y = unit(0, "npc"), vjust = 0, name = "xblocks", gaps = FALSE, last.step = median(diff(tail(x)))) { if (is.function(y)) y <- y(x) x <- as.numeric(x) if (length(x) == 0) return() if (is.unsorted(x, na.rm = TRUE)) stop("'x' should be ordered (increasing)") if (is.na(last.step)) last.step <- 0 if (gaps) { .Deprecated(msg = "The 'gaps' argument is deprecated; use panel.xblocks(time(z), is.na(z))") y <- is.na(y) } ## Three cases: ## (1) If y is character, assume it gives the block colours ## -- unless 'col' is given, which over-rides it. ## (2) If y is logical, show blocks of TRUE values. ## (3) If y is numeric, show blocks of non-NA values. if (is.logical(y)) { y <- y } else if (is.numeric(y)) { y <- !is.na(y) } else { ## this will convert factor, Date, etc to character: y <- as.character(y) } ## Note: rle treats each NA as unique (does not combine runs of NAs) ## so we need to replace NAs with a temporary value. NAval <- if (is.character(y)) "" else FALSE y[is.na(y)] <- NAval ## find blocks (runs of constant values) yrle <- rle(y) ## substitute NA values back in blockCol <- yrle$values blockCol[blockCol == NAval] <- NA ## for logical series, col default comes from current theme if (is.logical(y) && is.null(col)) col <- trellis.par.get("plot.line")$col ## set block colours if 'col' given if (length(col) > 0) { if (is.character(col)) col[col == ""] <- NA ok <- !is.na(blockCol) blockCol[ok] <- rep(col, length = sum(ok)) ## rep to avoid warnings } ## work out block geometry idxBounds <- cumsum(c(1, yrle$lengths)) idxStart <- head(idxBounds, -1) idxEnd <- tail(idxBounds, -1) idxEnd[length(idxEnd)] <- length(y) blockStart <- x[idxStart] blockEnd <- x[idxEnd] blockEnd[length(blockEnd)] <- tail(blockEnd, 1) + last.step blockWidth <- blockEnd - blockStart ## draw it grid::grid.rect(x = blockStart, width = blockWidth, y = block.y, height = height, hjust = 0, vjust = vjust, default.units = "native", name = name, gp = gpar(fill = blockCol, col = border, ...)) } panel.xblocks.ts <- function(x, y = x, ...) { if (!is.function(y)) y <- as.vector(y) panel.xblocks(as.vector(time(x)), y, ...) } panel.xblocks.zoo <- function(x, y = x, ...) { if (!is.function(y)) y <- zoo::coredata(y) panel.xblocks(zoo::index(x), y, ...) } latticeExtra/R/ecdfplot.R0000644000175100001440000000512512126504016015045 0ustar hornikusers prepanel.ecdfplot <- function(x, f.value = NULL, ...) { ans <- prepanel.default.qqmath(x, f.value = f.value, distribution = qunif) with(ans, list(xlim = ylim, ylim = c(0, 1), dx = dy, dy = dx)) } panel.ecdfplot <- function(x, f.value = NULL, type = "s", groups = NULL, qtype = 7, ref = TRUE, ...) { if (ref) { reference.line <- trellis.par.get("reference.line") do.call(panel.abline, c(list(h = c(0, 1)), reference.line)) } x <- as.numeric(x) distribution <- qunif nobs <- sum(!is.na(x)) if (!is.null(groups)) { panel.superpose(x, y = NULL, f.value = f.value, type = type, distribution = distribution, qtype = qtype, groups = groups, panel.groups = panel.ecdfplot, ...) } else if (nobs) { if (is.null(f.value)) { panel.xyplot(x = sort(x), y = seq_len(nobs) / nobs, type = type, ...) } else { p <- if (is.numeric(f.value)) f.value else f.value(nobs) panel.xyplot(x = quantile(x, p, names = FALSE, type = qtype, na.rm = TRUE), y = distribution(p), type = type, ...) } } } ecdfplot <- function (x, data, ...) UseMethod("ecdfplot") ecdfplot.formula <- function (x, data = NULL, prepanel = "prepanel.ecdfplot", panel = "panel.ecdfplot", ylab = gettext("Empirical CDF"), ...) { ccall <- match.call() ocall <- sys.call(sys.parent()); ocall[[1]] <- quote(ecdfplot) ## for nice $call ccall$data <- data ccall$prepanel <- prepanel ccall$panel <- panel ccall$ylab <- ylab ccall[[1]] <- quote(lattice::densityplot) ans <- eval.parent(ccall) ans$call <- ocall ans } ecdfplot.numeric <- function (x, data = NULL, xlab = deparse(substitute(x)), ...) { ccall <- match.call() ocall <- sys.call(sys.parent()); ocall[[1]] <- quote(ecdfplot) ## for nice $call if (!is.null(ccall$data)) warning("explicit 'data' specification ignored") ccall$data <- list(x = x) ccall$xlab <- xlab ccall$x <- ~x ccall[[1]] <- quote(latticeExtra::ecdfplot) ans <- eval.parent(ccall) ans$call <- ocall ans } latticeExtra/R/data.frame.R0000644000175100001440000002704212641421722015255 0ustar hornikusers ### Some obsolete experimental stuff. Remove at some point. ### Now, the question is, (1) whether to have the method for data ### frames (which is what's of immediate interest) here or in lme4. ### It doesn't really make sense to have it in lme4, since we won't be ### defining a new class. But most of the features would be borrowed ### from nlme (2) whether to have methods for any other class (like ### 'lm' maybe) ### data frame method: gplotArgs.data.frame(x, , ...) ## 4 levels of information: ## o attr(x, "ginfo") ## o ## o attr(x, "gplot.args") ## o ... ## the first 2 determine a reasonable list, overridden by the 3rd and ## then the 4th ## should we have a non-generic "gplotArgs<-" for setting the ## "gplot.args" attribute? ## First, we need some good default panel functions. These need to ## depend on ## (1) the type of display formula - ## o factor ~ numeric [ model: numeric ~ 1 | factor ] ## o numeric ~ numeric [ model: numeric ~ numeric | factor ] ## o ~ numeric [ model: factor ~ numeric | factor ] NEW panel.df.fn <- # factor ~ numeric function(x, y, groups = NULL, ...) { panel.dotplot(x=x, y=y, groups = groups, ...) } panel.df.nn <- # numeric ~ numeric function(x, y, lines = all(type == "p"), type = "p", ...) { panel.xyplot(x, y, type = type, ...) if (lines) { y.avg <- tapply(y, x, mean) # lines through average y y.avg <- y.avg[!is.na(y.avg)] if (length(y.avg) > 0) { xvals <- as.numeric(names(y.avg)) ord <- order(xvals) panel.xyplot(xvals[ord], y.avg[ord], type = "l", ...) } } } panel.df <- # combines above 2, should be called function(x, y = NULL, groups = NULL, grid = TRUE, ...) { yNull <- is.null(y) groupsNull <- is.null(groups) xFactor <- is.factor(x) yFactor <- is.factor(y) if (yNull) ## for factor response, may not be in use yet { if (groupsNull) panel.densityplot(x = x, ...) else panel.superpose(x = x, groups = groups, panel.groups = "panel.densityplot", ...) } else if (!xFactor && !yFactor) ## numeric ~ numeric { if (grid) panel.grid() if (groupsNull) panel.df.nn(x = x, y = y, ...) else panel.superpose(x = x, y = y, groups = groups, panel.groups = panel.df.nn, ...) } else if (yFactor && !xFactor) { panel.df.fn(x = x, y = y, groups = groups, ...) } else stop("can't handle both x and y being factors yet") invisible() } ## display formula ## generally, the display is determined by the arguments 'formula' and ## 'groups'. In the nlme scheme, the formula associated with the data ## is a model formula, not a display formula. The display is further ## determined by the 'outer' and 'inner' arguments. ## Let's try to outline a strategy for this. ## attr(x, "ginfo") can contain things used in nlme's groupedData. ## formula can be of the form 'y ~ x | id' (only one variable in 'id', ## although it can be an interaction). inner=~a becomes default ## grouping factor. outer=~b+c used for ordering levels of id by ## values of y. outer can be also an argument to ## gplotArgs.data.frame. If TRUE, it's equivalent to outer = ## ginfo$outer, or it could be =~e+f. In either case, it becomes the ## conditioning variables, id becomes groups (inner would then be ## ignored) ## In the formula itself, if x is a factor, the display formula ## becomes id ~ y, with groups = x (unless x = 1, then no groups) ## .typeInDF <- function(x, data) ## { ## if (x == "1") "one" ## else if (is.factor(data[[x]])) "factor" ## else if (is.numeric(data[[x]])) "numeric" ## else stop(paste("don't recognize", class(data[[x]]))) ## } ## should work with expressions like log(height) as well .typeInDF <- function(x, data) { if (all(is.na(x))) return(NA) x <- eval(parse(text = x), data, parent.frame()) if (length(x) == 1 && x == 1) "one" else if (is.factor(x)) "factor" else if (is.numeric(x)) "numeric" else stop(paste("don't recognize", class(x))) } ## S3 method: underlies groupedData() in lme4 ## FIXME: the following doesn't work in the docs. What's the recommended way? ## \method{"gplotArgs<-"}{data.frame}(x, value) "gplotArgs<-.data.frame" <- function(x, value) { if (!is.list(value)) stop("assigned value must be list") process.args <- function(formula, order.groups = TRUE, FUN = function(x, ...) max(x, na.rm = TRUE), outer = NULL, inner = NULL, labels = list(), units = list(), ...) { list(ginfo = list(formula = formula, order.groups = order.groups, FUN = FUN, outer = outer, inner = inner, labels = labels, units = units), dots = list(...)) } pargs <- do.call(process.args, value) attr(x, "ginfo") <- pargs$ginfo if (length(pargs$dots) > 0) attr(x, "gplot.args") <- pargs$dots x } ## S3 method ## basic idea: get defaults from "ginfo" attribute, then overwrite by ## "gplot.args" attribute, followed by ... gplotArgs.data.frame <- function(x, display.formula, outer = FALSE, inner = FALSE, groups = NULL, ..., subset = TRUE) { ## The final result should contain only standard trellis args, ## with a special component plotFun, and optionally a ## display.formula, which overrides formula. However, for data ## frames, there are some other issues. ## The "ginfo" attribute can only contain info traditionally in ## nlme groupedData objects. This, along with explicit arguments ## here, will be used to create a list of trellis args. These can ## be overridden by the "gplot.args" attribute, and then by ## ... here. ginfo <- attr(x, "ginfo") gplot.args <- attr(x, "gplot.args") ## equivalent to default method if ginfo is NULL if (is.null(ginfo) || !is.list(ginfo)) return(updateList(gplot.args, list(...))) ## First (longish) task: determine display formula and groups ## groups is by far the most irritating thing to handle. The only ## options I can think of: (1) evaluate groups here and pass it on ## and (2) change lattice to allow groups to be a formula. Use ## (1) for now groups <- eval(substitute(groups), x, parent.frame()) # typically NULL ## subset poses a similar problem subset <- eval(substitute(subset), x, parent.frame()) if (missing(display.formula)) display.formula <- gplot.args$display.formula ## major step: get the display formula, but only if it's NULL model.formula <- ginfo$formula if (!is.null(display.formula)) ## no point in jumping through hoops { ans <- list(display.formula = display.formula) } else if (!is.null(model.formula)) ## the interesting stuff { vars <- list(resp = .responseName(model.formula), cov = .covariateName(model.formula), grp = .groupsName(model.formula)) if (ginfo$order.groups) { ## reorder grp based on values of resp if (is.null(ginfo$FUN)) ginfo$FUN <- function(x, ...) max(x, na.rm = TRUE) respVar <- vars$resp grpVar <- vars$grp scores <- tapply(x[[respVar]], x[[grpVar]], ginfo$FUN) if (inherits(ginfo$outer, "formula")) { outerVar <- .covariateName(ginfo$outer) outer.unique <- tapply(x[[outerVar]], x[[grpVar]], unique) ord <- order(outer.unique, scores) } else ord <- order(scores) x[[grpVar]] <- factor(x[[grpVar]], levels = names(scores)[ord]) } ## display formula may be further modified by inner and outer. ## How does that affect rest of the calculations? if (is.logical(outer) && outer) outer <- ginfo$outer if (is.logical(inner) && inner) inner <- ginfo$inner ## both cannot happen. outer makes outer the conditioning ## variables, normal grp becomes groups. inner behaves as ## groups. outer takes precedence. if (inherits(outer, "formula")) { if (is.null(groups)) groups <- as.formula(paste("~", vars$grp)) vars$grp <- .covariateName(outer) } else if (inherits(inner, "formula")) { ## FIXME: this may not be the right thing to do if (is.null(groups)) groups <- inner } varTypes <- lapply(vars, .typeInDF, data = x) ## Next step depends on varTypes ## case 1: cov = "one" - grp ~ resp ## case 2: cov = "factor" - grp ~ resp, groups = cov ## case 1: cov = "numeric" - resp ~ cov | grp fc <- switch(varTypes$cov, one = paste(vars$grp, "~", vars$resp), factor = paste(vars$grp, "~", vars$resp), numeric = paste(vars$resp, "~", vars$cov, "|", vars$grp)) ans <- list(display.formula = as.formula(fc)) if (varTypes$cov == "factor" && is.null(groups)) groups <- eval(parse(text = vars$cov), x, parent.frame()) } else { stop("no formula!") } ## determine default plot function based on display.formula dvars <- list(resp = .responseName(ans$display.formula), cov = .covariateName(ans$display.formula), grp = .groupsName(ans$display.formula)) ## NA is none dvarTypes <- lapply(dvars, .typeInDF, data = x) if (dvarTypes$resp == "numeric" && dvarTypes$cov == "numeric") plotFun.constructed <- "xyplot" else if (dvarTypes$resp == "factor" && dvarTypes$cov == "numeric") plotFun.constructed <- "dotplot" else { ## str(dvarTypes) stop("unsupported combination") } ## other stuff in ginfo? ylab.constructed <- if ("labels" %in% names(ginfo) && dvars$resp %in% names(ginfo$labels)) ginfo$labels[[dvars$resp]] else dvars$resp xlab.constructed <- if ("labels" %in% names(ginfo) && dvars$cov %in% names(ginfo$labels)) ginfo$labels[[dvars$cov]] else dvars$cov if ("units" %in% names(ginfo) && dvars$resp %in% names(ginfo$units)) ylab.constructed <- paste(ylab.constructed, ginfo$units[[dvars$resp]]) if ("units" %in% names(ginfo) && dvars$cov %in% names(ginfo$units)) xlab.constructed <- paste(xlab.constructed, ginfo$units[[dvars$cov]]) ans <- updateList(ans, list(plotFun = plotFun.constructed, data = x, panel = panel.df, groups = groups, subset = subset, xlab = xlab.constructed, ylab = ylab.constructed, aspect = if (plotFun.constructed == "xyplot") "xy" else "fill", auto.key = switch(plotFun.constructed, xyplot = list(points = FALSE, lines = TRUE, space = "right"), dotplot = list(points = TRUE, space = "right")))) if (!is.null(gplot.args)) ans <- updateList(ans, gplot.args) ## leave this out? updateList(ans, list(...)) } latticeExtra/R/panel.3dmisc.R0000644000175100001440000001470612126504016015532 0ustar hornikusers ## a panel function for cloud that draws "3d bar charts" which ## shouldn't be used except in unusual circumstances panel.3dbars <- function(x, y, z, rot.mat = diag(4), distance, xbase = 1, ybase = 1, xlim, xlim.scaled, ylim, ylim.scaled, zlim, zlim.scaled, zero.scaled, col = "black", lty = 1, lwd = 1, alpha = 1, ..., col.facet = "white", alpha.facet = 1) { n <- length(z) col <- rep(col, length = n) col.facet <- rep(col.facet, length = n) alpha <- rep(alpha, length = n) alpha.facet <- rep(alpha.facet, length = n) lty <- rep(lty, length = n) lwd <- rep(lwd, length = n) id <- ((x >= xlim.scaled[1]) & (x <= xlim.scaled[2]) & (y >= ylim.scaled[1]) & (y <= ylim.scaled[2]) & !is.na(x) & !is.na(y) & !is.na(z)) m <- ltransform3dto3d(rbind(x, y, 0), rot.mat, distance) ord <- sort.list(m[3,]) ord <- ord[id[ord]] zero.scaled <- if (zero.scaled < zlim.scaled[1]) zlim.scaled[1] else if (zero.scaled > zlim.scaled[2]) zlim.scaled[2] else zero.scaled inRange <- function(x, lim) { rng <- range(x, finite = TRUE) rng[1] >= min(lim) && rng[2] <= max(lim) } ## draw bars one by one for (i in ord) { ## print(i) xbase.scaled <- diff(xlim.scaled) * xbase / diff(xlim) ybase.scaled <- diff(ylim.scaled) * ybase / diff(ylim) zz.sides <- matrix(c(zero.scaled, z[i]), 2, 1)[, rep(1, 5)] xx.sides <- c(x[i], x[i]) + xbase.scaled * 0.5 * rbind(c(-1, 1, 1, -1, -1), c(-1, 1, 1, -1, -1)) yy.sides <- c(y[i], y[i]) + ybase.scaled * 0.5 * rbind(c(-1, -1, 1, 1, -1), c(-1, -1, 1, 1, -1)) zz.top <- matrix(z[i], 2, 2) xx.top <- c(x[i], x[i]) + xbase.scaled * 0.5 * rbind(c(-1, 1), c(-1, 1)) yy.top <- c(y[i], y[i]) + ybase.scaled * 0.5 * rbind(c(-1, -1), c(1, 1)) zz <- cbind(zz.sides, c(NA, NA), zz.top) xx <- cbind(xx.sides, c(NA, NA), xx.top) yy <- cbind(yy.sides, c(NA, NA), yy.top) ## str(list(xx, yy, zz)) if (inRange(xx, xlim.scaled) && inRange(yy, ylim.scaled) && inRange(zz, zlim.scaled)) { panel.3dwire(xx, yy, zz, rot.mat = rot.mat, distance = distance, xlim = xlim, xlim.scaled = xlim.scaled, ylim = ylim, ylim.scaled = ylim.scaled, zlim = zlim, zlim.scaled = zlim.scaled, col = col[i], lty = lty[i], lwd = lwd[i], alpha = alpha[i], ..., at = c(0, 1), # dummy col.regions = col.facet[i], alpha.regions = alpha.facet[i]) } } } ## panel.3dpolygon <- ## function(x, y, z, rot.mat = diag(4), distance, ## type = 'p', ## xlim.scaled, ## ylim.scaled, ## zlim.scaled, ## zero.scaled, ## col = "white", ## border = "black", ## lty = 1, lwd = 1, ## min.sides = 3, ## ..., ## subscripts = TRUE) ## { ## m <- ltransform3dto3d(rbind(x, y, z), rot.mat, distance) ## ## ord <- sort.list(m[3,]) ## n <- ncol(m) ## w <- which(is.na(x) | is.na(y)) ## id.lengths <- diff(c(0, w, n)) ## cum.lengths <- c(0, cumsum(id.lengths)) ## idlist <- ## lapply(seq_along(id.lengths), ## function(i) { ## ind <- seq_len(id.lengths[i]) + cum.lengths[i] ## ind[-id.lengths[i]] ## }) ## ord <- ## order(sapply(idlist, ## function(ind) { ## min(m[3, ind]) ## })) ## for (ind in idlist[ord]) ## { ## if (length(ind) >= min.sides) ## panel.polygon(x = m[1, ind], y = m[2, ind], ## col = col, border = border) ## } ## } panel.3dpolygon <- function(x, y, z, rot.mat = diag(4), distance, xlim.scaled, ylim.scaled, zlim.scaled, zero.scaled, col = "white", border = "black", ## min.sides = 3, font, fontface, ## gpar() doesn't like these ...) { if (all(is.na(x) | is.na(y) | is.na(z))) return() border <- if (all(is.na(border))) "transparent" else if (is.logical(border)) { if (border) "black" else "transparent" } else border m <- ltransform3dto3d(rbind(x, y, z), rot.mat, distance) ## ord <- sort.list(m[3,]) n <- ncol(m) w <- which(is.na(x) | is.na(y)) id.lengths <- diff(c(0, w, n)) ## need to reorder multiple polygons by some measure of "average" depth id.long <- rep(seq_along(id.lengths), id.lengths) ord.depth <- order(tapply(m[3,], id.long, min, na.rm = TRUE)) id.ordered <- ord.depth[id.long] ord.long <- order(id.ordered) grid.polygon(x = m[1, ord.long], y = m[2, ord.long], id = id.ordered[ord.long], default.units = "native", gp = gpar(fill = col, col = border, ...)) ## print(data.frame(x = m[1, ord.long], ## y = m[2, ord.long], ## id = id.ordered[ord.long])) return() } panel.3dtext <- function(x, y, z, labels = seq_along(x), rot.mat = diag(4), distance, ...) { if (all(is.na(x) | is.na(y) | is.na(z))) return() m <- ltransform3dto3d(rbind(x, y, z), rot.mat, distance) ord <- sort.list(m[3,]) panel.text(x = m[1, ord], y = m[2, ord], labels = labels, ...) } ## d <- data.frame(x = rnorm(10), ## y = rnorm(10), ## z = rnorm(10)) ## rownames(d) <- letters[1:10] ## cloud(z ~ x * y, d, panel.3d.cloud = panel.3dtext) ## cloud(z ~ x * y, d, panel.3d.cloud = panel.3dtext, ## labels = rownames(d), col = "red") ## ## for multipanel plots ## cloud(z ~ x * y, d, ## panel.3d.cloud = function(..., subscripts) { ## panel.3dtext(..., labels = rownames(d)[subscripts]) ## }) latticeExtra/R/mapplot.R0000644000175100001440000000602712640734510014730 0ustar hornikusers prepanel.mapplot <- function(x, y, map, ...) { list(xlim = range(map$x, finite = TRUE), ylim = range(map$y, finite = TRUE)) } panel.mapplot <- function(x, y, map, breaks, colramp, exact = FALSE, lwd = 0.5, ...) { names(x) <- tolower(as.character(y)) mapnames <- tolower(map$names) mapval <- x[mapnames] xmatched <- names(x) %in% mapnames if (any(!xmatched) && !exact) { ## lump sub-regions together (strip name after ':') mapnames <- gsub(":.*$", "", mapnames) ## only replace values which did not match exactly mapval <- ifelse(is.na(mapval), x[mapnames], mapval) xmatched <- xmatched | (names(x) %in% mapnames) } if (any(!xmatched)) warning(sum(!xmatched), " unmatched regions: ", toString(y[!xmatched], width = 60)) interval <- cut(mapval, breaks = breaks, labels = FALSE, include.lowest = TRUE) col.regions <- colramp(length(breaks) - 1) col <- col.regions[interval] panel.polygon(map, col = col, lwd = lwd, ...) } mapplot <- function(x, data, ...) UseMethod("mapplot") mapplot.formula <- function(x, data, map, outer = TRUE, prepanel = prepanel.mapplot, panel = panel.mapplot, aspect = "iso", legend = NULL, breaks, cuts = 30, colramp = colorRampPalette(brewer.pal(n = 11, name = "Spectral")), colorkey = TRUE, ## col.regions, ## alpha.regions, ...) { colrampNULL <- is.null(colramp) if (is.null(colramp)) colramp <- function(n) colorRampPalette(trellis.par.get("regions")$col)(n) ccall <- match.call() ccall$data <- data ccall$map <- map ccall$outer <- outer ccall$prepanel <- prepanel ccall$panel <- panel ccall$aspect <- aspect ccall$legend <- legend ccall$colramp <- colramp ccall$default.scales <- list(x = list(tck = 1), y = list(tck = 1)) ccall[[1]] <- quote(lattice::dotplot) ans <- eval(ccall, parent.frame()) if (missing(breaks)) { x <- unlist(lapply(ans$panel.args, "[[", "x")) breaks <- if (is.factor(x)) seq_len(1 + nlevels(x)) - 0.5 else do.breaks(range(x, finite = TRUE), cuts) } ## regions <- trellis.par.get("col.regions") ## if (missing(col.regions)) col.regions <- regions$col ## if (missing(alpha.regions)) alpha.regions <- regions$alpha if (colorkey) { keydef <- list(at = breaks, draw = FALSE) if (!colrampNULL) keydef$col <- colramp(length(breaks)) ans <- update(ans, breaks = breaks, legend = lattice:::updateList(ans$legend, list(right = list(fun = draw.colorkey, args = list(key = keydef))))) } ans$call <- sys.call(sys.parent()) ans$call[[1]] <- quote(mapplot) ans } latticeExtra/R/panel.ellipse.R0000644000175100001440000000676412126504016016012 0ustar hornikusers# data ellipses for xyplot # M. Friendly, 7/7/2010 9:24AM # - replaced panel.polygon with panel.lines # calculate one data ellipse; modified from car to do just the calculation conf.ellipse <- function(x, y, level = 0.68, segments = 50L, robust = FALSE) { if (length(x) != length(y)) stop("x and y must be vectors of the same length") xy <- na.omit(cbind(x, y)) if (robust) { v <- MASS::cov.trob(xy) shape <- v$cov center <- v$center } else { shape <- var(xy) center <- colMeans(xy) } radius <- sqrt(2 * qf(level, df1 = 2, df2 = length(x) - 1)) angles <- seq(0, 2 * pi, length.out = segments + 1) unit.circle <- cbind(cos(angles), sin(angles)) ell <- t(center + radius * t(unit.circle %*% chol(shape))) list(ellipse = ell, center = center) } panel.ellipse <- function(x, y, groups = NULL, level = 0.68, segments = 50, robust = FALSE, center.pch = 3, center.cex = 2, ..., type, pch, cex) { x <- as.numeric(x) y <- as.numeric(y) if (!is.null(groups)) panel.superpose(x = x, y = y, groups = groups, level = level, segments = segments, robust = robust, center.pch = center.pch, center.cex = center.cex, panel.groups = panel.ellipse, ...) else { ell <- conf.ellipse(x = x, y = y, level = level, segments = segments, robust = robust) panel.xyplot(ell$ellipse[,1], ell$ellipse[,2], ..., type = "l") if (!is.null(center.pch)) panel.xyplot(ell$center[1], ell$center[2], ..., pch = center.pch, cex = center.cex) } } if (FALSE) { old.panel.ellipse <- function(x, y, groups=NULL, level=0.68, segments=51, robust=FALSE, col=NA, col.line = if (is.null(groups)) plot.line$col else superpose.line$col, lwd = if (is.null(groups)) plot.line$lwd else superpose.line$lwd, lty = if (is.null(groups)) plot.line$lty else superpose.line$lty, center.pch=3, center.cex=2, ...) { x <- as.numeric(x) y <- as.numeric(y) plot.line <- trellis.par.get("plot.line") superpose.line <- trellis.par.get("superpose.line") if (!is.na(col)) { if (missing(col.line)) col.line <- col } groups <- as.factor(if(is.null(groups)) rep(1, length(x)) else as.character(groups)) n.groups <- length(levels(groups)) col <- rep(col.line, length.out=n.groups) lty <- rep(lty, length.out=n.groups) lwd <- rep(lwd, length.out=n.groups) for (i in 1:n.groups) { subs <- groups == levels(groups)[i] XY <- na.omit(data.frame(x=x[subs], y=y[subs])) ell <- .ellipse(XY, level = level, segments = segments, robust = robust) ## panel.polygon(ell[,1], ell[,2], border=col[i], col="transparent", lty=lty[i], lwd=lwd[i], ...) panel.lines(ell[,1], ell[,2], col = col[i], lty = lty[i], lwd = lwd[i], ...) if (!is.null(center.pch)) { center = colMeans(XY) panel.points(center[1], center[2], col=col[i], pch = center.pch, cex = center.cex) } } } } latticeExtra/R/panel.qqmath.tails.R0000644000175100001440000000257212126504016016754 0ustar hornikusers## ## Copyright (c) 2008 Felix Andrews ## panel.qqmath.tails <- function(x, f.value = NULL, distribution = qnorm, groups = NULL, ..., approx.n = 100, tails.n = 10) { if (getRversion() >= "2.11.0") .Deprecated(msg = paste("'panel.qqmath.tails' is deprecated.", "Use 'panel.qqmath' from lattice 0.18-4 onwards.")) x <- as.numeric(x) distribution <- if (is.function(distribution)) distribution else if (is.character(distribution)) get(distribution) else eval(distribution) nobs <- sum(!is.na(x)) if (!is.null(groups)) { panel.superpose(x, y = NULL, f.value = f.value, distribution = distribution, groups = groups, panel.groups = panel.qqmath.tails, ..., approx.n = approx.n, tails.n = tails.n) return() } if (nobs == 0) return() pp <- ppoints(nobs) y <- sort(x) qq <- distribution(pp) if (nobs > approx.n + tails.n*2) { keep <- rep(FALSE, nobs) ## keep lowest and highest points keep[c(1:tails.n, nobs+1-(1:tails.n))] <- TRUE ## keep points spaced equally along distribution qqkeep <- seq(qq[tails.n+1], qq[nobs-tails.n], length=approx.n) keep[findInterval(qqkeep, qq)] <- TRUE qq <- qq[keep] y <- y[keep] } panel.xyplot(x = qq, y = y, ...) } latticeExtra/R/simpleSmoothTs.R0000644000175100001440000000336712641421263016251 0ustar hornikusers simpleSmoothTs <- function(x, ...) { UseMethod("simpleSmoothTs") } simpleSmoothTs.default <- function(x, ..., width = NROW(x) %/% 10 + 1, n = NROW(x), c = 1, sides = 2, circular = FALSE, kern = kernel("daniell", rep(floor((width/sides)/sqrt(c)), c))) { if (sides == 2) { ii <- -kern$m:kern$m filter <- kern[ii] } else if (sides == 1) { ii <- 0:kern$m filter <- kern[ii] / sum(kern[ii]) ## normalise } else stop("unrecognised value of 'sides'") x <- as.ts(x) xf <- x xf[] <- filter(x, filter, sides = sides, circular = circular) if (n < NROW(x)) { ## reduce the number of points by aggregating chunks of 'reduce' time steps reduce <- round(NROW(x) / n) if (reduce > 1) { ndeltat <- deltat(xf) * reduce ## work-around for bug in aggregate.ts if ((ndeltat > 1) && (getRversion() < "2.11.1")) ndeltat <- ndeltat * (1 + getOption("ts.eps")/1000) xf <- aggregate(xf, ndeltat = ndeltat, FUN = mean) ## and adjust it so that each point is centered compared to the original series tsp(xf)[1:2] <- tsp(xf)[1:2] + (deltat(xf) %/% 2) } } xf } simpleSmoothTs.zoo <- function(x, ..., n = NROW(x)) { xts <- as.ts(x) xtsf <- simpleSmoothTs(xts, ..., n = n) ii <- TRUE if (n < NROW(x)) { ## find indices of aggregated time series in the original data ii <- findInterval(time(xtsf), time(xts)) ## extract elements of time index corresponding to aggregated series ans <- zoo::zoo(as.matrix(xtsf), time(x)[ii]) } else { ans <- x zoo::coredata(ans) <- zoo::coredata(xtsf) } ans } latticeExtra/R/panel.scaleArrow.R0000644000175100001440000000300512126504016016440 0ustar hornikusers panel.scaleArrow <- function(x = unit(0:1, "npc"), y = unit(0:1, "npc"), default.units = "npc", digits = 0, append = "", label = NULL, angle = 30, length = 0.5, unit = "char", type = "open", ends = "both", ..., col = add.line$col, fill = col, alpha = add.line$alpha, lty = add.line$lty, lwd = add.line$lwd, col.text = add.text$col, alpha.text = add.text$alpha) { add.line <- trellis.par.get("add.line") add.text <- trellis.par.get("add.text") if (!is.unit(x)) x <- unit(x, default.units) if (!is.unit(y)) y <- unit(y, default.units) x <- rep(x, length.out = 2) y <- rep(y, length.out = 2) xnat <- convertX(x, "native", valueOnly = TRUE) ynat <- convertY(y, "native", valueOnly = TRUE) panel.arrows(xnat[1], ynat[1], xnat[2], ynat[2], ends = ends, angle = angle, length = length, unit = unit, type = type, col = col, fill = fill, alpha = alpha, lty = lty, lwd = lwd) #grid.lines(x = x, y = y, default.units = default.units, # arrow = arrow, gp = gp) #xnat <- convertX(x, "native", valueOnly = TRUE) #ynat <- convertX(y, "native", valueOnly = TRUE) d <- sqrt(diff(xnat)^2 + diff(ynat)^2) d <- round(d, digits = digits) if (is.null(label)) label <- paste(d, append, sep = "") panel.text(x = 0.5 * (xnat[1] + xnat[2]), y = 0.5 * (ynat[1] + ynat[2]), labels = label, col = col.text, alpha = alpha.text, ...) } latticeExtra/R/panel.xyarea.R0000644000175100001440000001327612641421146015646 0ustar hornikusers## ## Copyright (c) 2008 Felix Andrews ## panel.xyarea <- function(x, ...) UseMethod("panel.xyarea") ## Plot a series as a filled polygon connected at given origin (on y axis). ## With groups, acts like panel.superpose, but with polygon style settings. panel.xyarea.default <- function(x, y, groups = NULL, origin = NULL, horizontal = FALSE, col = if (is.null(groups)) plot.polygon$col else superpose.polygon$col, col.line = if (is.null(groups)) plot.polygon$col else superpose.polygon$col, border = if (is.null(groups)) plot.polygon$border else superpose.polygon$border, lty = if (is.null(groups)) plot.polygon$lty else superpose.polygon$lty, lwd = if (is.null(groups)) plot.polygon$lwd else superpose.polygon$lwd, alpha = if (is.null(groups)) plot.polygon$alpha else superpose.polygon$alpha, ..., fill, panel.groups = panel.xyarea) { plot.polygon <- trellis.par.get("plot.polygon") superpose.polygon <- trellis.par.get("superpose.polygon") x <- as.numeric(x) y <- as.numeric(y) if (length(x) == 0) return() if (!is.null(groups)) { ## NOTE superpose does not handle 'border' argument, so pass it as col.line panel.superpose(x, y, ..., groups = groups, panel.groups = panel.groups, col = col, col.line = col.line, lty = lty, lwd = lwd, border = border, alpha = alpha, origin = origin, horizontal = horizontal) } else { if (!missing(col.line)) col <- col.line if (horizontal == TRUE) { ## actually means origin is vertical. for consistency with panel.xyplot. xlim <- current.panel.limits()$xlim if (is.null(origin)) origin <- xlim[1] infi <- is.infinite(x) x[infi] <- ifelse(x[infi] > 0, max(xlim), min(xlim)) } else { ## default case; origin is horizontal ylim <- current.panel.limits()$ylim if (is.null(origin)) origin <- ylim[1] infi <- is.infinite(y) y[infi] <- ifelse(y[infi] > 0, max(ylim), min(ylim)) } stopifnot(is.numeric(origin)) ## need to split up the series into chunks without any missing values ## (because NAs split the polygon) xy <- data.frame(x = x, y = y) ## order by ordinate values ord <- if (horizontal) order(xy$y) else order(xy$x) xy <- xy[ord,] ok <- complete.cases(xy) runs <- rle(ok) ## assign unique values to each chunk, and NAs between (dropped by 'split') runs$values[runs$values == TRUE] <- seq_len(sum(runs$values)) runs$values[runs$values == FALSE] <- NA ## expand into long format chunks <- inverse.rle(runs) lapply(split(xy, chunks), function(xyi, ...) { x <- xyi$x y <- xyi$y ## drop ends of series to the origin; the polygon will be joined up at that level if (horizontal == TRUE) { ## non-default case yy <- c(head(y,1), y, tail(y,1)) xx <- c(origin, x, origin) } else { ## default case xx <- c(head(x,1), x, tail(x,1)) yy <- c(origin, y, origin) } ## we need to catch the 'fill' argument from panel.superpose, otherwise over-rides 'col' panel.polygon(xx, yy, alpha = alpha, col = col, border = border, lty = lty, lwd = lwd, ...) }, ...) } } panel.xyarea.ts <- function(x, y = x, ...) { panel.xyarea(as.vector(time(x)), y, ...) } panel.xyarea.zoo <- function(x, y = x, ...) { panel.xyarea(zoo::index(x), zoo::coredata(y), ...) } ## A slightly modified copy of panel.qqmath panel.qqmath.xyarea <- function(x, y = NULL, f.value = NULL, distribution = qnorm, qtype = 7, groups = NULL, ..., tails.n = 0) { x <- as.numeric(x) distribution <- if (is.function(distribution)) distribution else if (is.character(distribution)) get(distribution) else eval(distribution) nobs <- sum(!is.na(x)) if (!is.null(groups)) panel.xyarea(x, y = NULL, f.value = f.value, distribution = distribution, qtype = qtype, groups = groups, panel.groups = panel.qqmath.xyarea, ..., tails.n = tails.n) else if (nobs) { if (is.null(f.value)) # exact data instead of quantiles { panel.xyarea(x = distribution(ppoints(nobs)), y = sort(x), ...) } else { pp <- if (is.numeric(f.value)) f.value else f.value(nobs) if (tails.n > 0) { ## use exact data for tails of distribution tails.n <- min(tails.n, nobs %/% 2) ppd <- ppoints(nobs) ## omit probabilities within the exact tails pp <- pp[(pp > ppd[tails.n] & pp < ppd[nobs + 1 - tails.n])] ## add on probs corresponding to exact tails pp <- c(head(ppd, tails.n), pp, tail(ppd, tails.n)) ## must use a quantile type that recovers exact values: qtype <- 1 } xx <- distribution(pp) yy <- quantile(x, pp, names = FALSE, type = qtype, na.rm = TRUE) panel.xyarea(x = xx, y = yy, ...) } } } latticeExtra/R/combineLimits.R0000644000175100001440000001340212126504016016040 0ustar hornikusers ## also available in lattice, but not exported is.characterOrExpression <- function (x) is.character(x) || is.expression(x) .arrayIndices <- function(d, i) ## Suppose we have an array 'x' with dimension 'd'. We can index ## 'x' in two different ways: x[i] or x[i_1, i_2, ..., i_d]. ## Here, we are given 'i', and want to compute i_1, i_2, ..., i_d. { ## Here's what we are doing: ## For length(d) == 3, note that (for 0-based indexing) ## ## i1 = (i mod d[1]) ## i2 = (i mod d[1] * d[2]) div d[1] ## i3 = (i mod d[1] * d[2] * d[3]) div d[1] * d[2] n <- length(d) ans <- vector(mode = "list", length = n) for (k in seq_along(ans)) { ans[[k]] <- 1L + (((i-1L) %% prod(head(d, k))) %/% prod(head(d, k-1L))) } ans } combineLimits <- function(x, margin.x = 2L, margin.y = 1L, extend = TRUE, adjust.labels = TRUE) { if (length(dim(x)) == 1L) warning("Only one conditioning variable; nothing interesting will happen.") indices <- .arrayIndices(dim(x), seq_len(prod(dim(x)))) ## For regular `numeric' scales, all we need is to modify ## $[xy].scales. But for `factor' scales, we need to leave ## $[xy].scales alone, and instead modify $[xy].used.at and $[xy].num.limit modifyLimits <- function(limits, margin, ext) { limits <- array(limits, dim = dim(x)) for (i in seq_len(prod(dim(x)))) { ## index.combine <- index.entry <- Rows(indices, i) index.combine <- Rows(indices, i) index.combine[margin] <- list(TRUE) ## limits[[i]] <- ## range(do.call("[", c(list(limits), index.combine)), finite = TRUE) li <- unlist(do.call("[", c(list(limits), index.combine))) limits[[i]] <- if(all(is.na(li))) li else range(li, finite = TRUE) } if (ext) lapply(limits, lattice:::extend.limits) else limits } modifyUsed <- function(used.at, margin) { used.at <- array(used.at, dim = dim(x)) for (i in seq_len(prod(dim(x)))) { index.combine <- Rows(indices, i) index.combine[margin] <- list(TRUE) li <- unlist(do.call("[", c(list(used.at), index.combine))) used.at[[i]] <- sort(unique(li)) } used.at } if (x$x.scales$relation != "free" && x$y.scales$relation != "free") warning("Function only has effect for scales with 'relation=\"free\"'.") if (x$x.scales$relation == "free" && length(margin.x)) { if (is.characterOrExpression(x$x.limits[[1]])) { x$x.used.at <- modifyUsed(x$x.used.at, margin.x) x$x.num.limit <- modifyLimits(x$x.num.limit, margin.x, ext = FALSE) } else x$x.limits <- modifyLimits(x$x.limits, margin.x, ext = extend) } if (x$y.scales$relation == "free" && length(margin.y)) { if (is.characterOrExpression(x$y.limits[[1]])) { x$y.used.at <- modifyUsed(x$y.used.at, margin.y) x$y.num.limit <- modifyLimits(x$y.num.limit, margin.y, ext = FALSE) } else x$y.limits <- modifyLimits(x$y.limits, margin.y, ext = extend) } if (adjust.labels) { ## Drop all but left/bottom-most labels, and set space to 0 ## for those. Needs to know layout, and will set it unless ## already set. npackets <- prod(dim(x)) par.settings <- if (is.null(x$par.settings)) list() else x$par.settings if (is.null(x$layout)) x$layout <- if (length(dim(x)) == 1L) c(dim(x), 1) else dim(x)[1:2] else if (!isTRUE(all.equal(x$layout[1:2], dim(x)[1:2]))) { warning("'layout' does not match dimensions; displayed scales may be wrong.") } if (any(is.na(x$layout) | x$layout == 0)) stop("'layout' must explicitly determine number of rows and columns") if (x$x.scales$relation == "free" && length(margin.x)) { ## change x-scales if (is.list(x$x.scales$at)) { warning("Explicit per-panel tick mark locations ignored") x$x.scales$at <- FALSE } page.at <- if (x$as.table) rep(list(NULL, x$x.scales$at), c(x$layout[1] * (x$layout[2]-1), x$layout[1])) else rep(list(x$x.scales$at, NULL), c(x$layout[1], x$layout[1] * (x$layout[2]-1))) x$x.scales$at <- rep(page.at, length.out = npackets) par.settings <- if (x$as.table) modifyList(par.settings, list(layout.heights = list(axis.panel = rep(c(0, 1), c(x$layout[2]-1, 1))))) else modifyList(par.settings, list(layout.heights = list(axis.panel = rep(c(1, 0), c(1, x$layout[2]-1))))) } if (x$y.scales$relation == "free" && length(margin.y)) { ## change y-scales if (is.list(x$y.scales$at)) { warning("Explicit per-panel tick mark locations ignored") x$y.scales$at <- FALSE } page.at <- rep(list(TRUE, NULL), c(1, x$layout[1]-1)) x$y.scales$at <- rep(page.at, length.out = npackets) par.settings <- modifyList(par.settings, list(layout.widths = list(axis.panel = rep(c(1, 0), c(1, x$layout[1]-1))))) } x$par.settings <- par.settings } x } latticeExtra/R/mergeTrellisLegends.R0000644000175100001440000000321512641423750017212 0ustar hornikusers ## not exported; for use in c.trellis and doubleYScale mergeTrellisLegends <- function(legend, legend2, vertical = NULL) { legend <- as.list(legend) legend2 <- as.list(legend2) for (space in c("top", "bottom", "left", "right")) { if (!is.null(legend2[[space]])) { if (is.null(legend[[space]])) { ## no conflict legend[[space]] <- legend2[[space]] } else { v <- vertical if (is.null(v)) v <- space %in% c("left", "right") legend[[space]] <- list(fun = "mergedTrellisLegendGrob", args = list(a = legend[[space]], b = legend2[[space]], vertical = v)) } } } legend <- c(legend, legend2[names(legend2) == "inside"]) legend } ## exported, to be called at plot time from 'legend' mergedTrellisLegendGrob <- function(a, b, vertical = FALSE, border = NULL) { if (is.null(a)) return(b) if (is.null(b)) return(a) if (!inherits(a$fun, "grob")) { ## fun <- a$fun if (is.character(a$fun)) a$fun <- as.symbol(a$fun) a$fun <- eval(as.call(c(a$fun, a$args)), getNamespace("lattice")) } if (!inherits(b$fun, "grob")) { if (is.character(b$fun)) b$fun <- as.symbol(b$fun) b$fun <- eval(as.call(c(b$fun, b$args)), getNamespace("lattice")) } g <- frameGrob(name = "mergedLegend") g <- packGrob(g, a$fun, side = if (vertical) "top" else "left", border = border) g <- packGrob(g, b$fun, side = if (vertical) "bottom" else "right", border = border) g } latticeExtra/R/utilities.R0000644000175100001440000001146712640730710015271 0ustar hornikusers ## update elements of a list recursively. updateList <- function (x, val) { if (is.null(x)) x <- list() modifyList(x, val) } ## common operations that only make sense in certain contexts useOuterStrips <- function(x, strip = strip.default, strip.left = strip.custom(horizontal = FALSE), strip.lines = 1, strip.left.lines = strip.lines) { dimx <- dim(x) stopifnot(inherits(x, "trellis")) stopifnot(length(dimx) == 2) as.table <- x$as.table opar <- if (is.null(x$par.settings)) list() else x$par.settings par.settings <- modifyList(opar, list(layout.heights = if (as.table) list(strip = c(strip.lines, rep(0, dimx[2]-1))) else list(strip = c(rep(0, dimx[2]-1), strip.lines)), layout.widths = list(strip.left = c(strip.left.lines, rep(0, dimx[1]-1))))) if (is.character(strip)) strip <- get(strip) if (is.logical(strip) && strip) strip <- strip.default new.strip <- if (is.function(strip)) { function(which.given, which.panel, var.name, ...) { row.to.keep <- if (as.table) 1 else nrow(trellis.currentLayout()) if (which.given == 1 && current.row() == row.to.keep) strip(which.given = 1, which.panel = which.panel[1], var.name = var.name[1], ...) } } else strip # This could reasonable happen only if strip == FALSE if (is.character(strip.left)) strip.left <- get(strip.left) if (is.logical(strip.left) && strip.left) strip.left <- strip.custom(horizontal = FALSE) new.strip.left <- if (is.function(strip.left)) { function(which.given, which.panel, var.name, ...) { if (which.given == 2 && current.column() == 1) strip.left(which.given = 1, which.panel = which.panel[2], var.name = var.name[2], ...) } } else strip.left update(x, par.settings = par.settings, strip = new.strip, strip.left = new.strip.left, par.strip.text = list(lines = 0.5), layout = dimx) } resizePanels <- function(x, h = 1, w = 1) { if (!missing(x)) return(update(x, par.settings = list(layout.heights = list(panel = h), layout.widths = list(panel = w)))) cl <- trellis.currentLayout() if (all(dim(cl) > 1)) stop("layout must have single column or single row.") if (all(dim(cl) == 1)) { message("Nothing to be done.") return() } if (any(cl == 0)) stop("missing panels not allowed") if (dim(cl)[2] == 1) ## single column { pos <- seq(length = dim(cl)[1]) heights <- sapply(pos, function(i) { trellis.focus("panel", 1, i, highlight = FALSE) ylim <- current.panel.limits()$ylim trellis.unfocus() diff(range(ylim)) }) return(trellis.last.object(par.settings = list(layout.heights = list(panel = heights)))) } else if (dim(cl)[1] == 1) ## single row { pos <- seq(length = dim(cl)[2]) widths <- sapply(pos, function(i) { trellis.focus("panel", i, 1, highlight = FALSE) xlim <- current.panel.limits()$xlim trellis.unfocus() diff(range(xlim)) }) return(trellis.last.object(par.settings = list(layout.widths = list(panel = widths)))) } print(dim(cl)) stop("shouldn't come here") } ## utility functions to extract components of a formula. Don't work ## reliably with unusual symbols .responseName <- function(formula) { if (length(formula) == 3) as.character(formula[2]) else stop("invalid formula") } .covariateName <- function(formula) { RHS <- if (length(formula) == 3) as.character(formula[3]) else if (length(formula) == 2) as.character(formula[2]) else stop("invalid formula") RHS <- strsplit(RHS, " | ", fixed = TRUE)[[1]] RHS[1] } .groupsName <- function(formula) { RHS <- if (length(formula) == 3) as.character(formula[3]) else if (length(formula) == 2) as.character(formula[2]) else stop("invalid formula") RHS <- strsplit(RHS, " | ", fixed = TRUE)[[1]] RHS[2] } latticeExtra/R/panel.2dsmoother.R0000644000175100001440000000304012641424006016425 0ustar hornikusers panel.2dsmoother <- function(x, y, z, subscripts = TRUE, form = z ~ x * y, method = "loess", ..., args = list(), n = 100) { if (length(subscripts) == 0) return() ## allow 'form' to be passed as the first argument missing.x <- missing(x) if (!missing.x && inherits(x, "formula")) { form <- x missing.x <- TRUE } ## use 'x', 'y', 'z' if given ## otherwise try to find them in the formula environment if (missing.x) x <- environment(form)$x if (missing(y)) y <- environment(form)$y if (missing(z)) z <- environment(form)$z x <- x[subscripts] y <- y[subscripts] z <- z[subscripts] ok <- is.finite(x) & is.finite(y) & is.finite(z) if (sum(ok) < 1) return() x <- as.numeric(x)[ok] y <- as.numeric(y)[ok] z <- as.numeric(z)[ok] mod <- do.call(method, c(alist(form, data = list(x = x, y = y, z = z)), args)) ## use the limits of the data, or panel limits, whichever is smaller lims <- current.panel.limits() xrange <- c(max(min(lims$x), min(x)), min(max(lims$x), max(x))) yrange <- c(max(min(lims$y), min(y)), min(max(lims$y), max(y))) xseq <- seq(xrange[1], xrange[2], length = n) yseq <- seq(yrange[1], yrange[2], length = n) ## zseq <- seq(min(z), max(z), length = n) grid <- expand.grid(x = xseq, y = yseq) fit <- predict(mod, grid) panel.levelplot(x = grid$x, y = grid$y, z = fit, subscripts = TRUE, ...) } latticeExtra/R/marginal.plot.R0000644000175100001440000001413512126504016016015 0ustar hornikusers## ## Copyright (c) 2007 Felix Andrews ## GPL version 2 or newer is.categorical <- function (x) { is.factor(x) || is.shingle(x) || is.character(x) || is.logical(x) } marginal.plot <- function(x, data = NULL, groups = NULL, reorder = !is.table(x), plot.points = FALSE, ref = TRUE, cut = 0, origin = 0, #ylim = c(0, NA), this only supported in R >= 2.11 xlab = NULL, ylab = NULL, type = c("p", if (is.null(groups)) "h"), ..., subset = TRUE, as.table = TRUE, subscripts = TRUE, default.scales = list( relation = "free", abbreviate = TRUE, minlength = 5, rot = 30, cex = 0.75, tick.number = 3, y = list(draw = FALSE)), layout = NULL, lattice.options = list( layout.heights = list( axis.xlab.padding = list(x = 0), xlab.key.padding = list(x = 0)))) { if (is.table(data)) data <- as.data.frame(data) ## assume first term of formula is the data object; ignore rest if (inherits(x, "formula")) x <- eval(x[[2]], data, environment(x)) ## x must be either a data.frame or a table if (!is.data.frame(x) && !is.table(x)) x <- as.data.frame(x) ## groups and subset are subject to non-standard evaluation: groups <- eval(substitute(groups), data, parent.frame()) ## note unusual cases e.g. ## evalq(marginal.plot(dat, subset = complete.cases(dat)), myEnv) subset <- eval(substitute(subset), data, parent.frame()) ## apply subset if ((length(subset) > 0) && !isTRUE(subset)) { x <- x[subset,] if (!is.null(groups)) groups <- groups[subset] } ## divide into categoricals and numerics if (is.table(x)) { iscat <- TRUE } else { iscat <- sapply(x, is.categorical) } ## reorder factor levels if (reorder) { if (is.table(x)) { x <- reorderTableByFreq(x) } else { for (nm in names(x)[iscat]) { val <- x[[nm]] if (is.character(val)) x[[nm]] <- factor(val) if (!is.ordered(val) && !is.shingle(val) && nlevels(val) > 1) { x[[nm]] <- reorder(val, val, function(z) -length(z)) } } } } if (any(iscat)) { ## handle categorical variables ## make a list of dotplot trellis objects if (is.table(x)) { margins <- seq(length = length(dim(x))) names(margins) <- names(dimnames(x)) } else { margins <- which(iscat) names(margins) <- colnames(x)[iscat] } dotobjs <- lapply(margins, function(i) { if (is.table(x)) { nm <- names(dimnames(x))[i] nm <- deparse(as.symbol(nm), backtick = TRUE) form <- paste("Freq ~", nm) if (!is.null(groups)) form <- paste(form, "+ groups") tab <- xtabs(as.formula(form), x) } else { if (!is.null(groups)) { tab <- table(Value = x[[i]], groups = groups) } else { tab <- table(Value = x[[i]]) } } dotplot(tab, horizontal = FALSE, groups = !is.null(groups), subscripts = TRUE, ..., type = type, origin = origin, #ylim = ylim, as.table = as.table, default.scales = default.scales, lattice.options = lattice.options, xlab = xlab, ylab = ylab) }) ## merge the list of trellis objects into one catobj <- do.call("c", c(dotobjs, merge.legends = FALSE)) catobj$layout <- layout catobj$call <- match.call() } if (any(!iscat)) { ## handle numeric variables ## construct formula with all numeric variables nms <- names(x)[!iscat] symbolStr <- function(nm) deparse(as.symbol(nm), backtick = TRUE) nms <- sapply(nms, symbolStr) numform <- paste("~", paste(nms, collapse = " + ")) numobj <- densityplot(as.formula(numform), x, outer = TRUE, subscripts = TRUE, groups = groups, ..., plot.points = plot.points, ref = ref, cut = cut, #ylim = ylim, as.table = as.table, default.scales = default.scales, lattice.options = lattice.options, xlab = xlab, ylab = ylab) ## set strip name if only one panel if (prod(dim(numobj)) == 1) rownames(numobj) <- names(x)[!iscat] numobj$call <- match.call() numobj$layout <- layout } if (all(iscat)) { obj <- catobj } else if (all(!iscat)) { obj <- numobj } else { ## if there are both categoricals and numerics, ## merge the trellis objects; keep original var order reIndex <- order(c(which(iscat), which(!iscat))) obj <- update(c(catobj, numobj, merge.legends = FALSE), index.cond = list(reIndex), layout = layout) ## force strips when only one panel in each object if (identical(obj$strip, FALSE)) obj$strip <- "strip.default" } obj$call <- sys.call(sys.parent()) obj } reorderTableByFreq <- function(x) { stopifnot(is.table(x)) df <- as.data.frame(x) i <- which(names(df) == "Freq") df[-i] <- lapply(df[-i], reorder, - df$Freq) xtabs(Freq ~ ., df) } latticeExtra/R/c.trellis.R0000644000175100001440000002217112126504016015144 0ustar hornikusers ## ## Copyright (c) 2007 Felix Andrews ## GPL version 2 or newer xyplot.list <- function(x, data = NULL, ..., FUN = xyplot, y.same = TRUE, x.same = NA, layout = NULL, merge.legends = FALSE) { if (length(x) == 0) return(NULL) ## NOTE lapply here causes problems with eval.parent and `...` later. #objs <- lapply(x, FUN, data = data, ...) objs <- vector(mode = "list", length = length(x)) for (i in as.numeric(seq_along(x))) { ## this is what we had previously, but it seemed to cause failures ## in complex call structures (e.g. pch=pch ==> object 'pch' not found) ## (use substitute to get reasonable ylab) #objs[[i]] <- eval.parent(substitute(FUN(x[[i]], data = data, ...))) ## check for 'data' to avoid warnings in e.g. qqmath.numeric objs[[i]] <- if (!is.null(data)) FUN(x[[i]], data = data, ...) else FUN(x[[i]], ...) } names(objs) <- names(x) ok <- unlist(lapply(objs, inherits, "trellis")) if (any(!ok)) stop("FUN returned object of class ", toString(class(objs[[ which(!ok)[1] ]])), ", not trellis.") ans <- do.call("c", c(objs, list(x.same = x.same, y.same = y.same, layout = layout, merge.legends = merge.legends))) ans$call <- match.call() ans } c.trellis <- function(..., x.same = NA, y.same = NA, layout = NULL, merge.legends = FALSE, recursive = FALSE) { objs <- list(...) if (length(objs) == 0) return(NULL) if (length(objs) == 1) { ## only one object obj <- objs[[1]] ## set dimnames if given and only one panel if (!is.null(names(objs)) && (prod(dim(obj)) == 1)) rownames(obj) <- names(objs) return(obj) } if (length(objs) > 2) { ## merge first two objects, and call again first2Merged <- do.call("c.trellis", c(objs[1:2], list(x.same = x.same, y.same = y.same, merge.legends = merge.legends))) return(do.call("c.trellis", c(list(first2Merged), objs[-(1:2)], list(x.same = x.same, y.same = y.same, layout = layout, merge.legends = merge.legends)))) } ## now exactly 2 objects obj1 <- objs[[1]] obj2 <- objs[[2]] ## number of packets in object, i.e. offset NPACK1 <- prod(dim(obj1)) NPACK2 <- prod(dim(obj2)) ## first panel function panel <- obj1$panel PANEL1 <- if (is.function(panel)) panel else if (is.character(panel)) get(panel) else eval(panel) ## second panel function panel <- obj2$panel PANEL2 <- if (is.function(panel)) panel else if (is.character(panel)) get(panel) else eval(panel) obj1$panel <- function(...) { if (packet.number() <= NPACK1) PANEL1(...) else PANEL2(...) } ## TODO: treat 'prepanel' the same way as 'panel'? ## flatten the trellis objects (make 1 dimensional) flatIC <- function(index.cond) { dim <- sapply(index.cond, length) ic <- do.call(expand.grid, index.cond) if (length(dim) >= 2) ic[,2] <- (ic[,2] - 1) * dim[1] if (length(dim) >= 3) ic[,3] <- (ic[,3] - 1) * prod(dim[1:2]) rowSums(ic) } flatCL <- function(condlevels, newname=NULL) { ## paste names of variables to their values (for strips) #for (i in seq_along(condlevels)) # condlevels[[i]] <- paste(names(condlevels)[i], ## may be NULL # condlevels[[i]], sep=" = ") ## convert shingle levels to character strings condlevels <- lapply(condlevels, as.character) cl <- do.call(expand.grid, condlevels) cl <- apply(cl, 1, paste, sep=" / ") if (!is.null(newname) && (nchar(newname) > 0)) { if (length(cl) == 1) cl <- newname else cl <- paste(newname, cl, sep=": ") } cl } obj1$index.cond <- list(c(flatIC(obj1$index.cond), flatIC(obj2$index.cond) + NPACK1)) obj1$condlevels <- list(c(flatCL(obj1$condlevels, names(objs)[1]), flatCL(obj2$condlevels, names(objs)[2]))) obj1$perm.cond <- 1 ## make scales nominally "free", so they look like original objects makeFreeScales <- function(obj, npack, x.y) { obj[[paste(x.y, "scales", sep=".")]]$relation <- "free" .limits <- paste(x.y, "limits", sep=".") .num.limit <- paste(x.y, "num.limit", sep=".") .used.at <- paste(x.y, "used.at", sep=".") if (is.null(obj[[.limits]])) obj[[.limits]] <- NA if (is.null(obj[[.num.limit]])) obj[[.num.limit]] <- NA if (is.null(obj[[.used.at]])) obj[[.used.at]] <- NA if (!is.list(obj[[.limits]])) { obj[[.limits]] <- rep(list(obj[[.limits]]), length=npack) obj[[.num.limit]] <- rep(list(obj[[.num.limit]]), length=npack) obj[[.used.at]] <- rep(list(obj[[.used.at]]), length=npack) } obj } ## set relations to "free" if the first object has "free" scales ## or if the limits in the two objects are not identical xlimItems <- c("x.limits", "x.num.limit", "x.used.at") ylimItems <- c("y.limits", "y.num.limit", "y.used.at") if (is.na(x.same)) { x.same <- FALSE if (!is.list(obj1$x.limits) && identical(unclass(obj1)[xlimItems], unclass(obj2)[xlimItems])) x.same <- NA } if (is.na(y.same)) { y.same <- FALSE if (!is.list(obj1$y.limits) && identical(unclass(obj1)[ylimItems], unclass(obj2)[ylimItems])) y.same <- NA } if (identical(x.same, FALSE) || is.list(obj1$x.limits)) { obj1 <- makeFreeScales(obj1, npack=NPACK1, x.y="x") obj2 <- makeFreeScales(obj2, npack=NPACK2, x.y="x") obj1$x.limits <- c(obj1$x.limits, obj2$x.limits) obj1$x.num.limit <- c(obj1$x.num.limit, obj2$x.num.limit) obj1$x.used.at <- c(obj1$x.used.at, obj2$x.used.at) } if (identical(y.same, FALSE) || is.list(obj1$y.limits)) { obj1 <- makeFreeScales(obj1, npack=NPACK1, x.y="y") obj2 <- makeFreeScales(obj2, npack=NPACK2, x.y="y") obj1$y.limits <- c(obj1$y.limits, obj2$y.limits) obj1$y.num.limit <- c(obj1$y.num.limit, obj2$y.num.limit) obj1$y.used.at <- c(obj1$y.used.at, obj2$y.used.at) } ## merge common panel args into panel.args ## check for identical() args commonNames <- intersect(names(obj1$panel.args.common), names(obj2$panel.args.common)) identNames <- commonNames[unlist(lapply(commonNames, function(x) identical(obj1$panel.args.common[[x]], obj2$panel.args.common[[x]])))] obj1Common <- names(obj1$panel.args.common) %in% identNames obj2Common <- names(obj2$panel.args.common) %in% identNames obj1$panel.args <- lapply(obj1$panel.args, c, obj1$panel.args.common[!obj1Common]) obj2$panel.args <- lapply(obj2$panel.args, c, obj2$panel.args.common[!obj2Common]) obj1$panel.args.common <- obj1$panel.args.common[obj1Common] ## the actual data obj1$panel.args <- c(obj1$panel.args, obj2$panel.args) obj1$packet.sizes <- c(obj1$packet.sizes, obj2$packet.sizes) ## some prepanel functions require a 'subscripts' argument in each 'panel.args' if ("subscripts" %in% c(names(formals(obj1$prepanel.default)), names(formals(obj1$prepanel)))) { for (i in seq_along(obj1$panel.args)) { if ("subscripts" %in% names(obj1$panel.args[[i]]) == FALSE) { obj1$panel.args[[i]]$subscripts <- TRUE } } } ## recalculate panel limits using all data if ((isTRUE(x.same) || isTRUE(y.same))) { scalesSpec <- list() if (isTRUE(x.same)) scalesSpec$x$relation <- "same" if (isTRUE(y.same)) scalesSpec$y$relation <- "same" obj1 <- update(obj1, scales = scalesSpec) } if (identical(obj1$strip.left, FALSE)) { ## turn strips on if either object has strips, or names were given if (identical(obj1$strip, FALSE) && !identical(obj2$strip, FALSE)) obj1$strip <- obj2$strip if (identical(obj1$strip, FALSE) && !is.null(names(objs))) obj1$strip <- "strip.default" } ## TODO: can use 'par.settings' from obj2 only for obj2 panels? obj1$par.settings <- modifyList(as.list(obj2$par.settings), as.list(obj1$par.settings)) if (merge.legends) obj1$legend <- mergeTrellisLegends(obj1$legend, obj2$legend) obj1$layout <- layout obj1$call <- call("c", obj1$call, obj2$call, x.same = x.same, y.same = y.same, layout = layout) ## need this to allow further calls to update() to insert arguments: obj1$call <- call("update", obj1$call) obj1 } latticeExtra/R/panel.quantile.R0000644000175100001440000000564112656341374016206 0ustar hornikusers ## based on the stat_quantile() function in ggplot2 package. panel.quantile <- function(x, y, form = y ~ x, method = "rq", ..., tau = 0.5, ci = FALSE, ci.type = "default", level = 0.95, n = 100, col = plot.line$col, col.se = col, lty = plot.line$lty, lwd = plot.line$lwd, alpha = plot.line$alpha, alpha.se = 0.25, border = NA, superpose = FALSE, ## ignored (do not pass to method()): subscripts, group.number, group.value, type, col.line, col.symbol, fill, pch, cex, font, fontface, fontfamily) { ## library("quantreg") ## stopifnot(require("quantreg")) plot.line <- trellis.par.get("plot.line") if (!missing(col.line)) col <- col.line ## allow 'form' to be passed as the first argument missing.x <- missing(x) if (!missing.x && inherits(x, "formula")) { form <- x missing.x <- TRUE } ## use 'x' and 'y' if given ## otherwise try to find them in the formula environment if (missing.x) x <- environment(form)$x if (missing(y)) y <- environment(form)$y ok <- is.finite(x) & is.finite(y) if (sum(ok) < 1) return() x <- as.numeric(x)[ok] y <- as.numeric(y)[ok] if (method != "rq") stop("Only method='rq' is supported.") mod <- do.call(quantreg::rq, c(alist(form, tau = tau, data = list(x = x, y = y)), list(...))) xseq <- seq(min(x), max(x), length = n) pred <- predict(mod, data.frame(x = xseq), interval = if (ci) "confidence" else "none", type = ci.type, level = level) pred <- as.matrix(pred) if (ci && ncol(pred) > 1) { panel.polygon(x = c(xseq, rev(xseq)), y = c(pred[,"lower"], rev(pred[,"higher"])), col = col.se, alpha = alpha.se, border = border) pred <- pred[, "fit", drop = FALSE] } if (superpose) { for (i in seq_len(NCOL(pred))) { line <- Rows(trellis.par.get("superpose.line"), i) panel.lines(xseq, pred[,i], col = line$col, alpha = line$alpha, lty = line$lty, lwd = line$lwd) } } else { apply(pred, 2, panel.lines, x = xseq, col = col, alpha = alpha, lty = lty, lwd = lwd) } } ## moving quantiles #L.rollquantile <- function(probs = c(0.05, 0.5, 0.95), width, # alpha = 0.25, ...) #{ # stopifnot(require("zoo")) # z <- zoo(y, x) # pred <- rollapply(z, width = width, quantile, probs = probs, # na.rm = TRUE) # apply(pred, 2, panel.lines, x = time(pred), col = col) #} ## quantile regression with smoothness by mgcv # L.quantile <- function(probs = c(0.05, 0.5, 0.95), n = 100, # alpha = 0.25, ss = FALSE, lambda = NULL, ...) # { # mod <- rqss(y ~ rqss(x), tau = probs, lambda = lambda) latticeExtra/R/panel.tskernel.R0000644000175100001440000000146312126504016016173 0ustar hornikusers panel.tskernel <- function(x, y, ..., width = NROW(x) %/% 10 + 1, n = 300, c = 1, sides = 2, circular = FALSE, kern = kernel("daniell", rep(floor((width/sides)/sqrt(c)), c))) { if (!missing(kern)) .Deprecated("The 'kern' argument to panel.tskernel is Deprecated. Use simpleSmoothTs directly.") if (!missing(y)) { x <- as.numeric(x) y <- as.numeric(y) stopifnot(NCOL(x) == 1) if (diff(range(diff(x))) > getOption("ts.eps")) stop("'x' should be a regular series") x <- ts(y, start = x[1], end = tail(x,1), deltat = diff(x[1:2])) } x <- as.ts(x) s <- simpleSmoothTs(x, width = width, c = c, sides = sides, circular = circular, kern = kern, n = n) panel.lines(s, ...) } latticeExtra/R/horizonplot.R0000644000175100001440000001066612641424065015651 0ustar hornikusers## ## Copyright (c) 2010 Felix Andrews ## GPL version 2 or newer horizonplot <- function(x, data, ...) UseMethod("horizonplot") horizonplot.default <- function(x, data = NULL, ..., nbands = 3L, horizonscale = NA, origin = function(y) na.omit(y)[1], colorkey = FALSE, legend = NULL, panel = panel.horizonplot, prepanel = prepanel.horizonplot, col.regions = brewer.pal(n = 2 * nbands, name = "RdYlBu"), strip = FALSE, strip.left = TRUE, par.strip.text = list(cex = 0.6), colorkey.digits = 3, layout = c(1, NA), groups = NULL, default.scales = list(y = list(relation = "free", axs = "i", draw = FALSE, tick.number = 2))) { if (!is.null(groups)) stop("'groups' does not work in this plot") ans <- xyplot(x, data = data, ..., origin = origin, horizonscale = horizonscale, panel = panel, prepanel = prepanel, col.regions = col.regions, strip = strip, strip.left = strip.left, par.strip.text = par.strip.text, layout = layout, default.scales = default.scales, nbands = nbands) ans$call <- match.call() ## add colorkey if (isTRUE(colorkey)) colorkey <- list() if (is.list(colorkey)) { bands.at <- seq(-nbands, nbands) if (ans$y.scales$relation == "same") { origin <- ans$y.limits[1] horizonscale <- diff(ans$y.limits) } if (is.na(horizonscale)) { ## labels <- expression( ## - 3 * Delta[i], - 2 * Delta[i], - 1 * Delta[i], 0, ## + 1 * Delta[i], + 2 * Delta[i], + 3 * Delta[i], 0) labels <- parse(text = sprintf("%+d * Delta[i]", bands.at)) labels[nbands + 1] <- if (is.numeric(origin)) origin else "origin" } else { if (is.numeric(origin)) { labels <- round(origin + bands.at * horizonscale, colorkey.digits) } else { labels <- sprintf("%+g", round(bands.at * horizonscale, colorkey.digits)) labels[nbands + 1] <- "origin" } } ii <- round(seq(1, length(col.regions), length.out = 2 * nbands)) colorkey <- modifyList(list(col = col.regions[ii], at = bands.at, labels = list(labels = labels, at = bands.at)), colorkey) space <- colorkey$space if (is.null(space)) space <- "right" if (is.null(legend)) legend <- list() legend[[space]] <- list(fun = "draw.colorkey", args = list(colorkey)) ans <- update(ans, legend = legend) } ans } panel.horizonplot <- function(x, y, ..., border = NA, nbands = 3L, col.regions = brewer.pal(n = 2 * nbands, name = "RdYlBu"), origin) ## catch origin, don't pass to panel.xyarea! { origin <- current.panel.limits()$ylim[1] scale <- diff(current.panel.limits()$ylim) ## ordered for drawing, from least extreme to most extreme #sections <- c(0, -1, 1, -2, 2, -3) ## these are the lower bounds sections <- as.vector(rbind(seq_len(nbands)-1, -seq_len(nbands))) #ii <- round(((sections + 3) / 5) * (length(col.regions)-1)) + 1 ii <- round(((sections + nbands) / (2*nbands-1)) * (length(col.regions)-1)) + 1 #ii <- sections + nbands + 1 col <- col.regions[ii] for (i in seq_along(sections)) { section <- sections[i] yi <- y if (section < 0) { yi <- origin + origin - y section <- abs(section) - 1 } baseline <- origin + section * scale if (all(yi <= baseline, na.rm = TRUE)) next yi <- yi - baseline yi <- origin + pmax(pmin(yi, scale), 0) panel.xyarea(x, yi, border = border, col = col[i], col.line = col[i], ...) } } prepanel.horizonplot <- function(x, y, ..., horizonscale = NA, nbands = 3L, origin = function(y) na.omit(y)[1]) { if (is.function(origin)) origin <- origin(y) ans <- prepanel.default.xyplot(x, y, ...) if (is.na(horizonscale)) horizonscale <- max(abs(ans$ylim - origin)) / nbands ans$ylim <- origin + c(0, horizonscale) ans } latticeExtra/R/doubleYScale.R0000644000175100001440000003221012126504016015613 0ustar hornikusers## ## Copyright (c) 2008 Felix Andrews ## GPL version 2 or newer doubleYScale <- function(obj1, obj2, use.style = TRUE, style1 = if (use.style) 1, style2 = if (use.style) 2, add.axis = TRUE, add.ylab2 = FALSE, text = NULL, auto.key = if (!is.null(text)) list(text, points = points, lines = lines, ...), points = FALSE, lines = TRUE, ..., under = FALSE) { stopifnot(inherits(obj1, "trellis")) stopifnot(inherits(obj2, "trellis")) if (any(style1 == 0)) style1 <- NULL if (any(style2 == 0)) style2 <- NULL ## force same x scales #xlim1 <- obj1$x.limits #if (is.list(xlim1)) # xlim1 <- rep(xlim1, length = prod(dim(obj2))) #obj2 <- update(obj2, xlim = xlim1, ylim = obj2$y.limits) ## TODO - ylim only here to workaround bug in lattice 0.17-15 if (!is.null(auto.key)) { space <- "top" if (!is.null(auto.key$space)) space <- auto.key$space auto.key$space <- NULL keyLeg <- list(space = list(fun = "drawSimpleKey", args = auto.key)) names(keyLeg) <- space obj1 <- update(obj1, legend = keyLeg) } ## merge legends obj1$legend <- mergeTrellisLegends(obj1$legend, obj2$legend) if (add.ylab2) { ## add ylab2 as a 'legend' (idea from John Maindonald) ## draw both ylabs in their style, if specified ylabStyledGrob <- function(label, style) { textGrob(label, y = 0.5, rot = 90, gp = if (!is.null(style)) gpar(col = trellis.par.get("superpose.line")$col[style])) } is.characterOrExpression <- function(x) is.character(x) || is.expression(x) if (!is.null(style1)) { ylab1 <- obj1$ylab if (is.list(ylab1)) ylab1 <- obj1$ylab.default if (is.characterOrExpression(ylab1)) { obj1$legend <- mergeTrellisLegends(obj1$legend, list(left = list(fun = ylabStyledGrob, args = list(label = ylab1, style = style1))), vertical = FALSE) obj1$ylab <- expression(NULL) } } ## TODO: use ylab.right from lattice 0.19-6 ylab2 <- obj2$ylab if (is.list(ylab2)) ylab2 <- obj2$ylab.default if (is.characterOrExpression(ylab2)) { obj1$legend <- mergeTrellisLegends(list(right = list(fun = ylabStyledGrob, args = list(label = ylab2, style = style2))), obj1$legend, vertical = FALSE) } } if (add.axis == FALSE) { ## if not drawing a second axis, nothing to do but... foo <- obj1 + as.layer(obj2, style = style2, x.same = TRUE, y.same = FALSE, axes = NULL, under = under) } else { ## need to specify padding to draw second y axis yAxPad <- list(layout.widths = list( axis.left = list(x = 2.5, units = "char"), axis.right = list(x = 3, units = "char"))) dummy <- update(obj1, panel = function(...) NULL, scales = list(y = list(draw = FALSE)), lattice.options = yAxPad) foo <- dummy + as.layer(obj1, style = style1, x.same = TRUE, y.same = FALSE, axes = "y", out = TRUE, opp = FALSE) + as.layer(obj2, style = style2, x.same = TRUE, y.same = FALSE, axes = "y", out = TRUE, opp = TRUE, under = under) } foo$call <- match.call() foo } as.layer.trellis <- function(x, x.same = TRUE, y.same = TRUE, axes = c(if (!x.same) "x", if (!y.same) "y"), opposite = TRUE, outside = FALSE, theme = x$par.settings, ...) { if (identical(axes, TRUE)) axes <- c("x", "y") if (identical(axes, FALSE)) axes <- NULL opposite <- rep(opposite, length = 2) outside <- rep(outside, length = 2) if (x.same && y.same) { ## simply run the panel function in existing panel viewport return(layer({ packet.number <- min(packet.number(), prod(dim(x))) do.call(x$panel, trellis.panelArgs(x, packet.number)) }, data = list(x = x), theme = theme, ...)) } ## else ## take one or more scales from layered object (so new viewport) ## draw panels and axes from this trellis object layer({ packet.number <- min(packet.number(), prod(dim(x))) ## axis details... ## this all copied from lattice:::plot.trellis ## TODO: this is horrible; can use the axis function instead? x.relation.same <- x$x.scales$relation == "same" y.relation.same <- x$y.scales$relation == "same" xscale.comps <- if (x.relation.same) x$xscale.components(lim = x$x.limits, top = TRUE, ## rest passed on to ## calculateAxisComponents ## in the default ## case: at = x$x.scales$at, used.at = x$x.used.at, num.limit = x$x.num.limit, labels = x$x.scales$labels, logsc = x$x.scales$log, abbreviate = x$x.scales$abbr, minlength = x$x.scales$minl, n = x$x.scales$tick.number, format.posixt = x$x.scales$format) else x$xscale.components(lim = x$x.limits[[packet.number]], top = FALSE, ## rest passed on to ## calculateAxisComponents ## in the default ## case: at = if (is.list(x$x.scales$at)) x$x.scales$at[[packet.number]] else x$x.scales$at, used.at = x$x.used.at[[packet.number]], num.limit = x$x.num.limit[[packet.number]], labels = if (is.list(x$x.scales$labels)) x$x.scales$labels[[packet.number]] else x$x.scales$labels, logsc = x$x.scales$log, abbreviate = x$x.scales$abbr, minlength = x$x.scales$minl, n = x$x.scales$tick.number, format.posixt = x$x.scales$format) yscale.comps <- if (y.relation.same) x$yscale.components(lim = x$y.limits, right = TRUE, ## rest passed on to ## calculateAxisComponents ## in the default ## case: at = x$y.scales$at, used.at = x$y.used.at, num.limit = x$y.num.limit, labels = x$y.scales$labels, logsc = x$y.scales$log, abbreviate = x$y.scales$abbr, minlength = x$y.scales$minl, n = x$y.scales$tick.number, format.posixt = x$y.scales$format) else x$yscale.components(lim = x$y.limits[[packet.number]], right = FALSE, ## rest passed on to ## calculateAxisComponents ## in the default ## case: at = if (is.list(x$y.scales$at)) x$y.scales$at[[packet.number]] else x$y.scales$at, used.at = x$y.used.at[[packet.number]], num.limit = x$y.num.limit[[packet.number]], labels = if (is.list(x$y.scales$labels)) x$y.scales$labels[[packet.number]] else x$y.scales$labels, logsc = x$y.scales$log, abbreviate = x$y.scales$abbr, minlength = x$y.scales$minl, n = x$y.scales$tick.number, format.posixt = x$y.scales$format) xscale <- xscale.comps$num.limit yscale <- yscale.comps$num.limit ## maybe over-ride with original limits if (x.same) xscale <- current.panel.limits()$xlim if (y.same) yscale <- current.panel.limits()$ylim ## do panel(); need a new viewport with scales from 'x' pushViewport(viewport(xscale = xscale, yscale = yscale)) do.call(x$panel, trellis.panelArgs(x, packet.number)) ## use axis components from the standard side only xscale.comps$top <- TRUE yscale.comps$right <- TRUE x.comp.list <- xscale.comps$bottom y.comp.list <- yscale.comps$left ## axes viewport (clip = "off" for outside axes) ## note: to draw an outside axis at top when there are stips: ## should really do it in strip.column.row.off pushViewport(viewport(xscale = xscale, yscale = yscale, clip = "off")) if (("x" %in% axes) && is.list(x.comp.list) && x$x.scales$draw) { comp.list <- x.comp.list scales.tck <- x$x.scales$tck[1] rot <- as.numeric(x$x.scales$rot)[1] if (outside[1]) { ## use axis.default where possible (i.e. where outside=TRUE) ## because it handles labels well in multi-panel layouts x$x.scales$alternating <- 3 x$axis(side = if (opposite[1]) "top" else "bottom", scales = x$x.scales, components = xscale.comps, as.table = x$as.table, rot = rot) } else { panel.axis(side = if (opposite[1]) "top" else "bottom", at = comp.list$ticks$at, labels = comp.list$labels$labels, #tick = do.ticks, #draw.labels = do.labels, check.overlap = comp.list$labels$check.overlap, outside = outside[1], half = FALSE, tck = scales.tck * comp.list$ticks$tck, rot = rot) } } if (("y" %in% axes) && is.list(y.comp.list) && x$y.scales$draw) { comp.list <- y.comp.list scales.tck <- x$y.scales$tck[1] rot <- as.numeric(x$y.scales$rot)[1] if (outside[2]) { ## use axis.default where possible (i.e. where outside=TRUE) ## because it handles labels well in multi-panel layouts x$y.scales$alternating <- 3 x$axis(side = if (opposite[2]) "right" else "left", scales = x$y.scales, components = yscale.comps, as.table = x$as.table, rot = rot) } else { panel.axis(side = if (opposite[2]) "right" else "left", at = comp.list$ticks$at, labels = comp.list$labels$labels, #tick = do.ticks, #draw.labels = do.labels, check.overlap = comp.list$labels$check.overlap, outside = outside[2], half = FALSE, tck = scales.tck * comp.list$ticks$tck, rot = rot) } } upViewport(2) }, data = list(x = x, x.same = x.same, y.same = y.same, axes = axes, opposite = opposite, outside = outside), theme = theme, ...) } latticeExtra/R/custom.theme.R0000644000175100001440000000426712641453030015667 0ustar hornikusers ## Construct a custom theme based on supplied colors. Defaults to ## colors from RColorBrewer custom.theme <- function(symbol = brewer.pal(n = 8, name = "Dark2"), fill = brewer.pal(n = 12, name = "Set3"), region = brewer.pal(n = 11, name = "Spectral"), reference = "#e8e8e8", bg = "transparent", fg = "black", ...) { theme <- list(plot.polygon = list(col = fill[1], border = fg[1]), box.rectangle = list(col= symbol[1]), box.umbrella = list(col= symbol[1]), dot.line = list(col = reference), dot.symbol = list(col = symbol[1]), plot.line = list(col = symbol[1]), plot.symbol = list(col= symbol[1]), regions = list(col = colorRampPalette(region)(100)), reference.line = list(col = reference), superpose.line = list(col = symbol), superpose.symbol = list(col = symbol), superpose.polygon = list(col = fill, border = fg), background = list(col = bg), add.line = list(col = fg), add.text = list(col = fg), box.dot = list(col = fg), axis.line = list(col = fg), axis.text = list(col = fg), strip.border = list(col = fg), box.3d = list(col = fg), par.xlab.text = list(col = fg), par.ylab.text = list(col = fg), par.zlab.text = list(col = fg), par.main.text = list(col = fg), par.sub.text = list(col = fg)) modifyList(modifyList(standard.theme("pdf"), theme), simpleTheme(...)) } custom.theme.2 <- function(...) { doit <- function(symbol = brewer.pal(n = 9, name = "Set1")[c(2:1, 3:5, 7:9)], ## blue first fill = brewer.pal(n = 8, name = "Accent"), region = brewer.pal(n = 11, name = "RdBu"), ...) { custom.theme(symbol = symbol, fill = fill, region = region, ...) } doit(...) } latticeExtra/R/ggplot2like.theme.R0000644000175100001440000000501212126504016016564 0ustar hornikusers ## based on some of the default themes and scales used in ggplot2 by Hadley Wickham. ggplot2like.opts <- function() { list(default.args = list(axis = axis.grid, xscale.components = xscale.components.subticks, yscale.components = yscale.components.subticks, between = list(x = 0.4, y = 0.4)) ) } ggplot2like <- function(..., n = 6, h = c(0,360) + 15, l = 65, c = 100, h.start = 0, direction = 1, low = "#3B4FB8", high = "#B71B1A", space = "rgb") { ## copied from ggplot2::scale_colour_hue rotate <- function(x) (x + h.start) %% 360 * direction if ((diff(h) %% 360) < 1) { h[2] <- h[2] - 360 / n } colseq <- hcl(h = rotate(seq(h[1], h[2], length = n)), c = c, l = l) ## copied from ggplot2::scale_colour_gradient ramp <- colorRampPalette(c(low, high), space = space, interpolate = "linear")(100) theme <- custom.theme(symbol = colseq, fill = colseq, region = ramp) ## based on ggplot2::theme_gray theme <- modifyList(theme, list(axis.line = list(col = "transparent"), axis.text = list(cex = 0.8, lineheight = 0.9, col = "grey50"), panel.background = list(col = "grey90"), reference.line = list(col = "white"), strip.background = list(col = c("grey80", "grey70", "grey60")), strip.shingle = list(col = c("grey60", "grey50", "grey40")), strip.border = list(col = "transparent"), add.text = list(cex = 0.8)) ) ## misc theme <- modifyList(theme, list(plot.symbol = list(col = "black", pch = 19, cex = 0.6), superpose.symbol = list(pch = 19, cex = 0.6), plot.line = list(col = "black"), plot.polygon = list(col = "grey20", border = "transparent"), superpose.polygon = list(border = "transparent"), box.dot = list(col = "grey20", pch = "|"), box.rectangle = list(fill = "white", col = "grey20"), box.umbrella = list(col = "grey20", lty = 1), dot.line = list(col = "white"), dot.symbol = list(col = "black", pch = 19)) ) ## custom over-rides modifyList(theme, simpleTheme(...)) } latticeExtra/R/rootogram.R0000644000175100001440000000571112641424151015262 0ustar hornikusers prepanel.rootogram <- function(x, y = table(x), dfun = NULL, transformation = sqrt, hang = TRUE, probability = TRUE, ...) { stopifnot(is.function(dfun)) if (probability) y <- y / sum(y) yy <- transformation(y) xx <- sort(unique(x)) dotArgs <- list(...) dfunArgs <- names(formals(dfun)) if (!("..." %in% dfunArgs)) dotArgs <- dotArgs[dfunArgs[-1]] dd <- transformation(do.call(dfun, c(list(xx), dotArgs))) list(xlim = range(xx), ylim = if (hang) range(dd, dd-yy, 0) else range(dd, yy, 0), dx = diff(xx), dy = diff(dd)) } panel.rootogram <- function(x, y = table(x), dfun = NULL, col = plot.line$col, lty = plot.line$lty, lwd = plot.line$lwd, alpha = plot.line$alpha, transformation = sqrt, hang = TRUE, probability = TRUE, type = "l", pch = 16, ...) { plot.line <- trellis.par.get("plot.line") ref.line <- trellis.par.get("reference.line") stopifnot(is.function(dfun)) if (probability) y <- y / sum(y) yy <- transformation(y) xx <- sort(unique(x)) dotArgs <- list(...) dfunArgs <- names(formals(dfun)) if (!("..." %in% dfunArgs)) dotArgs <- dotArgs[dfunArgs[-1]] dd <- transformation(do.call(dfun, c(list(xx), dotArgs))) panel.abline(h = 0, col = ref.line$col, lty = ref.line$lty, lwd = ref.line$lwd, alpha = ref.line$alpha) panel.segments(xx, if (hang) dd else 0, xx, if (hang) (dd - yy) else yy, col = col, lty = lty, lwd = lwd, alpha = alpha, ...) if ("l" %in% type) panel.lines(xx, dd) if ("p" %in% type) panel.points(xx, dd, pch = pch) } rootogram <- function(x, ...) UseMethod("rootogram") rootogram.formula <- function(x, data = parent.frame(), ylab = expression(sqrt(P(X == x))), prepanel = prepanel.rootogram, panel = panel.rootogram, ..., probability = TRUE) { if (!probability && missing(ylab)) ylab <- NULL if (length(x) == 2) ## formula like ~ x foo <- densityplot(x, data, prepanel = prepanel, panel = panel, ylab = ylab, ..., probability = probability) else ## formula like y ~ x foo <- xyplot(x, data, prepanel = prepanel, panel = panel, ylab = ylab, ..., probability = probability) foo$call <- sys.call(sys.parent()); foo$call[[1]] <- quote(rootogram) foo } latticeExtra/R/panel.lmlineq.R0000644000175100001440000001266212126504016016010 0ustar hornikusers## ## Copyright (c) 2009 Felix Andrews ## GPL version 2 or newer panel.ablineq <- function(a = NULL, b = 0, h = NULL, v = NULL, reg = NULL, coef = NULL, pos = if (rotate) 1 else NULL, offset = 0.5, adj = NULL, at = 0.5, x = NULL, y = NULL, rotate = FALSE, srt = 0, label = NULL, varNames = alist(y = y, x = x), varStyle = "italic", fontfamily = "serif", digits = 3, r.squared = FALSE, sep = ", ", sep.end = "", col, col.text = add.text$col, col.line = add.line$col, ..., reference = FALSE) { if (!is.null(label)) varStyle <- NULL ## work out colours for text and line add.text <- trellis.par.get("add.text") add.line <- if (reference) trellis.par.get("reference.line") else trellis.par.get("add.line") if (!missing(col) && missing(col.line)) col.line <- col if (!missing(col) && missing(col.text)) col.text <- col ## draw the line panel.abline(a = a, b = b, h = h, v = v, reg = reg, coef = coef, col = col.line, ..., reference = reference) ## extract r.squared from model object if any if (!is.null(reg)) { a <- reg } if (isTRUE(r.squared)) { if (is.object(a) || is.list(a)) { r.squared <- round(summary(a)$r.squared, digits) } else { warning("r.squared = TRUE requires a model object") } } ## work out equation coefficients ## the following copied from lattice::panel.abline if (is.object(a) || is.list(a)) { p <- length(coefa <- as.vector(coef(a))) if (p > 2) warning("only using the first two of ", p, "regression coefficients") islm <- inherits(a, "lm") noInt <- if (islm) !as.logical(attr(stats::terms(a), "intercept")) else p == 1 if (noInt) { a <- 0 b <- coefa[1] } else { a <- coefa[1] b <- if (p >= 2) coefa[2] else 0 } } if (!is.null(coef)) { if (!is.null(a)) warning("'a' and 'b' are overridden by 'coef'") a <- coef[1] b <- coef[2] } if (length(h <- as.numeric(h)) > 0) { if (!is.null(a)) warning("'a' and 'b' are overridden by 'h'") a <- h[1] b <- 0 } if (length(a) > 1) { b <- a[2] a <- a[1] } ## construct the equation label if (length(as.numeric(v)) > 0) { ## vertical line (special case) if (!is.null(a)) warning("'a' and 'b' are overridden by 'v'") if (is.null(x)) x <- v[1] if (is.null(y)) y <- convertY(unit(at, "npc"), "native", TRUE) if (is.null(label)) { v <- signif(v[1], digits) varNames <- c(as.list(varNames), v = v) label <- substitute(x == v, varNames) } } else { ## normal a+bx line if (is.null(x)) { ## work out start and end x values of visible line xlim <- current.panel.limits()$xlim ylim <- current.panel.limits()$ylim if (b == 0) { xx <- xlim } else { xx <- range((ylim - a) / b) xx <- pmin(max(xlim), xx) xx <- pmax(min(xlim), xx) } ## x position as fractional distance along line x <- min(xx) + at * abs(diff(xx)) } if (is.null(y)) y <- a + b * x if (is.null(label)) { a <- round(a, digits) b <- round(b, digits) varNames <- c(as.list(varNames), a = a, b = b) if (b == 0) { label <- substitute(y == a, varNames) } else if (a == 0) { label <- substitute(y == b * x, varNames) } else if (b > 0) { label <- substitute(y == a + b * x, varNames) } else { varNames$b <- abs(b) label <- substitute(y == a - b * x, varNames) } } } if (rotate) { if (length(as.numeric(v)) > 0) { srt <- 90 } else { ## aspect ratio with respect to native coordinates asp <- with(lapply(current.panel.limits(), diff), ylim / xlim) ## aspect ratio of panel at *current* device size asp.cm <- with(lapply(current.panel.limits("cm"), diff), ylim / xlim) grad <- b * (asp.cm / asp) srt <- 180 * atan(grad) / pi } } if (is.numeric(r.squared)) { ## add R^2 = ... to label rsq.expr <- substitute(italic(R)^2 == z, list(z = r.squared)) label <- call("paste", label, sep, rsq.expr, sep.end) } ## wrap 'varStyle' function (or multiple functions) around label expression if (!is.null(varStyle)) { while (length(varStyle) > 0) { label <- call(varStyle[1], label) varStyle <- varStyle[-1] } } panel.text(x = x, y = y, labels = label, pos = pos, offset = offset, adj = adj, fontfamily = fontfamily, srt = srt, col = col.text, ...) } panel.lmlineq <- function(x, y, ...) { if (length(x) > 1) panel.ablineq(lm(as.numeric(y) ~ as.numeric(x)), ...) } latticeExtra/R/panel.key.R0000644000175100001440000000071612126504016015134 0ustar hornikusers ## extracted and simplified from lattice:::plot.trellis panel.key <- function(text, ..., corner = c(0, 1), x = corner[1], y = corner[2]) { key <- simpleKey(text, ...) key.gf <- draw.key(key, draw = FALSE) vp <- viewport(x = unit(x, "npc") + unit(0.5 - corner[1], "grobwidth", list(key.gf)), y = unit(y, "npc") + unit(0.5 - corner[2], "grobheight", list(key.gf))) pushViewport(vp) grid.draw(key.gf) upViewport() } latticeExtra/R/dendrogramGrob.R0000644000175100001440000001630412641423614016210 0ustar hornikusers ## FIXME: want a convenience function that behaves like heatmap() ## Goal: create a grob that could usefully represent a dendrogram ## can a dendrogram node have more than 2 children? ## long term FIXME: use better graph layout algorithms? ## returns a modified dendrogram object, with an extra attribute ## 'position=c(x, y)' for each node ## FIXME: should have and honor 'center=FALSE' argument addPositions <- function(x, order) { if (!is.null(attr(x, "position"))) return(x) else if (is.leaf(x)) { attr(x, "position") <- list(x = which(x == order)[1], y = attr(x, "height")) return(x) } else { for (i in seq_along(x)) { x[[i]] <- addPositions(x[[i]], order) } attr(x, "position") <- list(x = mean(sapply(x, function(x) attr(x, "position")$x )), y = attr(x, "height")) return(x) } } ## returns a vector data.frame(x0, y0, x1, y1, ...), to be used in a ## call to segmentsGrob after being combined. The possibility of ## attaching parameters exists, but is not (or barely) tested edgeLocation <- function(pos.node, pos.child, type, ...) { switch(type, rectangle = { data.frame(x0 = c(pos.node$x, pos.child$x), y0 = c(pos.node$y, pos.node$y), x1 = c(pos.child$x, pos.child$x), y1 = c(pos.node$y, pos.child$y), ..., stringsAsFactors = FALSE) ## 'col' can be strings }, triangle = { data.frame(x0 = pos.node$x, y0 = pos.node$y, x1 = pos.child$x, y1 = pos.child$y, ..., stringsAsFactors = FALSE) ## 'col' can be strings }) } dendrogramGrob <- function(x, ord = order.dendrogram(x), side = c("right", "top"), add = list(), size = 5, size.add = 1, type = c("rectangle", "triangle"), ...) { ## Note: We use dendrapply() a couple of times. The return value ## is unused (we are only interested in side-effects), but certain ## types of return values of FUN can make dendrapply() go into an ## infinite loop. To be safe, we return original node. if (size <= 0) return(textGrob(label = NULL)) type <- match.arg(type) native.height <- attr(x, "height") native.xscale <- c(1, length(ord)) + c(-1, 1) * lattice.getOption("axis.padding")$factor xpos <- addPositions(x, ord) ## version of x with positions ## how many non-leaf nodes are there? For a binary tree, n-1, ## where n is the number of leaves (join any 2 ==> nodes++, ## leaves--), but we're more tolerant nnodes <- 0 dendrapply(xpos, function(x) { if (!is.leaf(x)) nnodes <<- nnodes + 1 x }) xseg <- vector(mode = "list", length = nnodes) ## FIXME: add something similar to have nodes drawn as points i <- 0 getSegments <- function(x, ...) { if (!is.leaf(x)) { i <<- i + 1 pos.node <- attr(x, "position") xseg[[i]] <<- do.call(rbind, lapply(x, function(child) { pos.child <- attr(child, "position") edgeLocation(pos.node, pos.child, type = type, ...) })) } x } dendrapply(xpos, getSegments) all.segs <- do.call(rbind, xseg) ## number of additional indicators nadd <- length(add) ## nleaf <- length(ord) native.unit <- 1 / diff(native.xscale) # side of one square switch(side, right = { key.layout <- grid.layout(nrow = 1, ncol = 1 + nadd, heights = unit(1, "null"), widths = unit(c(rep(size.add, length = nadd), size), c(rep("lines", nadd), "lines")), respect = FALSE) key.gf <- frameGrob(layout = key.layout) ## key.gf <- placeGrob(key.gf, rectGrob(gp = gpar(fill = "pink"))) for (i in seq_len(nadd)) { addi <- add[[i]] typei <- names(add)[i] switch(typei, rect = { key.gf <- placeGrob(key.gf, rectGrob(y = (order(ord) - native.xscale[1]) * native.unit, height = native.unit, gp = do.call(gpar, addi)), row = 1, col = i) }) } key.gf <- placeGrob(key.gf, with(all.segs, segmentsGrob((y0 / native.height), (x0 - native.xscale[1]) * native.unit, (y1 / native.height), (x1 - native.xscale[1]) * native.unit)), row = 1, col = 1 + nadd) key.gf }, top = { key.layout <- grid.layout(nrow = 1 + nadd, ncol = 1, widths = unit(1, "null"), heights = unit(c(size, rep(size.add, length = nadd)), c("lines", rep("lines", nadd))), respect = FALSE) key.gf <- frameGrob(layout = key.layout) ## key.gf <- placeGrob(key.gf, rectGrob(gp = gpar(fill = "pink"))) for (i in seq_len(nadd)) { addi <- add[[i]] typei <- names(add)[i] switch(typei, rect = { key.gf <- placeGrob(key.gf, rectGrob(x = (order(ord) - native.xscale[1]) * native.unit, width = native.unit, gp = do.call(gpar, addi)), row = 1 + i, col = 1) }) } key.gf <- placeGrob(key.gf, with(all.segs, segmentsGrob((x0 - native.xscale[1]) * native.unit, (y0 / native.height), (x1 - native.xscale[1]) * native.unit, (y1 / native.height))), row = 1, col = 1) key.gf }) } latticeExtra/R/axis.grid.R0000644000175100001440000000376412126504016015144 0ustar hornikusers axis.grid <- function(side = c("top", "bottom", "left", "right"), ..., ticks = c("default", "yes", "no"), scales, components, line.col) { side <- match.arg(side) ticks <- match.arg(ticks) scales.tck <- switch(side, left = , bottom = scales$tck[1], right = , top = scales$tck[2]) ## only draw major ticks (those corresponding to labels) comps.major <- components mycomps <- components[[side]] if (is.list(mycomps)) { lab <- as.character(mycomps$labels$labels) if (any(lab != "")) { tck <- mycomps$ticks$tck if (any(tck * scales.tck != 0)) { tck <- rep(tck, length = length(lab)) comps.major[[side]]$ticks$tck <- ifelse(lab == "", NA, tck) } } } else { ticks <- "no" } ## use axis.text for ticks because axis.line$col might be transparent axis.text <- trellis.par.get("axis.text") axis.default(side, scales = scales, ticks = ticks, components = comps.major, ..., line.col = axis.text$col) ## now draw grid lines corresponding to axis ticks. ## can only do this with the bottom and right sides; ## otherwise the strip viewports are current, not panel. if (side %in% c("top", "left")) return() if (scales$draw == FALSE) return() ref.line <- trellis.par.get("reference.line") if (side == "bottom") { tck <- abs(mycomps$ticks$tck) panel.refline(v = mycomps$ticks$at, lwd = ref.line$lwd * tck, alpha = ref.line$alpha * tck / max(tck, na.rm = TRUE)) } if (side == "right") { if (!is.list(mycomps)) mycomps <- components[["left"]] tck <- abs(mycomps$ticks$tck) panel.refline(h = mycomps$ticks$at, lwd = ref.line$lwd * tck, alpha = ref.line$alpha * tck / max(tck, na.rm = TRUE)) } } latticeExtra/R/panel.smoother.R0000644000175100001440000000367412641424122016213 0ustar hornikusers ## based on the stat_smooth() function in ggplot2 package. panel.smoother <- function(x, y, form = y ~ x, method = "loess", ..., se = TRUE, level = 0.95, n = 100, col = plot.line$col, col.se = col, lty = plot.line$lty, lwd = plot.line$lwd, alpha = plot.line$alpha, alpha.se = 0.25, border = NA, ## ignored (do not pass to method()): subscripts, group.number, group.value, type, col.line, col.symbol, fill, pch, cex, font, fontface, fontfamily) { plot.line <- trellis.par.get("plot.line") if (!missing(col.line)) col <- col.line ## allow 'form' to be passed as the first argument missing.x <- missing(x) if (!missing.x && inherits(x, "formula")) { form <- x missing.x <- TRUE } ## use 'x' and 'y' if given ## otherwise try to find them in the formula environment if (missing.x) x <- environment(form)$x if (missing(y)) y <- environment(form)$y ok <- is.finite(x) & is.finite(y) if (sum(ok) < 1) return() x <- as.numeric(x)[ok] y <- as.numeric(y)[ok] mod <- do.call(method, c(alist(form, data = list(x = x, y = y)), list(...))) ## use the limits of the data, or panel limits, whichever is smaller lims <- current.panel.limits() xrange <- c(max(min(lims$x), min(x)), min(max(lims$x), max(x))) xseq <- seq(xrange[1], xrange[2], length = n) pred <- predict(mod, data.frame(x = xseq), se = se) if (se) { std <- qnorm(level/2 + 0.5) panel.polygon(x = c(xseq, rev(xseq)), y = c(pred$fit - std * pred$se, rev(pred$fit + std * pred$se)), col = col.se, alpha = alpha.se, border = border) pred <- pred$fit } panel.lines(xseq, pred, col = col, alpha = alpha, lty = lty, lwd = lwd) } latticeExtra/R/theeconomist.R0000644000175100001440000001553312126504016015752 0ustar hornikusers## Implementation Copyright (c) 2009 Felix Andrews ## based on plot style used in The Economist magazine. theEconomist.theme <- function(win.fontfamily = NULL, #"Gill Sans MT" with.bg = FALSE, box = "black", ...) { theme <- list( background = list(col = if (with.bg) "#D5E2E9" else "transparent"), plot.line = list(col = "#00526D", lwd = 2.5), superpose.line = list(col = c("#00526D", "#00A3DB", "#7A2713", "#939598", "#6CCFF6"), lwd = 2.5), plot.symbol = list(col = "#00526D", pch = 16), superpose.symbol = list(col = c("#00526D", "#00A3DB", "#7A2713", "#939598", "#6CCFF6"), pch = 16), plot.polygon = list(col = "#00526D"), superpose.polygon = list(col = c("#5F92A8", "#00526D", "#6CCFF6", "#00A3DB", "#A7A9AC")), regions = list(col = colorRampPalette(brewer.pal(9, "Blues"))(100)), reference.line = list(col = if (with.bg) "white" else "#aaaaaa", lwd = 1.75), dot.line = list(col = if (with.bg) "white" else "#aaaaaa", lwd = 1.75), add.line = list(col = "#ED1C24", lwd = 1.5), axis.line = list(col = box), box.3d = list(col = box), strip.border = list(col = box), strip.background = list(col = if (with.bg) "white" else "#CBDDE6"), strip.shingle = list(col = if (with.bg) "#CBDDE6" else "#00A3DB", alpha = 0.5), par.main.text = list(font = 1, just = "left", x = grid::unit(5, "mm")), par.sub.text = list(font = 1, just = "left", x = grid::unit(5, "mm")), axis.text = list(cex = 0.8), box.dot = list(col = "#00526D", pch = "|", lwd = 1.75), box.rectangle = list(fill = "#00526D", alpha = 0.5, col = "#00526D", lwd = 1.75), box.umbrella = list(col = "#00526D", lty = 1, lwd = 1.75) ) if (.Platform$OS.type == "windows" && !is.null(win.fontfamily)) { windowsFonts(TheEconomistLike = win.fontfamily) theme$grid.pars$fontfamily <- "TheEconomistLike" } else { ## TODO: how do fonts work on linux etc? } modifyList(modifyList(standard.theme("pdf"), theme), simpleTheme(...)) } theEconomist.opts <- function() { list(default.args = list(axis = theEconomist.axis, xscale.components = xscale.components.subticks, between = list(x = 0.8, y = 0.8)), axis.padding = list(numeric = 0, factor = 0.6), skip.boundary.labels = 0, layout.widths = list(axis.left = list(x = 0, units = "char"), axis.right = list(x = 6, units = "char")) ) } theEconomist.axis <- function(side = c("top", "bottom", "left", "right"), scales, components, ..., labels = c("default", "yes", "no"), ticks = c("default", "yes", "no"), line.col) { if (scales$draw == FALSE) return() side <- match.arg(side) labels <- match.arg(labels) ticks <- match.arg(ticks) if (side %in% c("bottom", "top")) { if (side == "top") ticks <- "no" if (scales$relation == "same") { scales$alternating <- 1 ## bottom side only } } if (side %in% c("left", "right")) { ticks <- "no" components[["left"]]$ticks$tck <- 0 if (scales$relation == "same") { scales$alternating <- 2 ## right side only } else { if (side == "right") { labels <- if (scales$draw) "yes" else "no" if (!is.list(components$right)) { components$right <- components$left } } if (side == "left") { ## check for two different axes on left and right if (!is.list(components$right)) { labels <- "no" } } } } ## use axis.text for ticks because axis.line$col might be transparent axis.text <- trellis.par.get("axis.text") axis.default(side, scales = scales, components = components, ..., labels = labels, ticks = ticks, line.col = axis.text$col) ## now draw grid lines corresponding to horizontal axis ticks. ## can only do this with the bottom and right sides; ## otherwise the strip viewports are current, not panel. if (side %in% c("top", "left")) return() if (side == "right") { comp.list <- components[["right"]] if (!is.list(comp.list)) comp.list <- components[["left"]] panel.refline(h = comp.list$ticks$at) ## draw axis line along bottom (assuming transparent axis.line) lims <- current.panel.limits() panel.abline(h = lims$y[1], col = axis.text$col) } } asTheEconomist <- function(x, ..., type = "l", ylab = expression(NULL), xlab = expression(NULL), par.settings = theEconomist.theme(with.bg = with.bg, box = "transparent"), with.bg = FALSE, par.strip.text = list(font = 2)) { ans <- x ## make nice left-aligned title title <- ans$main if (is.null(title)) title <- ans$ylab if (is.null(title)) title <- ans$ylab.default ans <- update(ans, main = title, type = type, ylab = ylab, xlab = xlab, par.settings = par.settings, par.strip.text = par.strip.text, between = list(x = 0.8, y = 0.8), scales = list(y = list(axs = "i", alternating = 2)), skip.boundary.labels = 0, lattice.options = list( layout.widths = list(axis.left = list(x = 0, units = "char"), axis.right = list(x = 6, units = "char")) ) ) ## these do not get through update() ans$axis <- theEconomist.axis ans$xscale.components <- xscale.components.subticks ans$call <- match.call() ans } genGillSans <- function() { ## generate AFM font metrics of GillSans - for ps/pdf ## TODO: is there a similar looking free/open font? oldwd <- getwd() on.exit(setwd(oldwd)) setwd(system.file("afm", package = "grDevices")) fnames <- c("GIL_____", "GILB____", "GILI____", "GILBI___") for (fn in fnames) { system(sprintf("ttf2afm -o %s.afm %s.TTF", fn, file.path(Sys.getenv("windir"), "Fonts", fn))) system(sprintf("gzip %s.afm", fn)) } TheEconomistLike <- Type1Font("TheEconomistLike", paste(fnames, ".afm", sep = "")) postscriptFonts(TheEconomistLike = TheEconomistLike) pdfFonts(TheEconomistLike = TheEconomistLike) ps.options(fonts = c("sans", "serif", "mono", "Times", "Helvetica", "Courier", "URWHelvetica", "TheEconomistLike")) pdf.options(fonts = ps.options()$fonts) ## TODO: problem: after this, plots generated by bitmap() use wrong font } latticeExtra/R/layer.R0000644000175100001440000002270412533003437014366 0ustar hornikusers## ## Copyright (c) 2008 Felix Andrews ## GPL version 2 or newer as.layer <- function(x, ...) UseMethod("as.layer") as.layer.layer <- function(x, ...) x layer <- function(..., data = NULL, magicdots = TRUE, exclude = NULL, packets = NULL, rows = NULL, columns = NULL, groups = NULL, style = NULL, force = FALSE, theme = if (force) trellis.par.get() else NULL, under = FALSE, superpose = FALSE) { ## set layer to quoted expressions in `...` foo <- eval(substitute(expression(...))) if (magicdots) { ## The dots `...` are magic: ## pass on only those arguments not named in each call foo <- as.expression(lapply(foo, magicDots, exclude = exclude)) } mostattributes(foo) <- list(data = data, under = under, packets = packets, rows = rows, columns = columns, groups = groups, superpose = superpose, style = style, theme = theme) lay <- list(foo) class(lay) <- c("layer", "trellis") lay } ## convert a call containing `...` to only pass on arguments ## not named in the call magicDots <- function(ocall, exclude = NULL, assume.xy = TRUE) { if (!is.call(ocall)) stop("arguments to layer() should be calls") ## call recursively with any calls inside this one for (i in seq_along(ocall)[-1]) { thisArg <- ocall[[i]] if (missing(thisArg)) ## eg x[,1] next if (is.call(thisArg)) { ## skip function definitions if (identical(thisArg[[1]], as.symbol("function"))) next ocall[[i]] <- Recall(thisArg, exclude = exclude, assume.xy = assume.xy) } } Args <- as.list(ocall)[-1] ## nothing to do if there are no dots in the call idots <- sapply(Args, identical, as.symbol("...")) if (!any(idots)) return(ocall) Args <- Args[!idots] ## nothing to do if there are only dots in the call (unless exclude) if ((length(Args) == 0) && (length(exclude) == 0)) return(ocall) ## assume first argument is 'x' if is un-named, and second 'y' if (assume.xy && (length(Args) > 0)) { if (is.null(names(Args))) names(Args) <- rep("", length = length(Args)) if (identical(names(Args)[1], "")) names(Args)[1] <- "x" if (identical(names(Args)[2], "")) names(Args)[2] <- "y" } if (length(exclude) == 0) { ## simple case mcall <- substitute(do.call(FUN, modifyList(list(...), Args)), list(FUN = ocall[[1]], Args = Args)) } else { ## exclude named arguments from dots mcall <- substitute(do.call(FUN, modifyList(list(...)[!(names(list(...)) %in% exclude)], Args)), list(FUN = ocall[[1]], Args = Args, exclude = exclude)) } mcall } layer_ <- function(...) { ccall <- match.call() ccall$under <- TRUE ccall[[1]] <- quote(layer) eval.parent(ccall) } glayer <- function(...) { ccall <- match.call() ccall$superpose <- TRUE ccall[[1]] <- quote(layer) eval.parent(ccall) } glayer_ <- function(...) { ccall <- match.call() ccall$superpose <- TRUE ccall$under <- TRUE ccall[[1]] <- quote(layer) eval.parent(ccall) } ## to avoid print.trellis print.layer <- function(x, ...) print.default(x, ...) ## to avoid [.trellis and to keep the class attribute "[.layer" <- function (x, i, ...) structure(unclass(x)[i], class = class(x)) "+.trellis" <- function(object, lay) { ocall <- sys.call(sys.parent()); ocall[[1]] <- quote(`+`) if (missing(object) || missing(lay)) stop("Only one argument supplied to binary operator + which requires two.") stopifnot(inherits(object, "trellis")) lay <- as.layer(lay) if (inherits(object, "layer")) { ## just concatenate lists return(structure(c(unclass(object), unclass(lay)), class = c("layer", "trellis"))) } panel <- if ("panel" %in% names(object$panel.args.common)) object$panel.args.common$panel else object$panel panel <- if (is.function(panel)) panel else if (is.character(panel)) { ## could be just get(panel), but for flattenPanel: ## do not expand original panel function eg panel.xyplot(...) tmp <- function(...) NA body(tmp) <- call(panel, quote(...)) environment(tmp) <- globalenv() tmp } else eval(panel) ## a flag to indicate this panel function has layers ## (used by flattenPanel and undoLayer) .is.a.layer <- TRUE newpanel <- function(...) { .UNDER <- unlist(lapply(lay, attr, "under")) ## underlaying items only drawLayer(lay[.UNDER], list(...)) ## original panel function: panel(...) ## overlaying items only drawLayer(lay[.UNDER == FALSE], list(...)) } if ("panel" %in% names(object$panel.args.common)) object$panel.args.common$panel <- newpanel else object$panel <- newpanel ## need this to allow further calls to update() to insert arguments: object$call <- call("update", ocall) object } drawLayer <- function(lay, panelArgs = trellis.panelArgs()) { lay <- as.layer(lay) .UNDER <- unlist(lapply(lay, attr, "under")) ## underlayers, in reverse order for (.ITEM in rev(lay[.UNDER])) drawLayerItem(.ITEM, panelArgs) ## overlayers for (.ITEM in lay[.UNDER == FALSE]) drawLayerItem(.ITEM, panelArgs) invisible() } drawLayerItem <- function(layer.item, panelArgs) { stopifnot(is.expression(layer.item)) ## check that any restrictions on packets/rows/columns are met matchesok <- function(spec, value) { if (is.null(spec)) return(TRUE) if (is.numeric(spec) && all(spec <= 0)) ## negative indexes exclude items return(value %in% -spec == FALSE) else return(value %in% spec) } matchesallok <- with(list(a = attributes(layer.item)), matchesok(a$packets, packet.number()) && matchesok(a$rows, current.row()) && matchesok(a$columns, current.column())) if (!matchesallok) return() ## set given theme for duration of this function if (!is.null(attr(layer.item, "theme"))) { .TRELLISPAR <- trellis.par.get() trellis.par.set(attr(layer.item, "theme")) on.exit(trellis.par.set(.TRELLISPAR)) } ## define a layer drawing function, which may be per group drawLayerItemPerGroup <- function(...) { ## Note: layer.item is found in this function's environment dots <- list(...) ## restrict to specified group numbers groupok <- (matchesok(attr(layer.item, "groups"), dots$group.number) || matchesok(attr(layer.item, "groups"), as.character(dots$group.value))) if (!groupok) return() if (!is.null(attr(layer.item, "style"))) { ## extract plot style attributes from given index into superpose.* .TRELLISPAR <- trellis.par.get() local({ i <- attr(layer.item, "style") line <- Rows(trellis.par.get("superpose.line"), i) symbol <- Rows(trellis.par.get("superpose.symbol"), i) polygon <- Rows(trellis.par.get("superpose.polygon"), i) trellis.par.set(plot.line = line, superpose.line = line, add.line = line, add.text = line, plot.symbol = symbol, superpose.symbol = symbol, plot.polygon = polygon, superpose.polygon = polygon, axis.text = line, axis.line = line ) }) on.exit(trellis.par.set(.TRELLISPAR)) } with(dots, eval(layer.item, attr(layer.item, "data"), environment())) } ## call panel.superpose for group layers if (isTRUE(attr(layer.item, "superpose"))) { do.call("panel.superpose", modifyList(panelArgs, list(panel.groups = drawLayerItemPerGroup))) } else { do.call("drawLayerItemPerGroup", panelArgs) } } flattenPanel <- function(object) { flattenFun <- function(fun) { env <- environment(fun) ## check if this panel function is simple or has layers if (is.null(env) || !exists(".is.a.layer", env, inherits = FALSE)) return(as.expression(body(fun))) ## merge: under layers, existing panel, over layers .UNDER <- sapply(env$lay, attr, "under") c(do.call("c", rev(env$lay[.UNDER])), flattenFun(env$panel), do.call("c", env$lay[.UNDER == FALSE])) } flat <- flattenFun(object$panel) ## wrap in braces, as in a function body as.call(c(quote(`{`), flat)) } ## not exported -- I do not think this is really useful undoLayer <- function(x) { stopifnot(is.function(x$panel)) env <- environment(x$panel) if (!exists(".is.a.layer", env, inherits=FALSE)) stop("does not look like a layer") update(x, panel=env$panel) } latticeExtra/R/timeseries.R0000644000175100001440000000322712126504016015417 0ustar hornikusers xyplot.stl <- function(x, data = NULL, outer = TRUE, layout = c(1, 4), strip = FALSE, strip.left = TRUE, as.table = TRUE, ylab = "", between = list(y = 0.5), panel = function(..., type) { if (packet.number() == 4) type <- "h" panel.xyplot(..., type = type) }, ...) { stopifnot(is.null(data)) mstrip <- missing(strip.left) sers <- x$time.series ## ncomp <- ncol(sers) data <- rowSums(sers) X <- cbind(data, sers) colnames(X) <- c("data", colnames(sers)) ans <- xyplot(X, outer = outer, layout = layout, strip = strip, strip.left = strip.left, as.table = as.table, ylab = ylab, between = between, panel = panel, ..., default.scales = list(x = list(axs = "i"), y = list(relation = "free", tick.number = 3, rot = 0))) if (mstrip) { mx <- min(rx <- abs(sapply(ans$y.limits, diff))) int <- cbind(-mx / rx, mx / rx) ans <- update(ans, strip.left = strip.custom(horizontal = FALSE, strip.names = FALSE, strip.levels = TRUE, shingle.intervals = int)) } ans$call <- sys.call(sys.parent()); ans$call[[1]] <- quote(xyplot) ans } latticeExtra/R/segplot.R0000644000175100001440000001241612126504016014723 0ustar hornikusers ## Want to plot intervals from start to end, color coded by decoded, ## and several in a panel according to source ## since there are colors involved and levelplot already ## has a colorkey, we'll use that prepanel.segplot <- function(x, y, z, subscripts, horizontal = TRUE, ...) { ans <- list(xlim = range(x[subscripts], y[subscripts], finite = TRUE), ylim = if (is.factor(z)) levels(z) else range(z[subscripts], finite = TRUE), yat = if (is.factor(z)) sort(unique(as.numeric(z[subscripts]))) else NULL) if (horizontal) ans else with(ans, list(xlim = ylim, ylim = xlim, xat = yat)) } ## prepanel.segplot <- ## function(x, y, z, subscripts, horizontal = TRUE, ...) ## { ## isnum.z <- is.numeric(z) ## ans <- ## list(xlim = range(x[subscripts], y[subscripts], finite = TRUE), ## ylim = if (isnum.z) range(z[subscripts], finite = TRUE) else levels(z), ## yat = if (isnum.z) NULL else sort(unique(as.numeric(z[subscripts])))) ## if (horizontal) ans ## else with(ans, list(xlim = ylim, ylim = xlim, xat = yat)) ## } panel.segplot <- function(x, y, z, level = NULL, subscripts, at, draw.bands = is.factor(z), col = if (draw.bands) plot.polygon$col else plot.line$col, alpha = if (draw.bands) plot.polygon$alpha else plot.line$alpha, lty = if (draw.bands) plot.polygon$lty else plot.line$lty, lwd = if (draw.bands) plot.polygon$lwd else plot.line$lwd, border = if (draw.bands) plot.polygon$border else "transparent", col.symbol = col, alpha.symbol = alpha, col.regions = regions$col, band.height = 0.6, horizontal = TRUE, ..., segments.fun = panel.segments, centers = NULL, pch = 16) { plot.line <- trellis.par.get("plot.line") plot.polygon <- trellis.par.get("plot.polygon") regions <- trellis.par.get("regions") x1 <- as.numeric(x[subscripts]) x2 <- as.numeric(y[subscripts]) z <- z[subscripts] if (!is.null(level)) { ## col is overridden level <- as.numeric(level[subscripts]) col <- level.colors(level, at, col.regions, colors = TRUE) } if (draw.bands) { if (horizontal) panel.rect(x = 0.5 * (x1 + x2), width = x2 - x1, y = as.numeric(z), height = band.height, border = border, col = col, alpha = alpha, lty = lty, lwd = lwd, ...) else panel.rect(y = 0.5 * (x1 + x2), height = x2 - x1, x = as.numeric(z), width = band.height, border = border, col = col, alpha = alpha, lty = lty, lwd = lwd, ...) } else { if (horizontal) segments.fun(x1, as.numeric(z), x2, as.numeric(z), col = col, alpha = alpha, lty = lty, lwd = lwd, ...) else segments.fun(as.numeric(z), x1, as.numeric(z), x2, col = col, alpha = alpha, lty = lty, lwd = lwd, ...) } if (!is.null(centers)) { if (horizontal) panel.points(x = as.numeric(centers[subscripts]), y = as.numeric(z), col = col.symbol, alpha = alpha.symbol, pch = pch, ...) else panel.points(y = as.numeric(centers[subscripts]), x = as.numeric(z), col = col.symbol, alpha = alpha.symbol, pch = pch, ...) } } segplot <- function(x, data, ...) UseMethod("segplot") segplot.formula <- function(x, data = parent.frame(), level = NULL, centers = NULL, prepanel = prepanel.segplot, panel = panel.segplot, xlab = NULL, ylab = NULL, horizontal = TRUE, ..., at, cuts = 30, colorkey = !is.null(level)) { level <- eval(substitute(level), data, parent.frame()) centers <- eval(substitute(centers), data, parent.frame()) if (!is.null(level)) { rng <- lattice:::extend.limits(range(as.numeric(level), finite = TRUE)) if (missing(at)) at <- do.breaks(rng, cuts + 1) } foo <- levelplot(x, data, level = level, centers = centers, ..., default.scales = if (horizontal) list(y = list(alternating = FALSE, tck = 0)) else list(x = list(alternating = FALSE, tck = 0)), xlab = xlab, ylab = ylab, at = at, colorkey = colorkey, horizontal = horizontal, prepanel = prepanel, panel = panel) foo$call <- sys.call(sys.parent()); foo$call[[1]] <- quote(segplot) foo } ## green.red <- function(n, gamma = 1, power = 1) ## { ## m <- ceiling(n/2) ## c(hsv(h = 0.33, s = seq(1, 0, length = m)^power, gamma = gamma), ## hsv(h = 1, s = seq(0, 1, length = m)^power, gamma = gamma)) ## } ## segplot(1:100 ~ rnorm(100) + runif(100), data = parent.frame()) latticeExtra/R/zzz.R0000644000175100001440000000205212126504016014076 0ustar hornikusers ### Copyright 2000-2004 Deepayan Sarkar , ### ### This file is part of the lattice library for R. It is made ### available under the terms of the GNU General Public License, ### version 2, or at your option, any later version, incorporated ### herein by reference. ### ### This program is distributed in the hope that it will be ### useful, but WITHOUT ANY WARRANTY; without even the implied ### warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ### PURPOSE. See the GNU General Public License for more ### details. ### ### You should have received a copy of the GNU General Public ### License along with this program; if not, write to the Free ### Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, ### MA 02111-1307, USA ## .noGenerics <- TRUE .noGenerics <- FALSE ## .First.lib can be used if the NAMESPACE file is missing. This is ## useful during development, thanks to C-c C-l in Emacs/ESS. It won't ## be used if NAMESPACE is present. ## .First.lib <- function(lib, pkg) ## { ## require(lattice) ## } latticeExtra/MD50000644000175100001440000001131012656365537013247 0ustar hornikusers5dfa7c40a069930b593a49706de07f47 *DESCRIPTION 1d0974050c27008a74a3bd1e7370acfe *NAMESPACE a9eff11ad8bdf71138bebaa0b5c2122b *R/axis.grid.R ab0a933706dc8c607d974fce5566fcb1 *R/c.trellis.R f8d834c954229744c9bef1e720cb0c74 *R/combineLimits.R d40a5f3ea561fa26d2b06059876a36aa *R/custom.theme.R 10a9605c4032e076c867bf5b2d212788 *R/data.frame.R af7e3116d54caa314936dabf31e491bf *R/dendrogramGrob.R 2589015634f275d7e5636742467e7dd2 *R/doubleYScale.R 0af903de5a6eca3460cfabadcc69d231 *R/ecdfplot.R 5e71766600b004e1ae7a399d937c67f1 *R/ggplot2like.theme.R 78400fb8e789853f238159be461da9d3 *R/horizonplot.R 04ca0c1b1ea02e1a153b5779993ed8e6 *R/layer.R 17b8260729726b9dd07221f8a63c2eec *R/mapplot.R cb965b37aa7203f2eacc6c51a525e5c5 *R/marginal.plot.R b03e6425e1de2782fea52b27f408da05 *R/mergeTrellisLegends.R 5535598b494cd77db18629459b7cd39d *R/panel.2dsmoother.R 023f94714c2acdb2d5eb5efe14b12b86 *R/panel.3dmisc.R c0a9e0c2e30aade6879e0e8f20dc5d06 *R/panel.ellipse.R a11af6cee36fd67edc15d600547152ec *R/panel.key.R 60b850bac4fa224e53575e669c75026e *R/panel.lmlineq.R 07f4141ef94cde0b112b210cc5022e4c *R/panel.qqmath.tails.R 1ef85228c47b6ec4e9bfdfc22199709e *R/panel.quantile.R 812fc93bfdbd0bc59dd78537aea498d4 *R/panel.scaleArrow.R b80622773dc8bd6282afb253c5de96a4 *R/panel.smoother.R ebe4054659ec356b8e1dcfc1a7643e75 *R/panel.tskernel.R 6bc485fed90b250858f40e90ac530bb7 *R/panel.xblocks.R 979d5d15bbb8844efacb2611eb450b65 *R/panel.xyarea.R 462c475ef5532795439920ec3c074927 *R/rootogram.R afbb9405eefd20f94227b82dfa0dd63c *R/scale.components.R c96f9f7f8fc9534f2a7eff49202754ae *R/segplot.R 50bddb1408241435a08503b807c39d6c *R/simpleSmoothTs.R 236f12515501af75b7c0d8b68556207b *R/theeconomist.R c6b90a7adafaf7a36b5abf0fa6b6e152 *R/tileplot.R 2adc922f9a51d3fe08b3dee3f756a1ff *R/timeseries.R d4cbed7e968b38c8764ddf23ee211225 *R/utilities.R 10b2c6bad9041c53504d7d1bfe382fca *R/zzz.R d64906540de6e6aa03f57f74adb81cce *data/EastAuClimate.txt.gz d88e8d91cc2a374537d2cb421a5d3f99 *data/SeatacWeather.rda 04547be056c7998954aacfc3749e2c23 *data/USAge.df.rda 41a322675eeadbb12cd9e285e330a172 *data/USAge.table.rda 1bd5032ed70529e3159d8ba99342c79b *data/USCancerRates.rda d50972a6d38a316f7377ea866585addc *data/ancestry.rda 301d6fcf5009c3c47c8807638a047627 *data/biocAccess.rda 5550eab4cee8d026a7bb189caf7dbb0f *data/datalist 1fb403fd23f131e6c64b254fa9c78ca7 *data/gvhd10.rda a6c41e919bda712e9112a7d5a797d9c2 *data/postdoc.rda 5390bd8539fee977fbbcdc252c98f162 *inst/NEWS 5a139d07613547a1b4df83c0cddda1f8 *inst/old.svnlog 38dec33aef49dce486c983197430f6f0 *inst/scripts/README.USAge 14c9313b11d35848268dee2fd306b83f *man/EastAuClimate.Rd 1ee99b4cffef68ecc8de1571d0dca4a8 *man/SeatacWeather.Rd de091f8d8791490b348a9ff3e9f53c9b *man/USAge.Rd 11bef918fccf2e7928bfa48959452308 *man/USCancerRates.Rd 120733d0554ecaae601b4537ecbbc888 *man/ancestry.Rd d1ebc9afec79d4906db9299927f988b9 *man/as.layer.Rd 8c41b620f7dc074fa1659bd2ef8855d2 *man/biocAccess.Rd b8c771ff1970bc957b8545d953ab9a73 *man/c.trellis.Rd 608f562b96777338ae2a5da402b69652 *man/combineLimits.Rd 407ef539997856ae4c5a3ca65807336d *man/custom.theme.Rd 1bae8f134b7318a54ac3dd8f39f09c9c *man/dendrogramGrob.Rd 45faf2180334872dc86a631a01237408 *man/doubleYScale.Rd 63da0ba5a57717b927f5de5d1b0ac85f *man/ecdfplot.Rd 785dc8185ca9d223faa6b64117162adb *man/ggplot2like.theme.Rd e0c0118c468169519ac2f8292d36a44f *man/gvhd10.Rd ad48caa153cda61e243ff02a54c2e4ba *man/horizonplot.Rd ba4775c3019b362edb2218ed9c62bc92 *man/layer.Rd 1ef2cc90b933918e54e24557b97fea8c *man/mapplot.Rd d623029e23f438c14945a62c25c43d83 *man/marginal.plot.Rd d77a17a40784c9309740f21783595404 *man/panel.2dsmoother.Rd bb5a3d8a939941ba176419a87fd1a842 *man/panel.3dmisc.Rd 2ee2100ee5a97f7c65d689c733158593 *man/panel.ellipse.Rd eaef288cdec8002ac6df95f689cdaa4d *man/panel.key.Rd 42c682f9e91829f597017d2b94ef18ab *man/panel.lmlineq.Rd 818eeca6e8b0176ae304e26cae2b0647 *man/panel.qqmath.tails.Rd 7a4601aea335973d184a551c2d148c14 *man/panel.quantile.Rd d651b28892a02a40872deedf5b5c7836 *man/panel.scaleArrow.Rd 29b3fa151219bcdf268865b4c0a4bbd8 *man/panel.segplot.Rd e3e068ab371f64fe785e8ffd5bc0b19b *man/panel.smoother.Rd c2e6266dc28df9705b1728e5da647209 *man/panel.tskernel.Rd 53d3fe9f0af0dba3e052e40dd70e44db *man/panel.voronoi.Rd 0eae975bcb44fe4aa57b4e8cd5a4faf5 *man/panel.xblocks.Rd b879872617a3f4c4bb2c1e43e48616c2 *man/panel.xyarea.Rd ee2d50ea725a90b01c629e55fef67d56 *man/postdoc.Rd da6cb2b7a3c207f7b4fc42bdb2e36704 *man/resizePanels.Rd a9bb300c77639ed5334b4002537bf9a7 *man/rootogram.Rd c94340a208fa116edb94fe29302619d0 *man/scale.components.Rd a63dcc3403d84ac749cae8a5bdc4ff49 *man/segplot.Rd 5477868f6f4ae02715a4b3e4d03bbaf3 *man/theEconomist.theme.Rd 34b7eb3fbf13ee43a7c11753962689d9 *man/tileplot.Rd b0f44a0d905734099cc6160326877d2c *man/useOuterStrips.Rd 4ea66854b1d353feef7306d7f2ac3a25 *man/xyplot.stl.Rd latticeExtra/DESCRIPTION0000644000175100001440000000153712656365537014457 0ustar hornikusersPackage: latticeExtra Version: 0.6-28 Date: 2016-01-09 Title: Extra Graphical Utilities Based on Lattice Author: Deepayan Sarkar , Felix Andrews Maintainer: Deepayan Sarkar Description: Building on the infrastructure provided by the lattice package, this package provides several new high-level functions and methods, as well as additional utilities such as panel and axis annotation functions. Depends: R (>= 2.10.0), lattice, RColorBrewer Imports: grid, stats, utils, grDevices Suggests: maps, mapproj, deldir, tripack, zoo, MASS, quantreg, mgcv URL: http://latticeextra.r-forge.r-project.org/ LazyLoad: yes LazyData: yes License: GPL (>= 2) NeedsCompilation: no Packaged: 2016-02-09 11:06:00 UTC; deepayan Repository: CRAN Date/Publication: 2016-02-09 14:36:31 latticeExtra/man/0000755000175100001440000000000012641202215013467 5ustar hornikuserslatticeExtra/man/panel.xyarea.Rd0000644000175100001440000000610712126504022016350 0ustar hornikusers\name{panel.xyarea} \alias{panel.xyarea} \alias{panel.xyarea.default} \alias{panel.xyarea.ts} \alias{panel.xyarea.zoo} \alias{panel.qqmath.xyarea} \title{ Plot series as filled polygons. } \description{ Plot series as filled polygons connected at given origin level (on y axis). } \usage{ panel.xyarea(x, ...) \method{panel.xyarea}{default}(x, y, groups = NULL, origin = NULL, horizontal = FALSE, col, col.line, border, lty, lwd, alpha, ..., fill, panel.groups = panel.xyarea) \method{panel.xyarea}{ts}(x, y = x, ...) \method{panel.xyarea}{zoo}(x, y = x, ...) panel.qqmath.xyarea(x, y = NULL, f.value = NULL, distribution = qnorm, qtype = 7, groups = NULL, ..., tails.n = 0) } \arguments{ \item{x, y}{ data vectors. } \item{groups}{ a factor defining groups. } \item{origin}{ level on y axis to connect the start and end of the series. If \code{NULL}, the polygon is filled to the bottom of the panel. It is flipped if \code{horizontal = TRUE}. } \item{horizontal}{ if this is set to \code{TRUE}, then the origin is a level on the x axis, rather than the default which is on the y axis. This is the opposite of what you might expect, but is for consistency with \code{panel.xyplot}. } \item{col, col.line, border, lty, lwd, alpha}{ graphical parameters taken from \code{trellis.par.get("plot.polygon")} or \code{trellis.par.get("superpose.polygon")} (when groups defined). \code{col.line} overrides \code{col}. } \item{\dots}{ further arguments passed on to \code{\link{panel.polygon}}. For \code{panel.qqmath.xyarea}, passed to \code{panel.xyarea}. } \item{fill}{ ignored; use \code{col} instead. } \item{panel.groups}{ used in \code{\link{panel.superpose}}. } \item{f.value, distribution, qtype, tails.n}{ as in \code{\link{panel.qqmath}}. } } \details{ none yet. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{panel.xyplot}}, \code{\link{panel.polygon}} } \examples{ xyplot(sunspot.year, panel = panel.xyarea, origin = 0, aspect = "xy", cut = list(n = 3, overlap = 0)) ## two series superposed: one filled, one as a line. xyplot(ts.union(data = sunspot.year, lag10 = lag(sunspot.year, 10)), aspect = "xy", cut = list(n = 3, overlap = 0), superpose = TRUE, panel = panel.superpose, panel.groups = function(..., group.number) { if (group.number == 1) panel.xyarea(...) else panel.xyplot(...) }, border = NA, par.settings = simpleTheme(col = c("grey", "black"), lwd = c(5,2))) ## missing values are handled by splitting the series tmp <- window(sunspot.year, start = 1900) tmp[c(1:2, 50:60)] <- NA xyplot(tmp, panel = panel.xyarea, origin = 0) set.seed(0) qqmath(~ data, make.groups(baseline = rnorm(100), other = rnorm(100) * 2 - 0.5), groups = which, distribution = qunif, panel = panel.qqmath.xyarea, xlim = 0:1, auto.key = list(points = FALSE, rectangles = TRUE), par.settings = simpleTheme(col = c("blue", "green"), alpha = 0.5)) } \keyword{ dplot } latticeExtra/man/ecdfplot.Rd0000644000175100001440000000566512126504022015571 0ustar hornikusers\name{ecdfplot} \alias{ecdfplot} \alias{ecdfplot.formula} \alias{ecdfplot.numeric} \alias{panel.ecdfplot} \alias{prepanel.ecdfplot} \title{Trellis Displays of Empirical CDF} \description{ Conditional displays of Empirical Cumulative Distribution Functions } \usage{ ecdfplot(x, data, \dots) \method{ecdfplot}{formula}(x, data, prepanel = "prepanel.ecdfplot", panel = "panel.ecdfplot", ylab, \dots) \method{ecdfplot}{numeric}(x, data = NULL, xlab, \dots) prepanel.ecdfplot(x, f.value = NULL, \dots) panel.ecdfplot(x, f.value = NULL, type = "s", groups = NULL, qtype = 7, ref = TRUE, \dots) } \arguments{ \item{x}{ For \code{ecdfplot}, \code{x} is the object on which method dispatch is carried out. For the \code{"formula"} method, \code{x} is a formula describing the form of conditioning plot, and has to be of the form \code{~x}, where \code{x} is assumed to be a numeric vector. Further conditioning variables are allowed as usual. A similar interpretation holds for \code{x} in the \code{"numeric"} method as well as \code{prepanel.ecdfplot} and \code{panel.ecdfplot}. } \item{data}{ For the \code{"formula"} method, a data frame containing values for any variables in the formula, as well as those in \code{groups} and \code{subset} if applicable. } \item{prepanel, panel}{ panel and prepanel function used to create the display. } \item{xlab, ylab}{ axis labels; typically a character string or an expression. } \item{groups}{ a grouing variable of the same length as \code{x}. If specified, ECDF plots are computed for each subset defined by unique values of \code{groups} and the resulting functions superposed within each panel. } \item{f.value, qtype}{ Defines how quantiles are calculated. See \code{\link{panel.qqmath}}. } \item{ref}{ logical, whether a reference line should be drawn at 0 and 1} \item{type}{ how the plot is rendered; see \code{\link{panel.xyplot}} } \item{\dots}{ extra arguments, passed on as appropriate. Standard lattice arguments as well as arguments to \code{panel.ecdfplot} can be supplied directly in the high level \code{ecdfplot} call. } } \value{ \code{ecdfplot} produces an object of class \code{"trellis"}. The \code{update} method can be used to update components of the object and the \code{print} method (usually called by default) will plot it on an appropriate plotting device. } \author{ Deepayan Sarkar \email{deepayan.sarkar@r-project.org}} \seealso{ \code{\link{qqmath}} for Quantile plots which are more generally useful, especially when comparing with a theoretical distribution other than uniform. An ECDF plot is essentially a transposed version (i.e., with axes switched) of a uniform quantile plot. } \examples{ data(singer, package = "lattice") ecdfplot(~height | voice.part, data = singer) } \keyword{dplot} latticeExtra/man/combineLimits.Rd0000644000175100001440000000667612126504022016572 0ustar hornikusers\name{combineLimits} \alias{combineLimits} \title{Combine axis limits across margins} \description{ Modifies a \code{"trellis"} object with \code{"free"} scales so that panel limits are extended to be the same across selected conditioning variables (typically rows and columns). } \usage{ combineLimits(x, margin.x = 2L, margin.y = 1L, extend = TRUE, adjust.labels = TRUE) } \arguments{ \item{x}{ An object of class \code{"trellis"}. } \item{margin.x}{ Integer vector specifying which conditioning variables to combine the x-axis limits over. Defaults to the second conditioning variable (rows in the default layout); that is, the limit of each packet is extended to include the limits of all other packets obtained by varying the level of the second conditioning variable (row). More than one variable can be specified; for example, \code{margin.x = c(1, 2)} would ensure that limits are extended to include all levels in both the first and second conditioning variables. In case there is a third conditioning variable, this would have the effect of per-page x-axis limits with the default layout. } \item{margin.y}{ Integer vector specifying which conditioning variables to combine the x-axis limits over. Similar to \code{margin.x}, but defaults to the first conditioning variable (columns in the default layout). } \item{extend}{ Logical flag indicating whether the limits should be extended after being combined. Usually a good idea. } \item{adjust.labels}{ Logical flag indicating whether labels should be removed from all but the boundaries. This may give misleading plots with non-default layouts. } } \details{ \code{combineLimits} is useful mainly for plots with two conditioning variables with the default layout (columns and rows correspond to the first and second conditioning variables), when per-row and per-column limits are desired. The lattice approach does not tie levels of the conditioning variables to the plot layout, so it is possible that all panels in a row (or column) do not represent the same level. It should be noted that \code{combineLimits} actually combines limits across levels, and not across rows and columns. Results are likely to be misleading unless the default layout is used. } \note{ Does not work for all \code{"trellis"} objects. In particular, log-scales do not yet work. Fancy layouts with \code{skip}-ped panels and unusual packet-to-panel mappings will probably also not work. } \value{ An object of class \code{"trellis"}; essentially the same as \code{x}, but with certain properties modified. } \author{ Deepayan Sarkar } \seealso{ \code{\link{Lattice}}, \code{\link{xyplot}} } \examples{ data(Cars93, package = "MASS") ## FIXME: log scales don't yet work pcars <- xyplot(Price ~ EngineSize | reorder(AirBags, Price) + Cylinders, data = Cars93, subset = Cylinders != "rotary" & Cylinders != "5", scales = list(relation = "free", y = list(log = FALSE, tick.number = 3, rot = 0)), xlab = "Engine Size (litres)", ylab = "Average Price (1000 USD)", as.table = TRUE) combineLimits(pcars) useOuterStrips(combineLimits(update(pcars, grid = TRUE), margin.x = c(1, 2), adjust.labels = FALSE)) useOuterStrips(combineLimits(update(pcars, grid = TRUE))) } \keyword{dplot} latticeExtra/man/panel.smoother.Rd0000644000175100001440000000574012126504022016721 0ustar hornikusers\name{panel.smoother} \alias{panel.smoother} \title{ Plot a smoothing line with standard error bounds. } \description{ Plot a smoothing line with standard error bounds. This is based on the \code{\link[ggplot2]{stat_smooth}} function from \pkg{ggplot2}. } \usage{ panel.smoother(x, y, form = y ~ x, method = "loess", ..., se = TRUE, level = 0.95, n = 100, col = plot.line$col, col.se = col, lty = plot.line$lty, lwd = plot.line$lwd, alpha = plot.line$alpha, alpha.se = 0.25, border = NA, ## ignored: ## subscripts, group.number, group.value, type, col.line, col.symbol, fill, pch, cex, font, fontface, fontfamily) } \arguments{ \item{x, y}{ data points. If these are missing, they will be looked for in the environment of \code{form}. So in many cases you can skip these if passing \code{form}. In fact, for convenience, the formula can be passed as the first argument (i.e. \code{x}). } \item{form, method}{ the smoothing model is constructed (approximately) as \code{method(form, data = list(x=x, y=y), ...)}. See the Examples section for common choices. } \item{\dots}{ further arguments passed on to the model function (\code{method}). } \item{se, level}{ estimate standard errors on the smoother, at the given \code{level}, and plot these as a band. } \item{n}{ number of equi-spaced points on which to evaluate the smooth function. } \item{col, col.se, lty, lwd, alpha, alpha.se, border}{ graphical parameters. \code{col} and \code{alpha} apply to the smoothing line, while \code{col.se} and \code{alpha.se} apply to the shaded \code{se} region. } \item{subscripts, group.number, group.value, type, col.line, col.symbol, fill, pch, cex, font, fontface, fontfamily}{ ignored. } } \details{ This should work with any model function that takes a formula argument, and has a \code{predict} method with a \code{se} argument. } \author{ Felix Andrews \email{felix@nfrac.org} Based on \code{\link[ggplot2]{stat_smooth}} by Hadley Wickham. } \seealso{ \code{\link{panel.loess}}, \code{\link{panel.quantile}}, \code{\link[ggplot2]{stat_smooth}} } \examples{ set.seed(1) xy <- data.frame(x = runif(100), y = rt(100, df = 5), y2 = rt(100, df = 5) + 1) xyplot(y ~ x, xy, panel = function(...) { panel.xyplot(...) panel.smoother(..., span = 0.9) }) ## per-group layers with glayer (pass `...` to get styles) xyplot(y + y2 ~ x, xy) + glayer(panel.smoother(...)) ## natural spline with 5 degrees of freedom if (require("splines")) xyplot(y ~ x, xy) + layer(panel.smoother(y ~ ns(x,5), method = "lm")) ## thin plate regression spline with smoothness ## chosen by cross validation (see ?mgcv::gam) if (require("mgcv")) xyplot(y ~ x, xy) + layer(panel.smoother(y ~ s(x), method = "gam")) ## simple linear regression with standard errors: xyplot(y ~ x, xy) + layer(panel.smoother(x, y, method = "lm"), style = 2) } \keyword{ dplot } latticeExtra/man/xyplot.stl.Rd0000644000175100001440000000422412126504022016117 0ustar hornikusers\name{xyplot.stl} \alias{xyplot.stl} \title{ Display stl fits with Lattice } \description{ Display \code{\link{stl}} decomposition (seasonal, trend and irregular components using loess) with Lattice, like the base graphics function \code{\link{plot.stl}}. } \usage{ \method{xyplot}{stl}(x, data = NULL, outer = TRUE, layout = c(1, 4), strip = FALSE, strip.left = TRUE, as.table = TRUE, ylab = "", between = list(y = 0.5), panel = function(..., type) { if (packet.number() == 4) type <- "h" panel.xyplot(..., type = type) }, ...) } \arguments{ \item{x}{ an \code{\link{stl}} object. } \item{data}{ ignored. } \item{outer, layout, strip, strip.left}{ passed to \code{\link{xyplot.ts}}. } \item{as.table, ylab, between, panel, ...}{ passed to \code{\link{xyplot.ts}}. } } \details{ Unless \code{strip.left} is passed in explicitly, a custom strip will be drawn, where shaded bars are comparable across panels (representing the same data range). } \value{ An object of class \code{"trellis"}. The \code{\link[=update.trellis]{update}} method can be used to update components of the object and the \code{\link[=print.trellis]{print}} method (usually called by default) will plot it on an appropriate plotting device. } % \references{ ~put references to the literature/web site here ~ } \author{ Deepayan Sarkar \email{deepayan.sarkar@r-project.org} } \seealso{ \code{\link{stl}}, \code{\link{xyplot.ts}}, \code{\link{xyplot}} } \examples{ ## example from ?stl xyplot(stl(log(co2), s.window=21), main = "STL decomposition of CO2 data") ## alternative display data(biocAccess) xyplot(stl(ts(biocAccess$counts[1:(24 * 30)], frequency = 24), "periodic"), strip.left = "strip.default") resizePanels() ## two different spans xyplot(stl(nottem, s.window = 4)) + as.layer(xyplot(stl(nottem, s.window = "periodic")), style = 2) ## components superposed xyplot(stl(nottem, s.window = 4), superpose=TRUE, screens = list(data = "trend", trend = "trend", "residuals"), strip.left = TRUE, layout = c(1,2)) } \keyword{hplot} \keyword{ts}latticeExtra/man/panel.key.Rd0000644000175100001440000000177312126504022015653 0ustar hornikusers\name{panel.key} \alias{panel.key} \title{ Draw a simple key inside a panel of a lattice plot. } \description{ Draw a \code{\link{simpleKey}} inside a panel of a lattice plot. } \usage{ panel.key(text, ..., corner = c(0, 1), x = corner[1], y = corner[2]) } \arguments{ \item{text, \dots}{ entries in the \code{\link{simpleKey}}. } \item{corner, x, y}{ defines the position of the key within the panel viewport. These are given in normalised coordinates between 0 and 1. The two elements of \code{corner} specify the x and y positions respectively. } } \seealso{ \code{\link{simpleKey}}, \code{\link{draw.key}}, \code{\link{xyplot}} } \examples{ xyplot(ozone ~ wind | equal.count(temperature, 2), data = environmental) + layer(panel.loess(x, y, span = 0.5), style = 1) + layer(panel.loess(x, y, span = 1.0), style = 2) + layer(panel.key(c("span = 0.5", "span = 1.0"), corner = c(1,.98), lines = TRUE, points = FALSE), packets = 1) } \keyword{ aplot } latticeExtra/man/as.layer.Rd0000644000175100001440000000671612126504022015505 0ustar hornikusers\name{as.layer} \alias{as.layer} \alias{as.layer.layer} \alias{as.layer.trellis} \title{ Overlay panels of Trellis plots on same or different scales } \description{ Allows overlaying of Trellis plots, drawn on the same scales or on different scales in each of the x and y dimensions. There are options for custom axes and graphical styles. } \usage{ as.layer(x, ...) \S3method{as.layer}{trellis}(x, x.same = TRUE, y.same = TRUE, axes = c(if (!x.same) "x", if (!y.same) "y"), opposite = TRUE, outside = FALSE, theme = x$par.settings, ...) } \arguments{ \item{x}{ a trellis object. } \item{x.same}{ retains the existing panel x scale for the new layer, rather than using the layer's native x scale. } \item{y.same}{ retains the existing panel y scale. } \item{axes}{ which of the axes to draw (\code{NULL} for neither). Axes might not be drawn anyway, such as if \code{scales$draw == FALSE}. } \item{opposite}{ whether to draw axes on the opposite side to normal: that is, the top and/or right sides rather than bottom and/or left. May be a vector of length 2 to specify for x and y axes separately. } \item{outside}{ whether to draw the axes outside the plot region. Note that space for outside axes will not be allocated automatically. May be a vector of length 2 to specify for x and y axes separately. } \item{theme}{ passed to \code{\link{layer}}. } \item{\dots}{ passed to \code{\link{layer}}: typically the \code{style} argument would be specified. } } \details{ Panels from the trellis object \code{x} will be drawn in the corresponding panel of another trellis object, so packet numbers match (see examples). Axis setting are taken from the trellis object \code{x}, so most \code{scales} arguments such as \code{draw}, \code{at}, \code{labels} etc will carry over to the overlaid axes. Only the main axis settings are used (i.e. left or bottom), even when \code{opposite = TRUE}. Currently, outside top axes will be drawn in the strip if there are strips. } \value{ an updated trellis object. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{doubleYScale}}, \code{\link{layer}}, \code{\link{panel.axis}} } \examples{ b1 <- barley b2 <- barley b2$yield <- b2$yield + 10 ## panels are matched up by packet number dotplot(variety ~ yield | site * year, b1) + as.layer(dotplot(variety ~ yield | site * year, b2, col = "red")) ## which gives the same result as: dotplot(variety ~ yield | site * year, data = b1, subscripts = TRUE) + layer(panel.dotplot(yield[subscripts], variety[subscripts], col = "red"), data = b2) ## example with all same scales (the default): xyplot(fdeaths ~ mdeaths) + as.layer(xyplot(fdeaths ~ mdeaths, col = 2, subset = ldeaths > 2000)) ## same x scales, different y scales: xyplot(fdeaths ~ mdeaths) + as.layer(bwplot(~ mdeaths, box.ratio = 0.2), y.same = FALSE) ## same y scales, different x scales: xyplot(fdeaths ~ mdeaths) + as.layer(bwplot(fdeaths ~ factor(mdeaths*0), box.ratio = 0.2), x.same = FALSE) ## as.layer() is called automatically if two plots are added: histogram(~ ldeaths, type = "density") + densityplot(~ ldeaths, lwd = 3) ## applying one panel layer to several panels of another object xyplot(Sepal.Length + Sepal.Width ~ Petal.Length + Petal.Width | Species, data = iris, scales = "free") + as.layer(levelplot(volcano), x.same = FALSE, y.same = FALSE, under = TRUE) } \keyword{ aplot } latticeExtra/man/c.trellis.Rd0000644000175100001440000001553712126504022015667 0ustar hornikusers\name{c.trellis} \alias{c.trellis} \alias{xyplot.list} \alias{mergedTrellisLegendGrob} \title{ Merge trellis objects, using same or different scales } \description{ Combine the panels of multiple trellis objects into one. } \usage{ \method{c}{trellis}(..., x.same = NA, y.same = NA, layout = NULL, merge.legends = FALSE, recursive = FALSE) xyplot.list(x, data = NULL, ..., FUN = xyplot, y.same = TRUE, x.same = NA, layout = NULL, merge.legends = FALSE) } \arguments{ \item{\dots}{ two or more trellis objects. If these are named arguments, the names will be used in the corresponding panel strips. } \item{x.same}{ if \code{TRUE}, set the x scale relation to \code{"same"} and recalculate panel limits using data from all panels. Otherwise, the x scales in each panel will be as they were in the original objects (so in general not the same), the default behaviour. } \item{y.same}{ as above, for y scales. Note that \code{xyplot.list} defaults to same y scales. Set to \code{NA} to leave them alone. } \item{layout}{ value for \code{layout} of the new plot; see \code{\link{xyplot}}. } \item{merge.legends}{ to keep keys or legends from all plots, not just the first. If multiple legends share the same \code{"space"}, they are packed together horizontally or vertically. } \item{recursive}{ for consistency with the generic method, ignored. } \item{x}{ a \code{list} of objects to plot individually, and then be combined into one final plot. } \item{FUN, data}{ a lattice plot function, to be called on each element of the list \code{x}, along with \code{data} and \code{...} } } \details{ This mechanism attempts to merge the panels from multiple trellis objects into one. The same effect could generally be achieved by either a custom panel function (where the display depends on \code{packet.number()}), or using \code{\link{print.trellis}} to display multiple trellis objects. However, in some cases it is more convenient to use \code{c()}. Furthermore, it can be useful to maintain the display as a standard lattice display, rather than a composite using \code{\link{print.trellis}}, to simplify further interaction. Many properties of the display, such as titles, axis settings and aspect ratio will be taken from the first object only. Note that combining panels from different types of plots does not really fit the trellis model. Some features of the plot may not work as expected. In particular, some work may be needed to show or hide scales on selected panels. An example is given below. Any trellis object with more than one conditioning variable will be "flattened" to one dimension, eliminating the multi-variate conditioning structure. } \value{ a new trellis object. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{marginal.plot}} was the original motivating application, \code{\link{print.trellis}}, \code{\link{update.trellis}}, \code{\link{trellis.object}} } \examples{ ## Combine different types of plots. c(wireframe(volcano), contourplot(volcano)) ## Merging levelplot with xyplot levObj <- levelplot(prop.table(WorldPhones, 1) * 100) xyObj <- xyplot(Phones ~ Year, data.frame(Phones = rowSums(WorldPhones), Year = row.names(WorldPhones)), type="b", ylim = c(0, 150000)) ## NOTE: prepanel.levelplot (from first object) is used for entire plot. cObj <- c(levObj, xyObj, layout = 1:2) update(cObj, scales = list(y = list(rot = 0)), ylab = c("proportional distribution", "number of phones")) ## Combine two xyplots. sepals <- xyplot(Sepal.Length ~ Sepal.Width, iris, groups = Species, xlab = "Width", ylab = "Height") petals <- xyplot(Petal.Length ~ Petal.Width, iris, groups = Species) c(Sepals = sepals, Petals = petals) ## Force same scales (re-calculate panel limits from merged data): c(Sepals = sepals, Petals = petals, x.same = TRUE, y.same = TRUE) ## Or - create xyplots from a list of formulas xyplot.list(list(Sepals = Sepal.Length ~ Sepal.Width, Petals = Petal.Length ~ Petal.Width), data = iris, groups = Species, x.same = TRUE, xlab = "Width", ylab = "Height") ## Create histograms from a list of objects, and merge them. xyplot.list(iris, FUN = histogram) ## Create cumulative distribution plots from a list of objects xyplot.list(iris[1:4], FUN = qqmath, groups = iris$Species, auto.key = TRUE) ## Display a table as both frequencies and proportions: data(postdoc) ## remove last row (containing totals) postdoc <- postdoc[1:(nrow(postdoc)-1),] pdprops <- barchart(prop.table(postdoc, margin = 1), auto.key = list(adj = 1)) pdmargin <- barchart(margin.table(postdoc, 1)) pdboth <- c(pdprops, pdmargin) update(pdboth, xlab = c("Proportion", "Freq")) ## Conditioned 'quakes' plot combined with histogram. qua <- xyplot(lat ~ long | equal.count(depth, 3), quakes, aspect = "iso", pch = ".", cex = 2, xlab = NULL, ylab = NULL) qua <- c(qua, depth = histogram(quakes$depth), layout = c(4, 1)) ## suppress scales on the first 3 panels update(qua, scales = list(at = list(NULL, NULL, NULL, NA), y = list(draw = FALSE))) ## Demonstrate merging of legends and par.settings. ## Note that par.settings can conflict, thus need col.line=... mypoints <- xyplot(1:10 ~ 1:10, groups = factor(rep(1:2, each = 5)), par.settings = simpleTheme(pch = 16), auto.key = TRUE) mylines <- xyplot(1:10 ~ 1:10, groups = factor(rep(1:5, each = 2)), type = "l", par.settings = simpleTheme(col.line = 1:5), auto.key = list(lines = TRUE, points = FALSE, columns = 5)) c(mypoints, mylines) ## Visualise statistical and spatial distributions ## (advanced!) library(maps) vars <- as.data.frame(state.x77) StateName <- tolower(state.name) form <- StateName ~ Population + Income + Illiteracy + `Life Exp` + Murder + `HS Grad` + Frost + sqrt(Area) ## construct independent maps of each variable statemap <- map("state", plot = FALSE, fill = TRUE) colkey <- draw.colorkey(list(col = heat.colors(100), at = 0:100, labels = list(labels = c("min","max"), at = c(0,100)))) panel.mapplot.each <- function(x, breaks, ...) panel.mapplot(x = x, breaks = quantile(x), ...) vmaps <- mapplot(form, vars, map = statemap, colramp = heat.colors, panel = panel.mapplot.each, colorkey = FALSE, legend = list(right = list(fun = colkey)), xlab = NULL) ## construct independent densityplots of each variable vdens <- densityplot(form[-2], vars, outer = TRUE, cut = 0, scales = list(relation = "free"), ylim = c(0, NA), cex = 0.5, ref = TRUE) + layer(panel.axis("top", half = FALSE, text.cex = 0.7)) ## combine panels from both plots combo <- c(vmaps, vdens) ## rearrange in pairs n <- length(vars) npairs <- rep(1:n, each = 2) + c(0, n) update(combo[npairs], scales = list(draw = FALSE), layout = c(4, 4), between = list(x = c(0, 0.5), y = 0.5)) } \keyword{ aplot } latticeExtra/man/segplot.Rd0000644000175100001440000001073012126504022015433 0ustar hornikusers\name{segplot} \alias{segplot} \alias{segplot.formula} \title{ Plot segments using the Trellis framework } \description{ This function can be used to systematically draw segments using a formula interface to produce Trellis displays using the lattice package. Segments can be drawn either as lines or bars, and can be color coded by the value of a covariate, with a suitable legend.} \usage{ segplot(x, data, \dots) \S3method{segplot}{formula}(x, data, level = NULL, centers = NULL, prepanel = prepanel.segplot, panel = panel.segplot, xlab = NULL, ylab = NULL, horizontal = TRUE, \dots, at, cuts = 30, colorkey = !is.null(level)) } \arguments{ \item{x}{ Argument on which argument dispatch is carried out. For the \code{"formula"} method, a formula of the form \code{y ~ x1 + x2} (with further conditioning variables appended if necessary). The terms in the formula must all be vectors of the same length. Each element causes a line segment or rectangle to be drawn, with the vertical location determined by \code{y} and horizontal endpoints determined by \code{x1} and \code{x2}. } \item{data}{ An optional data frame, list or environment where variables in the formula, as well as \code{level}, will be evaluated. } \item{level}{ An optional covariate that determines color coding of the segments} \item{centers}{ optional vector of \sQuote{centers} of the segments. If specified, points will be plotted at these \code{y}-locations. } \item{prepanel}{ function determining range of the data rectangle from data to be used in a panel. } \item{panel}{ function to render the graphic given the data. This is the function that actually implements the display. } \item{xlab, ylab}{ Labels for the axes. By default both are missing. } \item{horizontal}{ logical, whether the segments are to be drawn horizontally (the default) or vertically. This essentially swaps the role of the x- and y-axes in each panel. } \item{\dots}{ further arguments. Arguments to \code{levelplot} as well as to the default panel function \code{\link{panel.segplot}} can be supplied directly to \code{segplot}. } \item{colorkey}{ logical indicating whether a legend showing association of segment colors to values of \code{level} should be shown, or a list to control details of such a color key. See details below. } \item{at, cuts}{ \code{at} specifies the values of \code{level} where the color code changes. If \code{at} is missing, it defaults to \code{cuts} equispaced locations spanning the range of \code{levels} } } \details{ The \code{levelplot} function from the lattice package is used to internally to implement this function. In particular, the colorkey mechanism is used as it is, and documentation for \code{\link{levelplot}} should be consulted to learn how to fine tune it. } \value{ An object of class \code{"trellis"}. The \code{\link[=update.trellis]{update}} method can be used to update components of the object and the \code{\link[=print.trellis]{print}} method (usually called by default) will plot it on an appropriate plotting device. } % \references{ ~put references to the literature/web site here ~ } \author{ Deepayan Sarkar \email{deepayan.sarkar@r-project.org} } \note{ Currently only horizontal segments are supported. Vertical segments can be obtained by modifying the prepanel and panel functions suitably. } \seealso{ \code{\link{Lattice}}, \code{\link{panel.segplot}}, \code{\link{levelplot}}, \code{\link{xyplot}} } \examples{ segplot(factor(1:10) ~ rnorm(10) + rnorm(10), level = runif(10)) data(USCancerRates) segplot(reorder(factor(county), rate.male) ~ LCL95.male + UCL95.male, data = subset(USCancerRates, state == "Washington")) segplot(reorder(factor(county), rate.male) ~ LCL95.male + UCL95.male, data = subset(USCancerRates, state == "Washington"), draw.bands = FALSE, centers = rate.male) segplot(reorder(factor(county), rate.male) ~ LCL95.male + UCL95.male, data = subset(USCancerRates, state == "Washington"), level = rate.female, col.regions = terrain.colors) segplot(reorder(factor(county), rate.male) ~ LCL95.male + UCL95.male, data = subset(USCancerRates, state == "Washington"), draw.bands = FALSE, centers = rate.male, segments.fun = panel.arrows, ends = "both", angle = 90, length = 1, unit = "mm") } \keyword{hplot} latticeExtra/man/panel.segplot.Rd0000644000175100001440000000634312126504022016536 0ustar hornikusers\name{panel.segplot} \alias{prepanel.segplot} \alias{panel.segplot} \title{ Default prepanel and panel functions for segplot } \description{ Draws line segments or rectangles. Mainly intended to be used in conjunction with the \code{segplot} function. } \usage{ prepanel.segplot(x, y, z, subscripts, horizontal = TRUE, ...) panel.segplot(x, y, z, level = NULL, subscripts, at, draw.bands = is.factor(z), col, alpha, lty, lwd, border, col.symbol = col, alpha.symbol = alpha, col.regions = regions$col, band.height = 0.6, horizontal = TRUE, ..., segments.fun = panel.segments, centers = NULL, pch = 16) } \arguments{ \item{x, y, z}{ Vectors corresponding to \code{x1}, \code{x2} and \code{y} respectively in the \code{segplot} formula. The names are different for compatibility with \code{panel.levelplot}. These are all the original vectors in \code{data}, not subsetted for particular panels. } \item{level}{ optional vector controlling color of segments } \item{centers}{ optional vector of \sQuote{centers} of the segments. If specified, points will be plotted at these \code{y}-locations. } \item{pch}{ plotting character used for \code{centers}. } \item{subscripts}{ integer subscript to be used as an indexing vector for \code{x}, \code{y}, \code{z} and \code{level}, giving the packet for the current panel. } \item{horizontal}{ logical, whether the segments are to be drawn horizontally (the default) or vertically. This essentially swaps the role of the x- and y-axes in each panel. } \item{at}{ values of \code{level} where color code changes } \item{draw.bands}{ logical, whether to draw rectangles instead of lines } \item{col, alpha, lty, lwd, border}{ Graphical parameters for the segment. Defaults to parameter settings for \code{"plot.line"} or \code{"plot.polygon"} for segments and rectangles respectively. \code{col} is overridden by \code{col.regions} if \code{level} is not null. } \item{col.symbol, alpha.symbol}{ Graphical parameters for the point if \code{centers} are plotted. Defaults to the corresponding parameters for the segment. } \item{col.regions}{ vector of colors as in \code{\link{levelplot}} } \item{band.height}{ height of rectangles (applicable if \code{draw.bands} is \code{TRUE} } \item{\dots}{ Other arguments, passed on to \code{panel.rect} (when \code{draw.bands=TRUE}), \code{segments.fun} (otherwise), \code{panel.points} (if \code{centers} is not \code{NULL}), etc. as appropriate. } \item{segments.fun}{ function used to plot segments when \code{draw.bands} is \code{FALSE}. The default is to use \code{\link{panel.segments}}, but \code{\link{panel.arrows}} is a useful alternative (arguments to \code{segments.fun} can be provided via the \code{\dots} argument, see example for \code{\link{segplot}}).} } \value{ For \code{prepanel.segplot} a list with components \code{xlim} and \code{ylim}. } \author{ Deepayan Sarkar \email{deepayan.sarkar@r-project.org} } \seealso{ \code{\link{segplot}} } \keyword{ dplot } latticeExtra/man/horizonplot.Rd0000644000175100001440000002344112641202217016353 0ustar hornikusers\name{horizonplot} \alias{horizonplot} \alias{horizonplot.default} \alias{panel.horizonplot} \alias{prepanel.horizonplot} \title{Plot many time series in parallel} \description{ Plot many time series in parallel by cutting the y range into segments and overplotting them with color representing the magnitude and direction of deviation. } \usage{ horizonplot(x, data, \dots) \S3method{horizonplot}{default}(x, data = NULL, \dots, nbands = 3L, horizonscale = NA, origin = function(y) na.omit(y)[1], colorkey = FALSE, legend = NULL, panel = panel.horizonplot, prepanel = prepanel.horizonplot, col.regions = brewer.pal(n = 2 * nbands, name = "RdYlBu"), strip = FALSE, strip.left = TRUE, par.strip.text = list(cex = 0.6), colorkey.digits = 3, layout = c(1, NA), groups = NULL, default.scales = list(y = list(relation = "free", axs = "i", draw = FALSE, tick.number = 2))) panel.horizonplot(x, y, ..., border = NA, nbands = 3L, col.regions = brewer.pal(n = 2 * nbands, name = "RdYlBu"), origin) prepanel.horizonplot(x, y, ..., horizonscale = NA, nbands = 3L, origin = function(y) na.omit(y)[1]) } \arguments{ \item{x, y}{ Argument on which argument dispatch is carried out. Typically this will be a multivariate time series. In the panel and prepanel functions, these are the data coordinates. } \item{data}{ Not used (at least, not used by \code{xyplot.ts}). } \item{\dots}{ further arguments. Arguments to \code{xyplot} as well as to the default panel function \code{\link{panel.horizonplot}} can be supplied directly to \code{horizonplot}. In typical usage, the method of \code{xyplot} called will be \code{\link{xyplot.ts}}. } \item{nbands}{ Integer giving the number of discrete color bands used (for both negative and positive deviations from the origin). } \item{horizonscale}{ the scale of each color segment. There are 3 positive segments and 3 negative segments. If this is a given as a number then all panels will have comparable distances, though not necessarily the same actual values (similar in concept to \code{scales$relation = "sliced"}). If \code{NA}, as it is by default, then the scale is chosen in each panel to cover the range of the data (unless overridden by \code{ylim}); see Details. } \item{origin}{ the baseline y value for the first (positive) segment (i.e. the value at which red changes to blue). This can be a number, which is then fixed across all panels, or it can be a function, which is evaluated with the \code{y} values in each panel. The default is the first non-missing y value in each panel. See the Details section. } \item{colorkey, legend}{ if \code{colorkey = TRUE} a suitable color scale bar is constructed using the values of \code{origin} and \code{horizonscale}. Further options can be passed to \code{colorkey} in list form, as with \code{\link{levelplot}}. } \item{panel}{ function to render the graphic given the data. This is the function that actually implements the display. } \item{prepanel}{ function determining range of the data rectangle from data to be used in a panel. } \item{col.regions}{ color scale, with at least 6 colors. This should be a divergent color scale (typically with white as the central color). } \item{strip, strip.left}{ by default strips are only drawn on the left, to save space. } \item{par.strip.text}{ graphical parameters for the strip text; see \code{\link{xyplot}}. One notable argument here is \code{lines}, allowing multi-line text. } \item{colorkey.digits}{ digits for rounding values in colorkey labels. } \item{layout}{ Numeric vector of length 2 (or 3) specifying number of columns and rows (and pages) in the plot. The default is to have one column and as many rows as there are panels. } \item{default.scales}{ sets default values of \code{scales}; leave this alone, pass \code{scales} instead. } \item{groups}{ not applicable to this type of plot. } \item{border}{ border color for the filled polygons, defaults to no border. } } \details{ This function draws time series as filled areas, with modifications to effectively visualise many time series in parallel. Data that would be drawn off the top of each panel is redrawn from the bottom of the panel in a darker color. Values below the origin are inverted and drawn in the opposite color. There are up to three shades (typically in blue) for data above the baseline and up to three shades (typically in red) for data below the baseline. See the article referenced below for an introduction to Horizon plots. There are three different cases of using this function: \enumerate{ \item \code{horizonscale} unspecified (default case): then each panel will have different scales, and the colors represent deviations from the origin up to the maximum deviation from the origin in that panel. If \code{origin} is specified then that will be constant across panels; otherwise it defaults to the initial value. \item \code{horizonscale} specified but \code{origin} unspecified: the origin defaults to the initial value in each panel, and colors represent deviations from it in steps of \code{horizonscale} (up to 3 steps each way). \item both \code{horizonscale} and \code{origin} specified: each panel will have the same scales, and colors represent fixed ranges of values. } In each of these cases the \code{colorkey} is labelled slightly differently (see examples). } \section{Warning}{ Note that the y scale in each panel defines the actual origin and scale used. The \code{origin} and \code{horizonscale} arguments are only used in the \code{prepanel} function to choose an appropriate y scale. The \code{ylim} argument therefore over-rides \code{origin} and \code{horizonscale}. This also implies that choices of \code{scales$y$relation} other than \code{"free"} may have unexpected effects, particularly \code{"sliced"}, as these change the y limits from those requested by the prepanel function. } \value{ An object of class \code{"trellis"}. The \code{\link[=update.trellis]{update}} method can be used to update components of the object and the \code{\link[=print.trellis]{print}} method (usually called by default) will plot it on an appropriate plotting device. } \references{ Stephen Few (2008). Time on the Horizon. \emph{Visual Business Intelligence Newsletter}, June/July 2008 \url{http://www.perceptualedge.com/articles/visual_business_intelligence/time_on_the_horizon.pdf} } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{Lattice}}, \code{\link{xyplot.ts}}, \code{\link{panel.xyarea}} } \examples{ ## generate a random time series object with 12 columns set.seed(1) dat <- ts(matrix(cumsum(rnorm(200 * 12)), ncol = 12)) colnames(dat) <- paste("series", LETTERS[1:12]) ## show simple line plot first, for reference. xyplot(dat, scales = list(y = "same")) ## these layers show scale and origin in each panel... infolayers <- layer(panel.scaleArrow(x = 0.99, digits = 1, col = "grey", srt = 90, cex = 0.7)) + layer(lim <- current.panel.limits(), panel.text(lim$x[1], lim$y[1], round(lim$y[1],1), font = 2, cex = 0.7, adj = c(-0.5,-0.5), col = "#9FC8DC")) ## Case 1: each panel has a different origin and scale: ## ('origin' default is the first data value in each series). horizonplot(dat, layout = c(1,12), colorkey = TRUE) + infolayers ## Case 2: fixed scale but different origin (baseline): ## (similar in concept to scales = "sliced") horizonplot(dat, layout = c(1,12), horizonscale = 10, colorkey = TRUE) + infolayers ## Case 3: fixed scale and constant origin (all same scales): horizonplot(dat, layout = c(1,12), origin = 0, horizonscale = 10, colorkey = TRUE) + infolayers ## same effect using ylim (but colorkey does not know limits): horizonplot(dat, layout = c(1,12), ylim = c(0, 10), colorkey = TRUE) + infolayers ## same scales with full coverage of color scale: horizonplot(dat, layout = c(1,12), origin = 0, scales = list(y = list(relation = "same")), colorkey = TRUE, colorkey.digits = 1) + infolayers ## use ylab rather than strip.left, for readability. ## also shade any times with missing data values. horizonplot(dat, horizonscale = 10, colorkey = TRUE, layout = c(1,12), strip.left = FALSE, ylab = list(rev(colnames(dat)), rot = 0, cex = 0.7)) + layer_(panel.fill(col = "gray90"), panel.xblocks(..., col = "white")) ## illustration of the cut points used in the following plot xyplot(EuStockMarkets, scales = list(y = "same"), panel = function(x, y, ...) { col <- c("#B41414","#E03231","#F7A99C","#9FC8DC","#468CC8","#0165B3") for (i in c(-3:-1, 2:0)) { if (i >= 0) yi <- pmax(4000, pmin(y, 4000 + 1000 * (i+1))) if (i < 0) yi <- pmin(4000, pmax(y, 4000 + 1000 * i)) panel.xyarea(x, yi, origin = 4000, col = col[i+4], border = NA) } panel.lines(x, y) panel.abline(h = 4000, lty = 2) }) ## compare with previous plot horizonplot(EuStockMarkets, colorkey = TRUE, origin = 4000, horizonscale = 1000) + infolayers ## a cut-and-stack plot; use constant y scales! horizonplot(sunspots, cut = list(n = 23, overlap = 0), scales = list(draw = FALSE, y = list(relation = "same")), origin = 100, colorkey = TRUE, strip.left = FALSE, layout = c(1,23)) + layer(grid::grid.text(round(x[1]), x = 0, just = "left")) } \keyword{hplot} \keyword{ts} latticeExtra/man/rootogram.Rd0000644000175100001440000001630612533004130015771 0ustar hornikusers\name{rootogram} \alias{rootogram} \alias{rootogram.formula} \alias{panel.rootogram} \alias{prepanel.rootogram} \title{Trellis Displays of Tukey's Hanging Rootograms} \description{ Displays hanging rootograms. } \usage{ rootogram(x, \dots) \method{rootogram}{formula}(x, data = parent.frame(), ylab = expression(sqrt(P(X == x))), prepanel = prepanel.rootogram, panel = panel.rootogram, ..., probability = TRUE) prepanel.rootogram(x, y = table(x), dfun = NULL, transformation = sqrt, hang = TRUE, probability = TRUE, \dots) panel.rootogram(x, y = table(x), dfun = NULL, col = plot.line$col, lty = plot.line$lty, lwd = plot.line$lwd, alpha = plot.line$alpha, transformation = sqrt, hang = TRUE, probability = TRUE, type = "l", pch = 16, \dots) } \arguments{ \item{x, y}{ For \code{rootogram}, \code{x} is the object on which method dispatch is carried out. For the \code{"formula"} method, \code{x} is a formula describing the form of conditioning plot. The formula can be either of the form \code{~x} or of the form \code{y~x}. In the first case, \code{x} is assumed to be a vector of raw observations, and an observed frequency distribution is computed from it. In the second case, \code{x} is assumed to be unique values and \code{y} the corresponding frequencies. In either case, further conditioning variables are allowed. A similar interpretation holds for \code{x} and \code{y} in \code{prepanel.rootogram} and \code{panel.rootogram}. Note that the data are assumed to arise from a discrete distribution with some probability mass function. See details below. } \item{data}{ For the \code{"formula"} method, a data frame containing values for any variables in the formula, as well as those in \code{groups} and \code{subset} if applicable (\code{groups} is currently ignored by the default panel function). By default the environment where the function was called from is used. } \item{dfun}{ a probability mass function, to be evaluated at unique x values } \item{prepanel, panel}{ panel and prepanel function used to create the display. } \item{ylab}{ the y-axis label; typically a character string or an expression. } \item{col, lty, lwd, alpha}{ graphical parameters } \item{transformation}{ a vectorized function. Relative frequencies (observed) and theoretical probabilities (\code{dfun}) are transformed by this function before being plotted. } \item{hang}{logical, whether lines representing observed relative freuqncies should \dQuote{hang} from the curve representing the theoretical probabilities. } \item{probability}{ A logical flag, controlling whether the y-values are to be standardized to be probabilities by dividing by their sum. } \item{type}{ A character vector consisting of one or both of \code{"p"} and \code{"l"}. If \code{"p"} is included, the evaluated values of \code{dfun} will be denoted by points, and if \code{"l"} is included, they will be joined by lines. } \item{pch}{ The plotting character to be used for the \code{"p"} type. } \item{\dots}{ extra arguments, passed on as appropriate. Standard lattice arguments as well as arguments to \code{panel.rootogram} can be supplied directly in the high level \code{rootogram} call. } } \details{ This function implements Tukey's hanging rootograms. As implemented, \code{rootogram} assumes that the data arise from a discrete distribution (either supplied in raw form, when \code{y} is unspecified, or in terms of the frequency distribution) with some unknown probability mass function (p.m.f.). The purpose of the plot is to check whether the supplied theoretical p.m.f. \code{dfun} is a reasonable fit for the data. It is reasonable to consider rootograms for continuous data by discretizing it (similar to a histogram), but this must be done by the user before calling \code{rootogram}. An example is given below. Also consider the \code{rootogram} function in the \code{vcd} package, especially if the number of unique values is small. } \value{ \code{rootogram} produces an object of class \code{"trellis"}. The \code{update} method can be used to update components of the object and the \code{print} method (usually called by default) will plot it on an appropriate plotting device. } \references{ John W. Tukey (1972) Some graphic and semi-graphic displays. In T. A. Bancroft (Ed) \emph{Statistical Papers in Honor of George W. Snedecor}, pp. 293--316. Available online at \url{http://www.edwardtufte.com/tufte/tukey} } \author{ Deepayan Sarkar \email{deepayan.sarkar@gmail.com}} \seealso{ \code{\link{xyplot}} } \examples{ library(lattice) x <- rpois(1000, lambda = 50) p <- rootogram(~x, dfun = function(x) dpois(x, lambda = 50)) p lambdav <- c(30, 40, 50, 60, 70) update(p[rep(1, length(lambdav))], aspect = "xy", panel = function(x, ...) { panel.rootogram(x, dfun = function(x) dpois(x, lambda = lambdav[panel.number()])) }) lambdav <- c(46, 48, 50, 52, 54) update(p[rep(1, length(lambdav))], aspect = "xy", prepanel = function(x, ...) { tmp <- lapply(lambdav, function(lambda) { prepanel.rootogram(x, dfun = function(x) dpois(x, lambda = lambda)) }) list(xlim = range(sapply(tmp, "[[", "xlim")), ylim = range(sapply(tmp, "[[", "ylim")), dx = do.call("c", lapply(tmp, "[[", "dx")), dy = do.call("c", lapply(tmp, "[[", "dy"))) }, panel = function(x, ...) { panel.rootogram(x, dfun = function(x) dpois(x, lambda = lambdav[panel.number()])) grid::grid.text(bquote(Poisson(lambda == .(foo)), where = list(foo = lambdav[panel.number()])), y = 0.15, gp = grid::gpar(cex = 1.5)) }, xlab = "", sub = "Random sample from Poisson(50)") ## Example using continuous data xnorm <- rnorm(1000) ## 'discretize' by binning and replacing data by bin midpoints h <- hist(xnorm, plot = FALSE) ## Option 1: Assume bin probabilities proportional to dnorm() norm.factor <- sum(dnorm(h$mids, mean(xnorm), sd(xnorm))) rootogram(counts ~ mids, data = h, dfun = function(x) { dnorm(x, mean(xnorm), sd(xnorm)) / norm.factor }) ## Option 2: Compute probabilities explicitly using pnorm() pdisc <- diff(pnorm(h$breaks, mean = mean(xnorm), sd = sd(xnorm))) pdisc <- pdisc / sum(pdisc) rootogram(counts ~ mids, data = h, dfun = function(x) { f <- factor(x, levels = h$mids) pdisc[f] }) } \keyword{dplot} latticeExtra/man/USCancerRates.Rd0000644000175100001440000000334012126504022016417 0ustar hornikusers\name{USCancerRates} \alias{USCancerRates} \docType{data} \title{ Rate of Death Due to Cancer in US Counties } \description{ This data set records the annual rates of death (1999-2003) due to cancer by sex in US counties. } \usage{data(USCancerRates)} \format{ A data frame with 3041 observations on the following 8 variables. \describe{ \item{\code{rate.male}}{a numeric vector, giving rate of death per 100,000 due to cancer among males} \item{\code{LCL95.male}}{a 95\% lower confidence limit for \code{rate.male} } \item{\code{UCL95.male}}{a 95\% upper confidence limit for \code{rate.male} } \item{\code{rate.female}}{a numeric vector, giving rate of death per 100,000 due to cancer among females} \item{\code{LCL95.female}}{a 95\% lower confidence limit for \code{rate.female}} \item{\code{UCL95.female}}{a 95\% upper confidence limit for \code{rate.female}} \item{\code{state}}{ a factor with levels giving name of US state } \item{\code{county}}{ a character vector giving county names, in a format similar to that used for county map boundaries in the \code{maps} package. } } } \details{ See the scripts directory for details of data preprocessing steps. From the website: Death data provided by the National Vital Statistics System public use data file. Death rates calculated by the National Cancer Institute using SEER*Stat. Death rates are age-adjusted to the 2000 US standard population [\url{http://www.seer.cancer.gov/stdpopulations/stdpop.19ages.html}]. Population counts for denominators are based on Census populations as modified by NCI. } \source{ \url{http://statecancerprofiles.cancer.gov/} } \examples{ data(USCancerRates) } \keyword{datasets} latticeExtra/man/SeatacWeather.Rd0000644000175100001440000000274212126504022016502 0ustar hornikusers\name{SeatacWeather} \alias{SeatacWeather} \docType{data} \title{ Daily Rainfall and Temperature at the Seattle-Tacoma Airport } \description{ Daily Rainfall and Temperature at the Seattle-Tacoma Airport between January through March of 2007. } \usage{data(SeatacWeather)} \format{ A data frame with 90 observations on the following 14 variables. \describe{ \item{\code{month}}{a factor with levels \code{January}, \code{February}, and \code{March}} \item{\code{day}}{ day of the month } \item{\code{year}}{ year, all 2007 } \item{\code{max.temp}}{ maximum temperature (Fahrenheit) } \item{\code{record.max}}{ record maximum temperature } \item{\code{normal.max}}{ normal maximum temperature } \item{\code{min.temp}}{ minimum temperature } \item{\code{record.min}}{ record minimum temperature } \item{\code{normal.min}}{ normal minimum temperature } \item{\code{precip}}{ precipitation (inches) } \item{\code{record.precip}}{ record precipitation } \item{\code{normal.precip}}{ normal precipitation } \item{\code{time.max}}{ time of maximum temperature } \item{\code{time.min}}{ time of minimum temperature } } } \details{ The time of minimum and maximum temperatures should be interpreted as follows: the least two significant digits denote minutes (out of 60) and the next two significant digits denote hout (out of 24). } \source{ \url{http://www.atmos.washington.edu/cgi-bin/list_climate.cgi?clisea} } \keyword{datasets} latticeExtra/man/scale.components.Rd0000644000175100001440000000714112126504022017233 0ustar hornikusers\name{scale.components} \alias{scale.components} \alias{xscale.components.logpower} \alias{yscale.components.logpower} \alias{xscale.components.fractions} \alias{yscale.components.fractions} \alias{xscale.components.log10ticks} \alias{yscale.components.log10ticks} \alias{xscale.components.log} \alias{yscale.components.log} \alias{xscale.components.log10.3} \alias{yscale.components.log10.3} \alias{xscale.components.subticks} \alias{yscale.components.subticks} \title{ Custom lattice axis scales } \description{ Convenience functions for drawing axes with various non-default tick positions and labels. } \usage{ xscale.components.logpower(lim, ...) yscale.components.logpower(lim, ...) xscale.components.fractions(lim, logsc = FALSE, ...) yscale.components.fractions(lim, logsc = FALSE, ...) xscale.components.log10ticks(lim, logsc = FALSE, at = NULL, ...) yscale.components.log10ticks(lim, logsc = FALSE, at = NULL, ...) xscale.components.log(lim, logsc = FALSE, at = NULL, loc = NULL, ...) yscale.components.log(lim, logsc = FALSE, at = NULL, loc = NULL, ...) xscale.components.log10.3(lim, logsc = FALSE, at = NULL, ...) yscale.components.log10.3(lim, logsc = FALSE, at = NULL, ...) xscale.components.subticks(lim, ..., n = 5, n2 = n * 5, min.n2 = n + 5) yscale.components.subticks(lim, ..., n = 5, n2 = n * 5, min.n2 = n + 5) } \arguments{ \item{lim}{ scale limits. } \item{\dots}{ passed on to \code{\link{xscale.components.default}} or \code{yscale.components.default}. } \item{logsc}{ \code{log} base, typically specified in the \code{scales} argument to a high-level lattice plot. } \item{at}{ this is ignored unless it is \code{NULL}, in which case nothing is drawn. } \item{loc}{ Ignored if \code{NULL}. Otherwise, vector of values between 1 and 9 that form the template for tick mark locations after being scaled appropriately. For example, \code{loc = c(1, 3)} leads to tick marks at \code{c(0.1, 0.3, 1, 3, 10, 30)} and so on. } \item{n}{ desired number of intervals between major axis ticks (passed to \code{\link{pretty}}. } \item{n2, min.n2}{ desired, and minimum, number of intervals between minor axis ticks (passed to \code{\link{pretty}}. } } \details{ These functions are intended to be passed to the \code{xscale.components} or \code{yscale.components} arguments of high-level lattice plots. See \code{\link{xscale.components.default}}. \code{xscale.components.logpower} draws tickmarks at the same locations as the default, but labels them more smartly using superscripts for the power (using expressions). \code{xscale.components.fractions} labels the tickmarks as fractions. \code{xscale.components.log10ticks} puts major tick marks at powers of 10, and minor tickmarks in between. } \references{ Sarkar, Deepayan (2008) \dQuote{Lattice: Multivariate Data Visualization with R}, Springer. ISBN: 978-0-387-75968-5 \url{http://lmdvr.r-forge.r-project.org/figures/figures.html?chapter=08;figure=08_04} } \examples{ xyplot((1:200)/20 ~ (1:200)/20, type = c("p", "g"), scales = list(x = list(log = 2), y = list(log = 10)), xscale.components = xscale.components.fractions, yscale.components = yscale.components.log10ticks) xyplot((1:200)/20 ~ (1:200)/20, type = c("p", "g"), scales = list(x = list(log = 2), y = list(log = 10)), xscale.components = xscale.components.logpower, yscale.components = yscale.components.log10.3) dd <- as.Date("2000-01-01") + 0:365 xyplot(0:365 ~ dd, type = c("p", "g"), xscale.components = xscale.components.subticks, yscale.components = yscale.components.subticks) } \keyword{dplot} latticeExtra/man/mapplot.Rd0000644000175100001440000001145112641453017015444 0ustar hornikusers\name{mapplot} \alias{mapplot} \alias{mapplot.formula} \alias{panel.mapplot} \alias{prepanel.mapplot} \title{ Trellis displays on Maps a.k.a. Choropleth maps } \description{ Produces Trellis displays of numeric (and eventually categorical) data on a map. This is largely meant as a demonstration, and users looking for serious map drawing capabilities should look elsewhere (see below). } \usage{ mapplot(x, data, \dots) \S3method{mapplot}{formula}(x, data, map, outer = TRUE, prepanel = prepanel.mapplot, panel = panel.mapplot, aspect = "iso", legend = NULL, breaks, cuts = 30, colramp = colorRampPalette(brewer.pal(n = 11, name = "Spectral")), colorkey = TRUE, \dots) prepanel.mapplot(x, y, map, \dots) panel.mapplot(x, y, map, breaks, colramp, exact = FALSE, lwd = 0.5, \dots) } \arguments{ \item{x, y}{ For \code{mapplot}, an object on which method dispatch is carried out. For the formula method, a formula of the form \code{y ~ x}, with additional conditioning variables as desired. The extended form of conditioning using \code{y ~ x1 + x2} etc. is also allowed. The formula might be interpreted as in a dot plot, except that \code{y} is taken to be the names of geographical units in \code{map}. Suitable subsets (packets) of \code{x} and \code{y} are passed to the prepanel and panel functions. } \item{data}{ A data source where names in the formula are evaluated } \item{map}{ An object of class \code{"map"} (package \code{maps}), containing boundary information. The names of the geographical units must match the \code{y} variable in the formula. } The remaining arguments are standard lattice arguments, relvant here mostly because they have different defaults than usual: \item{outer}{ logical; how variables separated by \code{+} in the formula are interpreted. It is not advisable to change the default. } \item{prepanel, panel}{ the prepanel and panel functions } \item{aspect}{ aspect ratio} \item{breaks, cuts, colramp}{ controls conversion of numeric \code{x} values to a false color. \code{colramp} should be a function that produces colors (such as \code{\link{cm.colors}}). If it is \code{NULL}, colors are taken from \code{trellis.par.get("regions")}. } \item{exact}{ the default \code{exact = FALSE} allows the given \code{y} values to match sub-regions of \code{map}, i.e. region names with a qualifier following \code{":"}, like \code{"michigan:north", "michigan:south"}. These will both match a \code{y} value of \code{"Michigan"}. } \item{legend, colorkey}{ controls legends; usually just a color key giving the association between numeric values of \code{x} and color. } \item{lwd}{line width} \item{\dots}{ Further arguments passed on to the underlying engine. See \code{\link{xyplot}} for details. } } \value{ An object of class \code{"trellis"}. } \references{ \url{http://en.wikipedia.org/wiki/Choropleth_map} } \author{ Deepayan Sarkar } \note{ This function is meant to demonstrate how maps can be incorporated in a Trellis display. Users seriously interested in geographical data should consider using software written by people who know what they are doing. } \seealso{ \code{\link{Lattice}} } \examples{ library(maps) library(mapproj) ## Note: Alaska, Hawaii and others are not included in county map; ## this generates warnings with both USCancerRates and ancestry. data(USCancerRates) suppressWarnings(print( mapplot(rownames(USCancerRates) ~ log(rate.male) + log(rate.female), data = USCancerRates, map = map("county", plot = FALSE, fill = TRUE, projection = "mercator")) )) suppressWarnings(print( mapplot(rownames(USCancerRates) ~ log(rate.male) + log(rate.female), data = USCancerRates, map = map("county", plot = FALSE, fill = TRUE, projection = "tetra"), scales = list(draw = FALSE)) )) data(ancestry) county.map <- map('county', plot = FALSE, fill = TRUE, projection = "azequalarea") ## set a sequential color palette as current theme, and use it opar <- trellis.par.get() trellis.par.set(custom.theme(region = brewer.pal(9, "Purples"), alpha.line = 0.5)) suppressWarnings(print( mapplot(county ~ log10(population), ancestry, map = county.map, colramp = NULL) )) trellis.par.set(opar) \dontrun{ ## this may take a while (should get better area records) county.areas <- area.map(county.map, regions = county.map$names, sqmi = FALSE) ancestry$density <- with(ancestry, population / county.areas[as.character(county)]) mapplot(county ~ log(density), ancestry, map = county.map, border = NA, colramp = colorRampPalette(c("white", "black"))) } } \keyword{ hplot } latticeExtra/man/ancestry.Rd0000644000175100001440000000214512641416322015616 0ustar hornikusers\name{ancestry} \alias{ancestry} \docType{data} \title{ Modal ancestry by County according to US 2000 Census } \description{ This data set records the population and the three most frequently reported ancestries by US county, according to the 2000 census. } \usage{data(ancestry)} \format{ A data frame with 3219 observations on the following 5 variables. \describe{ \item{\code{county}}{ A factor. An attempt has been made to make the levels look similar to the county names used in the \code{maps} package. } \item{\code{population}}{a numeric vector} \item{\code{top}}{a character vector} \item{\code{second}}{a character vector} \item{\code{third}}{a character vector} } } \source{ U.S. Census Bureau. The ancestry data were extracted from Summary File 3, available from \url{http://www.census.gov/census2000/sumfile3.html} which is based on the \sQuote{long form} questionnaire (asked to 1 in 6 households surveyed). } \seealso{ \code{\link{mapplot}}, for examples. } \references{ \url{http://www.census.gov/prod/cen2000/doc/sf3.pdf} } \keyword{datasets} latticeExtra/man/marginal.plot.Rd0000644000175100001440000000554112126504022016531 0ustar hornikusers\name{marginal.plot} \alias{marginal.plot} \title{ Display marginal distributions } \description{ Display marginal distributions of several variables, which may be numeric and/or categorical, on one plot. } \usage{ marginal.plot(x, data = NULL, groups = NULL, reorder = !is.table(x), plot.points = FALSE, ref = TRUE, cut = 0, origin = 0, %ylim = c(0, NA), xlab = NULL, ylab = NULL, type = c("p", if (is.null(groups)) "h"), ..., subset = TRUE, as.table = TRUE, subscripts = TRUE, default.scales = list( relation = "free", abbreviate = TRUE, minlength = 5, rot = 30, cex = 0.75, tick.number = 3, y = list(draw = FALSE)), layout = NULL, lattice.options = list( layout.heights = list( axis.xlab.padding = list(x = 0), xlab.key.padding = list(x = 0)))) } \arguments{ \item{x}{ a data frame or table, or a formula of which the first term is a data frame or table. Otherwise coerced with \code{as.data.frame}. } \item{data}{ an optional data source in which groups and subset may be be evaluated. } \item{groups}{ term, to be evaluated in \code{data}, that is used as a grouping variable. } \item{reorder}{ whether to reorder factor variables by frequency. } \item{subset}{ data subset expression, evaluated in \code{data}. } \item{plot.points, ref, cut}{ passed to \code{panel.densityplot}. } \item{origin, type}{ passed to \code{panel.dotplot}. } \item{xlab, ylab, as.table, subscripts}{ see \code{\link{xyplot}}. } \item{default.scales, layout, lattice.options}{ see \code{\link{xyplot}}. } \item{\dots}{ passed to \code{\link{panel.densityplot}} and/or \code{\link{panel.dotplot}}. } } \details{ In the case of mixed numeric and categorical variables, the trellis objects from \code{dotplot()} and \code{densityplot()} are merged. } \value{ a trellis object. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{panel.dotplot}}, \code{\link{panel.densityplot}} } \examples{ enviro <- environmental ## make an ordered factor (so it will not be reordered) enviro$smell <- cut(enviro$ozone, breaks = c(0, 30, 50, Inf), labels = c("ok", "hmmm", "yuck"), ordered = TRUE) marginal.plot(enviro) ## using groups enviro$is.windy <- factor(enviro$wind > 10, levels = c(TRUE, FALSE), labels = c("windy", "calm")) marginal.plot(enviro[,1:5], data = enviro, groups = is.windy, auto.key = list(lines = TRUE)) ## support for tables marginal.plot(Titanic) ## table with groups marginal.plot(~ Titanic, data = Titanic, groups = Survived, type = "b", auto.key = list(title = "Survived?")) } \keyword{ hplot } latticeExtra/man/custom.theme.Rd0000644000175100001440000000442512641452776016421 0ustar hornikusers\name{custom.theme} \alias{custom.theme} \alias{custom.theme.2} \title{ Create a lattice theme based on specified colors } \description{ Creates a lattice theme given a few colors. Non-color settings are not included. The colors are typically used to define the standard grouping (superposition) colors, and the first color is used for ungrouped displays. } \usage{ custom.theme(symbol = brewer.pal(n = 8, name = "Dark2"), fill = brewer.pal(n = 12, name = "Set3"), region = brewer.pal(n = 11, name = "Spectral"), reference = "#e8e8e8", bg = "transparent", fg = "black", \dots) ## different defaults ("Set1", "Accent", "RdBu"): custom.theme.2(\dots) } \arguments{ \item{symbol}{ a vector of symbol colors. } \item{fill}{ a vector of fill colors (for barcharts, etc.) } \item{region}{ a vector of colors that is used to define a continuous color gradient using \code{\link{colorRampPalette}}} \item{reference}{ a color for reference lines and such } \item{bg}{ a background color } \item{fg}{ a foreground color, primarily for annotation } \item{\dots}{ further arguments passed to \code{\link{simpleTheme}} and used to modify the theme. } } \value{ A list that can be supplied to \code{\link{trellis.par.get}} or as the \code{theme} argument to \code{\link{trellis.device}}. } \author{ Deepayan Sarkar } \examples{ set.seed(0) ## create a plot to demonstrate graphical settings obj <- xyplot(Sepal.Length + Sepal.Width ~ Petal.Length + Petal.Width, iris, type = c("p", "r"), jitter.x = TRUE, jitter.y = TRUE, factor = 5, auto.key = list(lines = TRUE, rectangles = TRUE)) obj <- update(obj, legend = list(right = list(fun = "draw.colorkey", args = list(list(at = 0:100))))) %% NOTE: used in website for "style example" ## draw with default theme obj ## draw with custom.theme() update(obj, par.settings = custom.theme()) ## create a theme with paired colours, filled points, etc update(obj, par.settings = custom.theme(symbol = brewer.pal(12, "Paired"), fill = brewer.pal(12, "Paired"), region = brewer.pal(9, "Blues"), bg = "grey90", fg = "grey20", pch = 16)) ## draw with custom.theme.2() update(obj, par.settings = custom.theme.2()) } \keyword{dplot} latticeExtra/man/panel.scaleArrow.Rd0000644000175100001440000000361112126504022017156 0ustar hornikusers\name{panel.scaleArrow} \alias{panel.scaleArrow} \title{ Draw a scale bar as an arrow, labelled with its length in plot units. } \description{ Draw a scale bar as an arrow, labelled with its length in plot units. } \usage{ panel.scaleArrow(x = unit(0:1, "npc"), y = unit(0:1, "npc"), default.units = "npc", digits = 0, append = "", label = NULL, angle = 30, length = 0.5, unit = "char", type = "open", ends = "both", \dots, col = add.line$col, fill = col, alpha = add.line$alpha, lty = add.line$lty, lwd = add.line$lwd, col.text = add.text$col, alpha.text = add.text$alpha) } \arguments{ \item{x, y, default.units}{ coordinates of the line ends as \pkg{grid} \code{\link{unit}}s or otherwise interpreted in \code{default.units}. } \item{digits}{ number of decimal places to keep for the distance measure. } \item{append}{ a string to append to the distance for the label. } \item{label}{ label to place on the mid point of the scale, over-riding the default. } \item{angle, length, unit, type, ends}{ specification of the arrow style; see \code{\link{panel.arrows}}. } \item{\dots}{ further arguments passed to \code{\link{panel.text}}. You will need at least the \code{pos} or \code{adj} arguments. } \item{col, fill, alpha, lty, lwd}{ graphical parameters relevant to the line. } \item{col.text, alpha.text}{ graphical parameters relevant to the text label. Others like \code{cex} and \code{font} can be passed though \code{\dots}. } } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{panel.abline}}, \code{\link{grid.text}} } \examples{ xyplot(EuStockMarkets) + layer(panel.scaleArrow(x = 0.99, append = " units", col = "grey", srt = 90, cex = 0.8)) } \keyword{ aplot } latticeExtra/man/panel.ellipse.Rd0000644000175100001440000000637012126504022016516 0ustar hornikusers\name{panel.ellipse} \alias{panel.ellipse} \title{ Lattice panel function to fit and draw a confidence ellipsoid from bivariate data. } \description{ A lattice panel function that computes and draws a confidence ellipsoid from bivariate data, possibly grouped by a third variable. } \usage{ panel.ellipse(x, y, groups = NULL, level = 0.68, segments = 50, robust = FALSE, center.pch = 3, center.cex = 2, \dots, type, pch, cex) } \arguments{ \item{x, y}{ Numeric vectors of same length giving the bivariate data. Non-numeric variables will be coerced to be numeric. } \item{groups}{ Optional grouping variable. } \item{level}{ Confidence level for the ellipse. } \item{segments}{ Number of segments used to approximate the ellipse. } \item{robust}{ Logical indicating whether a robust method should be used. If \code{TRUE}, the confidence ellipse is based on a bivariate t-distribution using the \code{\link[MASS]{cov.trob}} function in the \pkg{MASS} package. } \item{center.pch}{ Plotting character for the center (fitted mean). If \code{NULL}, the center will not be shown on the plot. } \item{center.cex}{ Character expansion (size) multipler for the symbol indicating the center. } \item{\dots}{ Further arguments, typically graphical parameters. Passed on to \code{\link{panel.xyplot}}. } \item{type, pch, cex}{ Parameters that are ignored; these are present only to make sure they are not inadvertently passed on to \code{panel.xyplot}. } } \author{ Deepayan Sarkar, extending code contributed by Michael Friendly. } % \seealso{ % \code{\link{}} % } \examples{ xyplot(Sepal.Length ~ Petal.Length, groups=Species, data = iris, scales = "free", par.settings = list(superpose.symbol = list(pch=c(15:17)), superpose.line = list(lwd=2, lty=1:3)), panel = function(x, y, ...) { panel.xyplot(x, y, ...) panel.ellipse(x, y, ...) }, auto.key = list(x = .1, y = .8, corner = c(0, 0))) ## Without groups xyplot(Sepal.Length ~ Petal.Length, data = iris, scales = "free", par.settings = list(plot.symbol = list(cex = 1.1, pch=16)), panel = function(x, y, ...) { panel.xyplot(x, y, ...) panel.ellipse(x, y, lwd = 2, ...) }, auto.key = list(x = .1, y = .8, corner = c(0, 0))) ## With conditioning xyplot(Sepal.Length ~ Petal.Length | Species, data = iris, scales = "free", par.settings = list(plot.symbol = list(cex = 1.1, pch=16)), layout=c(2,2), panel = function(x, y, ...) { panel.xyplot(x, y, ...) panel.ellipse(x, y, lwd = 2, ...) }, auto.key = list(x = .6, y = .8, corner = c(0, 0))) ## Compare classical with robust xyplot(Sepal.Length ~ Petal.Length | Species, data = iris, scales = "free", par.settings = list(plot.symbol = list(cex = 1.1, pch=16)), layout=c(2,2), panel = function(x, y, ...) { panel.xyplot(x, y, ...) panel.ellipse(x, y, lwd = 2, ...) panel.ellipse(x, y, lwd = 2, col="red", robust=TRUE, ...) }) } % __ONLY ONE__ keyword per line \keyword{ dplot } latticeExtra/man/theEconomist.theme.Rd0000644000175100001440000000644312126504022017526 0ustar hornikusers\name{theEconomist.theme} \alias{theEconomist.theme} \alias{theEconomist.opts} \alias{theEconomist.axis} \alias{asTheEconomist} \title{ Generate plots with style like The Economist. } \description{ Uses colors, drawing styles, axis settings, etc, to produce plots inspired by those in The Economist magazine. (\url{http://www.economist.com/}). } \usage{ theEconomist.theme(win.fontfamily = NULL, with.bg = FALSE, box = "black", \dots) theEconomist.opts() asTheEconomist(x, ..., type = "l", ylab = expression(NULL), xlab = expression(NULL), par.settings = theEconomist.theme(with.bg = with.bg, box = "transparent"), with.bg = FALSE, par.strip.text = list(font = 2)) } \arguments{ \item{win.fontfamily}{ on Windows systems, sets the font by name. } \item{with.bg}{ if \code{TRUE}, uses a light blue background and a few other corresponding changes; otherwise white. } \item{box}{ color for panel boxes, strip outlines, and axis ticks. } \item{\dots}{ further arguments passed to \code{\link{simpleTheme}} and used to modify the theme. } \item{x}{ a \code{trellis} object, i.e. the result of a high-level plot function in the Lattice framework. } \item{type}{ plot type, relevant for \code{xyplot}s, see \code{\link{panel.xyplot}}. } \item{ylab, xlab}{ axis labels, blank by default. } \item{par.settings}{ style settings, defaulting to \code{theEconomist.theme}. } \item{par.strip.text}{ see \code{\link{xyplot}}. } } \details{ You can just use \code{par.settings = theEconomist.theme()}, which gives you some colors and styles, but it does not do the grid lines or axis settings. } \references{ \url{http://www.economist.com/displayStory.cfm?story_id=15065782} \url{http://www.economist.com/displayStory.cfm?story_id=14941181} } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{custom.theme}} } \examples{ xyplot(window(sunspot.year, start = 1900), main = "Sunspot cycles", sub = "Number per year", par.settings = theEconomist.theme(box = "transparent"), lattice.options = theEconomist.opts()) asTheEconomist(xyplot(window(sunspot.year, start = 1900), main = "Sunspot cycles", sub = "Number per year")) trellis.last.object() + layer_(panel.xblocks(x, x >= 1980, col = "#6CCFF6", alpha = .5)) + layer(panel.text(1988, 180, "Forecast", font = 3, pos = 2)) ## set as defaults -- remember to set back when finished. opar <- trellis.par.get() trellis.par.set(theEconomist.theme(box = "transparent")) oopt <- lattice.options(theEconomist.opts()) barchart(Titanic[,,,"No"], main = "Titanic deaths", layout = 1:2, sub = "by sex and class", auto.key = list(columns = 2), scales = list(y = list(alternating = 2))) asTheEconomist( dotplot(VADeaths, main = "Death Rates in Virginia (1940)", auto.key = list(corner = c(.9,0.1))), type = "b", with.bg = TRUE) dotplot(VADeaths, auto.key = TRUE, type = "b", par.settings = theEconomist.theme(with.bg = TRUE)) asTheEconomist( densityplot(~ height, groups = voice.part, data = singer, subset = grep("1", voice.part), plot.points = FALSE)) + glayer(d <- density(x), i <- which.max(d$y), ltext(d$x[i], d$y[i], paste("Group", group.number), pos = 3)) ## reset trellis.par.set(opar) lattice.options(oopt) } \keyword{ dplot } latticeExtra/man/panel.xblocks.Rd0000644000175100001440000001071112641457604016537 0ustar hornikusers\name{panel.xblocks} \alias{panel.xblocks} \alias{panel.xblocks.default} \alias{panel.xblocks.ts} \alias{panel.xblocks.zoo} \title{ Plot contiguous blocks along x axis. } \description{ Plot contiguous blocks along x axis. A typical use would be to highlight events or periods of missing data. } \usage{ panel.xblocks(x, ...) \method{panel.xblocks}{default}(x, y, ..., col = NULL, border = NA, height = unit(1, "npc"), block.y = unit(0, "npc"), vjust = 0, name = "xblocks", gaps = FALSE, last.step = median(diff(tail(x)))) \method{panel.xblocks}{ts}(x, y = x, ...) \method{panel.xblocks}{zoo}(x, y = x, ...) } \arguments{ \item{x, y}{ In the default method, \code{x} gives the ordinates along the x axis and must be in increasing order. \code{y} gives the color values to plot as contiguous blocks. If \code{y} is numeric, data coverage is plotted, by converting it into a logical (\code{!is.na(y)}). Finally, if \code{y} is a function, it is applied to \code{x} (\code{time(x)} in the time series methods). If \code{y} has character (or factor) values, these are interpreted as colors -- and should therefore be color names or hex codes. Missing values in \code{y} are not plotted. The default color is taken from the current theme: \code{trellis.par.get("plot.line")$col}. If \code{col} is given, this over-rides the block colors. The \code{ts} and \code{zoo} methods plot the \code{y} values against the time index \code{time(x)}. } \item{\dots}{ In the default method, further arguments are graphical parameters passed on to \code{\link{gpar}}. } \item{col}{ if \code{col} is specified, it determines the colors of the blocks defined by \code{y}. If multiple colors are specified they will be repeated to cover the total number of blocks. } \item{border}{ border color. } \item{height}{ height of blocks, defaulting to the full panel height. Numeric values are interpreted as native units. } \item{block.y}{ y axis position of the blocks. Numeric values are interpreted as native units. } \item{vjust}{ vertical justification of the blocks relative to \code{block.y}. See \code{\link{grid.rect}}. } \item{name}{ a name for the grob (\pkg{grid} object). } \item{gaps}{ Deprecated. Use \code{panel.xblocks(time(z), is.na(z))} instead. } \item{last.step}{ width (in native units) of the final block. Defaults to the median of the last 5 time steps (assuming steps are regular). } } \details{ Blocks are drawn forward in "time" from the specified x locations, up until the following value. Contiguous blocks are calculated using \code{\link{rle}}. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{xyplot.ts}}, \code{\link{panel.rect}}, \code{\link{grid.rect}} } \examples{ ## Example of highlighting peaks in a time series. set.seed(0) flow <- ts(filter(rlnorm(200, mean = 1), 0.8, method = "r")) ## using an explicit panel function xyplot(flow, panel = function(x, y, ...) { panel.xblocks(x, y > mean(y), col = "lightgray") panel.xyplot(x, y, ...) }) ## using layers; this is the `ts` method because `>` keeps it as ts. xyplot(flow) + layer_(panel.xblocks(flow > mean(flow), col = "lightgray")) ## Example of alternating colors, here showing calendar months flowdates <- as.Date("2000-01-01") + as.numeric(time(flow)) xyplot(flow ~ flowdates, type = "l") + layer_(panel.xblocks(x, months, col = c("lightgray", "#e6e6e6"), border = "darkgray")) ## highlight values above and below thresholds. ## blue, gray, red colors: bgr <- hcl(c(0, 0, 260), c = c(100, 0, 100), l = c(90, 90, 90)) dflow <- cut(flow, c(0,15,30,Inf), labels = bgr) xyplot(flow) + layer_(panel.xblocks(time(flow), dflow)) ## Example of highlighting gaps (NAs) in time series. ## set up example data z <- ts(cbind(A = 0:5, B = c(6:7, NA, NA, 10:11), C = c(NA, 13:17))) ## show data coverage only (highlighting gaps) xyplot(z, panel = panel.xblocks, scales = list(y = list(draw = FALSE))) ## draw gaps in darkgray xyplot(z, type = c("p","s")) + layer_(panel.xblocks(x, is.na(y), col = "darkgray")) ## Example of overlaying blocks from a different series. ## Are US presidential approval ratings linked to sunspot activity? ## Set block height, default justification is along the bottom. xyplot(presidents) + layer(panel.xblocks(sunspot.year > 50, height = 2)) } \keyword{ dplot } latticeExtra/man/panel.quantile.Rd0000644000175100001440000000645612641454333016723 0ustar hornikusers\name{panel.quantile} \alias{panel.quantile} \title{ Plot a quantile regression line with standard error bounds. } \description{ Plot a quantile regression line with standard error bounds, using the \pkg{quantreg} package. This is based on the \code{\link[ggplot2]{stat_quantile}} function from \pkg{ggplot2}. } \usage{ panel.quantile(x, y, form = y ~ x, method = "rq", ..., tau = 0.5, ci = FALSE, ci.type = "default", level = 0.95, n = 100, col = plot.line$col, col.se = col, lty = plot.line$lty, lwd = plot.line$lwd, alpha = plot.line$alpha, alpha.se = 0.25, border = NA, superpose = FALSE, ## ignored: ## subscripts, group.number, group.value, type, col.line, col.symbol, fill, pch, cex, font, fontface, fontfamily) } \arguments{ \item{x, y}{ data points. If these are missing, they will be looked for in the environment of \code{form}. So in many cases you can skip these if passing \code{form}. In fact, for convenience, the formula can be passed as the first argument (i.e. \code{x}). } \item{form, method}{ the model is constructed (approximately) as \code{method(form, tau = tau, data = list(x=x, y=y), ...)}. See the Examples section for common choices. } \item{\dots}{ further arguments passed on to the model function (\code{method}), typically \code{\link[quantreg]{rq}}. } \item{tau}{ \var{p} values for the quantiles to estimate. Note: only one value for \code{tau} can be specified if estimating confidence intervals with \code{ci}. } \item{ci, ci.type, level}{ estimate a confidence interval at level \code{level} using the method \code{ci.type}; see \code{\link[quantreg]{predict.rq}}. } \item{n}{ number of equi-spaced points on which to evaluate the function. } \item{col, col.se, lty, lwd, alpha, alpha.se, border}{ graphical parameters. \code{col} and \code{alpha} apply to the line(s), while \code{col.se} and \code{alpha.se} apply to the shaded \code{ci} region. } \item{superpose}{ if \code{TRUE}, plot each quantile line (\code{tau}) in a different style (using \code{trellis.par.get("superpose.line")}). } \item{subscripts, group.number, group.value, type, col.line, col.symbol, fill, pch, cex, font, fontface, fontfamily}{ ignored. } } \details{ It is recommended to look at \code{vignette("rq", package="quantreg")}. } \author{ Felix Andrews \email{felix@nfrac.org} Based on \code{\link[ggplot2]{stat_quantile}} by Hadley Wickham. } \seealso{ \code{\link[quantreg]{rq}}, \code{\link{panel.smoother}}, \code{\link[ggplot2]{stat_quantile}} } \examples{ ## library("quantreg") set.seed(1) xy <- data.frame(x = runif(100), y = rt(100, df = 5)) xyplot(y ~ x, xy) + layer(panel.quantile(x, y, tau = c(.95, .5, .05))) if (require("splines")) { xyplot(y ~ x, xy) + layer(panel.quantile(y ~ ns(x, 3), tau = 0.9)) xyplot(y ~ x, xy) + layer(panel.quantile(y ~ ns(x, 3), tau = 0.9, ci = TRUE)) } xyplot(y ~ x, xy) + layer(panel.quantile(x, y, tau = c(.5, .9, .1), superpose = TRUE)) update(trellis.last.object(), auto.key = list(text = paste(c(50,90,10), "\% quantile"), points = FALSE, lines = TRUE)) ## seems not to work... #xyplot(y ~ x, xy) + # layer(panel.quantile(y ~ qss(x, lambda=1), method = "rqss")) } \keyword{ dplot } latticeExtra/man/dendrogramGrob.Rd0000644000175100001440000000775312126504022016725 0ustar hornikusers\name{dendrogramGrob} \alias{dendrogramGrob} \title{ Create a Grob Representing a Dendrogram } \description{ This function creates a grob (a grid graphics object) that can be manipulated as such. In particular, it can be used as a legend in a lattice display like \code{levelplot} to form heatmaps. } \usage{ dendrogramGrob(x, ord = order.dendrogram(x), side = c("right", "top"), add = list(), size = 5, size.add = 1, type = c("rectangle", "triangle"), \dots) } \arguments{ \item{x}{ An object of class \code{"dendrogram"}. See \code{\link{dendrogram}} for details } \item{ord}{ A vector of integer indices giving the order in which the terminal leaves are to be plotted. If this is not the same as \code{order.dendrogram(x)}, then the leaves may not cluster together and branches of the dendrogram may intersect. } \item{side}{ Intended position of the dendrogram when added in a heatmap. Currently allowed positions are \code{"right"} and \code{"top"}. } \item{add}{ Additional annotation. Currently, it is only possible to add one or more rows of rectangles at the base of the dendrogram. See details below. } \item{size}{ Total height of the dendrogram in \code{"lines"} (see \code{\link{unit}}) } \item{size.add}{ Size of each additional row, also in \code{"lines"} } \item{type}{ Whether a child node is joined to its parent directly with a straight line (\code{"triangle"}) or as a \dQuote{stair} with two lines (\code{"rectangle"}) } \item{\dots}{ Extra arguments. Currently ignored. } } \details{ The \code{add} argument can be used for additional annotation at the base of the dendrogram. It should be a list with one component for each row, with names specifying the type of annotation and components specifying the contents. Currently, the only supported name is \code{"rect"} (which can be repeated), producing rectangles. The components in such a case is a list of graphical parameters, possibly vectorized, that are passed on to \code{\link{gpar}}. } \value{ An object of class \code{"grob"} } \author{ Deepayan Sarkar \email{deepayan.sarkar@r-project.org} } \seealso{ \code{\link{heatmap}}, \code{\link{levelplot}} } \examples{ data(mtcars) x <- t(as.matrix(scale(mtcars))) dd.row <- as.dendrogram(hclust(dist(x))) row.ord <- order.dendrogram(dd.row) dd.col <- as.dendrogram(hclust(dist(t(x)))) col.ord <- order.dendrogram(dd.col) library(lattice) levelplot(x[row.ord, col.ord], aspect = "fill", scales = list(x = list(rot = 90)), colorkey = list(space = "left"), legend = list(right = list(fun = dendrogramGrob, args = list(x = dd.col, ord = col.ord, side = "right", size = 10)), top = list(fun = dendrogramGrob, args = list(x = dd.row, side = "top", type = "triangle")))) ## Version with unsorted rows. ## For illustration, MPG ploted again at foot of dendrogram mpg <- x["mpg", col.ord] mpg.col <- level.colors(mpg, at = do.breaks(range(mpg), 10), col.regions = terrain.colors) levelplot(x[, col.ord], aspect = "iso", scales = list(x = list(rot = 90)), colorkey = FALSE, legend = list(right = list(fun = dendrogramGrob, args = list(x = dd.col, ord = col.ord, side = "right", add = list(rect = list(fill = mpg.col)), size = 10)), top = list(fun = dendrogramGrob, args = list(x = dd.row, ord = sort(row.ord), side = "top", size = 10, type = "triangle")))) } \keyword{ dplot } latticeExtra/man/panel.voronoi.Rd0000644000175100001440000000670412126504022016555 0ustar hornikusers\name{panel.voronoi} \alias{panel.voronoi} \alias{panel.levelplot.points} \title{ Panel functions for level-coded irregular points } \description{ These panel functions for \code{\link{levelplot}} can represent irregular (x, y) points with a color covariate. \code{panel.levelplot.points} simply draws color-coded points. \code{panel.voronoi} uses the \pkg{deldir} package to calculate the spatial extension of a set of points in 2 dimensions. This is known variously as a Voronoi mosaic, a Dirichlet tesselation, or Thiessen polygons. } \usage{ panel.voronoi(x, y, z, subscripts = TRUE, at = pretty(z), points = TRUE, border = "transparent", na.rm = FALSE, win.expand = 0.07, use.tripack = FALSE, ..., col.regions = regions$col, alpha.regions = regions$alpha) panel.levelplot.points(x, y, z, subscripts = TRUE, at = pretty(z), shrink, labels, label.style, contour, region, pch = 21, col.symbol = "#00000044", ..., col.regions = regions$col, fill = NULL) } \arguments{ \item{x, y, z}{ an irregular set of points at locations (x, y) with value z. } \item{subscripts}{ integer vector indicating what subset of x, y and z to draw. Typically passed by \code{\link{levelplot}}. } \item{at, col.regions, alpha.regions}{ color scale definition; see \code{\link{panel.levelplot}}. } \item{points}{ whether to draw the (x, y) points. } \item{border}{ color for polygon borders. } \item{na.rm}{ if \code{TRUE}, points with missing \code{z} values will be excluded from the calculation of polygons. If \code{FALSE}, those polygons are calculated but are not drawn (i.e. are transparent). } \item{win.expand}{ defines the rectangular window bounding the polygons. This is a factor by which to expand the range of the data. Set to 0 to limit drawing at the furthest data point locations. Ignored if \code{use.tripack = TRUE}. } \item{use.tripack}{ if \code{TRUE}, use \pkg{tripack} package rather than \pkg{deldir}. See Details. } \item{\dots}{ further arguments are passed to \code{\link{panel.xyplot}} if \code{points = TRUE}. } \item{pch, col.symbol}{ symbol and border color for points. A filled symbol should be used, i.e. in the range 21-25. } \item{shrink, labels, label.style, contour, region, fill}{ ignored. } } \details{ The \pkg{tripack} package implementation is faster than \pkg{deldir} but not under a fully free licence. Also, the \pkg{deldir} package allows polygons to be clipped to a rectangular window (the \code{win.expand} argument). } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{tileplot}}, \code{\link{panel.levelplot}}, \code{\link[deldir]{deldir}} } \examples{ ## a variant of Figure 5.6 from Sarkar (2008) ## http://lmdvr.r-forge.r-project.org/figures/figures.html?chapter=05;figure=05_06 depth.ord <- rev(order(quakes$depth)) quakes$Magnitude <- equal.count(quakes$mag, 4) quakes.ordered <- quakes[depth.ord, ] levelplot(depth ~ long + lat | Magnitude, data = quakes.ordered, panel = panel.levelplot.points, type = c("p", "g"), aspect = "iso", prepanel = prepanel.default.xyplot) ## a levelplot with jittered cells xyz <- expand.grid(x = 0:9, y = 0:9) xyz[] <- jitter(as.matrix(xyz)) xyz$z <- with(xyz, sqrt((x - 5)^2 + (y - 5)^2)) levelplot(z ~ x * y, xyz, panel = panel.voronoi, points = FALSE) ## hexagonal cells xyz$y <- xyz$y + c(0, 0.5) levelplot(z ~ x * y, xyz, panel = panel.voronoi, points = FALSE) } \keyword{ hplot } latticeExtra/man/EastAuClimate.Rd0000644000175100001440000001461612126504022016446 0ustar hornikusers\name{EastAuClimate} \alias{EastAuClimate} \docType{data} \title{ Climate of the East Coast of Australia } \description{ A set of climate statistics for 16 coastal locations along Eastern Australia. These sites were chosen to be approximately equally spaced to cover the whole eastern coast of Australia. For each site, climate statistics were calculated for the standard 30-year period 1971-2000. Only sites with nearly-complete data were chosen. } \usage{data(EastAuClimate)} \format{ A data frame with the following 10 variables and 5 items of metadata for each of 16 sites. \describe{ \item{\code{SummerMaxTemp}}{ average daily maximum air temperature (degrees C) in February. } \item{\code{SummerMinTemp}}{ average daily minimum air temperature (degrees C) in February. } \item{\code{WinterMaxTemp}}{ average daily maximum air temperature (degrees C) in July. } \item{\code{WinterMinTemp}}{ average daily minimum air temperature (degrees C) in July. } \item{\code{SummerRain}}{ median total precipitation in February (mm/month). } \item{\code{WinterRain}}{ median total precipitation in July (mm/month). } \item{\code{MeanAnnRain}}{ average total amount of precipitation recorded in a year (mm/year). } \item{\code{RainDays}}{ average number of days in a year with at least 1 mm of precipitation. } \item{\code{ClearDays}}{ average number of clear days in a year. This statistic is derived from cloud cover observations, which are measured in oktas (eighths). A clear day is recorded when the mean of the 9 am and 3 pm cloud observations is less than or equal to 2 oktas. } \item{\code{CloudyDays}}{ average number of clear days in a year. A cloudy day is recorded when the mean of the 9 am and 3 pm cloud observations is greater than or equal to 6 oktas. } \item{\code{ID}}{ BOM Site number. } \item{\code{Latitude}}{ Site latitude (degrees North). } \item{\code{Longitude}}{ Site longitude (degrees East). } \item{\code{Elevation}}{ Site elevation (m). } \item{\code{State}}{ Australian state: TAS = Tasmania, VIC = Victoria, NSW = New South Wales, QLD = Queensland. } } The row names of the data frame give the location names. Note: these are not the official names of the climate stations. } \source{ Sites were chosen by hand from maps on the Bureau of Meteorology website. The data were extracted manually from web pages under \url{http://www.bom.gov.au/climate/averages/} and processed to extract a subset of statistics. - by Felix Andrews \email{felix@nfrac.org} Bureau of Meteorology, Commonwealth of Australia. Product IDCJCM0026 Prepared at Wed 31 Dec 2008. Definitions of statistics adapted from \url{http://www.bom.gov.au/climate/cdo/about/about-stats.shtml} } %map(regions = c("Australia", "Australia:Tasmania"), % exact = TRUE, xlim = c(130, 170)) %with(EastAuClimate, { % points(Longitude, Latitude, pch = 16) % text(Longitude, Latitude, row.names(EastAuClimate), % pos = c(4, 4, 2, 2, rep(4, 12))) %}) \examples{ data(EastAuClimate) ## Compare the climates of state capital cities EastAuClimate[c("Hobart", "Melbourne", "Sydney", "Brisbane"),] ## A function to plot maps (a Lattice version of maps::map) lmap <- function(database = "world", regions = ".", exact = FALSE, boundary = TRUE, interior = TRUE, projection = "", parameters = NULL, orientation = NULL, aspect = "iso", type = "l", par.settings = list(axis.line = list(col = "transparent")), xlab = NULL, ylab = NULL, ...) { theMap <- map(database, regions, exact = exact, boundary = boundary, interior = interior, projection = projection, parameters = parameters, orientation = orientation, plot = FALSE) xyplot(y ~ x, theMap, type = type, aspect = aspect, par.settings = par.settings, xlab = xlab, ylab = ylab, default.scales = list(draw = FALSE), ...) } ## Plot the sites on a map of Australia if (require("maps")) { lmap(regions = c("Australia", "Australia:Tasmania"), exact = TRUE, projection = "rectangular", parameters = 150, xlim = c(130, 170), panel = function(...) { panel.xyplot(...) with(EastAuClimate, { panel.points(Longitude, Latitude, pch = 16) txt <- row.names(EastAuClimate) i <- c(3, 4) panel.text(Longitude[ i], Latitude[ i], txt[ i], pos = 2) panel.text(Longitude[-i], Latitude[-i], txt[-i], pos = 4) }) }) } ## Average daily maximum temperature in July (Winter). xyplot(WinterMaxTemp ~ Latitude, EastAuClimate, aspect = "xy", type = c("p", "a"), ylab = "Temperature (degrees C)") ## (Make a factor with levels in order - by coastal location) siteNames <- factor(row.names(EastAuClimate), levels = row.names(EastAuClimate)) ## Plot temperature ranges (as bars), color-coded by RainDays segplot(siteNames ~ WinterMinTemp + SummerMaxTemp, EastAuClimate, level = RainDays, sub = "Color scale: number of rainy days per year", xlab = "Temperature (degrees C)", main = paste("Typical temperature range and wetness", "of coastal Australian cities", sep = "\n")) ## Show Winter and Summer temperature ranges separately segplot(Latitude ~ WinterMinTemp + SummerMaxTemp, EastAuClimate, main = "Average daily temperature ranges \n of coastal Australian sites", ylab = "Latitude", xlab = "Temperature (degrees C)", par.settings = simpleTheme(lwd = 3, alpha = 0.5), key = list(text = list(c("July (Winter)", "February (Summer)")), lines = list(col = c("blue", "red"))), panel = function(x, y, z, ..., col) { with(EastAuClimate, { panel.segplot(WinterMinTemp, WinterMaxTemp, z, ..., col = "blue") panel.segplot(SummerMinTemp, SummerMaxTemp, z, ..., col = "red") }) }) ## Northern sites have Summer-dominated rainfall; ## Southern sites have Winter-dominated rainfall. xyplot(SummerRain + WinterRain ~ Latitude, EastAuClimate, type = c("p", "a"), auto.key = list(lines = TRUE), ylab = "Rainfall (mm / month)") ## Clear days are most frequent in the mid latitudes. xyplot(RainDays + CloudyDays + ClearDays ~ Latitude, EastAuClimate, type = c("p", "a"), auto.key = list(lines = TRUE), ylab = "Days per year") } \keyword{datasets} latticeExtra/man/postdoc.Rd0000644000175100001440000000136212126504022015432 0ustar hornikusers\name{postdoc} \alias{postdoc} \docType{data} \title{ Reasons for Taking First Postdoctoral Appointment } \description{ Reasons for Taking First Postdoctoral Appointment, by Field of Doctrate, 1997 } \usage{data(postdoc)} \format{ The data set is avaliable as a two-way table of counts. } \source{ Survey of Doctorate Recipients, 1997 } \references{ Enhancing the Postdoctoral Experience for Scientists and Engineers: A Guide for Postdoctoral Scholars, Advisers, Institutions, Funding Organizations, and Disciplinary Societies \url{http://books.nap.edu/catalog.php?record_id=9831} } \examples{ data(postdoc) library(lattice) barchart(prop.table(postdoc, margin = 1), auto.key = TRUE, xlab = "Proportion") } \keyword{datasets} latticeExtra/man/doubleYScale.Rd0000644000175100001440000000755412126504022016343 0ustar hornikusers\name{doubleYScale} \alias{doubleYScale} \title{ Draw two plot series with different y scales } \description{ Overplot two trellis objects with different y scales, optionally in different styles, adding a second y axis, and/or a second y axis label. \emph{Note:} drawing plots with multiple scales is often a bad idea as it can be misleading. } \usage{ doubleYScale(obj1, obj2, use.style = TRUE, style1 = if (use.style) 1, style2 = if (use.style) 2, add.axis = TRUE, add.ylab2 = FALSE, text = NULL, auto.key = if (!is.null(text)) list(text, points = points, lines = lines, ...), points = FALSE, lines = TRUE, ..., under = FALSE) } \arguments{ \item{obj1, obj2}{ trellis objects. Note that most settings, like main/sub/legend/etc are taken only from \code{obj1}; only the panel, axis and ylab are taken from obj2. } \item{use.style, style1, style2}{ \code{style1} and \code{style2} give the `group number' for obj1 and obj2 respectively. The style is taken from these indices into the values of \code{trellis.par.get("superpose.line")}. Therefore these should be integers between 1 and 6; a value of 0 or NULL can be given to leave the default settings. These will also be applied to the y-axes and ylab, if relevant. \code{use.style} simply changes the defaults of the style arguments. } \item{add.axis}{ if TRUE, draw a second y axis (for the \code{obj2} series) on the right side of the plot. } \item{add.ylab2}{ if TRUE, draw a second y axis label (from \code{obj2$ylab}) on the right side of the plot. Note, this will replace any existing key or legend on the right side, i.e. with \code{space = "right"}. } \item{text, auto.key, points, lines, \dots}{ if non-NULL, add a \code{key} to the display, using entries named by \code{text}. Further arguments are passed on to \code{\link{simpleKey}} at plot time. } \item{under}{ if TRUE, draw \code{obj2} under \code{obj1}. } } \details{ Panels from the trellis object \code{obj2} will be drawn in the corresponding panel of \code{obj1}. Axis settings are taken from the trellis objects, so most \code{scales} arguments such as \code{draw}, \code{at}, \code{labels} etc from \code{obj2} will carry over to the second y axis. } \value{ a merged trellis object. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{as.layer}} } \examples{ set.seed(1) foo <- list(x = 1:100, y = cumsum(rnorm(100))) ## show original data xyplot(y + y^2 ~ x, foo, type = "l") ## construct separate plots for each series obj1 <- xyplot(y ~ x, foo, type = "l") obj2 <- xyplot(y^2 ~ x, foo, type = "l") ## simple case: no axis for the overlaid plot doubleYScale(obj1, obj2, add.axis = FALSE) ## draw second y axis doubleYScale(obj1, obj2) ## ...with second ylab doubleYScale(obj1, obj2, add.ylab2 = TRUE) ## ...or with a key doubleYScale(obj1, obj2, text = c("obj1", "obj2")) ## ...with custom styles update(doubleYScale(obj1, obj2, text = c("obj1", "obj2")), par.settings = simpleTheme(col = c('red','black'), lty = 1:2)) ## different plot types x <- rnorm(60) doubleYScale(histogram(x), densityplot(x), use.style = FALSE) ## (but see ?as.layer for a better way to do this) ## multi-panel example ## a variant of Figure 5.13 from Sarkar (2008) ## http://lmdvr.r-forge.r-project.org/figures/figures.html?chapter=05;figure=05_13 data(SeatacWeather) temp <- xyplot(min.temp + max.temp ~ day | month, data = SeatacWeather, type = "l", layout = c(3, 1)) rain <- xyplot(precip ~ day | month, data = SeatacWeather, type = "h") doubleYScale(temp, rain, style1 = 0, style2 = 3, add.ylab2 = TRUE, text = c("min. T", "max. T", "rain"), columns = 3) ## re-plot with different styles update(trellis.last.object(), par.settings = simpleTheme(col = c("black", "red", "blue"))) } \keyword{ aplot } latticeExtra/man/layer.Rd0000644000175100001440000002251512126504022015076 0ustar hornikusers\name{layer} \alias{layer} \alias{layer_} \alias{glayer} \alias{glayer_} \alias{+.trellis} \alias{drawLayer} \alias{flattenPanel} \alias{[.layer} \alias{print.layer} \title{ Add layers to a lattice plot, optionally using a new data source } \description{ A mechanism to add new layers to a trellis object, optionally using a new data source. This is an alternative to modifying the panel function. Note the non-standard evaluation in \code{layer()}. } \usage{ layer(..., data, magicdots, exclude, packets, rows, columns, groups, style, force, theme, under, superpose) layer_(...) glayer(...) glayer_(...) \S3method{+}{trellis}(object, lay) drawLayer(lay, panelArgs = trellis.panelArgs()) flattenPanel(object) } \arguments{ \item{\dots}{ expressions as they would appear in a panel function. These can refer to the panel function arguments (such as \code{x}, \code{y} and \code{subscripts}), and also to any named objects passed in through the \code{data} argument. The calls can also include the special argument \dQuote{\code{\dots}}; in the default case of \code{magicdots = TRUE}, only those arguments which are not already named in a call are passed on through \dQuote{\code{\dots}}. Otherwise, \dQuote{\code{\dots}} simply represents all panel function arguments. See Details, below. } \item{data}{ optional. A named \code{list} containing objects needed when evaluating (drawing) the layer. } \item{magicdots, exclude}{ if \code{magicdots = TRUE}, the default, any reference to \dQuote{\code{\dots}} in the layer expressions will only pass on those arguments from the panel function which are not named in the call (thus avoiding duplicate argument errors). If the first argument in a call is not named, it is assumed to be named \code{"x"}, and if the second argument is not named it is assumed to be named \code{"y"}. Furthermore, any argument names given in \code{exclude} will not be passed on through \dQuote{\code{\dots}}. } \item{packets, rows, columns, groups}{ restricts the layer to draw only in specified packets (which refer to individual panels, but are independent of their layout), or rows or columns of the trellis layout (\code{\link{trellis.currentLayout}}). For group layers (using \code{glayer} or \code{superpose = TRUE}), the groups can be restricted also, by specifying group numbers (or group values, as character strings). Negative values exclude the given items. } \item{style}{ style index of the layer, used only to set lattice graphical parameters (same effect as in grouped displays). Note that this will use the theme settings in effect in the existing plot, which may or may not be what is desired. It may be necessary to use \code{force = TRUE} to escape from the plot's settings and use the current theme. } \item{force}{ \code{force = TRUE} is just a shorthand for \code{theme = trellis.par.get()}, which is useful for over-riding the theme settings in effect in an existing plot. For instance, if the original plot specified \code{par.settings = simpleTheme(col = "red")} then the theme settings in effect will be entirely red. Use \code{force = TRUE} to reset the current theme for this layer, or use \code{theme} directly. } \item{theme}{ a style specification to be passed to \code{\link{trellis.par.set}} which has effect only while drawing the layer. One can pass a whole theme specification list, such as \code{theme = custom.theme()}, or a more specific list, such as \code{theme = simpleTheme(col = "red")}. } \item{under}{ whether the layer should be drawn before the existing panel function. This defaults to \code{TRUE} in the convenience functions \code{layer_()} and \code{glayer_()}. } \item{superpose}{ if \code{TRUE}, the layer will be drawn once for each level of any \code{groups} in the plot, using \code{\link{panel.superpose}}. This defaults to \code{TRUE} in the convenience functions \code{glayer()} and \code{glayer_()}. } \item{object}{ a trellis object. } \item{lay}{ a layer object. } \item{panelArgs}{ list of arguments to the panel function. } } \details{ The \code{layer} mechanism is a method for augmenting a panel function. It allows expressions to be added to the panel function without knowing what the original panel function was. In this way it can be useful for convenient augmentation of trellis plots. Note that the evaluation used in \code{layer} is non-standard, and can be confusing at first: you typically refer to variables as if inside the panel function (\code{x}, \code{y}, etc); you can usually refer to objects which exist in the global environment (workspace), but it is safer to pass them in by name in the \code{data} argument to \code{layer}. (And this should not to be confused with the \code{data} argument to the original \code{xyplot}.) A simple example is adding a reference line to each panel: \code{layer(panel.refline(h = 0))}. Note that the expressions are quoted, so if you have local variables they will need to be either accessible globally, or passed in via the \code{data} argument. For example: \code{layer(panel.refline(h = myVal)) ## if myVal is global} \code{layer(panel.refline(h = h), data = list(h = myVal))} Another non-standard aspect is that the special argument \dQuote{\code{\dots}} will, by default, only pass through those argument not already named. For example, this will over-ride the \code{x} argument and pass on the remaining arguments: \code{layer(panel.xyplot(x = jitter(x), ...))} The first un-named argument is assumed to be "x", so that is the same as \code{layer(panel.xyplot(jitter(x), ...))} The layer mechanism should probably still be considered experimental. \code{drawLayer()} actually draws the given layer object, applying the panel specification, style settings and so on. It should only be called while a panel is in focus. The \code{flattenPanel} function will construct a human-readable function incorporating code from all layers (and the original panel function). Note that this does not return a usable function, as it lacks the correct argument list and ignores any extra data sources that layers might use. It is intended be edited manually. } \value{ a \code{layer} object is defined as a list of expression objects, each of which may have a set of attributes. The result of "adding" a layer to a trellis object (\code{+.trellis}) is the updated trellis object. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{update.trellis}}, \code{\link{as.layer}} for overlaying entire plots } \examples{ foo <- xyplot(ozone ~ wind, environmental) foo ## overlay reference lines foo <- foo + layer(panel.abline(h = 0)) + layer(panel.lmline(x, y, lty = 2)) ## underlay a flat color foo <- foo + layer(panel.fill(grey(.95)), under = TRUE) foo ## layers can access the panel function arguments foo <- foo + layer({ ok <- (y>100); panel.text(x[ok], y[ok], y[ok], pos = 1) }) foo ## over-ride arguments by name foo <- foo + layer(panel.xyplot(y = ave(y, x, FUN = max), type = "a", ...)) foo ## see a sketch of the complete panel function flattenPanel(foo) ## group layers, drawn for each group in each panel dotplot(VADeaths, type = "o") + glayer(ltext(x[5], y[5], group.value, srt = 40)) ## a quick way to print out the panel.groups arguments: dotplot(VADeaths, type = "o") + glayer(str(list(...))) ## layers with superposed styles xyplot(ozone ~ wind | equal.count(temperature, 2), data = environmental) + layer(panel.loess(x, y, span = 0.5), style = 1) + layer(panel.loess(x, y, span = 1.0), style = 2) + layer(panel.key(c("span = 0.5", "span = 1.0"), corner = c(1,.98), lines = TRUE, points = FALSE), packets = 1) ## note that styles come from the settings in effect in the plot, ## which is not always what you want: xyplot(1:10 ~ 1:10, type = "b", par.settings = simpleTheme(col = "red")) + layer(panel.lines(x = jitter(x, 2), ...)) + ## drawn in red layer(panel.lines(x = jitter(x, 2), ...), force = TRUE) ## reset theme ## using other variables from the original `data` object ## NOTE: need subscripts = TRUE in original call! zoip <- xyplot(wind ~ temperature | equal.count(radiation, 2), data = environmental, subscripts = TRUE) zoip + layer(panel.points(..., pch = 19, col = grey(1 - ozone[subscripts] / max(ozone))), data = environmental) ## restrict drawing to specified panels barchart(yield ~ variety | site, data = barley, groups = year, layout = c(1,6), as.table = TRUE, scales = list(x = list(rot = 45))) + layer(ltext(tapply(y, x, max), lab = abbreviate(levels(x)), pos = 3), rows = 1) ## example of a new data source qua <- xyplot(lat ~ long | cut(depth, 2), quakes, aspect = "iso", pch = ".", cex = 2) qua ## add layer showing distance from Auckland newdat <- with(quakes, expand.grid( gridlat = seq(min(lat), max(lat), length = 60), gridlon = seq(min(long), max(long), length = 60))) newdat$dist <- with(newdat, sqrt((gridlat - -36.87)^2 + (gridlon - 174.75)^2)) qua + layer_(panel.contourplot(x = gridlon, y = gridlat, z = dist, contour = TRUE, subscripts = TRUE), data = newdat) } \keyword{ aplot } latticeExtra/man/ggplot2like.theme.Rd0000644000175100001440000000767312126504022017316 0ustar hornikusers\name{ggplot2like.theme} \alias{ggplot2like.theme} \alias{ggplot2like.opts} \alias{ggplot2like} \alias{axis.grid} \title{A ggplot2-like theme for Lattice} \description{ A theme for Lattice based on some of the default styles used in the \pkg{ggplot2} package by Hadley Wickham. Specifically, parts of the functions \code{scale_colour_hue}, \code{scale_colour_gradient} and \code{theme_gray} were copied. Although superficially similar, the implementation here lacks much of the flexibility of the \pkg{ggplot2} functions: see \url{http://had.co.nz/ggplot2/}. } \usage{ ggplot2like(..., n = 6, h = c(0,360) + 15, l = 65, c = 100, h.start = 0, direction = 1, low = "#3B4FB8", high = "#B71B1A", space = "rgb") ggplot2like.opts() axis.grid(side = c("top", "bottom", "left", "right"), ..., ticks = c("default", "yes", "no"), scales, components, line.col) } \arguments{ \item{\dots}{ further arguments passed on to \code{\link{simpleTheme}} to over-ride defaults. } \item{n}{ number of \code{superpose} styles to generate, with equally spaced hues. } \item{h, c, l, h.start, direction}{ range of hues, starting hue and direction to generate a discrete colour sequence with \code{\link{hcl}}. } \item{low, high, space}{ extreme colors to interpolate with \code{\link{colorRampPalette}} for a continuous color scale. } \item{side, ticks, scales, components, line.col}{ see \code{\link{axis.default}}. Typically \code{axis.grid} is not called directly so these should not be needed. } } \value{ \code{ggplot2like()} produces a list of settings which can be passed as the \code{par.settings} argument to a high-level Lattice plot, or to \code{\link{trellis.par.set}}. \code{ggplot2like.opts()} produces a list which can be passed as the \code{lattice.options} argument to a high-level Lattice plot, or to \code{\link{lattice.options}}. } \author{ Felix Andrews \email{felix@nfrac.org}; copied and adapted from \pkg{ggplot2} by Hadley Wickham. } \seealso{ the \pkg{ggplot2} package: \url{http://had.co.nz/ggplot2/}. \code{\link{custom.theme}}, \code{\link{scale.components}} } \examples{ set.seed(0) ## basic theme does not include white grid lines xyplot(exp(1:10) ~ 1:10, type = "b", par.settings = ggplot2like()) ## add lines for axis ticks with custom axis function xyplot(exp(1:10) ~ 1:10, type = "b", par.settings = ggplot2like(), axis = axis.grid) ## this can be used together with scale.components ## (minor lines only visible on devices supporting translucency) xyplot(exp(rnorm(500)) ~ rnorm(500), scales = list(y = list(log = TRUE)), yscale.components = yscale.components.log10ticks, par.settings = ggplot2like(), axis = axis.grid) ## ggplotlike.opts() specifies axis = axis.grid as well as ## xscale.components.subticks / yscale.components.subticks xyg <- make.groups( "group one" = rnorm(80, 1), "group two" = rnorm(80, 5), "group three" = rnorm(80, 2)) xyg$x <- rev(xyg$data) ## group styles: specify number of equi-spaced hues xyplot(data ~ x, xyg, groups = which, auto.key = TRUE, par.settings = ggplot2like(n = 3), lattice.options = ggplot2like.opts()) + glayer(panel.smoother(...)) ## or set it as the default: opar <- trellis.par.get() trellis.par.set(ggplot2like(n = 4, h.start = 180)) oopt <- lattice.options(ggplot2like.opts()) bwplot(voice.part ~ height, data = singer) histogram(rnorm(100)) barchart(Titanic[,,,"No"], main = "Titanic deaths", layout = c(1, 2), auto.key = list(columns = 2)) ## reset trellis.par.set(opar) lattice.options(oopt) ## axis.grid and scale.components.subticks can be used alone: ## (again, lines for minor ticks need transculency-support to show up) xyplot(exp(1:10) ~ 1:10, type = "b", lattice.options = ggplot2like.opts(), par.settings = list(axis.line = list(col = NA), reference.line = list(col = "grey")), scales = list(tck = c(0,0))) } \keyword{dplot} latticeExtra/man/panel.3dmisc.Rd0000644000175100001440000000701312126504022016236 0ustar hornikusers\name{panel.3dmisc} \alias{panel.3dmisc} \alias{panel.3dtext} \alias{panel.3dbars} \alias{panel.3dpolygon} \title{Miscellanous panel utilities for three dimensional Trellis Displays} \description{ Miscellanous panel functions for use with three dimensional Lattice functions such as cloud and wireframe } \usage{ panel.3dbars(x, y, z, rot.mat = diag(4), distance, xbase = 1, ybase = 1, xlim, xlim.scaled, ylim, ylim.scaled, zlim, zlim.scaled, zero.scaled, col = "black", lty = 1, lwd = 1, alpha, ..., col.facet = "white", alpha.facet = 1) panel.3dpolygon(x, y, z, rot.mat = diag(4), distance, xlim.scaled, ylim.scaled, zlim.scaled, zero.scaled, col = "white", border = "black", font, fontface, ...) panel.3dtext(x, y, z, labels = seq_along(x), rot.mat = diag(4), distance, ...) } \arguments{ \item{x, y, z}{ data to be plotted } \item{rot.mat, distance}{ arguments controlling projection } \item{labels}{ character or expression vectors to be uses as labels } \item{xlim, ylim, zlim}{ limits in the original scale } \item{xlim.scaled, ylim.scaled, zlim.scaled}{ limits after scaling } \item{zero.scaled}{ the value of z = 0 after scaling } \item{xbase, ybase}{ length of the sides of the bars (which are always centered on the \code{x} and \code{y} values). Can not be vectorized. } \item{col, lty, lwd, alpha, border}{ Graphical parameters for the border lines. These can be vectors, in which case each component will be associated with one bar in \code{panel.3dbars}. } \item{font, fontface}{ unused graphical parameters, present in the argument list only so that they can be captured and ignored } \item{col.facet, alpha.facet}{ Graphical parameters for surfaces of the bars . These can be vectors, in which case each component will be associated with one bar. } \item{\dots}{ extra arguments, passed on as appropriate. } } \details{ \code{panel.3dbars} and \code{panel.3dpolygon} are both suitable for use as (components of) the \code{panel.3d.cloud} argument of \code{panel.cloud}. The first one produces three dimensional bars, and the second one draws three dimensional polygons. } \author{ Deepayan Sarkar \email{deepayan.sarkar@gmail.com}} \seealso{ \code{\link{cloud}}, \code{\link{panel.cloud}} } \examples{ library(lattice) cloud(VADeaths, panel.3d.cloud = panel.3dbars, col.facet = "grey", xbase = 0.4, ybase = 0.4, screen = list(z = 40, x = -30)) cloud(VADeaths, panel.3d.cloud = panel.3dbars, xbase = 0.4, ybase = 0.4, zlim = c(0, max(VADeaths)), scales = list(arrows = FALSE, just = "right"), xlab = NULL, ylab = NULL, col.facet = level.colors(VADeaths, at = do.breaks(range(VADeaths), 20), col.regions = terrain.colors, colors = TRUE), colorkey = list(col = terrain.colors, at = do.breaks(range(VADeaths), 20)), screen = list(z = 40, x = -30)) cloud(as.table(prop.table(Titanic, margin = 1:3)[,,,2]), type = c("p", "h"), zlab = "Proportion\nSurvived", panel.3d.cloud = panel.3dbars, xbase = 0.4, ybase = 0.4, aspect = c(1, 0.3), scales = list(distance = 2), panel.aspect = 0.5) } \keyword{dplot} latticeExtra/man/biocAccess.Rd0000644000175100001440000000212312126504022016011 0ustar hornikusers\name{biocAccess} \alias{biocAccess} \docType{data} \title{ Hourly access attempts to Bioconductor website } \description{ This data set records the hourly number of access attempts to the Bioconductor website (\url{http://www.bioconductor.org}) during January through May of 2007. The counts are essentially an aggregation of the number of entries in the access log. } \usage{data(biocAccess)} \format{ A data frame with 3623 observations on the following 7 variables. \describe{ \item{\code{counts}}{ the number of access attempts} \item{\code{day}}{ the day of the month } \item{\code{month}}{a factor with levels \code{Jan}, \code{Feb}, \dots, \code{Dec}} \item{\code{year}}{ the year (all 2007) } \item{\code{hour}}{ hour of the day, a numeric vector} \item{\code{weekday}}{ a factor with levels \code{Monday}, \code{Tuesday}, \dots, \code{Sunday}} \item{\code{time}}{a POSIXt representation of the start of the hour} } } \examples{ data(biocAccess) xyplot(stl(ts(biocAccess$counts[1:(24 * 30)], frequency = 24), "periodic")) } \keyword{datasets} latticeExtra/man/USAge.Rd0000644000175100001440000000432112641420141014722 0ustar hornikusers\name{USAge} \alias{USAge} \alias{USAge.table} \alias{USAge.df} \docType{data} \title{ US national population estimates } \description{ US national population estimates by age and sex from 1900 to 1979. The data is available both as a (3-dimensional) table and a data frame. The second form omits the 75+ age group to keep age numeric. } \usage{ data(USAge.table) data(USAge.df) } \format{ \code{USAge.table} is a 3-dimensional array with dimensions \tabular{rll}{ No \tab Name \tab Levels\cr 1 \tab Age \tab 0, 1, 2, \dots, 74, 75+\cr 2 \tab Sex \tab Male, Female\cr 3 \tab Year \tab 1900, 1901, \dots, 1979 \cr } Cells contain raw counts of estimated population. \code{USAge.df} is a data frame with 12000 observations on the following 4 variables. \describe{ \item{\code{Age}}{a numeric vector, giving age in years} \item{\code{Sex}}{a factor with levels \code{Male} \code{Female}} \item{\code{Year}}{a numeric vector, giving year} \item{\code{Population}}{a numeric vector, giving population in millions} } } \details{ The data for 1900-1929 are rounded to thousands. The data for 1900-1939 exclude the Armed Forces overseas and the population residing in Alaska and Hawaii. The data for 1940-1949 represent the resident population plus Armed Forces overseas, but exclude the population residing in Alaska and Hawaii. The data for 1950-1979 represent the resident population plus Armed Forces overseas, and also include the population residing in Alaska and Hawaii. } \source{ U.S. Census Bureau website: \url{http://www.census.gov/popest/data/national/asrh/pre-1980/PE-11.html} The data were available as individual files for year, with varying levels for the margins. The preprocessing steps used to reduce the data to the form given here are described in the scripts directory. } \examples{ data(USAge.df) head(USAge.df) ## Figure 10.7 from Sarkar (2008) xyplot(Population ~ Age | factor(Year), USAge.df, groups = Sex, type = c("l", "g"), auto.key = list(points = FALSE, lines = TRUE, columns = 2), aspect = "xy", ylab = "Population (millions)", subset = Year \%in\% seq(1905, 1975, by = 10)) } \keyword{datasets} latticeExtra/man/panel.tskernel.Rd0000644000175100001440000001003412126504022016700 0ustar hornikusers\name{panel.tskernel} \alias{panel.tskernel} \alias{simpleSmoothTs} \alias{simpleSmoothTs.default} \alias{simpleSmoothTs.zoo} \title{ Calculate and plot smoothed time series. } \description{ Plot time series smoothed by discrete symmetric smoothing kernels. These kernels can be used to smooth time series objects. Options include moving averages, triangular filters, or approximately Gaussian filters. } \usage{ panel.tskernel(x, y, ..., width = NROW(x) \%/\% 10 + 1, n = 300, c = 1, sides = 2, circular = FALSE, kern = kernel("daniell", rep(floor((width/sides) / sqrt(c)), c))) simpleSmoothTs(x, ...) \method{simpleSmoothTs}{default}(x, ..., width = NROW(x) \%/\% 10 + 1, n = NROW(x), c = 1, sides = 2, circular = FALSE, kern = kernel("daniell", rep(floor((width/sides)/sqrt(c)), c))) \method{simpleSmoothTs}{zoo}(x, ..., n = NROW(x)) } \arguments{ \item{x, y}{ data points. Should define a regular, ordered series. A time series object can be passed as the first argument, in which case \code{y} can be omitted. The \code{x} argument given to \code{simpleSmoothTs} is allowed to be a multivariate time series, i.e. to have multiple columns. } \item{\dots}{ further arguments passed on to \code{\link{panel.lines}}. } \item{width}{ nominal width of the smoothing kernel in time steps. In the default case, which is a simple moving average, this is the actual width. When \code{c > 1} the number of time steps used in the kernel increases but the equivalent bandwidth stays the same. If only past values are used (with \code{sides = 1}) then \code{width} refers to one side of the symmetric kernel. } \item{n}{ approximate number of time steps desired for the result. If this is less than the length of \code{x}, the smoothed time series will be aggregated by averaging blocks of (an integer number of) time steps, and this aggregated series will be centered with respect to the original series. } \item{c}{ smoothness of the kernel: \code{c = 1} is a moving average, \code{c = 2} is a triangular kernel, \code{c = 3} and higher approximate smooth Gaussian kernels. \code{c} is actually the number of times to recursively convolve a simple moving average kernel with itself. The kernel size is adjusted to maintain a constant equivalent bandwidth as \code{c} increases. } \item{sides}{ if \code{sides=1} the smoothed series is calculed from past values only (using one half of the symmetric kernel); if \code{sides=2} it is centred around lag 0. } \item{circular}{ to treat the data as circular (periodic). } \item{kern}{ a \code{tskernel} object; if given, this over-rides \code{width} and \code{c}. } } \note{ The author is not an expert on time series theory. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{kernel}}, \code{\link{filter}}, \code{\link{xyplot.ts}} } \examples{ ## a Gaussian-like filter (contrast with c = 1 or c = 2) xyplot(sunspot.year) + layer(panel.tskernel(x, y, width = 20, c = 3, col = 1, lwd = 2)) ## example from ?kernel: ## long and short moving averages, backwards in time xyplot(EuStockMarkets[,1]) + layer(panel.tskernel(x, y, width = 100, col = 1, sides = 1)) + layer(panel.tskernel(x, y, width = 20, col = 2, sides = 1)) ## per group, with a triangular filter xyplot(EuStockMarkets, superpose = TRUE) + glayer(panel.tskernel(..., width = 100, c = 2), theme = simpleTheme(lwd = 2)) ## plot the actual kernels used; note adjustment of width width = 100 kdat <- lapply(1:4, function(c) { k <- kernel("daniell", rep(floor(0.5*width / sqrt(c)), c)) ## demonstrate that the effective bandwidth stays the same: message("c = ", c, ": effective bandwidth = ", bandwidth.kernel(k)) ## represent the kernel as a time series, for plotting ts(k[-k$m:k$m], start = -k$m) }) names(kdat) <- paste("c =", 1:4) xyplot(do.call(ts.union, kdat), type = "h", scales = list(y = list(relation = "same"))) } \keyword{ dplot } latticeExtra/man/panel.2dsmoother.Rd0000644000175100001440000000435312126504022017146 0ustar hornikusers\name{panel.2dsmoother} \alias{panel.2dsmoother} \title{ Plot a smooth approximation of z over x and y. } \description{ Plot a smooth approximation, using \code{\link{loess}} by default, of one variable (\code{z}) against two others (\code{x} and \code{y}). This panel function should be used with a \code{\link{levelplot}}. } \usage{ panel.2dsmoother(x, y, z, subscripts = TRUE, form = z ~ x * y, method = "loess", ..., args = list(), n = 100) } \arguments{ \item{x, y, z}{ data points. If these are missing, they will be looked for in the environment of \code{form}. So in many cases you can skip these if passing \code{form}. In fact, for convenience, the formula can be passed as the first argument (i.e. \code{x}). } \item{form, method}{ the smoothing model is constructed (approximately) as \code{method(form, data = list(x=x, y=y, z=z), {args})}. See the Examples section for common choices. } \item{subscripts}{ data indices for the current packet, as passed in by \code{levelplot}. } \item{\dots}{ further arguments passed on to \code{\link{panel.levelplot}}. } \item{args}{ a list of further arguments to the model function (\code{method}). } \item{n}{ number of equi-spaced points along each of x and y on which to evaluate the smooth function. } } \details{ This should work with any model function that takes a formula argument, and has a \code{predict} method argument. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{loess}}, \code{\link{panel.smoother}} } \examples{ set.seed(1) xyz <- data.frame(x = rnorm(100), y = rnorm(100)) xyz$z <- with(xyz, x * y + rnorm(100, sd = 1)) levelplot(z ~ x * y, xyz, panel = panel.2dsmoother) ## showing data points on the same color scale levelplot(z ~ x * y, xyz, panel = panel.levelplot.points, cex = 1.2) + layer_(panel.2dsmoother(..., n = 200)) ## simple linear regression model levelplot(z ~ x * y, xyz, panel = panel.levelplot.points) + layer_(panel.2dsmoother(..., method = "lm")) ## GAM smoother with smoothness by cross validation if (require("mgcv")) levelplot(z ~ x * y, xyz, panel = panel.2dsmoother, form = z ~ s(x, y), method = "gam") } \keyword{ dplot } latticeExtra/man/panel.lmlineq.Rd0000644000175100001440000001372512126504022016524 0ustar hornikusers\name{panel.lmlineq} \alias{panel.lmlineq} \alias{panel.ablineq} \title{ Draw a line with a label, by default its equation } \description{ This is an extension of the panel functions \code{\link{panel.abline}} and \code{\link{panel.lmline}} to also draw a label on the line. The default label is the line equation, and optionally the R squared value of its fit to the data points. } \usage{ panel.ablineq(a = NULL, b = 0, h = NULL, v = NULL, reg = NULL, coef = NULL, pos = if (rotate) 1 else NULL, offset = 0.5, adj = NULL, at = 0.5, x, y, rotate = FALSE, srt = 0, label = NULL, varNames = alist(y = y, x = x), varStyle = "italic", fontfamily = "serif", digits = 3, r.squared = FALSE, sep = ", ", sep.end = "", col, col.text, col.line, ..., reference = FALSE) panel.lmlineq(x, y, ...) } \arguments{ \item{a, b, h, v, reg, coef}{ specification of the line. The simplest usage is to give \code{a} and \code{b} to describe the line \emph{y = a + b x}. Horizontal or vertical lines can be specified as arguments \code{h} or \code{v}, respectively. The first argument (\code{a}) can also be a model object produced by \code{\link{lm}}. See \code{\link{panel.abline}} for more details. } \item{pos, offset}{ passed on to \code{\link{panel.text}}. For \code{pos}: 1 = below, 2 = left, 3 = above, 4 = right, and the \code{offset} (in character widths) is applied. } \item{adj}{ passed on to \code{\link{panel.text}}. c(0,0) = above right, c(1,0) = above left, c(0,1) = below right, c(1,1) = below left; offset does not apply when using \code{adj}. } \item{fontfamily}{ passed on to \code{\link{panel.text}}. } \item{at}{ position of the equation as a fractional distance along the line. This should be in the range 0 to 1. When a vertical line is drawn, this gives the vertical position of the equation. } \item{x, y}{ position of the equation in native units. If given, this over-rides \code{at}. For \code{panel.lmlineq} this is the data, passed on as \code{lm(y ~ x)}. } \item{rotate, srt}{ set \code{rotate = TRUE} to align the equation with the line. This will over-ride \code{srt}, which otherwise gives the rotation angle. Note that the calculated angle depends on the current device size; this will be wrong if you change the device aspect ratio after plotting. } \item{label}{ the text to draw along with the line. If specified, this will be used instead of an equation. } \item{varNames}{ names to display for \code{x} and/or \code{y}. This should be a list like \code{list(y = "Q", x = "X")} or, for mathematical symbols, \code{alist(y = (alpha + beta), x = sqrt(x[t]))}. } \item{varStyle}{ the name of a \code{\link{plotmath}} function to wrap around the equation expression, or \code{NULL}. E.g. \code{"bolditalic"}, \code{"displaystyle"}. } \item{digits}{ number of decimal places to show for coefficients in equation. } \item{r.squared}{ the \eqn{R^2} statistic to display along with the equation of a line. This can be given directly as a number, or \code{TRUE}, in which case the function expects a model object (typically \code{\link{lm}}) and extracts the \eqn{R^2} statistic from it. } \item{sep, sep.end}{ The \eqn{R^2} (\code{r.squared}) value is separated from the equation by the string \code{sep}, and also \code{sep.end} is added to the end. For example: \code{panel.ablineq(lm(y ~ x), r.squared = TRUE, sep = " (", sep.end = ")")}. } \item{\dots, col, col.text, col.line}{ passed on to \code{\link{panel.abline}} and \code{\link{panel.text}}. Note that \code{col} applies to both text and line; \code{col.text} applies to the equation only, and \code{col.line} applies to line only. } \item{reference}{ whether to draw the line in a "reference line" style, like that used for grid lines. } } \details{ The equation is constructed as an expression using \code{\link{plotmath}}. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{panel.abline}}, \code{\link{panel.text}}, \code{\link{lm}}, \code{\link{plotmath}} } \examples{ set.seed(0) xsim <- rnorm(50, mean = 3) ysim <- (0 + 2 * xsim) * (1 + rnorm(50, sd = 0.3)) ## basic use as a panel function xyplot(ysim ~ xsim, panel = function(x, y, ...) { panel.xyplot(x, y, ...) panel.ablineq(a = 0, b = 2, adj = c(0,1)) panel.lmlineq(x, y, adj = c(1,0), lty = 2, col.line = "grey", digits = 1) }) ## using layers: xyplot(ysim^2 ~ xsim) + layer(panel.ablineq(lm(y ~ x, subset = x <= 3), varNames = alist(y = y^2, x = x[x <= 3]), pos = 4)) ## rotated equation (depends on device aspect at plotting time) xyplot(ysim ~ xsim) + layer(panel.ablineq(lm(y ~ x), rotate = TRUE, at = 0.8)) ## horizontal and vertical lines xyplot(ysim ~ xsim) + layer(panel.ablineq(v = 3, pos = 4, at = 0.1, lty = 2, label = "3.0 (critical value)")) + layer(panel.ablineq(h = mean(ysim), pos = 3, at = 0.15, lty = 2, varNames = alist(y = plain(mean)(y)))) ## using layer styles, r.squared xyplot(ysim ~ xsim) + layer(panel.ablineq(lm(y ~ x), r.sq = TRUE, at = 0.4, adj=0:1), style = 1) + layer(panel.ablineq(lm(y ~ x + 0), r.sq = TRUE, at = 0.6, adj=0:1), style = 2) ## alternative placement of equations xyplot(ysim ~ xsim) + layer(panel.ablineq(lm(y ~ x), r.sq = TRUE, rot = TRUE, at = 0.8, pos = 3), style = 1) + layer(panel.ablineq(lm(y ~ x + 0), r.sq = TRUE, rot = TRUE, at = 0.8, pos = 1), style = 2) update(trellis.last.object(), auto.key = list(text = c("intercept", "no intercept"), points = FALSE, lines = TRUE)) } \keyword{ aplot } latticeExtra/man/resizePanels.Rd0000644000175100001440000000363412126504022016427 0ustar hornikusers\name{resizePanels} \alias{resizePanels} \title{ Resize panels to match data scales } \description{ Modify a \code{"trellis"} object so that when plotted, the panels have the specified relative width and height. } \usage{ resizePanels(x, h = 1, w = 1) } \arguments{ \item{x}{ An object of class \code{"trellis"}. } \item{h}{ numeric vector specifying panel heights} \item{w}{ numeric vector specifying of panel widths} } \details{ \code{resizePanels} modifies a \code{"trellis"} object so that when plotted, the panels have the specified relative width and height; this is only interesting when \code{h} or \code{w} are vectors with unequal entries. \code{resizePanels} can be called with no arguments, in which case the currently plotted \code{"trellis"} object (if any) is used for \code{x}, and a suitable \code{h} or \code{w} (based on the current panel layout) is chosen so that sizes are relative to the current panel ranges in the native coordinate system. This is only interesting when \code{scales="free"}; the resulting object, when plotted again, will have varying panel sizes but the same number of data units per inch in all panels. } \value{ An object of class \code{"trellis"}; essentially the same as \code{x}, but with certain properties modified. } \author{ Deepayan Sarkar } \seealso{ \code{\link{Lattice}}, \code{\link{xyplot}} } \examples{ state <- data.frame(state.x77, state.region, state.name) state$state.name <- with(state, reorder(reorder(state.name, Frost), as.numeric(state.region))) dpfrost <- dotplot(state.name ~ Frost | reorder(state.region, Frost), data = state, layout = c(1, 4), scales = list(y = list(relation = "free"))) ## approximate resizePanels(dpfrost, h = with(state, table(reorder(state.region, Frost)))) ## exact (including boundary padding) resizePanels() } \keyword{dplot} latticeExtra/man/useOuterStrips.Rd0000644000175100001440000000402112640702060016775 0ustar hornikusers\name{useOuterStrips} \alias{useOuterStrips} \title{ Put Strips on the Boundary of a Lattice Display } \description{ Try to update a \code{"trellis"} object so that strips are only shown on the top and left boundaries when printed, instead of in every panel as is usual. This is only meaningful when there are exactly two conditioning variables. } \usage{ useOuterStrips(x, strip = strip.default, strip.left = strip.custom(horizontal = FALSE), strip.lines = 1, strip.left.lines = strip.lines) } \arguments{ \item{x}{ An object of class \code{"trellis"}. } \item{strip, strip.left}{ A function, character string or logical that would be appropriate \code{strip} and \code{strip.left} arguments respectively in a high level lattice function call (see \code{\link{xyplot}}) } \item{strip.lines, strip.left.lines}{ height of strips in number of lines; helpful for multi-line text or mathematical annotation in strips. } } \details{ \code{useOuterStrips} modifies a \code{"trellis"} object with \code{length(dim(x)) == 2} so that when plotted, strips are only shown on the top and left boundaries of the panel layout, rather than on top of every panel, as is the usual behaviour. If the original \code{"trellis"} object \code{x} includes non-default \code{strip} and \code{strip.left} arguments, they will be ignored. To provide customized strip behaviour, specify the custom strip functions directly as arguments to \code{useOuterStrips}. } \value{ An object of class \code{"trellis"}; essentially the same as \code{x}, but with certain properties modified. } \author{ Deepayan Sarkar } \seealso{ \code{\link{Lattice}}, \code{\link{xyplot}} } \examples{ library(lattice) mtcars$HP <- equal.count(mtcars$hp) useOuterStrips(xyplot(mpg ~ disp | HP + factor(cyl), mtcars)) useOuterStrips(xyplot(mpg ~ disp | factor(cyl) + HP, mtcars), strip.left = FALSE, strip = strip.custom(style = 4)) } \keyword{dplot} latticeExtra/man/tileplot.Rd0000644000175100001440000000411312126504022015610 0ustar hornikusers\name{tileplot} \alias{tileplot} \title{ Plot a spatial mosaic from irregular 2D points } \description{ Represents an irregular set of (x, y) points with a color covariate. Polygons are drawn enclosing the area closest to each point. This is known variously as a Voronoi mosaic, a Dirichlet tesselation, or Thiessen polygons. } \usage{ tileplot(x, data = NULL, aspect = "iso", prepanel = "prepanel.default.xyplot", panel = "panel.voronoi", ...) } \arguments{ \item{x, data}{ formula and data as in \code{\link{levelplot}}, except that it expects irregularly spaced points rather than a regular grid. } \item{aspect}{ aspect ratio: "iso" is recommended as it reproduces the distances used in the triangulation calculations. } \item{panel, prepanel}{ see \code{\link{xyplot}}. } \item{\dots}{ further arguments to the panel function, which defaults to \code{\link{panel.voronoi}}. } } \details{ See \code{\link{panel.voronoi}} for further options and details. } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{panel.voronoi}}, \code{\link{levelplot}} } \examples{ xyz <- data.frame(x = rnorm(100), y = rnorm(100), z = rnorm(100)) tileplot(z ~ x * y, xyz) ## tripack is faster but non-free \dontrun{ tileplot(z ~ x * y, xyz, use.tripack = TRUE) } ## showing rectangular window boundary tileplot(z ~ x * y, xyz, xlim = c(-2, 4), ylim = c(-2, 4)) ## insert some missing values xyz$z[1:10] <- NA ## the default na.rm = FALSE shows missing polygons tileplot(z ~ x * y, xyz, border = "black", col.regions = grey.colors(100), pch = ifelse(is.na(xyz$z), 4, 21), panel = function(...) { panel.fill("hotpink") panel.voronoi(...) }) ## use na.rm = TRUE to ignore points with missing values update(trellis.last.object(), na.rm = TRUE) ## a quick and dirty approximation to US state boundaries tmp <- state.center tmp$Income <- state.x77[,"Income"] tileplot(Income ~ x * y, tmp, border = "black", panel = function(x, y, ...) { panel.voronoi(x, y, ..., points = FALSE) panel.text(x, y, state.abb, cex = 0.6) }) } \keyword{ hplot } latticeExtra/man/gvhd10.Rd0000644000175100001440000000262512656343655015100 0ustar hornikusers\name{gvhd10} \alias{gvhd10} \docType{data} \title{ Flow cytometry data from five samples from a patient } \description{ Flow cytometry data from blood samples taken from a Leukemia patient before and after allogenic bone marrow transplant. The data spans five visits. } \usage{data(gvhd10)} \format{ A data frame with 113896 observations on the following 8 variables. \describe{ \item{\code{FSC.H}}{ forward scatter height values} \item{\code{SSC.H}}{ side scatter height values } \item{\code{FL1.H}}{ intensity (height) in the FL1 channel } \item{\code{FL2.H}}{ intensity (height) in the FL2 channel } \item{\code{FL3.H}}{ intensity (height) in the FL3 channel } \item{\code{FL2.A}}{ intensity (area) in the FL2 channel } \item{\code{FL4.H}}{ intensity (height) in the FL4 channel } \item{\code{Days}}{a factor with levels \code{-6} \code{0} \code{6} \code{13} \code{20} \code{27} \code{34}} } } \source{ \url{http://www.ficcs.org/} } \references{ Brinkman, R.R., et al. (2007). High-Content Flow Cytometry and Temporal Data Analysis for Defining a Cellular Signature of Graft-Versus-Host Disease. \emph{Biology of Blood and Marrow Transplantation} \bold{13--6} } \examples{ ## Figure 3.4 from Sarkar (2008) data(gvhd10) histogram(~log2(FSC.H) | Days, gvhd10, xlab = "log Forward Scatter", type = "density", nint = 50, layout = c(2, 4)) } \keyword{datasets} latticeExtra/man/panel.qqmath.tails.Rd0000644000175100001440000000322112126504022017457 0ustar hornikusers\name{panel.qqmath.tails} \alias{panel.qqmath.tails} \title{ Approximate distribution in qqmath but keep points on tails. } \description{ Panel function for \code{\link{qqmath}} to reduce the number of points plotted by sampling along the specified distribution. The usual method for such sampling is to use the \code{f.value} argument to \code{\link{panel.qqmath}}. However, this panel function differs in two ways: (1) a specified number of data points are retained (not interpolated) on each tail of the distribution. (2) the sampling is evenly spaced along the specified distribution automatically (whereas \code{f.value = ppoints(100)} is evenly spaced along the uniform distribution only). \emph{ This function is deprecated as of \pkg{lattice} 0.18-4 (available for R 2.11.0). Use the \code{tails.n} argument of \code{\link{panel.qqmath}} instead. } } \usage{ panel.qqmath.tails(x, f.value = NULL, distribution = qnorm, groups = NULL, ..., approx.n = 100, tails.n = 10) } \arguments{ \item{x, f.value, distribution, groups}{ see \code{\link{panel.qqmath}}. } \item{\dots}{ further arguments passed on to \code{\link{panel.xyplot}}. } \item{approx.n}{ number of points to use in approximating the distribution. Points will be equally spaced in the distribution space. } \item{tails.n}{ number of points to retain (untouched) at both the high and low tails. } } \author{ Felix Andrews \email{felix@nfrac.org} } \seealso{ \code{\link{panel.qqmath}} which should be used instead (as of \pkg{lattice} 0.18-4). } \examples{ ## see ?panel.qqmath } \keyword{ dplot }